Epson FX-286 30 FOR R=1 TO, 60 NEXT X: LPRINT, 10 WIDTH "LPT1:",255, 25 LPRINT CHR($)27"2, 100 LPRINT CHR$(27)"@, 90 NEXT x: LPRINT: NEXT R, 20 LPRINT CHR$(27)"A"CHR$(7)

If you run the program now, you’ll see how one line of the pattern looks:

To see how more than one line combines to form a figure, enter and run the following program, which uses the lines you have already typed and adds several more.

10 WIDTH "LPT1:",255

20 LPRINT CHR$(27)"A"CHR$(7)30 FOR R=1 TO 3

40 LPRINT CHR$(27)"K"CHR$(100)CHR$(0);

50 FOR x=1 TO 50: LPRINT CHR$(85)CHR$(42);

60 NEXT X: LPRINT

70 LPRINT CHR$(27)"K"CHR$(l00)CHR$(0);80 FOR X=1 TO 50: LPRINT CHR$(42)CHR$(85);90 NEXT x: LPRINT: NEXT R

100 LPRINT CHR$(27)"@"

If you’re using the IBM Proprinter mode on the FX-286, add the following line:

25 LPRINT CHR($)27"2"

Now run the program to see the six print lines combine into a pat- tern:

Because the short and simple program that produced the pattern demonstrates many elements of graphics programming, each line is explained below.

Line 20 changes the line spacing to 7/72 of an inch, which is the height of the dot patterns used in the program. Therefore, there is no space between the print lines.

6-7