Epson FX Series User Manual page 183

170 FOR Y=l TO 819: LPRINT CHR$(l);: NEXT Y
180 LPRINT: NEXT X: RETURN
Now RUN the first trial:
Line 20 stores the graphics entry string in G$. This produces Low-
Speed Double-Density dots for
fires the bottom graphics pin
170
repeats the routine to print the line three times.
180)
Because you will use this line-printing routine (lines
. to print the bottom three lines of the figure, we have you set it aside as
a subroutine. It is called by the GOSUB in line
the rest of the program by the END in line
So far, so good! Now for the rest of the figure. The following lines
control the four-step process:
80 FOR X=1 TO L: LPRINT CHR$(l);: NEXT X
100 LPRINT CHR$(l)CHR$(2)CHR$(4)CHR$(8)
CHR$(16)CHR$(32)CHR$(64);
110 FOR X=1 TO H: LPRINT CHR$(64);: NEXT X
120 LPRINT CHR$(64)CHR$(32)CHR$(16)
CHR$(8)CHR$(4)CHR$(2)CHR$(l);
Lines 100 and 120 print the 7-dot rise and fall. The lengths of the low
and high sections are stored in DATA statements, then read into the
variables L and H. Line 80 prints the bottom pin L times; line 110
prints the top pin H times.
The next step is to add the READ portion of the program:
50 READ L,H
60 L=L*7:
70 IF L=0 THEN 90
90 IF H<0 THEN LPRINT: GOT0 150
130 GOT0 50
Line 50 reads numbers from the data statements in pairs: the first is
stored into L, the second into H. L and H are then each multiplied by
seven; this extends the width of the figure without increasing the size
of the data numbers. This enlargement factor must be the same as the
number of dots in the rise and fall or the design will not line up
properly.
166
819
H=H*7
columns [
51+ (3x256)
times. The X loop (lines
819
20
150.
= Line
819].
160
- again
160 180)
and separated from
and