1 rem fallen angel (alternative)
2 rem infinite lives, time & power by waz
3 rem cassette -v1- commodore format
4 for x=49729 to 49787:read y:c=c+y:poke x,y:next
5 if c<>6565 then print "data error":end
6 input "infinite lives y/n";a$: if a$="n" then poke 49757,206
7 input "infinite time y/n";b$: if b$="n" then poke 49765,206
8 input "infinite power y/n";c$
9 if c$="n" then for x=49769 to 49784:poke x,234:next
10 poke 157,128:sys 49729
11 data 032,086,245,169,194,141,194,002
12 data 076,167,002,169,092,141,031,009
13 data 169,194,141,032,009,076,076,008
14 data 087,065,090,169,173,141,170,014
15 data 141,173,014,169,173,141,138,056
16 data 169,234,141,222,055,141,223,055
17 data 141,224,055,169,000,141,006,025
18 data 076,109,010
Download PRG...