script "Infinite Lives"  
run:
    poke $E6B3 $03
script "Infinite Time"  
run:
    poke $E6B7 $3F
script "Infinite SCUBA Air"  
run:
    poke $E7D6 $00
script "Invincibility"  
run:
    poke $E7C1 $5A
    poke $E7C0 $FF
script "Select Weapon" \
 "0x01/Arrows"\
 "0x02/Bombs"\
 "0x04/Flames"\
 "0x08/Laser" 
run:
    poke $EF28 param
script "Select Starting Level" \
 inter=1,13,1 
run:
    if (peek($E6B6)==$00)
      poke $E6B6 (param-$1)
    endif
