Epson SQ-2000, Operating Manual

Page: 84 / 181

Characters that connect vertically
Because the SQ-2000’s vertical spacing can be changed, you
can also create characters that connect vertically.
All you need to
do is change the line spacing so that there is no extra
space
between
lines. The following program shows how this technique
can be used to print an integral sign that is two lines high.
10 '*** User-defined Character; Integral Sign ***
20 '
30 'Select proportional
40 LPRINT CHR$(27) "p" CHR$(1);
50 LPRINT CHR$(27) ":" CHR$(O) CHR$(O) CHR$(O)
60 LPRINT CHR$(27); "&";
CHR$(O);
70 LPRINT "ef";
80 LPRINT CHR$(4) CHR$(28) CHR$(5);
90 FOR I=1 TO 28*3
100 READ A
110 LPRINT CHR$(A);
120 NEXT
130 LPRINT CHR$(4) CHR$(28) CHR$(5);
140 FOR I=1 TO 28*3
150 READ A
160
LPRINT CHR$(A);
170 NEXT
180 'Print a sample
190 LPRINT CHR$(27) "3" CHR$(12);
200 LPRINT CHR$(27) "%" CHR$(1);
210 LPRINT "e";
220 LPRINT CHR$(27) "S" CHR$(0) "1" CHR$(27) "T";
230 LPRINT "e";
240 LPRINT CHR$(27) "S" CHR$(0) "1" CHR$(27) "T"
250 LPRINT "
(aX+bY)";
260 LPRINT CHR$(27) "S" CHR$(0) "2" CHR$(27) "T";
270 LPRINT "dxdy"
280 LPRINT "f";
290 LPRINT CHR$(27) "S" CHR$(1) "0" CHR$(27) "T";
300 LPRINT "f";
310 LPRINT CHR$(27) "S" CHR$(l) "0" CHR$(27) "T"
320 LPRINT CHR$(27) "@"
330 END
340 'Top half (e)
350 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
360 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
370 DATA 0,63,255,0,0,0,3,255,255,0,0,0,4,0,0,0,0,0
380 DATA 8,0,0,0,0,0,24,0,0,0,0,0,60,0,0,0,0,0
390 DATA 2,4,0,0,0,0,0,0,0,0,0,0,0
400 ‘Bottom half (f)
65