Epson LX-86TM First definition program, Figure 8-2.Correct and incorrect designs, line, CHR$(O), 100 DIM F(9), 110 FOR I=1 TO, 200 FOR X=1 TO, 300 LPRINT: END

When you place your dots on this grid, remember that dots cannot go on horizontal lines, but they can go on vertical lines so long as they do not overlap any other dots. As you design your characters, draw the dots as large as you see them in the example on the left in Figure 8-2. If you draw them smaller, you may have overlapping dots without realizing it.

overlapping dotsdot on horizontal lineFigure 8-2. Correct and incorrect designs

If you do accidentally call for overlapping dots, don’t worry. The program will still work, but only one of the dots will be printed.

First definition program

Once you have drawn your dots on the grid, type in the following BASIC program and run it. If you are using Applesoft BASIC, see Appendix F.

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 130

160 LPRINT CHR$(27)": "CHR$(O)CHR$(O)CHR$(O); 170 LPRINT CHR$(27)"%"CHR$(l)CHR$(O);

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

200 FOR X=1 TO 9210 LPRINT CHR$( F( X));:NEXT X220 LPRINT CHR$(O) CHR$(0);230 LPRINT "YOUR CHARACTER IN PICA: < < <"240 LPRINT "IN DOUBLE-WIDTH EMPHASIZED PICA ";250 LPRINT CHR$(27)"! *< < <"

260 LPRINT CHR$(27) "! "CHR$(O)"YOUR DATA NUMBERS:" 270 FOR K=l TO 9: LPRINT F(K);: NEXT K

300 LPRINT: END

61