Star Micronics LC24-15 user manual Lprint, E$QCHR$47, 1550, E$~~A~*cHR$I

1100

' Start

printing

1110

WIDTH

"LPT1:",255

1120

LPRINT

E$;"D";CHR$(3):CHR$(24);CHR$(O)

'Set

HT

1130

LPRINT

C$; "Font styles are:"

1140

LPRINT

H$;D$;"Draft

characters,":

1150 LPRINT

H$;C$;"Courier

characters,"

1160

LPRINT

H$:P$;"Prestige

characters,";

1170 LPRINT

H$;O$;"Orator

characters,"

1180

LPRINT

H$;S$; "Script

characters,"

1190

LPRINT

E$;"4";

'Select

ital its

1200

LPRINT

H$*D, $*"andI

";C$;"italics

":P$;"for

";

1210 LPRINT

O$;"ali ";S$;"styles."

1220

LPRINT

E$;"S"

'Cancel

ital its

1230 LPRINT C$:"Print pitches are:"

1240

LPRINT

H$:PI$;"Pica

pitch (10

CPI),";

1250

LPRINT

H$:E$:"M";"Elite

pitch

(12

CPI),"

1260

LPRINT

H$;E$;"g";" Semi-condensed

pitch (15

CPI),";

1270

LPRINT

H$;PI$;

1280

LPRINT

CHR$(lS);

'Select

condensed

pr,int

1290 LPRINT "Condensed pica pitch (17 CPI),"

1300

LPRINT

H$,E$-"M" *"Condensed

elite

pitch

(20 CPI),";

1310

LPRINT

CH&(;S)

'

'Cancel

condensed

pr,int

1320

LPRINT

H$;E$;"pl";

'Select

proportional

spacing

1330

LPRINT

PI$:"Normal

proportional,";

1340

LPRINT

H$:CHR$(lS);

"And

condensed

proportional.";

1350

LPRINT

CHR$(lS):

1360

LPRINT

E$;"pO"

'Cancel

proportional

spacing

1370

LPRINT

1380

LPRINT H$;E$;"wl";"Double-height,":E$:"wO'

1390

LPRINT

H$;E$;"Wl";"Double

width, ";E$;"WO"

1400

LPRINT

H$;CHR$(28); "E";CHR$(2);"Triple

width,";

1410

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

1420

LPRINT H$;E$;"h";CHR$(l);"Double-sized,"

1430

LPRINT H$;E$:"h":C!HR$(2);"Quad-sized.";

1440

LPRINT E$;"h";CHR$(O)

1450

LPRINT

:LPRINT

1460

LPRINT

E$;"Q";CHR$(47)

'Set

right

margin

1470

LPRINT

C$;"Various

line

and

character

spacings:"

1480

LPRINT

E$;"al"

'Center

text

1490

FOR I=1

TO

7

1500

LPRINT

E$;"A";CHR$(I

'Line

spacing

set

1510

LPRINT

ES;"

";CHR$(I

'Increase

character

space

1520

LPRINT

"THE

SPACINGS

ARE

CHANGED"

1530

NEXT

I

1540 FOR I=6 TO 1 STEP -1

1550

LPRINT

E$;~~A~*;cHR$(I

'Line

spacing

set

1560

LPRINT

ES;"

";CHR$(I

'Increase

character

space

1570 LPRINT "THE SPACINGS ;\RE CHANGED"

1580

NEXT

I

1590

LPRINT

E$;."aO"

'Left

justify

1600

LPRINT

E$;"3";CHR$(30);

'Set

l/6"

line

spacing

1610

LPRINT

ES;"

";CHR$(O);

'Normal

character

space

1620

LPRINT

:LPRINT

1630

LPRINT C$; "Other features:"

1640

LPRINT

H$;E$;"q";CHR$(l);"OUTLINED";~$;"q";CHR$(O);",

";

1650

LPRINT

E$;"q";CHR$(2);"SHADOWED":E$;"q";CHR$(O);",

";

1660

LPRINT

E$;"q";CHR$(3):"OUTLINED

WITH

SHADOWED";

1670

LPRINT

E$;"q";CHR$(O);",

"

1680

LPRINT

H$;E$;"E";"Emphasized";E$:"F";",

";

1690

LPRINT

E$;"G";"Double-strike";E$:"H";",

";

1700 LPRINT

ES;"-l";"Underlining";E$;"-O";",

I(

1710

LPRINT

H$;E$;" l";"Overlining";E$;"

O";",

";

1720

LPRINT

E$;"SO"j"SUPERSCRIPT";E$;"T"i"

and

";

89