Definition Program 1 - Epson Printer Interface Cartridge for the Apple IIc Operation Manual

Definition program 1

The BASIC program below will help you translate your design into
a character your LX-90 can print. Type it in now so that you can run it
soon.
NEW
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 R=0 THEN NEXT I ELSE GOTO 130
IF
155 PRINT CHR$(4);"PR#1"
160 PRINT CHR$(27); ":";CHR$(0);CHR$(0);CHR$(0);
170 PRINT CHR$(27);"%";CHR$(1);CHR$(0);
180 PRINT CHR$(27);"&";CHR$(0);"<<";
190 PRINT CHR$(0);
200 FOR X=1 TO 9
210 N=F(X): GOSUB 10000: NEXT X
220 PRINT CHR$(0);CHR$(0);
230 PRINT "YOUR CHARACTER IN PICA: < < <"
240 PRINT "IN EXPANDED EMPHASIZED PICA: ";
250 PRINT CHR$(27);"!*< < <"
260 PRINT CHR$(27);"!"; CHR$(0);"YOUR DATA NUMBERS:"
270 FOR K=1 TO 9: PRINT F(K);: NEXT K
300 PRINT: PRINT CHR$(4);"PR#0": END
10000 IF PEEK (49305) < > 80 THEN 10000
10010 POKE 49304,N
10020 RETURN
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
design grid with dots drawn on it.
7
6
5
4
3
2
1
1 2 3 4 5 6 7 6 9
Figure 6-2. Design for character
57