20FORI%=0TO2STEP2
30P%=&C00
40[:OPTI%:LDA#0:STA&2017
50LDA#inter MOD256:STA&220
60LDA#inter DIV256:STA&221
70LDA#14:LDX#4:JSR&FFF4
80RTS
90.inter:PHP:PHA:TXA:PHA:TXA:PHA:LDA&2017:CMP#0:BEQ out
100LDA#7:JSR&FFEE:LDA#&E9:STA&2015:LDA#&E5:STA&2016:LDA#&D0:STA&2017
110LDA#13:LDX#4:JSR&FFF4
120.out:PLA:TAY:PLA:TAX:PLA:PLP:RTS
130]:NEXT:CALL&C00
140MODE7:PRINT" Green Beret cheat"'" By C.J.Richardson"'" Immortal"'" Insert game and press a key":REPEATUNTILGET
150CHAIN"GREEN"