292
The
VIC
20
User
Guide
This will print a solid horizontal
bar
seven dots high by ten dots long.
CHR$(26)
is
the repeat function, CHR$(lO)
is
the number oftimes
to
repeat,
and
CHR$(255) produces the
dot
pattern containing seven vertical
dots.
This function can easily be incorporated into the smiling face routine
above and used to expand the face.
19
DATA
28,42,85,81,81,85,42,28
213
OPEN
1,4
30
INPUT
"WIDTH";W
413
PRINTl1,
CHR$(S);
50
FOR
R
=1
TO
8
613
READ
A
713
PRINT#l,
CHRS(26)
CHRS(W)
CHRS(A+128);
813
NEXT
90
PRINT#l
Put
different values into the width variable when the program requests
it and notice how the picture changes.
Of
course, this becomes impractical
at
some point, since it can become so wide
that
it
is
no longer recognizable.
To Next Page
Loading...
