1““1’
i1000 ‘Set control codes
1010E$=CHR$(27) ‘Escape code
1020 D$=E$+’’xO” ‘Draft quality
1030 N$-E$+’’x1° ‘Nearletter quality
1040 C$=E$+’’kO’’+N$ ‘Couriercharacters
1050 S$=E$+’’kl’’+N$ ‘Sanserifcharacters
1060Ol$==E$+’’k2’’+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 LPRINTE$;’’D’’;CHR$(3);CHR$(13);CHR$(0)‘SetHT
1130LPRINT C$;’’Typestyles are:”
1140LPRIN’TH$;D$;’’Draftcharacters.“
1150LPRINT H$;C$;’’Couriercharacters,”
1160 LPRINTH$;S$;’’Sanserifcharacters,”
1170 LPRINTH$;Ol$;’’Oratorwith small caPitals,or “
1180 LPRINTH$;02$;” with lower case characters,”
1190LPRINT E$;”4”; ‘Selectitalics
1200 LPRINTH$;02$;’’and“;Ol$;’’italics“;S$;’’for“;
1210 LPRINTC$;’’all“;D$;’’styles.”
1220 LPRINTE$;”5” ‘Cancelitalics
1230 LPRINTC$;’’Printpitchesare:”
1240 LPRINTH$;P$;’’Picapitch,”
1250 LPRINTH$;E$;’’M’’;”Elitepitch,”
1260 LPRINTH$;CHR$(15);‘Condensedpitch
1270 LPRINTP$;’’Condensedpica pitch,”
1280LPRINT H$;E$;’’M”;
“Condensedelitepitch,”;
1290 LPRINTP$; ‘Picapitch
1300 LPRINTCHR$(18) ‘Cancelcondensedprint
1310 LPRINT H$;E$;’’P1”; ‘Select proportional spacing
1320 LPRINT “proportional spacing for all pitches, ”
133o LPRINT E$;’’PO” ‘Cancel proportional spacing
1340 LPRINT H$;E$; ’’Wl’’Expanded,ed, “;E$;’’WO”;
1350 LPRINT E$; ’’wl’’Doublebheightght, “;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 1=1 TO 10
1440 LPRINT E$;’’A’’;CHR$(I); ‘Set line Spacing
1450 LPRINT E$;” ‘;CHR$(I); ‘Increase character Space
1460 LPRINT “THE SPACINGSARE CHANGED”
1470 NEXTI
1480 FOR 1=10 TO 1STEP –1
41