1 rem grand prix circuit (accolade)
2 rem select cheats by john barry
3 rem disk -v1- zzap64 no.54
10 for t=272 to 389:read a:c=c+a
12 poke t,a:next
14 if c<>14786 then print "error":end
16 a=40392:for t=0 to 8:read a$
18 for s=0 to 15:poke a+s,0:next
20 for s=1 to len(a$):z=asc(mid$(a$,s,1))
22 if z>64 then z=z+128
24 poke a+s-1,z:next
26 poke a+s-1,255:a=a+16:next
28 print chr$(5);chr$(147);"load";
30 print chr$(34);"gp";chr$(34);",8"
32 print:print:print:print
34 print "sys 272":poke 631,19:poke 632,13
36 poke 633,13:poke 198,3:end
38 data 162,83,189,1,8,149,43,202,16,248
40 data 162,0,189,137,8,157,176,32,202
42 data 208,247,238,30,1,238,33,1,173,30
44 data 1,201,20,208,232,169,32,141,127
46 data 33,169,73,141,128,33,169,1,141
48 data 129,33,169,234,141,130,33,76,47
50 data 243,169,76,141,50,3,169,93,141
52 data 51,3,169,1,141,52,3,169,48,133,1
54 data 96,72,173,243,154,201,212,208,29
56 data 173,244,154,201,211,208,22,173
58 data 245,154,201,197,208,15,138,72
60 data 162,144,189,199,157,157,242,154
62 data 202,208,247,104,170,104,108,4,1
63 rem * you can change the names, max 12 char*
64 data "s.nakajima","e.cheever"
66 data "d.warwick","i.cappelli"
68 data "g.berger","n.piquet"
70 data "a.senna","a.prost"
72 data "n.mansell"
Download PRG...
