1 rem mc donaldland
2 rem infinite lives, energy and arches by waz
3 rem cassette -v1- commodore format
4 for x=288 to 334:read y:c=c+y:poke x,y:next
5 if c<>5495 then print "data error":end
6 for wa=1 to 3:read a$,a1,a2:print "infinite ";a$;:input b$
7 if b$="n" then for wb=al to a2:poke wb,234:next
8 next wa:poke 157,128:sys 288
9 data 032,044,247,056,169,052,141,158
10 data 003,169,001,141,159,003,076,081
11 data 003,087,065,090,169,118,141,184
12 data 197,169,054,141,185,197,076,072
13 data 197,169,240,141,219,132,141,066
14 data 110,141,231,131,076,013,008
15 data lives,323,325,energy,326,328
16 data arches,329,331
Download PRG...