Epson SQ-2000, Руководство по эксплуатации

Страница: 93 / 181

Now total the values for each column of dots. These totals are
the values that are sent to the printer as graphics data for the
print design. And here is a new BASIC program to print the
design.
10 ‘*** Prints Graphics/Single-Density Mode ***
20
’
30
‘Set
line spacing 24/180
40 LPRINT CHR$(27) “3” CHR$(24); ‘Set line spacing 24/180
50 FOR I=1 TO 3
60
’
70
‘Select bit image mode
80 LPRINT CHR$(27) “*” CHR$(0) CHR$(42) CHR$(0);
90 FOR X=1 TO 42
100
READ N
110 LPRINT CHR$(N);
120 NEXT X
130
LPRINT
140 NEXT I
150 ’
160 ‘Reset line spacing to l/6-inch
170 LPRINT CHR$(27) “2”;
180 ’
190 ‘Data to print first line
200 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 3, 3, 31, 31
210 DATA 31,31,31,31,31,31,31,31,31,31,28,28,28,28
220 DATA 28,28,3,3,3,0,0,0,0,0,0,0,0,0
230 ’
240
‘Data to print second line
250 DATA 0, 0, 0, 1, 1, 1, 127, 127, 127, 255, 255, 255, 255,
260 DATA 255,255,255,255,240,240,240,128,128,128,127,127~127,0
270 DATA 0,0,128,128,128,126,126,1,1,1,0,0,0
280 ’
290 ‘Data to print third line
300 DATA 63
J
63
J
63
J
255
J
255
J
255
J
255
J
255
J
255
J
255
J
255
J
255
J
248
J
248
310 DATA 248,192,192,192,O,0,0,O,O,O,192,192,192,56
320 DATA 56,56,7,7,7,7,7,7,199,199,199,63,63,63
Here’s how the program works. First, set the line spacing to
accommodate your new design. You will want the design to print
without leaving any
spaces between each line
of graphics. Line
40 uses the command
<ESC> “3” n
to select
n/180-inch line
spacing. In this case,
n
= 24. When the line feed occurs, the paper
will be advanced 24/180-inch.
74