You will note that this program avoids the printer’s double-parenthesis
commands. To change colours, for example, it uses the escape sequence
E$: “r”; CHR$(n), where E$ is predefined as CHR$(27), instead of the
equivalent command ((C))n. The double-parenthesis commands are great
for embedding in documents, but they are less convenient in programs. In
their simplest form they cannot be listed; instead of listing them, the printer
executes them.
1000
1010
1020
1030
1040
1050
1060
1070
1080
1090
1100
1110
1120
1130
1140
1150
1160
1170
1180
1190
1200
1210
1220
1230
1240
1250
1260
1270
1280
1290
1300
1310
1320
1330
1340
1350
1360
1370
1380
1390
1400
’ Set control codes
E$-CHR$(27) ‘Escape code
D$-E$+“xO” ‘Draft quality
N$-E$t”xl” ‘Near letter quality
C$-E$t”kO”+N$ ‘Courier
S$-E$t”kl”tN$ ‘Sanserif
Ol$-E$+“k2”+N$ ‘Orator with small capitals
028sE$+“k3”+N$ ‘Orator with lower case
H$KHR$(B) ‘Horizontal tab
P$-E$+“P” ‘Pica pitch
’ Start printing
WIDTH “LPTl * ” ,255
LPRINT E$;“D”;CHR$(3);CHR$(20);CHR$(O) ‘Set HT
LPRINT C$; “Type styles are : ”
LPRINT H$ ; D$ ; “Draft characters, ”
LPRINT H$; C$; “Courier characters, ”
LPRINT H$; S$ ; “Sanseri f characters, ”
LPRINT H$;Ol$;“Orator with small capitals, or H
LPRINT H$;02$; ” with lower case characters,”
LPRINT E$ ; “4” ; ‘Select italics
LPRINT H$;02$;“and “;Ol$;“italics “;S$;“for “;
LPRINT C$;“all “;D$;“styles.”
LPRINT E$ ; “5” ‘Cancel italics
LPRINT C$; “Print pitches are : ”
LPRINT H$;P$;“Pica pitch,“;
LPRINT H$;E$; “M”; “Elite pitch, ”
LPRINT H$;CHR$(15); ‘Condensed pitch
LPRINT P$; “Condensed pica pitch, ‘I;
LPRINT H$ ; E$ ; “M” ; “Condensed elite pitch,“;
LPRINT P$; ‘Pica pitch
LPRINT CHR$ ( 18) ‘Cancel condensed print
LPRINT H$;E$; “~1”; ‘Select proportional spacing
LPRINT “Proportional spacing for all pitches,”
LPRINT E$ ; “~0” ‘Cancel proportional spacing
LPRINT H$ ; E$ ; “Wl ” ; “Expanded, ” ; E$ ; “WO” ;
LPRINT E$ ; “~1” ; “Doub 1 e-height , ” ; E$ ; “~0 ”
LPRINT H$;E$;“h”;CHR$(l);“Double-sized,”
LPRINT H$;E$;“h”;CHR$(2);“Quad-sized.“;
LPRIN’T E$ ; “h” ; CHR$ (0 )
LPRINT :LPRINT :LPRINT
LPRINT C$; “Colour printing:”
41