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 K150 LPRINT CHR$(128);160 FOR X=1 TO 9170 READ R180 LPRINT CHR$(R);: NEXT X190 LPRINT CHR$(O)CHR$(O);200 NEXT Z210 DATA 130,68,170,16,130,0,130,0,198290 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 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,0,8,112220 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 characters 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 example below.

66