Definition program 1

The BASIC program below will help you translate your design into a character your FX-286 can print. Type in the program. Then follow the instructions given after the program.

NEW

100 DIM F(9)110 FOR I=1 TO 9120 PRINT "WHICH ROWS HAVE DOTS IN COLUMN";I130 INPUT R: IF R=0 THEN 150140 F(I)=F(I)+2^(R-1)150 IF R=0 THEN NEXT I ELSE GOT0 130160LPRINT CHR$(27) ":"CHR$(0)CHR$(0)CHR$(0);170LPRINT CHR$(27)"%"CHR$(1)CHR$(0);180LPRINT CHR$(27)"&"CHR$(0)CHR$(60)CHR$(60);190LPRINT CHR$(128);200FOR X=1 TO 9210LPRINT CHR$(F(X));: NEXT X220LPRINT CHR$(0)CHR$(0);230LPRINT "YouR CHARACTER IN PICA: < < <"240LPRINT "IN EXPANDED EMPHASIZED PICA: ";250LPRINT CHR$(27)"!*< < <"260LPRINT CHR$(27) "!"CHR$(0)"YOUR DATA NUMBERS:"270FOR K=1 TO 9: LPRINT F(K);: NEXT K300LPRINT: 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

7-4