Entering The Program - Epson FX-80 User Manual

A close look at Figure 14-3 reveals that most of the lines are made
by repeating a 4-step pattern:
1) Fire the bottom pin (pin 1), repeat L times.
2)
Draw a diagonal rise (pins 1 - 64).
3) Fire the top pin (pin 64), repeat H times.
4) Draw a diagonal fall (pins 64 - 1).
This pattern is repeated several times. Printing the figure is mainly a
matter of reading the length of the low and high sections, then printing
the 4-part cycle.
Entering the program
This program will be entered in chunks, so don't RUN it until we
give the word.
Might as well start off with the easy stuff. First, set the line spacing
for 7-pin graphics:
NEW ' SAVE the LOGO program first
1~
LPRINT CHR$(27)"1"
Note: Use (ESC) "3" line spacing if necessary.
Next up are the three straight lines at the start of the design. There's no
need for anything fancy-just a single dot printed across the page.
Add these lines:
160
2~
G$=CHR$(27)+"L"+CHR$(51)+CHR$(J): GOSUB
16~
15~
LPRINT CHR$(27)"@": STOP
16~
FOR X=l TO
3:
LPRINT G$;
17~ FOR Y=l TO 819: LPRINT CHR$(l);: NEXT Y
18~
LPRINT: NEXT X: RETURN