Now type in:
Run
To improve the movement of the character across the screen, add the following line:
30 call &bd19
This program can be further enhanced to improve the movement by adding some delay loops and by
using a different returning character symbol.
Type in:
list
Now add the following lines to the program:
60 for n = 1 to 300:next n
65 for x = 39 to 1 step -1
70 locate x,20
75 call &bd19
80 print chr$(251);” “
85 next x
90 for n = 1 to 300: next n
95 goto 10
run
Try this interesting small program. We have added some other commands that will be explained in
later chapters. For now, just type in:
new
10 mode 1
20 locate 21,14:print chrS(244)
30 tag
40 for x=0 to 624 step 2
50 mover -16,0
60 if x<308 or x>340 x>340 then y=196:goto 90
70 if x<324 then y=x-104:goto 85
80 y=536-x
85 sound 1,0,20,7
90 move ox, oy:print “ “;:ox=x:oy=y
100 move x,y
110 if (x mod 4) = 0 then print chr$(250);
else print chrS(251);
120 for n=1 to 4: call &bd19:next n
130 next x
140 tagoff
150 goto 20
run
To Next Page
Loading...
