1 rem andy capp
2 rem infinite kisses, alcohol & money by waz
3 rem cassette -v1- commodore format
4 for x=528 to 572:read y:c=c+y:poke x,y:next
5 if c<>5024 then print "data error":end
6 input "infinite kisses y/n";a$:if a$="n" then poke 556,206
7 input "infinite alcohol y/n";b$:if b$="n" then poke 561,206
8 input "infinite money y/n";c$:if c$="n" then poke 566,206
9 poke 157,128:sys 528
10 data 169,029,141,040,003,169,002,141
11 data 041,003,032,086,245,169,011,141
12 data 206,001,169,034,141,207,001,096
13 data 087,065,090,169,173,141,004,174
14 data 169,173,141,030,173,169,173,141
15 data 185,177,076,235,002
Download PRG...
