I_
.
..
e..
10LPRINTCHR$(27);"0";
20 LPRINTCHR$(27);"6";
30 FOR J=3 TO 6
40 LPRINT'* ";J;CHR$(J);CHR$(9);
50 NEXT J
60 LPRINT'* 21 ";CHR$(21)
70LPRINT
80 FOR J=128TO 254 STEP 5
90 FOR I=J TO J+4
95 IF I>254THEN 110
100LPRINTI;CHR$(I);CHR$(9);
110NEXT I
120LPRINT :LPRINT
130NEXT 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 LPRINTI;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 LPRINTCHR$(27);"6";
20LPRINTCHR$(218);CHR$(196);CHR$(l96);CHR$(l96); CHR$(196);CHR$(196);CHR$(l91)
30LPRINTCHR$(179);CHR$(53);CHR$(32);CHR$(32); CHR$(32);CHR$(32);CHR$(l79)
40LPRINTCHR$(179);CHR$(32);CHRSo;CHR$(32);CHR$(5); CHR$(32);CHR$(179)
50LPRINTCHR$(179);CHR$(32);CHR$(32);CHR$(5); CHR$(32);CHR$(32);CHR$(l79)
60LPRINTCHR$(179):CHR$(32);CHR$(5);CHR$(32);CHR$(5) CHR$(32);CHR$(179)
70LPRINTCHR$(179);CHR$(32);CHR$(32);CHR$(32); CHR$(32);CHR$(53);CHR$(179)
80LPRINTCHR$(192);CHR$(196);CHR$(l96);CHR$(l96); CHR$(196);CHR$(196);CHR$(217)
90 LPRINTCHR$(27);"7"
