Table of Contents
Advertisement
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
Advertisement
Table of Contents
