A SERVICE OF

logo

Open as PDF
next previous
30
LPRINT
CHR$(27>"K"CHR$(lOO)CHR$(O);
40
FOR
X-l
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-l
TO
3
30
LPRINT
CHR$(27>“~~“CWR$(lOo)CMR$~O);
40
FOR
X=1
TO
50:
LPRINT
CHR$(85)CHR$(42);
50
NEXT
X:
LPRIN?
60
LPRIMT
CHR$(
27)
“K”CHR$(
lOO)CHR$(O)
;
70
FOR
X-l
TO
50:
LPRINT
CEJR$(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 7-dot, which is the
height of the dot patterns used in the program. Therefore, there is no
space between the print lines.
79