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.

I

1 2 3 4 5 6 7 8 9

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

l!$i3 DIM F(9)

110 FOR I=1 TO 9

120 PRINT "WHICH ROWS HAVE DOTS IN COLUMN";1

130 INPUT R: IF R=@ THEN 150

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

150 IF R=jJ THEN NEXT I ELSE GOT0 130

160 LPRINT CHR$(27) ":"CHR$(0)CHR$(0)CHR$(0); 170 LPRINT CHR$(27)~%nCHR$(1)cH$(0);

180 LPRINT CHR$(27)"&"CHR$(@)CHR$(60)CHR$(60); 190 LPRINT CHR$(128);

200 LPRINT CHR$(27)"x$v';

210 FOR X=1 TO 9

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

230 LPRINT CHR$(~)CHR$(~);

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

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

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

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

290 LPRINT CHR$(27) "!"CHR$(rjl) "YOUR DATA NUMBERS:" 300 FOR ~=l TO 9: LPRINT F(K);: NEXT K

310 LPRINT: END

4-22

Using Software and Graphics