Star Micronics XR-1500, XR-1000 user manual

Models: XR-1000 XR-1500

1 118
Download 118 pages 33.46 Kb
Page 98
Image 98
Manual background

1870 READ

GD

 

 

 

 

 

 

 

 

 

 

1880

LOGO$(ROW)=LOGO$(ROW)+CHR$(GD)

 

 

 

1890 NEXT

COL

 

 

 

 

 

 

 

 

 

1900

NEXT

ROW

 

 

 

 

 

 

 

 

 

1910

LPRINT

E$;"A";CHR$(B);

'Set a/72"

line spacing

1920

FOR ROW=1

TO

4

 

 

 

 

 

 

 

1930

LPRINT

11

";

 

 

 

 

 

 

 

1940

FOR B=O

TO

6

 

 

 

 

 

 

 

 

1950

IF B=2

THEN

2000

 

 

 

 

 

 

1960

IF B=5

THEN

2000

 

'Select normal

density

1970

LPRINT

E$;"*";CHR$(B);

1980

LPRINT CHR$(65);CHR$(O);LOGO$(ROW);

 

 

1990

LPRINT

u

";

 

 

 

 

 

 

 

2000

NEXT

B

 

 

 

 

 

 

 

 

 

 

2010

LPRINT

 

 

 

 

 

 

 

 

 

 

2020

NEXT

ROW

 

 

 

 

 

 

 

 

 

2030

LPRINT

EL;"@"

 

 

'Initialize

printer

2040

END

 

 

 

 

 

 

 

 

 

 

 

3000

'

 

 

 

 

 

 

 

 

 

 

 

3010

' SUBROUTINES

 

 

 

 

 

 

 

3020

' Define Draft download character

 

 

3030

LPRINT E$;"xO";E$;":";CHR$(O);CHR$(O);CHR$(O);

3040

LPRINT E$;"&";CHR$(O);CHR$(6O~;CHR$(6O~;

3050

RESTORE

4020

 

 

 

 

 

 

 

 

3060

READ LS :LPRINT CHR$(LS);

 

 

 

 

3070

FOR M=l

TO

11

 

 

 

 

 

 

 

3080

READ

MM

 

 

 

 

 

 

 

 

 

 

3090

LPRINT

CHR$(MM);

 

 

 

 

 

 

3100

NEXT

M

 

 

 

 

 

 

 

 

 

 

3110

RETURN

 

 

 

 

 

 

 

 

 

 

3120

'

 

 

 

 

 

 

 

 

 

 

 

3130

' Define NLQ download character

 

 

3140

LPRINT

C$;

 

 

 

 

 

 

 

 

 

3150

LPRINT E$;"&";CHR$(O);CHR$(60):CHR$(60);

3160

RESTORE

4060

 

 

 

 

 

 

 

 

3170

READ LS :LPRINT CHR$(LS);

 

 

 

 

3180

READ CW :LPRINT CHR$(CW):

 

 

 

 

3190

READ

RS

:LPRINT CHR$(RS);

 

 

 

 

3200

FOR M=l

TO

CW*3

 

 

 

 

 

 

3210

READ

MM

 

 

 

 

 

 

 

 

 

 

3220

LPRINT

CHR$(MM);

 

 

 

 

 

 

3230

NEXT

M

 

 

 

 

 

 

 

 

 

 

3240

RETURN

 

 

 

 

 

 

 

 

 

 

4000

'

 

 

 

 

 

 

 

 

 

 

 

4010

' DATA

 

 

 

 

 

 

 

 

 

 

4020

' Draft download character dnta

 

 

4030

DATA

139

 

 

 

 

 

 

 

 

 

4040

DATA

124,

0,

66,

4,

64,

36.

16,

2,

16, 12, 0

4050

'

 

 

 

 

 

 

 

 

 

 

 

4060

' NLQ

downlond

characer data

 

 

 

4070

DATA

 

0,

23,

0

 

 

 

 

 

 

4080

DATA

 

1,248,

0.

6.

0,

0.

8,124,

0

4090

DATA

16,

2.

0,

32,124,

0,

0,

2,

0

4100

DATA

32,124,

0.

0.

0.

0,

63,248,

0

4110

DATA

 

0,

0.

0.

32.

0.

0.

0,120,

0

4120

DATA

16.

0.

0.

8,120,

0,

4.

0.

0

92

Page 98
Image 98
Star Micronics XR-1500, XR-1000 user manual