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-12
User-defined Characters
To Next Page
Loading...
