1000 | ) Set control codes |
|
| ||
1010 | E$=CHR$(27) | 'Escape code | |||
1020 | D$=E$+"xO" | 'Draft quality | |||
1030 | L$=E$+"xl" | 'Letter quality | |||
1040 | C.$=Ej+"kO"+L$ | 'Courier characters | |||
1050 | P$=ES+"kZ"+LS | 'Prestige characters | |||
1060 | Oi=E$+"k3"+L$ | 'Orator characters | |||
1070 | S$=E$+"k4"+L$ | 'Script characters | |||
1080 | H$=CHR$(O) | 'Horizontal tab | |||
1090 | PI$=E$+"P" | 'Pica pitch | |||
1100 | ' Start printing |
|
| ||
1110 | WIDTH "LPT1:",255 |
|
| ||
1120 | LPRINT | I;"D";CHR$(3);CHR$(24);CHR$(O); | |||
1130 | LPRINT | I;"Type styles are:" | |||
1140 | LPRINT | I;D$;"Draft characters,"; | |||
1150 | LPRINT | I;C$;"Courier characters," | |||
1160 | LPRINT | :;p$;"Prestige | characters,": | ||
1170 | LPRINT | !;O$;"Orator characters," | |||
1180 | LPRINT | l;s$;'tScript | characters," | ||
1190 | LPRINT | I;"4"* | 'Select italics | ||
1200 | LPRINT | I;D$;:'and";C$;"italics ";P$;"for "; | |||
1210 | LPRINT | ;;"a11 ";S$;"styles." | |||
1220 | LPRINT | I*"5" | 'Cancel italics | ||
1230 | LPRINT | 1;"Print pitches are:" | |||
1240 | LPRINT | H$;PI$;"Pica pitch (10 CPI),"; | |||
1250 | LPRINT | HS*ES*"M"'"Elite>I , | pitch (12 CPI)," | ||
1260 | LPRINT | H$iE$; Mg’ti I( | |||
1270 | LPRINT | HS;PI$; | 'Select condensed print | ||
1280 | LPRINT | CHRS(15); | |||
1290 | LPRINT "Condensed pica pitch (17 CPI)," | ||||
1300 | LPRINT | HS*ES,.,"M":"Condensed elite pitch (20 CPI),"; | |||
1310 | LPRINT | CHR$(i8) | '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 | CHR$(18); | 'Cancel proportional epacing | ||
1360 | LPRINT | E$;"pO" | |||
1370 | LPRINT | H$;E$;"wl | |||
1380 | LPRINT | ||||
1390 | LPRINT | H$;E$;"Wl ";"Double width,";E$;"WO" | |||
1400 LPRINT | H$;CHR$(28);"E";CHR$(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'S;"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); | 'Set line spacing | |||
1510 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