start tok64 d64-5r1C6X 5 REM ********************* 10 REM*** tema ur chess *** 20 REM*** (c) club 64 *** 25 REM********************* 30 POKE53280,0:POKE53281,0:PRINT"{clear}":GOSUB50000:GOSUB51000 40 PRINT"{home}{white}tema ur chess" 50 PRINT"{down*3}chess av bj{pound}rn ulvaeus, benny andersson & tim rice." 60 PRINT"{down}arr: ola eriksson" 70 PRINT"{down*2}programmerad av ulf tidstrand" 110 GOSUB50200 120 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, 17 :POKE54277, 10 50209 POKE54277+7, 9 :POKE54277+14, 10 50210 POKE54278, 0 :POKE54278+7, 0 50211 POKE54278+14, 0 :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,255 51010 FORi=1TO255: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 DATA31,21,255,255,255,255,255,255,255,255,255,255 51060 DATA255,255,255,255,255,255,255,255,255,255,255,255 51070 DATA62,42,195,16,24,14,255,255,255,255,255,255 51080 DATA255,255,255,255,255,255,255,255,255,255,255,255 51090 DATA255,255,195,16,24,14,255,255,255,255,255,255 51100 DATA135,33,255,255,255,255,255,255,255,255,255,255 51110 DATA165,31,195,16,24,14,255,255,255,255,255,255 51120 DATA255,255,255,255,255,255,49,28,255,255,255,255 51130 DATA193,44,209,18,24,14,255,255,255,255,255,255 51140 DATA255,255,255,255,255,255,255,255,255,255,255,255 51150 DATA255,255,209,18,24,14,255,255,255,255,255,255 51160 DATA162,37,255,255,255,255,255,255,255,255,255,255 51170 DATA135,33,209,18,24,14,255,255,255,255,255,255 51180 DATA255,255,255,255,255,255,165,31,255,255,255,255 51190 DATA193,44,210,15,143,12,162,37,255,255,255,255 51200 DATA135,33,255,255,255,255,165,31,255,255,255,255 51210 DATA193,44,195,16,24,14,135,33,255,255,255,255 51220 DATA165,31,255,255,255,255,49,28,255,255,255,255 51230 DATA193,44,209,18,210,15,165,31,255,255,255,255 51240 DATA49,28,255,255,255,255,30,25,255,255,255,255 51250 DATA62,42,209,18,143,12,255,255,255,255,255,255 51260 DATA255,255,255,255,255,255,255,255,255,255,255,255 51270 DATA255,255,195,16,143,12,255,255,255,255,255,255 51280 DATA31,21,255,255,255,255,30,25,255,255,255,255 51290 DATA165,31,210,15,143,12,135,33,255,255,255,255 51300 DATA255,255,255,255,255,255,165,31,255,255,255,255 51310 DATA135,33,195,16,24,14,255,255,255,255,255,255 51320 DATA255,255,255,255,255,255,255,255,255,255,255,255 51330 DATA255,255,195,16,24,14,255,255,255,255,255,255 51340 DATA49,28,255,255,255,255,255,255,255,255,255,255 51350 DATA30,25,195,17,143,12,255,255,255,255,255,255 51360 DATA255,255,255,255,255,255,96,22,255,255,255,255 51370 DATA162,37,209,18,24,14,255,255,255,255,255,255 51380 DATA255,255,255,255,255,255,255,255,255,255,255,255 51390 DATA255,255,209,18,24,14,255,255,255,255,255,255 51400 DATA49,28,255,255,255,255,255,255,255,255,255,255 51410 DATA30,25,209,18,48,11,255,255,255,255,255,255 51420 DATA255,255,255,255,255,255,96,22,255,255,255,255 51430 DATA162,37,209,18,78,13,165,31,255,255,255,255 51440 DATA49,28,255,255,255,255,156,26,255,255,255,255 51450 DATA162,37,209,18,78,13,165,31,255,255,255,255 51460 DATA49,28,255,255,255,255,156,26,255,255,255,255 51470 DATA162,37,209,18,78,13,165,31,255,255,255,255 51480 DATA49,28,255,255,255,255,156,26,255,255,255,255 51490 DATA135,33,195,16,24,14,255,255,255,255,255,255 51500 DATA255,255,255,255,255,255,255,255,255,255,255,255 51510 DATA255,255,195,16,24,14,255,255,255,255,255,255 51520 DATA255,255,255,255,255,255,255,255,255,255,255,255 51530 DATA31,21,195,16,24,14,255,255,255,255,255,255 51540 DATA255,255,255,255,255,255,255,255,255,255,255,255 51550 DATA62,42,195,16,24,14,255,255,255,255,255,255 51560 DATA255,255,255,255,255,255,255,255,255,255,255,255 51570 DATA255,255,195,16,24,14,255,255,255,255,255,255 51580 DATA135,33,255,255,255,255,255,255,255,255,255,255 51590 DATA165,31,195,16,24,14,255,255,255,255,255,255 51600 DATA255,255,255,255,255,255,49,28,255,255,255,255 51610 DATA193,44,209,18,24,14,255,255,255,255,255,255 51620 DATA255,255,255,255,255,255,255,255,255,255,255,255 51630 DATA255,255,209,18,24,14,255,255,255,255,255,255 51640 DATA162,37,255,255,255,255,255,255,255,255,255,255 51650 DATA135,33,209,18,24,14,255,255,255,255,255,255 51660 DATA255,255,255,255,255,255,165,31,255,255,255,255 51670 DATA193,44,210,15,143,12,162,37,255,255,255,255 51680 DATA135,33,255,255,255,255,165,31,255,255,255,255 51690 DATA193,44,195,16,24,14,135,33,255,255,255,255 51700 DATA165,31,255,255,255,255,49,28,255,255,255,255 51710 DATA193,44,209,18,210,15,165,31,255,255,255,255 51720 DATA49,28,255,255,255,255,30,25,255,255,255,255 51730 DATA62,42,209,18,143,12,255,255,255,255,255,255 51740 DATA255,255,255,255,255,255,255,255,255,255,255,255 51750 DATA255,255,195,16,143,12,255,255,255,255,255,255 51760 DATA31,21,255,255,255,255,30,25,255,255,255,255 51770 DATA165,31,210,15,143,12,135,33,255,255,255,255 51780 DATA255,255,255,255,255,255,165,31,255,255,255,255 51790 DATA135,33,195,16,24,14,255,255,255,255,255,255 51800 DATA255,255,255,255,255,255,255,255,255,255,255,255 51810 DATA255,255,195,16,24,14,255,255,255,255,255,255 51820 DATA49,28,255,255,255,255,255,255,255,255,255,255 51830 DATA30,25,195,17,143,12,255,255,255,255,255,255 51840 DATA255,255,255,255,255,255,96,22,255,255,255,255 51850 DATA162,37,209,18,24,14,255,255,255,255,255,255 51860 DATA255,255,255,255,255,255,255,255,255,255,255,255 51870 DATA255,255,209,18,24,14,255,255,255,255,255,255 51880 DATA162,37,255,255,255,255,62,42,255,255,255,255 51890 DATA62,42,209,18,24,14,193,44,255,255,255,255 51900 DATA193,44,255,255,255,255,135,33,255,255,255,255 51910 DATA165,31,209,18,78,13,135,33,255,255,255,255 51920 DATA135,33,255,255,255,255,162,37,255,255,255,255 51930 DATA162,37,209,18,78,13,135,33,255,255,255,255 51940 DATA135,33,255,255,255,255,165,31,255,255,255,255 51950 DATA165,31,209,18,78,13,49,28,255,255,255,255 51960 DATA49,28,255,255,255,255,156,26,255,255,255,255 51970 DATA156,26,210,15,78,13,49,28,255,255,255,255 51980 DATA49,28,255,255,255,255,165,31,255,255,255,255 51990 DATA165,31,195,16,24,14,49,28,255,255,255,255 52000 DATA49,28,255,255,255,255,156,26,255,255,255,255 52010 DATA156,26,209,18,210,15,96,22,255,255,255,255 52020 DATA96,22,255,255,255,255,31,21,255,255,255,255 52030 DATA31,21,24,14,195,16,255,255,255,255,255,255 52040 DATA255,255,255,255,255,255,255,255,255,255,255,255 52050 DATA255,255,24,14,195,16,255,255,255,255,255,255 52060 DATA255,255,255,255,255,255,255,255,255,255,255,255 52070 DATA255,255,24,14,195,16,255,255,255,255,255,255 52080 DATA255,255,255,255,255,255,255,255,255,255,255,255 52090 DATA49,28,31,21,195,16,255,255,255,255,255,255 52100 DATA255,255,255,255,255,255,255,255,255,255,255,255 52110 DATA255,255,31,21,195,16,255,255,255,255,255,255 52120 DATA255,255,255,255,255,255,255,255,255,255,255,255 52130 DATA99,56,31,21,49,28,255,255,255,255,255,255 52140 DATA255,255,255,255,255,255,255,255,255,255,255,255 52150 DATA255,255,255,255,255,255,255,255,255,255,255,255 52160 DATA255,255,255,255,255,255,255,255,255,255,255,255 52170 DATA255,255,255,255,255,255,255,255,255,255,255,255 52180 DATA255,255,255,255,255,255,255,255,255,255,255,255 52190 DATA255,255,255,255,255,255,255,255,255,255,255,255 52200 DATA255,255,255,255,255,255,255,255,255,255,255,255 52210 DATA255,255,255,255,255,255,255,255,255,255,255,255 52220 DATA255,255,255,255,255,255,255,255,255,255,255,255 52230 DATA255,255,255,255,255,255,255,255,255,255,255,255 52240 DATA255,255,255,255,255,255,255,255,255,255,255,255 52250 DATA255,255,255,255,255,255,255,255,255,255,255,255 52260 DATA255,255,255,255,255,255,255,255,255,255,255,255 52270 DATA255,255,255,255,255,255,255,255,255,255,255,255 52280 DATA255,255,255,255,255,255,255,255,255,255,255,255 52290 DATA255,255,255,255,255,255,255,255,255,255,255,255 52300 DATA255,255,255,255,255,255,255,255,255,255,255,255 52310 DATA255,255,255,255,255,255,255,255,255,255,255,255 52320 DATA255,255,255,255,255,255,255,255,255,255,255,255 stop tok64 (bastext 1.0)