Epson FX-80 User Manual page 188

Here is the DATA line for the first row. Type:
NEW
12~~
DATA
~,1,2,4,9,18,36,72,-16,16,
64,8,64,8,32,16,~,-7,~,~,128
Handling of the data is fairly straightforward. In most cases, the pro-
gram merely reads a number and sends it to the printer:
71~
READ N: IF N=128 THEN
77~
72~
IF
N>=~
THEN LPRINT CHR$(N);: GOTO
71~
725
I
Apple and Model I users see Appendix I
If N happens to be negative, control passes through line 720 to 730.
Negative numbers in the DATA lines represent repeat factors as they
did in the last chapter, but the repeat routine is slightly different. This
program repeats numbers in pairs:
73~
READ P,R: FOR J=l TO -N:
LPRINT CHR$(P)CHR$(R);: NEXT J
74~
GOTO
71~
The -16 in line 1200 is read into N. Since it is negative, line 730 reads
the next two numbers (16 and 64) into P and R and prints them in a
loop. Control then returns to line 710, which READs the next number.
Line 710 also tests for the number 128, a "stopper" number. Since
127 is the largest number that can fire 7 pins, the 128 can be placed at
the end of each DATA line to signal the end of the print line. When the
128 is read, control passes to line 770, which produces the necessary
line feed. Now add:
77~
LPRINT
Note that the only exit from the continuous loop is through line 770.
There's only one thing left to do before printing the first line-enter
a Graphics Mode:
7~~
LPRINT
CHR$(27)"L"CHR$(6~)CHR$(~);
Now RUN the program.
157