Filter
Top Products
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
I that:
10 LPRINT CHR$(27);"xO";
20 LPRINT CHRS(27);":"
;CHR$(O);CHR$(O);CHR$(O)
30 LPRINT CHR$(27);"&";CHR$(O);CHR$(60);CHR$(61);
40 FOR N=60 TO 61
50 FOR M=l TO 30
60 READ MM
70 LPRINT CHR$(MM);
80 NEXT 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 LPRINT CHR$(27);"D";CHR$(ll);CHR$(O)
180
LPRINT CHR$(27);"h";CHR$(l);
190 LPRINT
w DIFFUSION RANGES OF"
200 LPRINT w
CARS & TELEPHONES'*
210
LPRINT CHR$(27);"h";CHR$(O);
220
LPRINT CHR$(27);"%1";CHR$(O);
230
LPRINT "USA";CHR$(9);
240
FOR I=0 TO 681 STEP 50
250
LPRINT CHR$(60);
260
NEXT I
270
LPRINT
280
LPRINT CHR$(9);
290
FOR I=0 TO 781 STEP 50
300
LPRINT CHR$(61);
310
NEXT I
320
LPRINT
330
LPRINT "GERMANY";CHR$(9);
340
FOR I=0 TO 412 STEP 50
350
LPRINT CHR$(60);
360
NEXT I