Table of Contents
Advertisement
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 with-
out realizing it.
Figure 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 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
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 9
210 LPRINT CHR$( F( X));:NEXT X
220 LPRINT
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
CHR$(O)
CHR$(0);
overlapping dots
on
dot
horizontal
line
61
Advertisement
Table of Contents
