Radio Shack TRS-80 - Page 122

1
30
SETCX+1
,
33
)
140
SET(X-1,33)
and
RUN.
Now let's try and
move him
to
the
right. Add
45
RESET( X
+ K-l ,40+K
)
55
RESETC
X-K-l
,40
+
K )
8 5 RESET (
X+K-l ,34+K)
95 RESEK X-l
,34+K )
105
RESETt X-K-l ,34+K
>
1 25 RESETt X-l
,
32
)
135 RESET(X,33)
145 RESETt
X-2
, 33
)
150 X=X+1
160 GOTO 30
and
RUN .
Sure
moves
funny, doesn't he? Well, I'm no
animator either, but I'm
sure
you're
beginning
to get the idea.
This has been one long and active Chapter
. . . and to
think all this with only the SET
and
RESET statements. Think
of the
good things to follow
with
two
more
commands!
And
by
simply
exchanging
RESET for SET, in many cases we
could have drawn
the
same
pic-
tures,
with dark on a
light
background
instead of light on dark. You might want to give
that
a try.
OK,
so I'm no artist .
*
.!!
120