Filter
Top Products
Modifications for IBM mode
This program can also be run in IBM mode (DIP switch l-6 OFF) if you
change a few of the lines as shown below to allow for difference in some of
the commands. You will get a cylinder instead of a barrel effect, becuase the
IBM mode does not have any command to micro-adjust the character
spacing.
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";" Semi-condensed 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):
%
-
-
-- -
-
-
__.
-
-