One Last Step - Epson FX-80 User Manual

7\!l LPRINT CHR$(27)"1";CHR$(7);
When the array is filled, the CHR$(7) will ring the bell to alert you.
The next line loads the beginning (B), ending (E), and step (5) values
for the loop that will read and print the array. Variables are used be-
cause they can be changed later so that your program can read the
array in a variety of directions.
1\!l\!l B=l: E=N-6: S=l
Using seven pins of the print head on each pass, the program will take
three passes to print a 21-row array.
If
you change the array size, remember to use a multiple of seven.
Let's continue. Add:
11\!l FOR P=B TO ESTEP 7*S
12\!l PRINT "LOADING ROWS";P;" TO ";P+6*S
13\!l LPRINT CHR$(27)"*"CHR$(5)CHR$(N)CHR$(\!l);
15\!l FOR C=l TO N: GOSUB 18\!l: NEXT C
16\!l LPRINT: NEXT P
Line 110 loads the array rows from beginning (B) to end (E) in sets of
seven.
Line 120 prints an update of the computer's progress to the screen.
Line 130 enters the one-to-one Graphics Mode and reserves N col-
umns for graphics (N is the width of the array).
Line 150 accesses the subroutine that actually calculates the pin pat-
terns for each column. (That's coming up next.)
And line 160 closes the loop for each pass (P) of t!-te print head.
One last step
The last step before printing the figure is to convert those ones and
zeros to pin firing sequences. Add this subroutine:
18\!l F=\!l: FOR R=P TO P+6*S STEP S
19\!l IF A(R,C)=l THEN F=F+2
A
ABS(P+6*S-R)
2\!l\!l NEXT R
22\!l LPRINT CHR$(F);: RETURN
225
r
TRS users see Appendix I
173