Filter
Top Products
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);
-