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