home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 1: Collection A
/
17Bit_Collection_A.iso
/
files
/
36.dms
/
36.adf
/
anim.bas
< prev
next >
Wrap
BASIC Source File
|
1988-05-22
|
258b
|
11 lines
10 dim a%(1000),b%(1000)
15 sshape(0,0;20,20),b%()
20 box(0,0;19,19),1
30 sshape(0,0;20,20),a%()
40 gshape(0,0),b%()
50 for x% = 0 to 200 step 1
60 sshape(x%,50;20,20),b%()
70 gshape(x%,50),a%()
80 gshape(x%,50),b%()
90 next x%