Epson FX-80 User Manual page 171

sizes (length and height) on the print line. Although the program still
uses only one subroutine, it prints a different pattern each time. The
differences in the patterns are achieved by the IF-THEN tests in the
subroutine.
To get the final listing, add line 100 and change lines 10,30,40,
SO,
80, 90, and 120:
iii' LPRINT CHR$(27)"1" , Delete F=Ii':
21i' FOR L=l TO 2
31i' FOR J=1i' TO 1 ' Change 9 to 1
41i' LPRINT CHR$(27)"K"CHR$(27)CHR$(Ii'); , Change 14 to
27
51i' GOSUB 81i'
61i' NEXT J: LPRINT: NEXT L
71i' LPRINT CHR$(27)"@": STOP
81i' FOR X=l TO 6: Y=X: IF J=l THEN Y=7-X
91i' FOR Z=1i' TO Y: N=Z: IF J=l THEN N=Y-Z
lli'li' IF L=2 THEN N=7-N
llli' LPRINT CHR$(2
A
N);
121i' NEXT Z: NEXT X: RETURN' Add NEXT Z:
It may not be obvious from the printout that there are two lines of
print-but there are. The first line prints slashes by moving from bot-
tom to top and then from top to bottom, whereas the second line
prints them first from top to bottom and then from bottom to top.
And how do the IF-THEN statements fit into the picture? The one in
line 80 changes the length of the slashes. The one in line 90 controls the
direction and height. The IF-THEN in line 100 makes the bottom row
a mirror image of the top.
Although there were no new commands presented in this chapter,
the control gained is a very important step in mastering bit-image
graphics. In Chapter 13 you will learn about several different graphics
modes that are available on the FX-80 and also the way to use READ
and DATA statements to define unique pin patterns.
140