1 rem terra cognita (codemasters)
2 rem infinite lives
3 rem cassette -v1- commodore format
4 rem codemasters multihack listing
5 rem (c) warren pilkington/cf 1994, moded by allen monks
6 print chr$(147)
7 print "1- original tape"
8 print "2- quattro pack"
9 input " select cheat";a: if a<1 or a>2 then goto 9
10 for x=512 to 580: read y:c=c+y: poke x,y:next
11 if c<> 7483 then print "data error":end
12 if a=1 then goto 14
13 read y: if y<>-1 then goto 13
14 read y: if y=-1 then poke 157,128:sys 512
15 poke x,y: x=x+1: goto 14
16 data 032,044,247,056,169,016,141,062
17 data 003,169,017,141,064,003,032,108
18 data 245,169,032,141,068,017,169,057
19 data 141,069,017,169,002,141,070,017
20 data 162,255,189,193,016,157,193,002
21 data 202,208,247,162,033,189,159,016
22 data 157,159,002,202,208,247,076,120
23 data 003,072,206,032,208,032,069,002
24 data 104,044,013,220,096
25 rem --------------------------------
26 data 169,243,141,059,114,096,-1
27 data 169,143,141,164,114,096,-1
Download PRG...