home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 25 / 025.d81 / hummer.fly (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  794b  |  23 lines
  1. 0 rem hummer.fly
  2. 5 ifx=0thenx=1:load"hummers.lnk" ,8,1
  3. 6 ifx=1thenx=2:load"unpacker",8,1
  4. 7 ifx=2thenx=3:load"move.color.o",8,1
  5. 8 poke53281,0:poke53281,0
  6. 10 printchr$(142)"[147]  [208]ress any key to return to the menu."
  7. 12 fordl=1to3000:next:print"[147]"
  8. 40 sc=224:co=204:x=0:y=0:sh=0:gosub1000:sys32768
  9. 42 sc=32:co=12:x=0:y=0:sh=0:gosub1000
  10. 82 sc=32:co=12:x=3:y=0:sh=1:gosub1000:sys32768:sys51459:poke53280,3
  11. 85 poke56333,127:sys32771:poke56333,129:forx=1to18:next:ifpeek(198)=0then85
  12. 98 :
  13. 900 rem  time to end
  14. 905 poke56576,151:sys51459:print"[147]   [210]eturning to [206]ature [209]uest menu..."
  15. 910 f$="nature.menu":print"[159]load f$,8":print"run"
  16. 920 poke631,13:poke632,13:poke198,2:end
  17. 990 end
  18. 999 rem
  19. 1000 poke249,sc:poke250,co:                   rem screen/color
  20. 1010 poke251,0:poke252,64:                    rem shp buffer
  21. 1020 poke253,x:poke254,y:                     rem   x-pos,y-pos
  22. 1030 poke255,sh:sys51462:return
  23.