Star Micronics LC24-20 user manual 137

1580

LPRINT

H$;

E$;

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

OUTLINED ’’; E$;

’’q’’ ;CHR$

(0);”,

“:

I 590

LPRINT

E$;

“q”

;CHR$ (2)

;“SHADOWED’’;E$;

’’; CHR$(0)(O)

;“,

“;

1600

LPRINT

E$;

’’q’’ ;CHR$(3)

;UOUTLINED

WITH SHADOWED”;

1610

LPRINT

E$;

’’q’’ ;CHR$(0)

;”,

v

1620

LPRINT

H$;E$;

”E’’;

’’EmphasizedH

;E$;

’’F’’:”,

‘;

1630

LPRINT

E$;

’’G” ;tiDouble-strikeu

;E$;

’’H’’; U, “;

1640

LPRINT

E$;

”4’’;

”Italics’’;E$;

”5”

;“,

v

1650

LPRINT

H$;E$;

”-l”;”

Underlining’’

;E$;

’’-OU ;ti,

“;

1660

LPRINT

E$;

U(-’’;CHR$(3)

;CHR$(0)

;CHR$(l) ;CHR$(2);CHR$(2)

;

1670

LPRINT

‘Strike–through”;

1680

LpRINT

E$;

”(-”:CHR$ (3);CHR$(o)

:CHR$(I) :CHR$(2):CHR$(0)

;“,

“:

1690

LPRINT

E$;

’’(-”

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

:CHR$(3):CHR$(1

):

1700

LPRINT

‘OverliningH;

1710

LPRINT

E$;

H(-U:CHR$ (3);CHR$(0)

;CHR$(l)

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

:“,

“

1720

LPRINT

H$;E$;

USO”;

“SUPERSCRIPT”

;E$;NTM

;“

and

“;

1730

LPRINT

E$;”S1

‘i ;OSUBSCRIPTN

;E$;vTu

;“,

“

1740

LPRINT

H$;RM$;

”Download

characters:

‘:

1750

SS$=E$+”SOU

‘Superscript

1760

GOSUB 2520

1770

LPRINT

E$;

N%IU;

‘Select

download

character

1780

FOR 1=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 2650

1840

LPRINT

E$;

’’%l”;

‘Select

download

character

1850

FOR 1=1

TO

5

1860

LPRINT

CHR$(60);

‘Print

download

character

1870

NEXT I

1880

LPRINT

E$;

”%O”;

‘Select

normal

character

1890

SS$=E$+’’SIU

‘Subscript

1900

GOSUB 2520

1910

LPRINT

E$;

”%lu;

‘Select

download

character

1920

FOR 1=1

TO

5

1930

LPRINT

CHR$(60);

‘Print

download

character

1940

NEXT I

1950

LPRINT

E$;

U%O”;

‘Select

normal

character

1960

LPRINT

E$;”TM

‘Cancel

superscript

1970

LPRINT

H$;RM$;

”Dot

graphics:”

1980

RESTORE

3170

1990

LPRINT

E$;

NAo;CHR$(8);

‘Set

8/60n

line

spacing

2000

FOR 1=1

TO

3

201’0

LPRINT

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

2020

LPRINT

E$ ;V*H;CHR$

(33)

;CHR$(240)

;CHR$(0);

2030

FOR J=l

TO

240*3

2040

READ DAT

2050 LPRINT CHR$(DAT);

2060

NEXT J

2070

LPRINT

2080

NEXT I

2090

LF’RINT

E$;”@”

‘Initialize

printer

2100

END

2500

2510

SUBROUTINES

2520

‘ Define

super/subscript

download

character

2530

LPRINT

SS$;

‘Select

super/subscript

2540

LPRINT

E$; ti&H:CHR$ (0);CHR$(60)

;CHR$(60);

2550

RESTORE

3010

2560 READ LS :LPRINT CHR$(LS);

2570 READ CW :LPRINT CHR$(CW);

2580 READ RS :LPRINT CHR$(RS);

2590

FOR M=l

TO CW*2

2600

READ MM

2610 LPRINT CHR$(MM);

2620

NEXT M

137