10 J=l: IF J>3 THEN A=58 ELSE A=60
20 LPRINT CHR$(27)"x"CHR$(1)
30 FOR X=58 TO 63: LPRINT CHR$(X)" ";: NEXT X
40 LPRINT
50 LPRINT CHR$(27) :""CHR$(0)CHR$(0)CHR$(0)
60 LPRINT CHR$(27)"%"CHR$(1)CHR$(0);
70 LPRINT CHR$(27)"&"CHR$(0)CHR$(A)CHR$(A-1+J);
80 FOR Y=1 TO J
90 LPRINT CHR$(0)CHR$(12)CHR$(0);
100 FOR X=1 TO 36
110 READ C: LPRINT CHR$(C);
120 NEXT X: NEXT Y
130 FOR X=58 TO 63: LPRINT CHR$(X)" ";: NEXT X
140
DATA
150
DATA
160
DATA
When you run this program, it prints six characters, then redefines
one or more of them and prints them again. As with the draft
characters, you use this two-line printout as a guide to the new
characters your Apex80 can print. You can use them with an
application program or a program you write yourself.
5 - 1 2
4, 0, 0, 8, 0, 0, 16, 0, 0, 32, 0, 0
64, 0, 0, 255, 255, 192, 64, 0, 0, 32, 0, 0
16, 0, 0, 8, 0, 0, 4, 0, 0, 0, 0, 0
User-defined Characters