home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 242 / 242.d81 / jet airplane (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2004-01-01  |  356 b   |  21 lines
  1. 9200 rem jet airplane
  2. 9210 d=50
  3. 9220 fora=1to15
  4. 9230 poke54296,a
  5. 9240 gosub9350:gosub9300
  6. 9250 nexta
  7. 9260 d=100
  8. 9270 forb=1to30
  9. 9280 gosub9350:gosub9300
  10. 9290 nextb:return:rem to main
  11. 9300 poke54277,15:poke54278,15
  12. 9310 poke54273,110+a:poke54272,185+a
  13. 9320 poke54276,33:fort=1tod:nextt
  14. 9330 poke54276,32:fort=1to10:nextt
  15. 9340 return
  16. 9350 poke54284,15:poke54285,15
  17. 9360 poke54280,10+a:poke54279,200+a
  18. 9370 poke54283,129:fort=1tod:nextt
  19. 9380 poke54283,128:fort=1to10:nextt
  20. 9390 return
  21.