Filter
Top Products
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.
10 LPRINT CHR$(27)"1";
20
FOR R=1 TO 3
30 LPRINT CHR$(27)"K"CHR$(100)CHR$(0);
40
FOR X=1 TO
50: LPRINT CHR$(85)CHR$(42);
50 NEXT X: LPRINT
60
LPRINT CHR$(27)“K"CHR$(100)CHR$(O);
70
FOR X=1 TO 50: LPRINT CHR$(42)CHR$(85);
80 NEXT X: LPRINT: NEXT R
90
LPRINT 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 demon-
strates many elements of graphics programming. Therefore, we’ll ex-
plain 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