start tok64 d64-T1Qxqo 5 SYS12307 10 POKE53265,43 20 POKE53280,0:POKE53281,0:PRINT"{clear}{white}{down*12}{space*14}l o a d i n g !" 30 PRINT"{home}{black}load"CHR$(34)"scroll"CHR$(34)",8,1":PRINT"{down*4}goto50" 40 POKE198,3:POKE631,19:POKE632,13:POKE633,13:END 50 SYS12288 60 FORi=49152TO49189:READx:POKEi,x:c=c+x:NEXT:IFc<>5982THEN PRINT"fel {!*3}" 70 DATA 0,0,160,0,177,251,145,253,165,252,205,1 80 DATA 192,208,8,165,251,205,0,192,208,1,96,230 90 DATA 251,208,2,230,252,230,253,208,227,230,254,76,4,192 100 POKE2,3 110 POKE56576,4:POKE53272,56 120 GOTO220 130 SYS12307:POKE53280,0:s=32576:POKE53270,216 140 t=52224:e=s+999:GOSUB190 150 s=24576:e=s+7999:t=57344:GOSUB190 160 s=33576:e=s+999:t=55296:GOSUB190 170 POKE53265,59 180 GOTO270 190 POKE252,s/256:POKE251,s-256*PEEK(252) 200 POKE254,t/256:POKE253,t-256*PEEK(254) 210 POKE49153,e/256:POKE49152,e-256*PEEK(49153):SYS49154:RETURN 220 POKE53280,0:POKE53281,0:PRINT"{clear}{white}{down*12}{space*14}l o a d i n g !" 230 PRINT"{home}{black}load"CHR$(34)"inlb"CHR$(34)",8,1":PRINT"{down*4}goto130" 240 REM 250 POKE198,3:POKE631,19:POKE632,13:POKE633,13 260 END 270 POKE53280,0:POKE53281,0:SYS12288:CLR 300 GOSUB340:GOSUB630:POKE53280,0:POKE53281,0 330 GOSUB490:GOTO2000 340 i=20000 345 FORt=1TO38:READa:NEXT 350 READa:IFa>-1THENPOKEi,a:i=i+1:c=c+a:GOTO350 360 IFc<>16052THENPRINT"{down}?data error";:END 370 RETURN 380 DATA238,226,79,172,226,79,204,227,79,208 390 DATA105,169,0,141,226,79,238,228,79,172 400 DATA228,79,185,20,80,201,255,240,19,162 410 DATA0,142,4,212,141,0,212,185,64,81 420 DATA141,1,212,169,17,141,4,212,185,108 430 DATA82,201,255,240,19,162,0,142,11,212 440 DATA141,7,212,185,152,83,141,8,212,169 450 DATA17,141,11,212,185,196,84,201,255,240 460 DATA19,162,0,142,18,212,141,14,212,185 470 DATA240,85,141,15,212,169,33,141,18,212 480 DATA173,230,79,141,227,79,204,229,79,208,5,169,0,141,228,79,76,49,234,-1 490 FORi=1TO255:IFPEEK(20500+i)=254THENPOKE20453,i-1:GOTO510 500 NEXT:POKE20453,255 510 FORi=54272TO54296:POKEi,0:NEXT:POKE54296,15 520 POKE20044, 33 :POKE20070, 33 530 POKE20096, 33 :POKE54277, 10 540 POKE54277+7, 10 :POKE54277+14, 9 550 POKE54278, 0 :POKE54278+7, 0 560 POKE54278+14, 4 :POKE20452,0:POKE20454, 13 570 POKE56334,PEEK(56334)AND254:POKE788,32:POKE789,78:POKE56334,PEEK(56334)OR1 580 RETURN 590 POKE56334,PEEK(56334)AND254:POKE788,49:POKE789,234 600 POKE56334,PEEK(56334)OR1 610 FORi=54272TO54296:POKEi,0:NEXT 620 RETURN 630 POKE20453,192 640 FORi=1TO194:READl1,h1,l2,h2,l3,h3 650 POKE20500+i,l1:POKE20800+i,h1 660 POKE21100+i,l2:POKE21400+i,h2 670 POKE21700+i,l3:POKE22000+i,h3:NEXT:RETURN 680 DATA135,33,49,28,48,11,255,255,255,255,255,255 690 DATA255,255,255,255,48,11,255,255,255,255,255,255 700 DATA162,37,233,29,48,11,255,255,255,255,255,255 710 DATA255,255,255,255,48,11,255,255,255,255,255,255 720 DATA135,33,30,25,143,10,255,255,255,255,255,255 730 DATA255,255,255,255,143,10,255,255,255,255,255,255 740 DATA135,33,49,28,48,11,255,255,255,255,255,255 750 DATA255,255,255,255,48,11,255,255,255,255,255,255 760 DATA135,33,49,28,48,11,255,255,255,255,255,255 770 DATA255,255,255,255,48,11,255,255,255,255,255,255 780 DATA162,37,233,29,48,11,255,255,255,255,255,255 790 DATA255,255,255,255,48,11,255,255,255,255,255,255 800 DATA135,33,30,25,143,10,255,255,255,255,255,255 810 DATA255,255,255,255,143,10,255,255,255,255,255,255 820 DATA62,42,135,33,143,12,255,255,255,255,255,255 830 DATA255,255,255,255,143,12,255,255,255,255,255,255 840 DATA162,37,165,31,143,12,255,255,255,255,255,255 850 DATA255,255,255,255,143,12,255,255,255,255,255,255 860 DATA62,42,135,33,143,12,255,255,255,255,255,255 870 DATA255,255,255,255,143,12,255,255,255,255,255,255 880 DATA162,37,49,28,218,11,255,255,255,255,255,255 890 DATA255,255,255,255,218,11,255,255,255,255,255,255 900 DATA162,37,165,31,143,12,255,255,255,255,255,255 910 DATA255,255,255,255,143,12,255,255,255,255,255,255 920 DATA162,37,165,31,143,12,255,255,255,255,255,255 930 DATA255,255,255,255,143,12,255,255,255,255,255,255 940 DATA62,42,135,33,143,12,255,255,255,255,255,255 950 DATA255,255,255,255,143,12,255,255,255,255,255,255 960 DATA162,37,49,28,218,11,255,255,255,255,255,255 970 DATA255,255,255,255,218,11,255,255,255,255,255,255 980 DATA162,37,165,31,143,12,255,255,255,255,255,255 990 DATA135,33,30,25,143,10,255,255,255,255,255,255 1000 DATA135,33,49,28,48,11,255,255,255,255,255,255 1010 DATA255,255,255,255,48,11,255,255,255,255,255,255 1020 DATA162,37,233,29,48,11,255,255,255,255,255,255 1030 DATA255,255,255,255,48,11,255,255,255,255,255,255 1040 DATA135,33,30,25,143,10,255,255,255,255,255,255 1050 DATA255,255,255,255,143,10,255,255,255,255,255,255 1060 DATA135,33,49,28,48,11,255,255,255,255,255,255 1070 DATA255,255,255,255,48,11,255,255,255,255,255,255 1080 DATA135,33,49,28,48,11,255,255,255,255,255,255 1090 DATA255,255,255,255,48,11,255,255,255,255,255,255 1100 DATA162,37,233,29,48,11,255,255,255,255,255,255 1110 DATA255,255,255,255,48,11,255,255,255,255,255,255 1120 DATA135,33,30,25,143,10,255,255,255,255,255,255 1130 DATA255,255,255,255,143,10,255,255,255,255,255,255 1140 DATA62,42,135,33,143,12,255,255,255,255,255,255 1150 DATA255,255,255,255,143,12,255,255,255,255,255,255 1160 DATA162,37,165,31,143,12,255,255,255,255,255,255 1170 DATA255,255,255,255,143,12,255,255,255,255,255,255 1180 DATA62,42,135,33,143,12,255,255,255,255,255,255 1190 DATA255,255,255,255,143,12,255,255,255,255,255,255 1200 DATA162,37,49,28,218,11,255,255,255,255,255,255 1210 DATA255,255,255,255,218,11,255,255,255,255,255,255 1220 DATA162,37,165,31,143,12,255,255,255,255,255,255 1230 DATA255,255,255,255,143,12,255,255,255,255,255,255 1240 DATA162,37,165,31,143,12,255,255,255,255,255,255 1250 DATA255,255,255,255,143,12,255,255,255,255,255,255 1260 DATA62,42,135,33,143,12,255,255,255,255,255,255 1270 DATA255,255,255,255,143,12,255,255,255,255,255,255 1280 DATA162,37,49,28,218,11,255,255,255,255,255,255 1290 DATA255,255,255,255,218,11,255,255,255,255,255,255 1300 DATA107,47,162,37,24,14,255,255,255,255,255,255 1310 DATA255,255,255,255,24,14,255,255,255,255,255,255 1320 DATA62,42,134,35,24,14,255,255,255,255,24,14 1330 DATA255,255,255,255,24,14,107,47,162,37,24,14 1340 DATA255,255,255,255,24,14,255,255,255,255,24,14 1350 DATA255,255,255,255,24,14,255,255,255,255,24,14 1360 DATA62,42,165,31,78,13,255,255,255,255,78,13 1370 DATA255,255,255,255,78,13,62,42,134,35,24,14 1380 DATA255,255,255,255,24,14,255,255,255,255,24,14 1390 DATA255,255,255,255,24,14,255,255,255,255,24,14 1400 DATA62,42,134,35,24,14,255,255,255,255,24,14 1410 DATA255,255,255,255,24,14,107,47,162,37,24,14 1420 DATA255,255,255,255,24,14,255,255,255,255,24,14 1430 DATA255,255,255,255,24,14,255,255,255,255,24,14 1440 DATA62,42,165,31,78,13,255,255,255,255,78,13 1450 DATA255,255,255,255,78,13,62,42,134,35,24,14 1460 DATA255,255,255,255,24,14,255,255,255,255,24,14 1470 DATA255,255,255,255,24,14,255,255,255,255,24,14 1480 DATA62,42,134,35,24,14,255,255,255,255,24,14 1490 DATA255,255,255,255,24,14,107,47,162,37,24,14 1500 DATA255,255,255,255,24,14,255,255,255,255,24,14 1510 DATA255,255,255,255,24,14,255,255,255,255,24,14 1520 DATA62,42,165,31,78,13,255,255,255,255,78,13 1530 DATA255,255,255,255,78,13,62,42,134,35,24,14 1540 DATA255,255,255,255,24,14,255,255,255,255,24,14 1550 DATA255,255,255,255,24,14,255,255,255,255,24,14 1560 DATA62,42,134,35,24,14,255,255,255,255,24,14 1570 DATA255,255,255,255,24,14,107,47,162,37,24,14 1580 DATA255,255,255,255,24,14,255,255,255,255,24,14 1590 DATA255,255,255,255,24,14,255,255,255,255,24,14 1600 DATA162,37,233,29,48,11,255,255,255,255,48,11 1610 DATA255,255,255,255,48,11,62,42,135,33,143,12 1620 DATA255,255,255,255,143,12,255,255,255,255,143,12 1630 DATA255,255,255,255,143,12,255,255,255,255,143,12 1640 DATA254,254,255,255,255,255,255,255,255,255,255,255 2000 SYS12307:POKE53280,0 2010 GETa$:IFa$=""THEN2010 2020 POKE 53272,20:POKE 56576,7:POKE 53265,27:POKE53270,200 2030 PRINT"{clear}{space*14}{black}:{white}svenska pd-biblioteket" 2040 PRINT"{down*17}mr shit strikes back [r gjort av:" 2050 PRINT"{down*2}ulf tidstrand (musik ,grafik & kodning)" 2060 PRINT"{down}mattias blanck (grafik & spelide')" 2070 FORt=1TO5000:NEXT 2080 POKE53280,0:POKE53281,0:PRINT"{home}{white}{down*12}{space*14}l o a d i n g !" 2090 PRINT"{home}{black}load"CHR$(34)"mrsh"CHR$(34)",8,1":PRINT"{down*4}run" 2100 POKE198,3:POKE631,19:POKE632,13:POKE633,13:END stop tok64 (bastext 1.0)