30 LPRINT CHR$(27)"K"CHR$(100)CHR$(O);

40 FOR X=1 TO 50: LPRINT CHR$(85)CHR$(42); 50 NEXT 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.

10LPRINT CHR$(27)"1";

20FOR R=1 TO 3

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

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

50NEXT X: LPRINT

60LPRINT CHR$(27)“K"CHR$(100)CHR$(O);

70FOR X=1 TO 50: LPRINT CHR$(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 ‘/-dot, which is the height of the dot patterns used in the program. Therefore, there is no space between the print lines.

77