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 HS:CS:"Courier characters."
1160 LPRINT H$jP$:"Prestige characters,";
1170 LPRINT H$;O$;"Orator characters,"
1180 LPRINT H$;S$;"Script characters,"
1190 LPRINT E$;"4"; 'Select italics
1200 LPRINT H$;D$;"and ";C$:"italics ";P$;"for ":
1210 LPRINT O$:"all ";S$:"styles."
1220 LPRINT E$;"S" 'Cancel italics
1230 LPRINT C$:"Print pitches are:"
1240 LPRINT H$;PI$;"Pica pitch (10 CPI),";
1250 LPRINT H$:E$;"H":"Elite pitch (12 CPI),"
1260 LPRINT H$;E$;"g"; "Semi-condensed pitch (15 CPI),":
1270 LPRINT H$;PI$;
1280 LPRINT CHR$(15); 'Select condensed print
1290 LPRINT "Condensed pica pitch (17 CPI),"
1300 LPRINT H$*E$"'li"*
1310 LPRINT CHR$(;8) '
"Condensed elite pitch (20 CPI),";
'Cancel condensed print
1320 LPRINT H$;E$;"pl"; 'Select proportional spacing
1330 LPRINT PI$;"Normal proportional,";
1340 LPRINT H$;CHR$(15);"And condensed proportional.";
1350 LPRINT CHRC(18);
1360 LPRINT E$;"pO" 'Cancel proportional spacing
1370 LPRINT
1380 LPRINT H$.E$*"wl "."Double-height,";ES;"wO"
1390 LPRINT HSIESI"Wl"I"Double width. ":ES:"WO"
1400 LPRINT H$iCti$(28j;0'Et';CHR$(2);;1Tripie width,";
1410 LPRINT CHR$(28);"E";CHR$(O)
1420 LPRINT H$;E$;"h":CHR$(l);"Double-sized,"
1430 LPRINT H$:E$:"h";CHR$(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 LPRlNT "THE SPACINGS ARE 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 CS:"Other features:"
1640 LPRINT H~~E$:"q";CHR$(l):"OUTLINED";E$;"q";C~$(O);", ";
1650 LPRINT E$;"q";CHR$(2);"SHADCWED";E$;"q";CHR$(O);", ";
1660 LPRINT E$:"q";CHR$(3);'OUTLINED WITH SHADOWED":
1670 LPRINT ES:"o":CHRS(O):". "
1680 LPRINT H$.E$'"E"." ‘Emphasized";E$;"F";", a*;
1690 LPRINT E$,
:"&; "Dbuble-strlke";E$; "H";", 44;
1700 LPRINT ES:"-l";"Underlining";E$;"-O";", "
1710 LPRINT H$;E$;" l";"Overlining";E$;" O";", ";
1720 LPRINT E$;"SO"T"SUPERSCRIPT";E$:"T"T" and ";
89