To demonstrate how to use these characters, let’s use this character set to print a small graph. This program, which has been built around the first program in this chapter, will do just
Ithat:
10 LPRINTCHR$(27);"xO";
20 LPRINTCHRS(27);":";CHR$(O);CHR$(O);CHR$(O)
30LPRINTCHR$(27);"&";CHR$(O);CHR$(60);CHR$(61);
40FOR N=60 TO 61
50FOR M=l TO 30
60READ MM
70 LPRINTCHR$(MM);
80NEXT M
90 NEXT N
100 LPRINT
110 DATA 1, 9, 2, 1,240, 0, 6, 8, 0, 8, 100, 0
120 DATA 0, 0, 0, 24, 99,128, 0, 0, 0, 31, 255,192
130 DATA 0, 0, 0, 6, 3, 0
140 DATA 1, 9, 2, 14, 0, 0, 0, 31,192,18, 96, 0
150 DATA 4,132,64, 16, 10, 0, 4,132,64, 18,
96, 0
160 DATA 0, 31,192,14, 0, 0
170 LPRINTCHR$(27);"D";CHR$(ll);CHR$(O)
180 LPRINTCHR$(27);"h";CHR$(l);
190 LPRINTw DIFFUSIONRANGESOF"
200 LPRINTw CARS & TELEPHONES'*
210 LPRINTCHR$(27);"h";CHR$(O);
220 LPRINTCHR$(27);"%1";CHR$(O);
230 LPRINT "USA";CHR$(9);
240 FOR I=0 TO 681 STEP 50
250 LPRINTCHR$(60);
260 NEXT I
270 LPRINT
280 LPRINTCHR$(9);
290 FOR I=0 TO 781 STEP 50
300 LPRINTCHR$(61);
310 NEXT I
320 LPRINT
330 LPRINT"GERMANY";CHR$(9);
340 FOR I=0 TO 412 STEP 50
350 LPRINTCHR$(60);
360 NEXT I
