70
Figure 5-l shows what this program will print. If your chart
doesn’t 1001 like this because it has regular letters and numbers
instead of the special symbols, then your computer is only using
seven bits. You can get the correct printout by changing line
160 to this:
160 LPRINT I;CHR$(27);">";CHR$(I);CHR$(27);"=";
CHR$(9);
A note for the IBM-PC users.
When you run this program, you cannot get the right-pointed
arrow (CHR$(26)) with the IBM-PC computers. This is because
the IBM-PC does not send this code to the printer.
There is a solution to avoid this problem. Change lines 100
and 120 to the either set of the following lists.
100
110
120
100
110
120
SO
O=INP(&H379) : IF 0~128 THEN 100
OUT &H378,26 : OUT &H37A,5 : OUT &H37A,4
LPRINT : LPRINT
O=INP(&H3BD) : IF 0~128 THEN 100
OUT &H3BC,26 : OUT &H3BE,5 : OUT &H3BE,5
LPRINT : LPRINT
show 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$(l96);CHR$(l96);
cHR$(l96);CHR$(l96);CHR$(l96);CHR$(19l)
30 LPRINT CsR$(l79);CHR$(53);CHR$(32);cHR$(32);
CHR$(32);CHR$(32);CHR$(l79)
40 LPRINT CHR$(l79);CHR$(32);CHR$(5);CHR$(32);
CHR$(5);CHR$(32);cHR$(l79)
50 LPRINT CHR$(l79);CHR$(32);CHR$(32);cHR$(5);
.
60 CHR$(32);CHR$(32);CHR$(179)
LPRINT CHR$(l79);CHR$(32);CHR$(5);CHR$(32);
CHR$(5>;CHR$(32>;CHR$(179)
70 LPRINT CHR$(l79);CHR$(32);CHR$(32);CHR$(32); -
80 CHR$(32>;CHR$(53);CHR$(179)
LPRINT CHR$(l92>;CHR$(l96);CHR$(l96);
CHR$(l96>;CHR$(l96>;CHR$(l96);CHR$(217) -
90 LPRINT CHR$(27);"7"