Modifications for IBM mode
This program can also be run in IBM mode (DIP switch
1010 | E$=CHR$(27) | :F$=CHR$(BS) |
|
| 'Escape | & | FS | codes |
| |||
1090 | PI$=CHR$(lS) |
|
|
| 'Pica | pitch |
|
| ||||
1190 | LPRINT | l?$;"4"; |
|
| 'Select | italics |
| |||||
1220 | LPRINT | F$;"5" |
|
|
| 'Cancel | italics |
| ||||
1260 | ' LPRINT H$;E$;"g";" | pitch (15 CPI),": |
| |||||||||
1300 | ' LPRINT | H$;E$;"M":"Condensed | elite | pitch | (20 | CPI),"; |
| |||||
1400 | ' LPRINT H$;CHR$(2S);"E";CHR$(2);"Triple |
| width,"; |
|
| |||||||
1410 | ' LPRINT CHR$(2S);"E";CHR$(O) |
|
|
|
|
|
|
|
| |||
1460 | LPRINT F$;"Q";CHR$(47) |
|
| 'Set | right | margin |
| |||||
1500 | LPRINT E$;"A":CHR$(I);E$;"2"; |
|
| 'Line | spacing | set |
| |||||
1510 | ' LPRINT ES;" ";CHR$(I): |
|
| 'Increase | character | space | ||||||
1550 | LPRINT E$:"A";CHR$(I):E$:"2": |
|
| 'Line | spacing | set |
| |||||
1560 | ' LPRINT ES:" ";CHR$(I); |
|
| 'Increase | character | space | ||||||
1610 | ' LPRINT ES;" ";CHR$(O); |
|
| 'Normal | character | space | ||||||
1640 | ' LPRINT H$;E$;"q";CHR$(1);"OUTLINED";E$;"q";CHR$(O);", |
| "; | |||||||||
1650 | ' LPRINT E$;"q";CHR$(2):"SHADOWED";E$;"q";CHR$(O);", | "; |
| |||||||||
1660 | ' LPRINT | E$;"q";CHR$(3);"OUTLINED | WITH SHADOWED"; |
|
| |||||||
1670 | ' LPRINT | E$;"q":CHR$(O);", | " |
|
|
|
|
|
|
| ||
1990 | LPRINT E$;"A";CHR$(S);E$;"2"; |
|
| 'Set | a/60" | line spacing | ||||||
2150 | LPRINT E$:"=":CHR$(O);CHR$(60);CHR$(60); |
|
|
|
|
|
| |||||
2280 | LPRINT | ES;"=" ;CHR$(O);CHR$(60);CHR$(60): |
|
|
|
|
|
-
-
---
-
-
__.
-
-
%