start tok64 d64-nu0zL3
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,198
640 FORi=1TO200: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 DATA31,21,255,255,255,255,255,255,255,255,255,255
690 DATA135,33,255,255,255,255,255,255,255,255,255,255
700 DATA255,255,255,255,255,255,49,28,255,255,255,255
710 DATA165,31,233,7,255,255,255,255,218,11,255,255
720 DATA255,255,239,19,255,255,255,255,218,11,255,255
730 DATA255,255,239,19,255,255,255,255,218,11,255,255
740 DATA255,255,247,9,255,255,255,255,24,14,255,255
750 DATA255,255,210,15,255,255,255,255,24,14,255,255
760 DATA255,255,210,15,255,255,255,255,24,14,255,255
770 DATA255,255,143,10,255,255,255,255,78,13,255,255
780 DATA255,255,210,15,255,255,255,255,78,13,255,255
790 DATA255,255,210,15,255,255,255,255,209,18,255,255
800 DATA31,21,78,13,255,255,255,255,209,18,255,255
810 DATA135,33,31,21,255,255,255,255,209,18,255,255
820 DATA255,255,31,21,255,255,156,26,209,18,255,255
830 DATA165,31,210,15,255,255,255,255,195,16,255,255
840 DATA255,255,31,21,255,255,255,255,195,16,255,255
850 DATA255,255,31,21,255,255,255,255,195,16,255,255
860 DATA49,28,24,14,255,255,255,255,195,16,255,255
870 DATA255,255,31,21,255,255,255,255,195,16,255,255
880 DATA255,255,31,21,255,255,255,255,195,16,255,255
890 DATA255,255,143,10,255,255,255,255,24,14,255,255
900 DATA255,255,195,16,255,255,255,255,24,14,255,255
910 DATA255,255,195,16,255,255,255,255,24,14,255,255
920 DATA49,28,12,7,255,255,255,255,143,10,255,255
930 DATA49,28,195,16,255,255,255,255,143,10,255,255
940 DATA255,255,195,16,255,255,49,28,143,10,255,255
950 DATA49,28,104,9,255,255,255,255,48,11,255,255
960 DATA255,255,24,14,255,255,255,255,48,11,255,255
970 DATA255,255,24,14,255,255,255,255,48,11,255,255
980 DATA255,255,104,9,255,255,255,255,48,11,255,255
990 DATA255,255,210,15,255,255,255,255,48,11,255,255
1000 DATA255,255,210,15,255,255,255,255,48,11,255,255
1010 DATA255,255,104,9,255,255,255,255,48,11,255,255
1020 DATA255,255,195,16,255,255,255,255,48,11,255,255
1030 DATA255,255,195,16,255,255,255,255,48,11,255,255
1040 DATA165,31,104,9,255,255,255,255,48,11,255,255
1050 DATA165,31,210,15,255,255,255,255,48,11,255,255
1060 DATA255,255,210,15,255,255,135,33,48,11,255,255
1070 DATA165,31,12,7,255,255,255,255,143,10,255,255
1080 DATA255,255,24,14,255,255,255,255,143,10,255,255
1090 DATA255,255,24,14,255,255,255,255,143,10,255,255
1100 DATA49,28,104,9,255,255,255,255,48,11,255,255
1110 DATA255,255,24,14,255,255,255,255,48,11,255,255
1120 DATA255,255,24,14,255,255,255,255,48,11,255,255
1130 DATA165,31,104,9,255,255,255,255,48,11,255,255
1140 DATA255,255,210,15,255,255,255,255,48,11,255,255
1150 DATA255,255,210,15,255,255,255,255,48,11,255,255
1160 DATA135,33,104,9,255,255,255,255,48,11,255,255
1170 DATA255,255,24,14,255,255,255,255,210,15,255,255
1180 DATA255,255,195,16,255,255,255,255,209,18,255,255
1190 DATA62,42,12,7,135,33,62,42,12,7,135,33
1200 DATA62,42,195,16,135,33,62,42,24,14,135,33
1210 DATA62,42,195,16,135,33,62,42,24,14,135,33
1220 DATA223,39,251,4,135,33,223,39,251,4,135,33
1230 DATA223,39,195,16,135,33,223,39,24,14,135,33
1240 DATA223,39,195,16,135,33,223,39,24,14,135,33
1250 DATA62,42,12,7,135,33,62,42,12,7,135,33
1260 DATA62,42,195,16,135,33,62,42,24,14,135,33
1270 DATA62,42,195,16,135,33,62,42,24,14,135,33
1280 DATA193,44,152,5,135,33,193,44,152,5,135,33
1290 DATA193,44,195,16,135,33,193,44,24,14,135,33
1300 DATA193,44,195,16,135,33,193,44,24,14,135,33
1310 DATA62,42,71,5,165,31,62,42,71,5,165,31
1320 DATA62,42,210,15,165,31,62,42,78,13,165,31
1330 DATA62,42,210,15,165,31,62,42,78,13,165,31
1340 DATA223,39,233,7,165,31,255,255,233,7,255,255
1350 DATA255,255,210,15,255,255,255,255,78,13,255,255
1360 DATA255,255,210,15,255,255,191,79,78,13,255,255
1370 DATA125,84,143,10,255,255,62,42,255,255,255,255
1380 DATA191,79,78,13,255,255,125,84,255,255,255,255
1390 DATA62,42,210,15,255,255,191,79,255,255,255,255
1400 DATA125,84,209,18,255,255,255,255,255,255,255,255
1410 DATA62,42,255,255,255,255,255,255,255,255,255,255
1420 DATA255,255,255,255,255,255,62,42,255,255,255,255
1430 DATA62,42,104,9,255,255,255,255,24,14,255,255
1440 DATA49,28,31,21,96,22,255,255,24,14,255,255
1450 DATA49,28,31,21,96,22,255,255,24,14,255,255
1460 DATA162,37,104,9,255,255,255,255,24,14,255,255
1470 DATA49,28,209,18,96,22,255,255,24,14,255,255
1480 DATA49,28,209,18,96,22,255,255,24,14,255,255
1490 DATA135,33,104,9,255,255,255,255,24,14,255,255
1500 DATA49,28,195,16,96,22,255,255,24,14,255,255
1510 DATA49,28,195,16,96,22,255,255,24,14,255,255
1520 DATA165,31,104,9,255,255,255,255,24,14,255,255
1530 DATA96,22,210,15,209,18,255,255,24,14,255,255
1540 DATA96,22,210,15,209,18,255,255,24,14,255,255
1550 DATA49,28,12,7,135,33,255,255,97,8,255,255
1560 DATA255,255,143,10,255,255,255,255,24,14,255,255
1570 DATA255,255,143,10,255,255,255,255,97,8,255,255
1580 DATA135,33,12,7,62,42,255,255,97,8,255,255
1590 DATA255,255,143,10,255,255,255,255,24,14,255,255
1600 DATA255,255,143,10,255,255,255,255,97,8,255,255
1610 DATA135,33,12,7,99,56,255,255,97,8,255,255
1620 DATA255,255,143,10,255,255,255,255,24,14,255,255
1630 DATA255,255,143,10,255,255,255,255,97,8,255,255
1640 DATA255,255,12,7,255,255,255,255,255,255,255,255
1650 DATA255,255,255,255,255,255,255,255,255,255,255,255
1660 DATA255,255,255,255,255,255,255,255,255,255,255,255
1670 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}splat'n shout [r gjort av:"
2050 PRINT"{down*2}ulf tidstrand (musik ,grafik & kodning)"
2060 PRINT"{down}mattias blanck (grafik & spelide')"
2070 FORt=1TO4000: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)