Table of Contents
Advertisement
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):
%
-
-
--
-
-
-
__.
-
-
Advertisement
Table of Contents
