An example character definition should make this clear: 10 ‘***
20 ’
30 ‘Select draft
40 LPRINT CHR$(27) “x’ CHR$(O);
50 ’
60 ‘Define download character
70 LPRINT CHR$(27) “&” CHR$(O);
80 ’
90 ‘beginning and ending at A
100 LPRINT “AA”;
110 LPRINT CHR$(2) CHR$(1O) CHR$(1); 120 ’
130 ‘left margin, # of digits, right margin
140 FOR I=1 TO 10*3
150 READ A
160LPRINT CHR$(A);
170NEXT
180’
190‘Print a sample
200LPRINT “AAAAAAAAAAAAA”
210’
220‘Select download
230LPRINT CHR$(27) “%” CHR$(1);
240LPRINT “AAAAAAAAAAAAA”
250’
260‘Deselect download
270LPRINT CHR$(27) “%" CHR$(0);
280LPRINT “AAAAAAAAAAAAA”
290END
300DATA 25,85,80,4,0,0,1,1,0
310DATA 0,64,0,0,17,0,0,4,0
320DATA 0,1,0,0,0,64,0,0,16
330DATA O,O,O,
In line 40, the <ESC> “x” command selects draft style print- ing. You’ll see why later in this chapter.
The actual character definition, using the command syntax ex-
plained above, starts in line 70. The two A’s in line 100 represent n1 and n2, the range of characters being defined (in this case, a range of one). Line 110 contains d0, dl, and d2. The information about the actual character design (which is contained in the data statements at the end of the program) is sent to the printer in the loop between lines 140 and 170.
57