Table of Contents
Advertisement
10 LPRINT CHR$(27);"0";
20 LPRINT CHR$(27);"6";
30 FOR J=3 TO 6
40 LPRINT '* ";J;CHR$(J);CHR$(9);
50 NEXT J
60 LPRINT '* 21 ";CHR$(21)
70 LPRINT
80 FOR J=128 TO 254 STEP 5
90 FOR I=J TO J+4
95 IF I>254 THEN 110
100 LPRINT I;CHR$(I);CHR$(9);
110 NEXT I
120 LPRINT :LPRINT
130 NEXT J
Figure 7-l shows what this program will print. If your chart
doesn't look like this because it has regular letters and numbers
instead of the special symbols, then your computer is only using
seven bits (unless you have set DIP switches 2-2 and 2-5 off by
mistake). You can get the correct printout by changing line 100
to this:
100 LPRINT I;CHR$(27);">";CHR$(I);CHR$(27);"=";CHR$(g);
So how are all of these strange characters
used? Here is a
short program
that demonstrate
how the graphics
characters
can be combined to create a figure: the 5 of clubs.
10 LPRINT CHR$(27);"6";
20 LPRINT CHR$(218);CHR$(196);CHR$(l96);CHR$(l96);
I_
CHR$(196);CHR$(196);CHR$(l91)
30 LPRINT CHR$(179);CHR$(53);CHR$(32);CHR$(32);
CHR$(32);CHR$(32);CHR$(l79)
. .
40 LPRINT CHR$(179);CHR$(32);CHRSo;CHR$(32);CHR$(5);
CHR$(32);CHR$(179)
. .
50 LPRINT CHR$(179);CHR$(32);CHR$(32);CHR$(5);
CHR$(32);CHR$(32);CHR$(l79)
e..
60 LPRINT CHR$(179):CHR$(32);CHR$(5);CHR$(32);CHR$(5);
CHR$(32);CHR$(179)
70 LPRINT CHR$(179);CHR$(32);CHR$(32);CHR$(32);
CHR$(32);CHR$(53);CHR$(179)
80 LPRINT CHR$(192);CHR$(196);CHR$(l96);CHR$(l96);
CHR$(196);CHR$(196);CHR$(217)
90 LPRINT CHR$(27);"7"
Advertisement
Table of Contents
