90
FOR
P=58
TO
63:
LPRINT
CHR$(P);:
NEXT
P
100
K=l:
IF
K>3
THEN
A=58
ELSE
A=60
110
LPRINT
CHR$(27)":"CHR$(0)CHR$(B)CHR$(PI);
120
LPRINT
CHR$(27)"%"CHR$(l)CHR$(O);
130
LPRINT
CHR$(27)"&"CHR$(O)CHR$OCHR$(A-1tK);
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$(O)CHR$(O);
200
NEXT
Z
210
DATA
130,68,170,16,130,0,130,0,198
290
FOR
P=58
TO
63:
LPRINT
CHR$(P);:
NEXT
P
300
SYSTEM
To use this program for your own character or characters, change
the DATA numbers in line 210 by substituting the numbers gener-
ated 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,0,8,112
220
DATA
58,68,2,128,0,128,2,68,58
Check your work by making sure that there are nine numbers in
each line and that the numbers are separated by commas.
To define more than one character, use the total number of charac-
ters you are defining instead of the 1 in line 100. (You can define as
many as six characters at a time. Just run the first program several
times and enter all the DATA numbers in this program.)
Running the program
When you run this second program, it prints six characters, then
re-defines some or all of them and prints them again, as in the exam-
ple below.
66
