home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 25 / 025.d81 / hummer.map (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  644b  |  20 lines
  1. 0 rem hummer.map
  2. 1 ifx=0thenx=1:load"unpacker",8,1
  3. 2 ifx=1thenx=2:load"hummer.map.shp",8,1
  4. 3 poke53281,6:poke53280,0
  5. 4 print"[147]  [208]ress any key to return to the menu."
  6. 5 fordl=1to3000:next
  7. 10 poke249,32:poke250,12:                   rem screen/color
  8. 20 poke251,0:poke252,64:                    rem shp buffer
  9. 30 poke253,0:poke254,0:                     rem   x-pos,y-pos
  10. 40 poke53280,1
  11. 50 sys51456:    rem  unpack normal shp
  12. 60 sys51459:    rem  show screen
  13. 70 poke198,0:wait198,1
  14. 80 sys51459:    rem  return to normal
  15. 90 poke53281,6:poke53280,0
  16. 91 print"[147] [210]eturning to the [206]ature [209]uest menu..."
  17. 95 f$="nature.menu"
  18. 96 print"load f$,8":print"run"
  19. 97 poke631,13:poke632,13:poke198,2:end
  20.