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