Epson LX-90TM 138LPRINT CHR$(27)"&"CHR$(0)CHR$(A)CHR$(A-l+K);, NEW, DATA, 170READ R, 200NEXT Z, 160FOR X=1 TO, 140FOR Z=l TO K, 300 LPRINT: END, 150LPRINT CHR$(139);

Figure 7-5.Using the bottom eight rows

Definition program 2

Once the character looks right, type in the next program. The program as listed creates the symbol for Mercury, but you can use it for any characters you create if you make one or two changes explained after the program listing.

NEW

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

110LPRINT CHR$(27) ":"CHR$(@)CHR$(@)CHR$(@);

120LPRINT CHR$(27)"%"CHR$(l)CHR$(@);

138LPRINT CHR$(27)"&"CHR$(0)CHR$(A)CHR$(A-l+K);

140FOR Z=l TO K

150LPRINT CHR$(139);

160FOR X=1 TO 9

170READ R

180 LPRINT CHR$(R);: NEXT X

190LPRINT CHR$(0)CHR$(0);

200NEXT Z

2 1 0 DATA 0,80,170,0,47,0,170,80,0

290 FOR P=58 TO 63: LPRINT CHR$(P);: NEXT P

300 LPRINT: END

To use program 2 for your own character or characters, change the DATA numbers in line 210 by substituting the numbers generated by program 1. If you have created more than one character, put the DATA numbers for each character on separate lines as you see in the example on the next page.

46