script "Infinite Credits"  
run:
    poke $FF49A3 $09
script "Infinite Select Time"  
run:
    dpoke $FF48F4 $006A
script "Always Maximum Charge" \
 "comm:Display decrements slightly but cosmetic only"  
on:
    temp0=maincpu.rw@11EBA0
    temp1=maincpu.rd@11EBA2
    temp2=maincpu.rb@11EBA6
run:
    maincpu.rw@11EBA0=$4E71
    maincpu.rd@11EBA2=$4E714E71
    maincpu.rb@11EBA6=$60
off:
    maincpu.rw@11EBA0=temp0
    maincpu.rd@11EBA2=temp1
    maincpu.rb@11EBA6=temp2
script " "  
script "P1 Infinite Lives (Turn ON in Game ONLY!)" \
 "comm:Do not have this enabled before you start playing!"  
run:
    poke $FF49A9 $09
script "P1 Infinite Energy"  
run:
    poke $((maincpu.pd@FF49BC)+7E) $40
script "P1 Invincibility"  
run:
    dpoke $((maincpu.pd@FF49BC)+72) $0002
script "P1 Maximum Fire Power"  
run:
    poke $FF49B5 $07
script " "  
script "P2 Infinite Lives (Turn ON in Game ONLY!)" \
 "comm:Do not have this enabled before you start playing!"  
run:
    poke $FF49CF $09
script "P2 Infinite Energy"  
run:
    poke $((maincpu.pd@FF49E2)+7E) $40
script "P2 Invincibility"  
run:
    dpoke $((maincpu.pd@FF49E2)+72) $0002
script "P2 Maximum Fire Power"  
run:
    poke $FF49DB $07
script " "  
script "No Background Music"  
run:
    cpu audio
    dpoke $F020 $0000
    cpu main
script "Sound Test" \
 inter=1,1023,1 
change:
    cpu audio
    dpoke $F015 $0000
    lpoke $F100 $00000000
    lpoke $f104 $000000FF
    lpoke $F108 $00999900
    lpoke $f10c $00000000
    lpoke $F110 $00000000
    lpoke $f114 $00000000
    lpoke $F118 $00999900
    lpoke $f11c $00000000
    if (param<100)
      poke $F111 param
      temp0=param/100
    endif
    if (param>=100)
      poke $F110 temp0
      poke $F111 param-(temp0*100)
      poke $F015 $20
    endif
    cpu main
