Epson FX-1050 l00 DIM F(9), 110 FOR I=1 TO, 120 PRINT "WHICH ROWS HAVE DOTS IN COLUMN";I, 130 INPUT R: IF R=0 THEN, 150 IF R=0 THEN NEXT I ELSE GOT0, 190LPRINT CHR$(128);

First definition program

The next few sections explain the steps used to create the symbol for Mercury. The figure below shows the grid used to design the character.

1 2 3 4 5 6 7 8 9

Once you have drawn your dots on the grid, type the following BASIC program.

l00 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 GOT0 130

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

170LPRINT CHR$(27)"%nCHR$(1)CH$(0);

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

190LPRINT CHR$(128);

200LPRINT CHR$(27)"x0";

210FOR X=1 TO 9

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

230 LPRINT CHR$(0)CHR$(0);

240LPRINT "YOUR CHARACTER IN 10 CPI: < < <"

250 LPRINT "IN DOUBLE-WIDE EMPHASIZED 10 CPI: "; 260 LPRINT CHR$(27)"!*< < <"

270 LPRINT CHR$(27)"!"CHR$(0)"IN NLQ:";

280LPRINT CHR$(27)"xl< < <"

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

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

310 LPRINT: END

4-22 Using Software and Graphics