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):
%
-
-
-- -
-
-
__.
-
-