Star Micronics LC24-15 user manual

1730

LPRINT E$;"Sl

";"SUBSCRIPT";E$;"T";",

I(

1740

LPRINT

H$;C$;"Download

characters:

";

1750

LPRINT

E$;"SO";

'Select

superscript

1760

GOSUB

2130

1770

LPRINT

E$;"%l";

'Select

download

character

1780

FOR

I=1

TO

5

1790

LPRINT

CHR$(60);

'Print

download

character

1800

NEXT

I

1810

LPRINT

E$;"%O";

'Select

normal

character

1820

LPRINT

E$:"T";

'Cancel

superscript

1830

GOSUB

2260

1840

LPRINT

E$;"%l";

'Select

download

character

1850 FOR I=1 TO 5

1860

LPRINT

CHR$(60);

'Print

download

character

1870

NEXT

I

1880

LPRINT

E$;"%O";

'Select

normal

character

1890

LPRINT

E$;"Sl";

'Select

subscript

1900

GOSUB

2130

1910

LPRINT

E$* "%l"*

'Select

download

character

1920

FOR

I=1

T6

5

'

1930

LPRINT

CHR$(BO);

'Print

download

character

1940

NEXT

I

1950

LPRINT

E$;"%O";

'Select

normal

character

1960

LPRINT

E$;"T"

'Cancel

superscript

1970

LPRINT

H$;C$;"Dot

graphics:"

1980

RESTORE

2560

1990

LPRINT

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

'Set 8/60"

line

spacing

2000 FOR I=1 TO 3

2010

LPRINT E$;"fO";CHR$(B):

2020

LPRINT E$;"*":CHR$(33):CHR$(240);

2030 FOR J=l TO 240*3

2040

READ

DAT

2050

LPRINT

CHR$(DAT);

2060

NEXT

J

2070

LPRINT

2080

NEXT

I

2090

LPRINT

ES;"@"

'Initialize

printer

2100

END

2110

2120

' SUBROUTINES

2130

' Define super/subscript

download character

2140

LPR,INT

E$;"Sl";

2150

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

2160

RESTORE

2400

2170

READ LS :LPRINT CHR$(LS);

2180

READ CW :LPRINT CHR$(CW);

2190

READ RS :LPRINT CHR$(RS);

2200

FOR

M=l

TO

CW*2

2210

READ

MM

2220 LPRINT CHR$(MM):

2230

NEXT

M

2240

RETURN

2250

2260 ' Define LQ pica download character

2270

LPRINT

C$:

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

2290

RESTORE

2470

2300 READ LS :LPRINT CHR$(LS);

2310 READ CW :LPRINT CHR$(CW);

2320 READ RS :LPRINT CHR$(RS);

2330 FOR M=l TO CW*3

2340

READ

MM

2350 LPRINT CHR$(MM);

90