Epson LX-80 30 LPRINT CHR$(27>"K"CHR$(lOO)CHR$(O);, 50NEXT, TO 50:, FOR

30 LPRINT CHR$(27>"K"CHR$(lOO)CHR$(O);

40FOR X-l TO 50: LPRINT CHR$(85)CHR$(42);

50NEXT X

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

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

10 LPRINT CHR$( 27) “1”;

20 FOR R-l TO 3

30 LPRINT CHR$(27>“~~“CWR$(lOo)CMR$~O);

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

50NEXT X: LPRIN?

60LPRIMT CHR$( 27) “K”CHR$( lOO)CHR$(O) ;

70FOR X-lTO 50: LPRINT CEJR$(42)CHR$(85);

80NEXT X: LPRINT: NEXT R

90LPRINT CHR$( 27) “@‘”

Now run the program to see the six print lines combine into a pattern :

The short and simple program that produced the pattern demonstrates many elements of graphics programming. Therefore, we’ll explain each line. Line 10 changes the line spacing to 7-dot, which is the height of the dot patterns used in the program. Therefore, there is no space between the print lines.

79