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 4, 0, 0, 8, 0, 0, 16, 0, 0, 32, 0, 0

150 DATA 64, 0, 0, 255, 255, 192, 64, 0, 0, 32, 0, 0 160 DATA 16, 0, 0, 8, 0, 0, 4, 0, 0, 0, 0, 0

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

User-defined Characters