Voila! It should have printed out the three characters we de- fined. Your printout should look like this:
(If it doesn’t, check the last program we ran for errors, then rerun it.)
Let’s find out if there are any other characters in the download RAM. Try this program:
10 LPRINT CHR$(2i')"$1"
20 FOR I=33 TO 126 : LPRINT CHR$(I); : NEXT I
30 FOR I=160 TO 254 : LPRINT CHR$(I); : NEXT I 44)LPRINT
50 LPRINT CHR$(27) "$8"
As you can see, in addition to the characters you have defined (they are the last ones on the printout),
If
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 that:
5 ESC$= CHR$(27) : TB$=CHR$(9)
-
10 LPRINT ESC$ "*l" CHR$(lGQ) CHR$(162);-z20 FOR ~=160 TO 162
30 FOR M=@ TO 11
40 READ MM
50 LPRINT CHR$(MM);
60 NEXT M
70 NEXT N
80 LPRINT
90 DATA 139,2,5,8,241,0,0,241,8,5,2,0
100 DATA 139,124,0,66,4,64,36,16,2,16,12,0
110 DATA 139,46,16,2,60,0,48,0,48,0,48,0 120 LPRINT ESC$ "D" CHR$(ll) CHR$(@
130 LPRINT CHR$(14) " U.S. Exports"
92