Table of Contents
Advertisement
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
c
o
m
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)
' Horizonta 1 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);"Courier characters ,"
1140 LPRINT H$;F$;CHR$(l); ''Sanserif c haracters,";
1150 LPRINT H$;F$;CHR$(2) ;"Letter-Gothic, "
1160 LPRINT H$;F$;CHR$(3) ;"Oratorcharacters ,";
1170 LPRINT H$;F$;CHR$(4) ;"Script characters, "
1180 LPRINT H$;F$;CHR$(5) ;"OCR-B characters ,";
1190 LPRINT H$;F$;CHR$(6) ;"TW-Lightcharacters, "
1200 LPRINT H$;F$;CHR$(7) ;"Cinema characters"
1210 '
1220 LPRINT
1230 LPRINT C$;"Print pitches are:"
1240 LPRINT H$;P$;''Pica p itch (10 CPI),";
1250 LPRINT H$;E$;''M''Eliteite
pitch (12 CPI),"
1260 LPRINT H$;P$;
1270 LPRINT CHR$(15);
'Selectcondensedprint
1280 LPRINT "Condensedpica pitch (17 CPI),";
1290 LPRINT H$;E$;''M''Condensedsed
elite pitch (20 CPI),";
1300 LPRINT CHR$(18)
'Cancelcondensedprint
9
Advertisement
Table of Contents
