1 rem cloud kingdoms
2 rem infinite time & keys by waz
3 rem disk -v1- commodore format
4 for x=272 to 372: read y:c=c+y: poke x, y:next
5 if c<>13153 then print "data error":end
6 input "infinite time y/n";a$
7 if a$="n" then for x=284 to 299: poke x, 234: next
8 input "infinite keys y/n";b$
9 if b$="n" then poke 301,206
10 print chr$(147); "insert disk & press a key"
11 poke 198,0:wait 198, 1:sys 272
12 data 032,053,001,032,078,001,032,053
13 data 001,032,053,001,169,234,141,212
14 data 092,141,213,092,169,000,141,162
15 data 080,141,211,080,169,173,141,253
16 data 110,076,000,080,065,169,001,168
17 data 162,008,032,186,255,169,001,168
18 data 162,052,032,189,255,169,000,032
19 data 213,255,238,052,001,096,169,000
20 data 133,250,133,252,168,169,054,133
21 data 251,169,198,133,253,120,169,048
22 data 133,001,177,250,145,252,200,208
23 data 249,230,251,230,253,208,243,169
24 data 055,133,001,088,096
Download PRG...
