Epson LX-90TM 120 PRINT "WHICH ROWS HAVE DOTS IN COLUMN";I 130 INPUT R: IF R=0 THEN, 260LPRINT CHR$(27) "!"CHR$(0)"YOUR DATA NUMBERS:, NEW, 110 FOR I=1 TO, 300 LPRINT: END

Definition program 1

The BASIC program below will help you translate your design into a character your LX-90 can print. Type it in now so that you can run it soon.

NEW

100 DIM F(9)

110 FOR I=1 TO 9

120 PRINT "WHICH ROWS HAVE DOTS IN COLUMN";I 130 INPUT R: IF R=0 THEN 150

140 F(I)=F(I)+2ˆ(R-1)

150 IF R=0 THEN NEXT I ELSE GOTO 130

160LPRINT CHR$(27) ":"CHR$(0)CHR$(0)CHR$(0);

179LPRINT CHR$(27)"%"CHR$(l)CHR$(0);

180LPRINT CHR$(27)"&"CHR$(0)"<<";

190LPRINT CHR$(128); 200 FOR X=1 TO 9

210LPRINT CHR$(F(X));: NEXT X

220LPRINT CHR$($l)CHR$(0);

239LPRINT "YOUR CHARACTER IN PICA: <<<"

240LPRINT "IN EXPANDED EMPHASIZED PICA: ";

250LPRINT CHR$(27)"!*<<<"

260LPRINT CHR$(27) "!"CHR$(0)"YOUR DATA NUMBERS:"

270 FOR K=l TO 9: LPRINT F(K);: NEXT K

300 LPRINT: END

So that you can see how the program works, the next paragraphs present the steps used to create the symbol for Mercury. First is the grid used to design the character.

Figure 7-4.Design for character

44