Filter
Top Products
90 FOR P=58 TO 63: LPRINT CHR$(P);" "': NEXT P
95 LPRINT
100 K=l: IF K>3 THEN A=58 ELSE A=60
110 LPRINT CHR$(27):'"CHR$(0)CHR$(0)CHR$(0);
120 LPRINT CHR$(27)"%"CHR$(l)CHR$(0);
130 LPRINT CHR$(27)"&"CHR$(0)CHR$(A)CHR$(A-l+K);
140
FOR Z=l TO K
150 LPRINT CHR$(128);
160 FOR X=1 TO 9
170 READ R
180 LPRINT CHR$(R);: NEXT X
190 LPRINT CHR$(0)CHR$(0);
200
NEXT Z
210 DATA 0,80,170,0,47,0,170,80,0
290 FOR P=58 TO
63:
LPRINT CHR$(P);" "': NEXT P
To use this program for your own character or characters, change the
DATA numbers in line 210 by substituting the numbers generated by the
first program when you created your own character. If you have created
more than one character, put the DATA numbers for each character on a
separate line as you see in the example below:
210 DATA 112,8,0,138,116,138,8,8,112
220 DATA 56,68,146,40,130,40,130,68,56
Check your work by making sure that there are nine numbers in each
line and that the numbers are separated by commas. Also make the
change in line 100 explained below.
This program is designed for defining up to 6 characters. Line 100 states
K=l, but to define more than one character, use the total number of
characters you are defining instead of the
1
in that line. You can actually
define as many as 256 characters, but if you define more than six
characters, you have to change a few lines in the program.
Using Software and Graphics
4-25