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

160LPRINT CHR$(A);

170NEXT

180'Print a sample

190LPRINT CHR$(27) "3" CHR$(12);

200LPRINT CHR$(27) "%" CHR$(1);

210 LPRINT "e";

220 LPRINT CHR$(27) "S" CHR$(0) "1" CHR$(27) "T";

230LPRINT "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";

270LPRINT "dxdy"

280LPRINT "f";

290 LPRINT CHR$(27) "S" CHR$(1) "0" CHR$(27) "T";

300LPRINT "f";

310 LPRINT CHR$(27) "S" CHR$(l) "0" CHR$(27) "T"

320LPRINT CHR$(27) "@"

330END

340'Top half (e)

350 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

360DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

370DATA 0,63,255,0,0,0,3,255,255,0,0,0,4,0,0,0,0,0

380DATA 8,0,0,0,0,0,24,0,0,0,0,0,60,0,0,0,0,0

390DATA 2,4,0,0,0,0,0,0,0,0,0,0,0

400‘Bottom half (f)

65