|
eMail Me
Note: You must add uk to the end of the address, it's to help prevent spam.
|
Green Beret
Imagine/Konami, 1986
|
 |
Action Replay Code:
POKE 6908,173 - Lives
POKE 7355,173 - Weapon
POKE 4673,110
POKE 4675,240 - Invincibility in Head to Head
POKE 48982,3 - Invincibility to Bullets
POKE 16151,96 - Invincibility to Land Mines
POKE 49061,0 - Invincibility to Guard Dogs
Type-in Cheat:
Jump up in the air and press and hold "1". You'll stay in the air as long as you hold the button pressed, but after a while a little plane comes and drops a bomb at you.
Listing Cheat:
1 rem green beret (imagine/hit squad)
2 rem infinite lives and ammo by waz
3 rem cassette -v1- commodore format
4 for x=8192 to 8233:read y:c=c+y:poke x,y:next
5 if c<>4975 then print "data error":end
6 sys 8192
7 data 169,001,168,170,032,186,255,169
8 data 000,032,189,255,169,000,032,213
9 data 255,160,010,185,031,032,153,205
10 data 005,136,016,247,108,036,003,169
11 data 173,141,053,021,141,243,022,076
12 data 253,061
Download PRG...
|
1 rem green beret (imagine)
2 rem infinite lives by manos
3 rem cassette -v1- zzapp64 iss.17
110 print chr$(147)
120 for i=8192 to 8230:read a:poke i,a:next
130 sys 8192
140 data 169,1,170,168,32
150 data 186,255,169,0,32
160 data 189,255,169,0,32
170 data 213,255,160,7,185
180 data 31,32,153,205,5
190 data 136,16,247,108,36
200 data 3,169,173,141,53
210 data 21,76,253,61
Download PRG...
|
Select how many lives you wont:
1 rem green beret (imagine)
2 rem extra lives by manos
3 rem cassette -v1- zzapp64 iss.17
110 print chr$(147)
120 for i=8192 to 8230:read a:poke i,a:next
130 input "how many lives (0 to 127)";lv:if lv<0 or lv>127 then 130
140 poke 8224,lv
150 sys8192
160 data 169,1,170,168,32
170 data 186,255,169,0,32
180 data 189,255,169,0,32
190 data 213,255,160,7,185
200 data 31,32,153,205,5
210 data 136,16,247,108,36
220 data 3,169,2,141,241
230 data 54,76,253,61
Download PRG...
|
Remove the bad guys:
1 rem green beret (imagine)
2 rem removes all regular soldiers by gary saunders
3 rem cassette -v1- zzapp64 iss.22
30 for a=0 to 33:read c:poke 52224+a,c:next
40 sys 52224
50 data 169,1,170,168,32,186,255
60 data 169,0,32,213,255,162,7,189
70 data 26,204,157,205,5,202,16,247
80 data 108,36,3,169,4,141,14,33
90 data 76,253,61
Download PRG...
|
|
