start tok64 d64-MpDi48
1 REM ***kadensl]t (c) ulf t 90***
5 PRINT"{clear}please wait"
10 GOSUB50000:GOSUB51000:POKE53280,0:POKE53281,0:PRINT"{clear}"
20 PRINT"{clear}{white}kadensl]t av paul svenre 87"
30 PRINT"{down*3}programmerad av ulf t 1990"
40 GOSUB50200: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,0,141,226,79,238,228,79,172
50070 DATA228,79,185,20,80,201,255,240,19,162
50080 DATA0,142,4,212,141,0,212,185,64,81
50090 DATA141,1,212,169,17,141,4,212,185,108
50100 DATA82,201,255,240,19,162,0,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,0,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,0,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, 33 :POKE20070, 33
50208 POKE20096, 33 :POKE54277, 10
50209 POKE54277+7, 10 :POKE54277+14, 9
50210 POKE54278, 0 :POKE54278+7, 0
50211 POKE54278+14, 4 :POKE20452,0:POKE20454, 13
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,192
51010 FORi=1TO194: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 DATA135,33,49,28,48,11,255,255,255,255,255,255
51060 DATA255,255,255,255,48,11,255,255,255,255,255,255
51070 DATA162,37,233,29,48,11,255,255,255,255,255,255
51080 DATA255,255,255,255,48,11,255,255,255,255,255,255
51090 DATA135,33,30,25,143,10,255,255,255,255,255,255
51100 DATA255,255,255,255,143,10,255,255,255,255,255,255
51110 DATA135,33,49,28,48,11,255,255,255,255,255,255
51120 DATA255,255,255,255,48,11,255,255,255,255,255,255
51130 DATA135,33,49,28,48,11,255,255,255,255,255,255
51140 DATA255,255,255,255,48,11,255,255,255,255,255,255
51150 DATA162,37,233,29,48,11,255,255,255,255,255,255
51160 DATA255,255,255,255,48,11,255,255,255,255,255,255
51170 DATA135,33,30,25,143,10,255,255,255,255,255,255
51180 DATA255,255,255,255,143,10,255,255,255,255,255,255
51190 DATA62,42,135,33,143,12,255,255,255,255,255,255
51200 DATA255,255,255,255,143,12,255,255,255,255,255,255
51210 DATA162,37,165,31,143,12,255,255,255,255,255,255
51220 DATA255,255,255,255,143,12,255,255,255,255,255,255
51230 DATA62,42,135,33,143,12,255,255,255,255,255,255
51240 DATA255,255,255,255,143,12,255,255,255,255,255,255
51250 DATA162,37,49,28,218,11,255,255,255,255,255,255
51260 DATA255,255,255,255,218,11,255,255,255,255,255,255
51270 DATA162,37,165,31,143,12,255,255,255,255,255,255
51280 DATA255,255,255,255,143,12,255,255,255,255,255,255
51290 DATA162,37,165,31,143,12,255,255,255,255,255,255
51300 DATA255,255,255,255,143,12,255,255,255,255,255,255
51310 DATA62,42,135,33,143,12,255,255,255,255,255,255
51320 DATA255,255,255,255,143,12,255,255,255,255,255,255
51330 DATA162,37,49,28,218,11,255,255,255,255,255,255
51340 DATA255,255,255,255,218,11,255,255,255,255,255,255
51350 DATA162,37,165,31,143,12,255,255,255,255,255,255
51360 DATA135,33,30,25,143,10,255,255,255,255,255,255
51370 DATA135,33,49,28,48,11,255,255,255,255,255,255
51380 DATA255,255,255,255,48,11,255,255,255,255,255,255
51390 DATA162,37,233,29,48,11,255,255,255,255,255,255
51400 DATA255,255,255,255,48,11,255,255,255,255,255,255
51410 DATA135,33,30,25,143,10,255,255,255,255,255,255
51420 DATA255,255,255,255,143,10,255,255,255,255,255,255
51430 DATA135,33,49,28,48,11,255,255,255,255,255,255
51440 DATA255,255,255,255,48,11,255,255,255,255,255,255
51450 DATA135,33,49,28,48,11,255,255,255,255,255,255
51460 DATA255,255,255,255,48,11,255,255,255,255,255,255
51470 DATA162,37,233,29,48,11,255,255,255,255,255,255
51480 DATA255,255,255,255,48,11,255,255,255,255,255,255
51490 DATA135,33,30,25,143,10,255,255,255,255,255,255
51500 DATA255,255,255,255,143,10,255,255,255,255,255,255
51510 DATA62,42,135,33,143,12,255,255,255,255,255,255
51520 DATA255,255,255,255,143,12,255,255,255,255,255,255
51530 DATA162,37,165,31,143,12,255,255,255,255,255,255
51540 DATA255,255,255,255,143,12,255,255,255,255,255,255
51550 DATA62,42,135,33,143,12,255,255,255,255,255,255
51560 DATA255,255,255,255,143,12,255,255,255,255,255,255
51570 DATA162,37,49,28,218,11,255,255,255,255,255,255
51580 DATA255,255,255,255,218,11,255,255,255,255,255,255
51590 DATA162,37,165,31,143,12,255,255,255,255,255,255
51600 DATA255,255,255,255,143,12,255,255,255,255,255,255
51610 DATA162,37,165,31,143,12,255,255,255,255,255,255
51620 DATA255,255,255,255,143,12,255,255,255,255,255,255
51630 DATA62,42,135,33,143,12,255,255,255,255,255,255
51640 DATA255,255,255,255,143,12,255,255,255,255,255,255
51650 DATA162,37,49,28,218,11,255,255,255,255,255,255
51660 DATA255,255,255,255,218,11,255,255,255,255,255,255
51670 DATA107,47,162,37,24,14,255,255,255,255,255,255
51680 DATA255,255,255,255,24,14,255,255,255,255,255,255
51690 DATA62,42,134,35,24,14,255,255,255,255,24,14
51700 DATA255,255,255,255,24,14,107,47,162,37,24,14
51710 DATA255,255,255,255,24,14,255,255,255,255,24,14
51720 DATA255,255,255,255,24,14,255,255,255,255,24,14
51730 DATA62,42,165,31,78,13,255,255,255,255,78,13
51740 DATA255,255,255,255,78,13,62,42,134,35,24,14
51750 DATA255,255,255,255,24,14,255,255,255,255,24,14
51760 DATA255,255,255,255,24,14,255,255,255,255,24,14
51770 DATA62,42,134,35,24,14,255,255,255,255,24,14
51780 DATA255,255,255,255,24,14,107,47,162,37,24,14
51790 DATA255,255,255,255,24,14,255,255,255,255,24,14
51800 DATA255,255,255,255,24,14,255,255,255,255,24,14
51810 DATA62,42,165,31,78,13,255,255,255,255,78,13
51820 DATA255,255,255,255,78,13,62,42,134,35,24,14
51830 DATA255,255,255,255,24,14,255,255,255,255,24,14
51840 DATA255,255,255,255,24,14,255,255,255,255,24,14
51850 DATA62,42,134,35,24,14,255,255,255,255,24,14
51860 DATA255,255,255,255,24,14,107,47,162,37,24,14
51870 DATA255,255,255,255,24,14,255,255,255,255,24,14
51880 DATA255,255,255,255,24,14,255,255,255,255,24,14
51890 DATA62,42,165,31,78,13,255,255,255,255,78,13
51900 DATA255,255,255,255,78,13,62,42,134,35,24,14
51910 DATA255,255,255,255,24,14,255,255,255,255,24,14
51920 DATA255,255,255,255,24,14,255,255,255,255,24,14
51930 DATA62,42,134,35,24,14,255,255,255,255,24,14
51940 DATA255,255,255,255,24,14,107,47,162,37,24,14
51950 DATA255,255,255,255,24,14,255,255,255,255,24,14
51960 DATA255,255,255,255,24,14,255,255,255,255,24,14
51970 DATA162,37,233,29,48,11,255,255,255,255,48,11
51980 DATA255,255,255,255,48,11,62,42,135,33,143,12
51990 DATA255,255,255,255,143,12,255,255,255,255,143,12
52000 DATA255,255,255,255,143,12,255,255,255,255,143,12
52010 DATA254,254,255,255,255,255,255,255,255,255,255,255
stop tok64
(bastext 1.0)