Star Micronics Multi-Font LC-IOII User Manual page 49

1000 ' Set control codes
1010 E$-CHR$(27)
'Escape code
1020 D$-E$+"xO"
'Draft quality
1030 N$=E$+"xl"
'Near letter quality
1040 C$=E$+"kO"+N$
'Courier characters
1050 S$=E$+"kl"+N$
'Sanserif characters
1060 Ol$-E$+"kl"+N$
'Orator with small capital
1070 02$=E$+"k3"+N$
'Orator with lower case
1080 H$=CHR$(9)
'Horizontal tab
1090 P$-E$+"P" 'Pica pitch
1100 ' Start printing
1110 WIDTH "LPT1:",255
1120 LPRINT E$;"D";CHR$(3);CHR$(l3);CHR$(O) 'Set I-IT
1130 LPRINT C$;"Type styles are:"
1140 LPRINT H$;D$;"Draft characters, U
1150 LPRINT H$;C$; "Courier characters,"
1160 LPRINT H$;S$;"Sanserif characters,"
1170 LPRINT H$;Ol$;"Orator with small capitals, or 11
1180 LPRINT H$;02$;"
with lower case characters,"
1190 LPRINT E$;"4";
'Select italics
1200 LPRINT H$;02$;"and ";Ol$;"italics ";S$;"for 'I;
1210 LPRINT C$;"all ";D$;"styles."
1220 LPRINT E$;"5"
'Cancel italics
1230 LPRINT C$;"Print pitches are:"
1240 LPRINT H$;P$;"Pica pitch,"
1250 LPRINT H$;E$;"M";"Elite pitch,"
1260 LPRINT H$;CHR$(15); 'Condensed pitch
1270 LPRINT P$;"Condensed pica pitch,"
1280 LPRINT H$;E$;"M"; "Condensed elite pitch,";
1290 LPRINT P$;
'Pica pitch
1300 LPRINT CHR$(18)
'Cancel condensed print
1310 LPRINT H$;E$;"pl";
'Select proportional spacing
1320 LPRINT "proportional spacing for all pitches,"
1330 LPRINT E$;"pO"
'Cancel proportional spacing
1340 LPRINT H$;E$;"Wl";"Expanded, ";E$;"WO";
1350 LPRINT E$;"wl";"Double-height, ";E$;"wO"
1360 LPRINT H$;E$;"h";CHR$(l);"Double-sized,"
1370 LPRINT H$;E$;"h";CHR$(2);"Quad-sized.";
1380 LPRINT E$;"h";CHR$(O)
1390 LPRINT :LPRINT
1400 LPRINT E$;"Q";CHR$(47) 'Set right margin
1410 LPRINT C$;"Various line and character spacings:"
1420 LPRINT E$;"al"
'Center text
1430 FOR I-1 TO 10
1440 LPRINT E$;"A";CHR$(I); 'Set line spacing
1450 LPRINT E$;" ";CHR$(I); 'Increase character space
1460 LPRINT "THE SPACINGS ARE CHANGED"
1470 NEXT I
1480 FOR I=10 TO 1 STEP -1
41