Epson FX-1050 User Manual page 88

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.
Once you have drawn your dots on the grid, type the following BASIC
program.
100 DIM F(9)
110 FOR I=1 TO 9
120 PRINT "WHICH ROWS HAVE DOTS IN COLUMN";1
130 INPUT R: IF R=0 THEN 150
140 F(I)=F(I)+2"(R-1)
150 IF R=0 THEN NEXT I
160 LPRINT CHR$(27) ":"CHR$(@)CHR$(0)CHR$(0);
170 LPRINT CHR$(27)"%"CHR$(l)CHR$(0);
180 LPRINT CHR$(27)"&"CHR$(0)CHR$(60)CHR$(60);
190 LPRINT CHR$(128);
200 LPRINT CHR$(27)"x0";
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: ";
260 LPRINT CHR$(27)"!*<<<"
270 LPRINT CHR$(27)"!"CHR$(@)"IN NLQ:";
280 LPRINT CHR$(27)"x1<<<"
290 LPRINT CHR$(27) "!"CHR$(0) "YOUR DATA NUMBERS:"
300 FOR K=1 TO 9: LPRINT F(K);: NEXT K
310 LPRINT: END
4-22
1 2 3 4 5 6 7 8 9
S GOTO 130
EL E
Using Software and Graphics