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 >
BASIC Source File  |  1988-05-22  |  258b  |  11 lines
  1. 10    dim a%(1000),b%(1000)
  2. 15    sshape(0,0;20,20),b%()
  3. 20    box(0,0;19,19),1
  4. 30    sshape(0,0;20,20),a%()
  5. 40    gshape(0,0),b%()
  6. 50    for x% = 0 to 200 step 1
  7. 60    sshape(x%,50;20,20),b%()
  8. 70    gshape(x%,50),a%()
  9. 80    gshape(x%,50),b%()
  10. 90    next x%
  11.