start tok64 d64-UncM2t
10 REM ************************
20 REM *** red river valley ***
30 REM ************************
40 POKE53280,5:POKE53281,5:GOSUB50000:GOSUB51000:GOSUB50200
50 PRINT"{ct n}{clear}{ct h}{black}Red River Valley.
60 PRINT"{cm t*17}
70 PRINT"GOSUB 50300 st[nger av musiken.
80 END
50000 i=20000
50010 READa:IFa>-1THENPOKEi,a:i=i+1:c=c+a:GOTO50010
50020 IFc<>16052THENPRINT"{down}?data error";:END
50030 RETURN
50050 DATA238,226,79,172,226,79,204,227,79,208
50060 DATA105,169,,141,226,79,238,228,79,172
50070 DATA228,79,185,20,80,201,255,240,19,162
50080 DATA,142,4,212,141,,212,185,64,81
50090 DATA141,1,212,169,17,141,4,212,185,108
50100 DATA82,201,255,240,19,162,,142,11,212
50110 DATA141,7,212,185,152,83,141,8,212,169
50120 DATA17,141,11,212,185,196,84,201,255,240
50130 DATA19,162,,142,18,212,141,14,212,185
50140 DATA240,85,141,15,212,169,33,141,18,212
50150 DATA173,230,79,141,227,79,204,229,79,208,5,169,,141,228,79,76,49,234,-1
50200 FORi=1TO255:IFPEEK(20500+i)=254THENPOKE20453,i-1:GOTO50205
50202 NEXT:POKE20453,255
50205 FORi=54272TO54296:POKEi,0:NEXT:POKE54296,15
50207 POKE20044, 17 :POKE20070, 17
50208 POKE20096, 129 :POKE54277, 41
50209 POKE54277+7, 10 :POKE54277+14, 7
50210 POKE54278, 15 :POKE54278+7, 15
50211 POKE54278+14, 0 :POKE20452,0:POKE20454, 14
50220 POKE56334,PEEK(56334)AND254:POKE788,32:POKE789,78:POKE56334,PEEK(56334)OR1
50230 RETURN
50300 POKE56334,PEEK(56334)AND254:POKE788,49:POKE789,234
50310 POKE56334,PEEK(56334)OR1
50320 FORi=54272TO54296:POKEi,0:NEXT
50330 RETURN
51000 POKE20453,75
51010 FORi=1TO76:READl1,h1,l2,h2,l3,h3
51020 POKE20500+i,l1:POKE20800+i,h1
51030 POKE21100+i,l2:POKE21400+i,h2
51040 POKE21700+i,l3:POKE22000+i,h3:NEXT:RETURN
51050 DATA209,18,255,255,255,255,30,25,255,255,255,255
51060 DATA165,31,143,12,48,4,255,255,210,15,254,254
51070 DATA165,31,209,18,48,4,49,28,195,16,254,254
51080 DATA30,25,210,15,48,4,255,255,195,16,254,254
51090 DATA49,28,210,15,48,4,30,25,195,16,254,254
51100 DATA31,21,255,255,48,4,30,25,255,255,254,254
51110 DATA255,255,255,255,48,4,255,255,255,255,254,254
51120 DATA255,255,255,255,48,4,255,255,255,255,254,254
51130 DATA209,18,255,0,48,4,30,25,255,255,254,254
51140 DATA165,31,143,12,48,4,255,255,24,14,254,254
51150 DATA165,31,210,15,48,4,165,31,209,18,254,254
51160 DATA162,37,31,21,48,4,255,255,255,255,254,254
51170 DATA135,33,31,21,48,4,165,31,209,18,254,254
51180 DATA49,28,195,16,48,4,255,255,210,15,254,254
51190 DATA255,255,24,14,48,4,255,255,143,12,254,254
51200 DATA255,255,218,11,48,4,255,255,255,255,254,254
51210 DATA162,37,255,0,48,4,135,33,255,255,254,254
51220 DATA165,31,143,12,48,4,255,255,210,15,254,254
51230 DATA165,31,209,18,48,4,49,28,195,16,254,254
51240 DATA30,25,210,15,48,4,255,255,255,255,254,254
51250 DATA49,28,143,10,48,4,165,31,255,255,254,254
51260 DATA162,37,24,14,48,4,135,33,210,15,254,254
51270 DATA255,255,195,16,48,4,255,255,209,18,254,254
51280 DATA255,255,31,21,48,4,255,255,255,255,254,254
51290 DATA31,21,195,16,48,4,31,21,255,255,254,254
51300 DATA209,18,210,15,48,4,255,255,143,12,254,254
51310 DATA30,25,210,15,48,4,49,28,195,16,254,254
51320 DATA165,31,209,18,48,4,255,255,255,255,254,254
51330 DATA49,28,195,16,48,4,49,28,255,255,254,254
51340 DATA30,25,210,15,48,4,255,255,255,255,254,254
51350 DATA255,255,24,14,48,4,255,255,24,14,254,254
51360 DATA255,255,143,12,48,4,255,255,255,255,255,255
51370 DATA255,0,255,0,255,255,255,255,255,255,255,255
51380 DATA255,255,255,255,255,255,255,255,255,255,255,255
51390 DATA255,255,255,255,255,255,255,255,255,255,255,255
51400 DATA255,255,255,255,255,255,255,255,255,255,255,255
51410 DATA255,255,255,255,255,255,255,255,255,255,255,255
51420 DATA255,255,255,255,255,255,254,254,254,254,254,254
stop tok64
(bastext 1.0)