1000 | ' Set control codes |
|
|
| |
1010 | E$=CHR$(27) | 'Escape code | |||
1020 | D$=E$+"xO" | 'Draft quality | |||
1030 | L$=E$+"xl" | 'Letter quality | |||
1040 | C$=E$+"kO"+L$ | ||||
1050 | P$=ES+"k2"+LS | 'Prestlqe characters | |||
1060 | Oj=E~+"k3"+L$ | ||||
1070 | S$=E$+"k4"+L$ | 'Script characters | |||
1080 | H$=CHR$(9) | 'Horizontal tab | |||
1090 | PI$=E$+"P" | 'Pica pitch | |||
1100 | ' Start printing |
|
|
| |
1110 | WIDTH | "LPT1:",255 |
|
|
|
1120 | 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$;"for " | |||
1210 | LPRINT | O$;"all ";S$;"styles." | |||
1220 | LPRINT | E$;"5" | 'Cancel italics | ||
1230 | LPRINT | C$;"Prlnt pitches are:" | |||
1240 | LPRINT | H$;PI$;"Plca pitch (10 CPI),"; | |||
1250 | LPRINT | H$;E$;"M";"Elite pitch (12 CPI)," | |||
1260 | LPRINT | H$;E$;"g | |||
1270 | LPRINT | H$;PI$; | 'Select condensed print | ||
1280 | LPRINT | CHR$(lS); | |||
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); | 'Cancel proportional spacing | ||
1360 | LPRINT E$;"pO" | ||||
1370 | LPRINT |
|
|
|
|
1380 | LPRINT | ||||
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 | ||||
1430 | LPRINT | ||||
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
1550 LPRINT E$;"A";CHR$(I); 'Set line spacing
39