T resulting f s b s t t p u t C c
e
A N . D P
I
prior to printing document files. Of course, this command can also be
included in a batch file.
P U B
A d e a v o B i u s w P
com W t B c a s t t p
u t L c a c c a d u t
C f
Sampleprogram
The following lines of BASIC give examples of how the printer may be
driven from within your own programs:
1000 ‘ Set control codes
1010 E$=CHR$(
27) ‘ Escape code
1020
D$=E$+”XO“ ‘Draft quality
1030 L$=E$+’’x1° ‘Letter quality
1040 F$=E$+”k” ‘Select font
1050 C$=F$+CHR$(O)+L$ ‘Select Courier
1060 H$=CHR$(9) ‘Horizonta1 tab
1070 P$=E$+”P” ‘Pica pitch
1080 ‘ Start printing
1090 WIDTH “LPT1:“,255
1100 LPRINT E$;“D”;CHR$(3);C~$ (27);CHR$(O);
1110 LPRINT C$;“Font settings:“
1120 LPRINT H$;D$;“Draft characters,”;L$;
1130 LPRINT H$;F$;CHR$(0);“Couriercharacters,“
1140 LPRINT H$;F$;CHR$(l);’’Sanserifcharacters,”;
1150 LPRINT H$;F$;CHR$(2);“Letter-Gothic,“
1160 LPRINT H$;F$;CHR$(3);“Oratorcharacters,“;
1170 LPRINT H$;F$;CHR$(4);“Scriptcharacters,“
1180 LPRINT H$;F$;CHR$(5);“OCR-B characters,“;
1190 LPRINT H$;F$;CHR$(6);“TW-Lightcharacters,“
1200 LPRINT H$;F$;CHR$(7);“Cinemacharacters”
1210 ‘
1220 LPRINT
1230 LPRINT C$;“Print pitches are:”
1240 LPRINT H$;P$;’’Picapitch (10 CPI),”;
1250 LPRINT H$;E$;’’M’’Eliteitepitch (12 CPI),”
1260 LPRINT H$;P$;
1270 LPRINT CHR$(15);
‘Selectcondensedprint
1280 LPRINT “Condensedpica pitch (17 CPI),”;
1290 LPRINT H$;E$;’’M’’Condensedsedelite pitch (20 CPI),”;
1300 LPRINT CHR$(18) ‘Cancelcondensedprint
9