1000
1010
1020
1030
1040
1050
1060
1070
1080
1090
1100
1110
1120
' Set control codes
E$=CHR$(27) 'Escape code
D$=E$+"xO" 'Draft quality
L$=E$+"xl" 'Letter quality
C$=E$+"kO"+L$ lCourler-chara&ers
P$=ES+"k2"+LS 'Prestlqe characters
Oj=E~+"k3"+L$ 'Orator-characters
S$=E$+"k4"+L$ 'Script characters
H$=CHR$(9) 'Horizontal tab
PI$=E$+"P" 'Pica pitch
' Start printing
WIDTH "LPT1:",255
LPRINT ES:"D":CHRS(3):CHRS(24):CHRS(O);
1130 LPRINT C$;"Type styles a&i@' ..
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$;SQ;"Script characters,"
1190 LPRINT E$;"4"; 'Select Italics
1200 LPRINT H$;D$;"and ";C$;"italics ";P$
1210 LPRINT O$;"all ";S$;"styles."
1220 LPRINT E$;"5" 'Cancel italics
1230 LPRINT C$;"Prlnt pitches are:"
;"for "
1240 LPRINT H$;PI$;"Plca 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 print
1290 LPRINT "Condensed pica pitch (17 CPI),"
1300 LPRINT H$;E$;"M";"
Condensed elite pitch (20 CPI),";
1310 LPRINT CHR$(lB) ‘Cancel condensed print
1320 LPRINT HQ;E$;"pl"; 'Select proportional spacing
1330 LPRINT PI$; "Normal proportional, ";
1340 LPRINT H$;CHR$(lS);"
and condensed proportional.";
1350 LPRINT CHR$(le);
1360 LPRINT E$;"pO" 'Cancel proportional spacing
1370 LPRINT
1380 LPRINT H$;E$:"wl";"Double-height,";ES;"w0"
1390 LPRINT H$;E$;"Wl";"Double wldth,";E$;"WO"
1400 LPRINT H$;CHR$(28);"E";CHRS(2);"Triple width,";
1410 LPRINT CHR$(28);"E";CHR$(O)
1420 LPRINT H$;E$;"h";CHR$(l);"Double-sized,"
1430 LPRINT H$;E$;t'h";CHR$(2);'vQuad-sized.";
1440 LPRINT E$;"h";CHR$(O)
1450 LPRINT :LPRINT :LPRINT
1460 LPRINT E$;vvQ'U;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); 'Set line spacing
lSl0 LPRINT ES;” ";CHR$(I); 'Increase character space
1520 LPRINT "THE SPACINGS ARE CHANGED"
1530 NEXT I
1540 FOR I=7 TO 1 STEP -1
1550 LPRINT E$;"A";CHR$(I); 'Set line spacing
39