1 rem lunar lander
2 rem infinite lives and fuel by waz
3 rem cassette -v1- commodore format
4 for x=516 to 556:read y:c=c+y:poke x,y:next
5 if c<>3908 then print "data error":end
6 input "infinite lives y/n";a$:if a$="n" then poke 545,206
7 input "infinite fuel y/n";b$:if b$="n" then poke 550,1
8 poke 157,128:sys 516
9 data 032,086,245,169,019,141,207,003
10 data 206,208,003,096,087,065,090,169
11 data 032,141,013,010,169,002,141,014
12 data 010,076,230,003,169,173,141,116
13 data 067,169,000,141,091,063,076,027
14 data 008
Download PRG...