Table of Contents
Advertisement
Modifications for IBM mode
This program can also be run in IBM mode (DIP switch 1-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$(28)
'Escape
L FS codes
1090 PI$=CHR$(lS)
'Pica pitch
1190 LPRINT
F$;"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$(28);'E";CHR$(2);"Triple
width,";
1410
' LPRINT
CHR$(28);"E';CHR$(0)
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$(l):"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$(E);E$;"2";
'Set E/60"
line
spacing
2150 LPRINT
E$:"=~;CHR$(O);CHR$(6O):CHR$(60);
2280 LPRINT
ES;"=" ;CHR$(O);CHR$(6O);CHR$(60);
-
Advertisement
Table of Contents
