Star Micronics LC24-200 user manual 1550LPRINT

I

1540LPRI NT E$ ; “ A“ ; CHR$( I ) ;

‘Line

spacing set

1550LPRINT

E$;”

“ ;CHR$(I);

‘Increase

character

space

1560LPRINT

“THE SPACINGS ARE CHANGED”

1570NEXT I

1580LPRINT

E$; ’’aOU

‘Left

justify

1590LPRINT

E$; ’’3” ;CHR$(3O);

‘Set

1/6”

line

spacing

1600LPRINT

E$;” “;CHR$(0);

‘Normal

character

space

1610LPRI NT

:LPRINT

1620LPRINT

RM$; ”Other features:”

1630LPRINT

H$;E$; ’’q’’ ;CHR$(l)

;”OUTLINED”

;E$; ’’q’’ ;CHR$(0)

:”,

“:

1640LPRI NT

E$; ”qU;CHR$(2)

;’’SHADOWEDU;E$;

”q’’;CHR$(0) ;”, “;

1650LPRI NT

E$; ”q”;CHR$(3)

;“ OUTLINED WITH SHADOWED”;

1660LPRINT

E$; ”q”;CHR$(0)

;”,

“

1670LPRINT

H$;E$; ’’E”;” Emphasized’’

;E$;”F”

;“,

“:

1680LPRINT

E$;

”G”;”

Double-strike”

;E$;”H”

;“,

“;

1690LPRI NT

E$;

”4’’:’’Ital

ic;E$;”$;

” 5“;”,

“

1700LPRINT

H$:E$:’’-l

”: ”Underlining”

:E$:

”-0”:”,

“:

1710LPRI NT

E$; ’’(:’’

;cHR$(3);cHR$(oj

;CHR$(1);CHR$(2)

;CHR$(2);

1720LPRI NT

“Strike-through”;

,,

1730LPRINT

E$; U(-’’;CHR$

(3);CHR$(0)

;CHR$(l) :CHR$(2):CHR$(0)

!,.

!,

1740LPRI NT

E$; ”(-’’;cHR$(3)

;cHR$(0)

;cHR$(1);cHR$(3)

:CHR$(l)

1750LPRINT

‘Over lining”;

;CHR$(0);CHR$(

I) ;CHR$(3):CHR$(0)

1760LPRI NT E$; ”(-’’;CHR$(3)

1!

,,

1770LPRI NT H$:E$:”SO’’ : ’’SUPERSCRIPT” :E$:UTU:”

and

“:

1780LPRINT

E$;

’’Siti;

”StiBSCRIPT’’;E$

;“T”:i,

“

1790LPRINT

H$:RM$: ’’Download

characters:

“:

1800SS$=E$+”~6° “

‘Superscript

1810GOSUB 2520

1820LPRINT

E$; ”%l”;

‘Select

download

character

1830FOR 1=1

TO 5

1840LPRINT

CHR$(60);

‘Print

download

character

1850NEXT I

1860LPRINT

E$; ”%O”;

‘Select

normal

character

1870LPRINT

E$; ’’TN;

‘Cancel

superscript

1880GOSUB 2650

1890LPRINT

E$; ’’%l”:

‘Select

download

character

1900FOR 1=1

TO 5

1910LPRINT

CHR$(60);

‘Print

download

character

1920NEXT I

1930LPRINT

E$; ”%OU;

‘Select

normal

character

1940SS$=E$+US1”

‘Subscript

1950GOSUB 2520

‘Select

download

character

1960

LPRINT

E$; ”%l”;

1970

FOR 1=1

TO 5

‘Print

download

character

1980

LPRINT

CHR$(60);

1990

NEXT I

‘Select

normal

character

2000

LPRINT

E$; ”%O”;

2010

LPRINT

E$;”T”

gr~ phics:

“

‘Cancel

superscript

2020

LPRINT

H$;RM$;

”Dot

2030

RESTORE 3170

‘Set

8/60”

line

spacing

2040

LPRINT

E$; ”A”;CHR$(8)

2050

FOR 1=1

TO 3

2060

LPRINT

E$; ”fO”;CHR$(8);

2070

LPRINT

E$ ;“*”;CHR$

(33)

;CHR$(240)

;cHR$(0):

2080

FOR J=l

TO 240*3

2090

READ DAT

2100

LPRINT

CHR$(DAT);

2110

NEXT J

2120

LPRINT

2130

NEXT I

‘Initialize

printer

2140

LPRINT

E$;”@”

2150

END

2500

‘ SUBROUTINES

2510

2520

Define

super/subscript

download

character