A SERVICE OF

logo

Open as PDF
next previous
If you want to put dots in the bottom row, change the number in
line
190 from 128
to 0. Then the usable rows will be as shown in Figure
7-5.
Figure 7-5. Using the bottom eight rows
Definition program 2
Once the character looks right, type in the next program. The pro-
gram as listed creates the symbol for Mercury, but you can use it for
any character you create if you make one or two changes explained
after the program listing.
NEW
100 LPRINT CHR$(27)
":"CHR$(0)CHR$(0)CHR$(0);
110 LPRINT CHR$(27)"%"CHR$(l)CHR$(0);
120 LPRINT CHR$(27)"&"CHR$(0)CHR$(60)CHR$(60);
130 LPRINT cHR$(128);
140 FOR X=1 TO 9
150 READ R
160 LPRINT CHR$(R);: NEXT X
170 LPRINT CHR$(0)CHR$(0);
200
DATA
0,80,170,0,47,0,170,80,0
300
END
7-6