home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / shuttle.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  976 b   |  44 lines
  1. 10    scnclr
  2. 20    dim a%(1000),b%(1000)
  3. 30    sshape(0,0;20,20),b%()
  4. 40    box(1,1;19,19),1
  5. 50    sshape(0,0;20,20),a%()
  6. 60    gshape(0,0),b%()
  7. 70    for i%=1% to 2%
  8. 80    for x%=0% to 250
  9. 90    gshape(x%,50),b%()
  10. 100   gshape(x%+1,50),a%()
  11. 110   next x%
  12. 120   for x%=250 to 0 step -1
  13. 130   gshape(x%+1,50),b%()
  14. 140   gshape(x%,50),a%()
  15. 150   next x%
  16. 160   for y%=0% to 150%
  17. 170   gshape(100%,y%),b%()
  18. 180   gshape(100%,y%+1%),a%()
  19. 190   next y%
  20. 200   for y%=150% to 0% step -1%
  21. 210   gshape(100%,y%+1%),b%()
  22. 220   gshape(100%,y%),a%()
  23. 230   next y%
  24. 240   next i%
  25. 250   for i%=1% to 2%
  26. 260   y%=0%
  27. 270   for x%=0% to 150%
  28. 280   gshape(x%,50%),b%()
  29. 290   gshape(x%+1%,50%),a%()
  30. 300   gshape(100%,y%),b%()
  31. 310   gshape(100%,y%+1%),a%()
  32. 320   y%=y%+1%
  33. 330   next x%
  34. 340   for x%=150% to 0% step -1%
  35. 350   gshape(x%+1%,50%),b%()
  36. 360   gshape(x%,50%),a%()
  37. 370   gshape(100%,y%+1%),b%()
  38. 380   gshape(100%,y%),a%()
  39. 390   y%=y%-1%
  40. 400   next x%
  41. 410   next i%
  42. 420   goto 70
  43. 430   end
  44.