
1000 ' Set control codes | 'Escape code |
| |
1010 E$=CHR$(27) |
| ||
1020 | 'Draft quality | ||
1030 | N$=E$+"xl" | 'Near letter quality | |
1040 | 'Courier characters | ||
1050 | 'Sanserif characters | ||
1060 | 'Orator with | small capital | |
1070 | 'Orator with | lower case | |
1080 | H$=CHR$(9) | 'Horizontal tab | |
1090 | 'Pica pitch |
| |
1100 | ( Start printing |
|
|
1110 | WIDTH "LPT1:",255 |
|
|
1120 | LPRINT E$;"D";CHR$(3);CHR$(13);CHR$(O) 'Set HT | ||
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 U | ||
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 |
| ||
1360 | LPRINT |
| ||
1370 | LPRINT |
| ||
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 |
|
|
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