Running The Program - Epson LX-86TM User Manual

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$(O)CHR$(O)CHR$(O);
120 LPRINT CHR$(27)"%"CHR$(l)CHR$(O);
130 LPRINT CHR$(27)"&"CHR$(0)CHR$(A)CHR$( A-1+K);
140 FOR Z=1 TO K
150 LPRINT CHR$(128);
160 FOR X=1 TO 9
170 READ R
160 LPRINT CHR$(R);: NEXT X
190 LPRINT CHR$(O)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 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:
2 1 0 DATA 1 1 2 , 8 , 0 , 1 3 8 , 1 1 6 , 1 3 8 , 0 , 8 , 1 1 2
2 2 0 DATA 56, 68, 146, 40, 130, 40, 130, 68, 5 6
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.
64