1 rem yogi's great escape (hi-tec software)
2 rem infinite lives
3 rem cassette -v1- commodore format
4 for x=384 to 438:read y:c=c+y:poke x,y:next
5 if c<>6521 then print "data error":end
6 print chr$(147);"starting level (1-6)?";:input a
7 if a<1 or a>6 then 6
8 if a=1 then poke 414,255:goto 10
9 a=a-2: poke 414,a
10 poke 157,128:sys 384
11 data 032,086,245,169,032,141,093,003
12 data 169,149,141,094,003,169,001,141
13 data 095,003,076,168,002,206,032,208
14 data 169,096,141,149,051,169,255,141
15 data 084,010,169,004,141,210,068,141
16 data 211,068,141,212,068,141,213,068
17 data 141,214,068,141,215,068,096
Download PRG...
