start tok64 d64-v0sKZW 0 DIMsu(8,8):DIMsl(8,8,8):FORi=1TO5:ra(i)=0:NEXT:DIMaz(4,15):DIMa(25) 1 s=54272:FOR l=s TO s+24:POKE l,0:NEXT 2 DIM h(2,400),l(2,400),c(2,400),b(10,10),a$(12) 3 DIM fq(14):POKE53280,2:POKE53281,0 4 v(0)=33:v(1)=65:v(2)=33:PRINT"{clear}{down*12}{right*17}{light gray}v[nta" 5 POKEs+10,8:POKEs+22,128:POKEs+23,244 6 FOR i=0 TO 11:READfq(i):NEXT:qf=277:FORk=0TO2:i=0 7 READnm:qf=qf-1:IFqf>99THENPRINT"{home}{down}"TAB(2)qf 8 IFqf=<99ANDqf>9THENPRINT"{home}{down}"TAB(3)qf 9 IFqf=<9THENPRINT"{home}{down}"TAB(4)qf 13 IF nm = 0THEN 25 14 wa = v(k):IF nm<0THEN nm=-nm:wa=1 15 dr%=nm/128:oc%=(nm-128*dr%)/16 16 nt=nm-128*dr%-16*oc% 17 fr=fq(nt) 18 IF oc%=7THEN20 19 FOR j=6 TO oc% STEP-1:fr=fr/2:NEXT 20 hf%=fr/256:lf%=fr-256*hf% 21 IF dr%=1 THEN h(k,i)=hf%:l(k,i)=lf%:c(k,i)=wa:i=i+1:GOTO7 22 FOR j=1 TO dr%-1:h(k,i)=hf%:l(k,i)=lf%:c(k,i)=wa:i=i+1:NEXT 23 h(k,i)=hf%:l(k,i)=lf%:c(k,i)=wa-1 24 i=i+1:GOTO7 25 IF i>im THEN im=i 26 NEXT 50 POKE53280,3:POKE53281,3 60 PRINT"{blue}{clear}{down*4}{right*5}{cm asterisk}{reverse on}{cm asterisk}{reverse off} {reverse on}{sh pound}{reverse off}{sh pound}{space*2}{reverse on}{sh pound} {cm asterisk}{reverse off}{space*2}{reverse on}{space*5}{reverse off} {reverse on}{space*4}{reverse off} {cm asterisk}{reverse on}{cm asterisk}{reverse off} {reverse on}{sh pound}{reverse off}{sh pound}" 70 PRINT"{right*6}{cm asterisk}{reverse on} {reverse off}{sh pound}{space*2}{reverse on}{sh pound}{reverse off}{sh pound} {cm asterisk}{reverse on}{cm asterisk}{reverse off}{space*3}{reverse on} {reverse off}{space*5}{reverse on}{sh pound}{reverse off}{sh pound}{space*2}{cm asterisk}{reverse on} {reverse off}{sh pound}" 80 PRINT"{right*7}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*4}{reverse on}{sh pound}{reverse off}{sh pound}{space*4}{reverse on} {reverse off}" 90 PRINT"{right*7}{reverse on} {reverse off}{space*3}{reverse on}{space*5}{reverse off}{space*3}{reverse on} {reverse off}{space*3}{reverse on}{sh pound}{reverse off}{sh pound}{space*5}{reverse on} {reverse off}" 100 PRINT"{right*7}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*3}{reverse on}{space*4}{reverse off}{space*3}{reverse on} {reverse off}":PRINT:PRINT:PRINT 110 PRINT"{right*3}ett hasardspel med stora chanser" 120 PRINT"{right*3}och heta k[nslor" 130 PRINT"{right*3}{down*2}pr m lars gihl" 140 PRINT "{right*3}{down*8}antal spelare(1 - 4) ?":GOSUB7500 150 PRINT"{clear}":POKE53280,14:POKE53281,2 170 IFa=>1ANDa=<4THEN195 175 PRINT"{light gray}{home}{down}{right*16}yatzy" 195 GOSUB1170 200 t=1024:f=55296 220 FORk=0TOa 225 REM lodr[ta linjer 230 l1=118-4*k:l2=958-4*k:GOSUB970 240 IFk=0THEN320 245 REM v]gr[ta linjer 250 r1=118-4*k:r2=117:GOSUB950 260 r1=198-4*k:r2=197:GOSUB950 270 r1=958-4*k:r2=957:GOSUB950 274 NEXTk 275 REM mitten 280 FORk=2TOa 290 POKEt+122-k*4,114:POKEf+122-k*4,15 300 POKEt+202-k*4,91:POKEf+202-k*4,15 310 POKEt+962-k*4,113:POKEf+962-k*4,15 320 NEXTk 330 POKEt+118-a*4,112:POKEf+118-a*4,15 340 POKEt+198-a*4,107:POKEf+198-a*4,15 350 POKEt+958-a*4,109:POKEf+958-a*4,15 360 REM v[nsterkant 370 POKEt+118,110:POKEf+118,15 380 POKEt+198,115:POKEf+198,15 390 POKEt+958,125:POKEf+958,15 400 IFa=1THENx=28 410 IFa=2THENx=24 420 IFa=3THENx=20 430 IFa=4THENx=16 440 GOTO990 721 FORj=1TO5:FORn=10TO200:POKE54273,n:NEXT:NEXT:POKE54296,0:RETURN 950 FORi=r1TOr2:POKEt+i,67:POKEf+i,15 960 NEXTi:RETURN 970 FORi=l1TOl2STEP40:POKEt+i,66:POKEf+i,15 980 NEXTi:RETURN 990 PRINT"{home}{down*5}"TAB(x)"ettor" 1000 PRINTTAB(x)"tv]or" 1010 PRINTTAB(x)"treor" 1020 PRINTTAB(x)"fyror" 1030 PRINTTAB(x)"femmor" 1040 PRINTTAB(x)"sexor" 1050 PRINTTAB(x)"summa" 1060 PRINTTAB(x)"bonus" 1070 PRINTTAB(x)"1 par" 1080 PRINTTAB(x)"2 par" 1090 PRINTTAB(x)"tretal" 1100 PRINTTAB(x)"fyrtal" 1110 PRINTTAB(x)"l str" 1120 PRINTTAB(x)"s str" 1130 PRINTTAB(x)"k]k" 1140 PRINTTAB(x)"chans" 1150 PRINTTAB(x)"yatzy" 1160 PRINTTAB(x)"summa" 1162 GOTO1310 1170 FORi=1TOa 1175 PRINT"{light gray}{home}{down}{right*16}yatzy" 1180 PRINT"{home}{right*6}{down*12}skriv initialer f{pound}r spelare";i 1200 PRINT"{down}{right*6}";:INPUTa$(i) 1201 PRINT"{clear}" 1202 IFLEN(a$(i))>0ANDLEN(a$(i))<=3THEN1220 1203 PRINT"{clear}{down}{right*16}yatzy" 1204 PRINT"{down*8}{right*9}skriv {reverse on}1 - 3{reverse off} initialer" 1205 GOSUB7420 1206 GOTO1180 1220 NEXTi 1221 POKE53265,PEEK(53265)AND239 1230 PRINT"{clear}{light gray}{right*16}y a t z y" 1250 ONaGOTO1260,1270,1280,1290 1260 PRINTTAB(115)a$(1):GOTO1300 1270 PRINTTAB(111)a$(1):PRINTTAB(115)"{up*3}"a$(2):GOTO1300 1280 PRINTTAB(107)a$(1):PRINTTAB(111)"{up*3}"a$(2):PRINTTAB(115)"{up*4}"a$(3) 1285 GOTO1300 1290 PRINTTAB(103)a$(1):PRINTTAB(107)"{up*3}"a$(2):PRINTTAB(111)"{up*3}"a$(3); 1291 PRINTTAB(115)"{up*2}"a$(4) 1300 RETURN 1310 l1=120+1:l2=840+1:GOSUB970 1320 l1=120+5:l2=840+5:GOSUB970 1330 FORk=80TO880STEP160 1340 r1=k+2:r2=k+4:GOSUB950 1350 NEXTk 1360 POKEt+81,112:POKEf+81,15 1370 POKEt+881,109:POKEf+881,15 1380 POKEt+885,125:POKEf+885,15 1390 POKEt+85,110:POKEf+85,15 1400 FORi=241TO721STEP160 1410 POKEt+i,107:POKEf+i,15:NEXTi 1420 FORi=245TO725STEP160 1430 POKEt+i,115:POKEf+i,15:NEXTi 1432 FORi=1TO21:READa(i):NEXTi:GOTO1444 1444 PRINT"{home}{down*4}1{down*4}{left}2{down}{left}{down*3}3{left}{down*4}4{down*2}{left}{down*2}5":mo=0:POKE53265,PEEK(53265)OR16 1445 g=1:FORi=1TO6:FORj=1TO6:b(i,j)=0:NEXTj:NEXTi 1446 q=1 1447 PRINT"{home}{down*21}{right*6}du har";4-q 1448 PRINT"{right*6}kast kvar" 1449 PRINT"{right}spelare ";a$(g);:PRINT 1450 PRINT"{home}{down*2}{right*6}sl] valfritt" 1460 PRINT"{right*6}antal t[rningar":PRINT 1470 PRINT"{right*6}tryck" 1480 PRINT"{right*6}0 - 5" 1490 PRINT"{right*6}{reverse on}return{reverse off}" 1495 b$="0" 1500 INPUT"{home}{down}{right*6}";b$ 1510 PRINT"{home}{right*6}{down}{space*16}" 1511 PRINT"{right*6}{space*16}" 1512 PRINT"{right*6}{space*16}" 1513 PRINT"{right*6}{space*9}" 1514 PRINT"{right*6}{space*9}" 1515 PRINT"{right*6}{space*9}" 1516 PRINT"{right*6}{space*9}" 1517 PRINT"{right*6}{space*9}" 1518 PRINT"{right*6}{space*9}" 1519 PRINT"{right*6}{space*9}":GOSUB7280 1520 IFqr>0THEN1450 1521 IFb$="0"THEN1611 1525 v=INT(5+6*RND(0)) 1530 FORi=1TOv 1540 FORj=1TOLEN(b$) 1550 c$=MID$(b$,j,1):tk=VAL(c$) 1560 s=INT(1+6*RND(0)):b(g,tk)=s 1562 IFs=1THENz=1:IFz=1THENy=1 1563 IFs=3THENz=4:IFz=4THENy=6 1564 IFs=5THENz=11:IFz=11THENy=15 1565 IFs=2THENz=2:IFz=2THENy=3 1566 IFs=4THENz=7:IFz=7THENy=10 1567 IFs=6THENz=16:IFz=16THENy=21 1570 ONtkGOTO1571,1572,1573,1574,1575 1571 PRINT"{home}{down*3}{right*2}{space*3}{down}{left*3}{space*3}{down}{left*3}{space*3}":GOTO1590 1572 PRINT"{home}{down*7}{right*2}{space*3}":GOTO1580 1573 PRINT"{home}{down*11}{right*2}{space*3}":GOTO1580 1574 PRINT"{home}{down*15}{right*2}{space*3}":GOTO1580 1575 PRINT"{home}{down*19}{right*2}{space*3}":GOTO1580 1580 PRINT"{right*2}{space*3}":PRINT"{right*2}{space*3}" 1590 FORk=zTOy 1600 POKEt+a(k)+(tk-1)*160,81:POKEf+a(k)+(tk-1)*160,15 1610 NEXTk:GOSUB9000:NEXTj:NEXTi 1611 q=q+1:IFq<=3THEN1447 1620 PRINT"{home}{down*21}{right*6}{space*9}" 1630 PRINT"{right*6}{space*9}" 1640 PRINT"{right}{space*14}":GOTO1650 1645 GOSUB7000 1650 PRINT"{home}{right*6}{down*3}var vill" 1660 PRINT"{right*6}du placera" 1670 PRINT"{right*6}resultatet" 1671 PRINT"{right*6}spelare" 1672 PRINT"{right*6}"a$(g) 1680 INPUT"{home}{down}{right*6}";bb$:POKEt+45,32:POKEf+45,15 1690 IFbb$="ettor"THENbb=200:r=1:GOTO1911 1700 IFbb$="tv]or"THENbb=240:r=2:GOTO1911 1710 IFbb$="treor"THENbb=280:r=3:GOTO1911 1720 IFbb$="fyror"THENbb=320:r=4:GOTO1911 1730 IFbb$="femmor"THENbb=360:r=5:GOTO1911 1740 IFbb$="sexor"THENbb=400:r=6:GOTO1911 1745 IFbb$="1 par"THENbb=520:GOTO1916 1750 IFbb$="2 par"THENbb=560:GOTO2060 1760 IFbb$="tretal"THENbb=600:GOTO2170 1770 IFbb$="fyrtal"THENbb=640:GOTO2250 1775 IFbb$="l str"THENbb=680:GOTO2370 1780 IFbb$="s str"THENbb=720:GOTO2400 1790 IFbb$="k]k"THENbb=760:GOTO2430 1800 IFbb$="chans"THENbb=800:GOTO2500 1810 IFbb$="yatzy"THENbb=840:GOTO2520 1820 PRINT"{home}{down*8}{right*6}du m]ste" 1830 PRINT"{right*6}skriva" 1840 PRINT"{right*6}exakt som" 1850 PRINT"{right*6}det st]r" 1860 POKE54296,0:POKE54296,15:POKE54278,240:POKE54277,0:POKE54276,33 1861 FORj=1TO5:FORn=10TO200:POKE54273,n:NEXT:NEXT:POKE54296,0 1870 PRINT"{home}{down*8}{right*6}{space*9}" 1880 PRINT"{right*6}{space*9}" 1890 PRINT"{right*6}{space*9}" 1900 PRINT"{right*6}{space*9}" 1901 PRINT"{right*6}{space*9}" 1902 PRINT"{right*6}{space*9}" 1903 PRINT"{home}{down}{space*16}" 1910 GOTO1650 1911 su=0:az(g,r)=az(g,r)+1:IFaz(g,r)>1THEN1645 1912 FORi=1TO5:IFb(g,i)<>rTHEN1915 1914 su=su+b(g,i) 1915 NEXTi:GOSUB7150:GOTO4000 1916 REM ett par 1920 su=0:az(g,7)=az(g,7)+1:IFaz(g,7)>1THEN1645:FORi=1TO4:lu(i)=0:NEXTi 1930 FORi=1TO4:FORj=i+1TO5 1940 IFb(g,j)<>b(g,i)THEN1960 1950 lu(i)=b(g,j)+b(g,i) 1960 NEXTj:NEXTi 1970 FORi=1TO3 1980 FORj=1+iTO4 1990 IFlu(i)>=lu(j)THEN2030 2000 slask=lu(j) 2010 lu(j)=lu(i) 2020 lu(i)=slask 2030 NEXTj:NEXTi 2040 su=lu(1):IFsu=0THENsu=lu(2):IFsu=0THENsu=lu(3):IFsu=0THENsu=lu(4) 2050 GOTO4000 2060 REM tv] par 2065 az(g,8)=az(g,8)+1:IFaz(g,8)>1THEN1645 2070 su=0:FORi=1TO4:FORj=i+1TO5:su(i,j)=0:NEXTj:NEXTi:x=o 2080 FORi=1TO4:FORj=i+1TO5 2090 IFb(g,i)<>b(g,j)THEN2140 2100 su(i,j)=b(g,i)+b(g,j) 2110 b(g,i)=0:b(g,j)=0 2120 IFsu(i,j)>0THENx=x+1 2130 su=su+su(i,j) 2140 NEXTj:NEXTi 2150 IFx<=1THENsu=0 2160 GOTO4000 2170 REM tretal 2175 az(g,9)=az(g,9)+1:IFaz(g,9)>1THEN1645 2180 su=0:x=0 2190 FORi=1TO3:FORj=i+1TO4:FORn=j+1TO5 2200 IFb(g,i)<>b(g,j)ORb(g,j)<>b(g,n)THEN2230 2205 IFx>=1THEN2230 2210 sl(i,j,n)=b(g,i)+b(g,j)+b(g,n) 2220 b(g,i)=0:b(g,j)=0:b(g,n)=0 2225 su=su+sl(i,j,n) 2226 x=x+1 2230 NEXTn:NEXTj:NEXTi 2240 GOTO4000 2250 REM fyrtal 2255 az(g,10)=az(g,10)+1:IFaz(g,10)>1THEN1645 2260 su=0:GOSUB2270:GOTO2310 2270 FORi=1TO4:FORj=i+1TO5 2280 IFb(g,i)<=b(g,j)THEN2300 2290 slask=b(g,j):b(g,j)=b(g,i):b(g,i)=slask 2300 NEXTj:NEXTi:RETURN 2310 IFb(g,1)=b(g,2)ANDb(g,2)=b(g,3)ANDb(g,3)=b(g,4)THEN2340 2320 IFb(g,2)=b(g,3)ANDb(g,3)=b(g,4)ANDb(g,4)=b(g,5)THEN2360 2330 GOTO4000 2340 FORi=1TO4 2350 su=su+b(g,i):NEXTi:GOTO4000 2360 FORi=2TO5:su=su+b(g,i):NEXTi:GOTO4000 2370 REM l str 2375 az(g,11)=az(g,11)+1:IFaz(g,11)>1THEN1645 2380 su=0:GOSUB2270 2390 IFb(g,1)=1ANDb(g,2)=2ANDb(g,3)=3ANDb(g,4)=4ANDb(g,5)=5THENsu=15 2395 GOTO4000 2400 REM s str 2405 az(g,12)=az(g,12)+1:IFaz(g,12)>1THEN1645 2410 su=0:GOSUB2270 2415 IFb(g,1)=2ANDb(g,2)=3ANDb(g,3)=4ANDb(g,4)=5ANDb(g,5)=6THENsu=20 2420 GOTO4000 2430 REM k]k 2435 az(g,13)=az(g,13)+1:IFaz(g,13)>1THEN1645 2440 su=0:GOSUB2270 2450 IFb(g,1)=b(g,2)ANDb(g,2)=b(g,3)ANDb(g,4)=b(g,5)ANDb(g,3)<>b(g,4)THEN2480 2460 IFb(g,1)=b(g,2)ANDb(g,2)<>b(g,3)ANDb(g,3)=b(g,4)ANDb(g,4)=b(g,5)THEN2480 2470 GOTO2490 2480 FORi=1TO5:su=su+b(g,i):NEXTi 2490 GOTO4000 2500 REM chans 2505 az(g,14)=az(g,14)+1:IFaz(g,14)>1THEN1645 2510 su=0:FORi=1TO5:su=su+b(g,i):NEXTi:GOTO4000 2520 REM yatzy 2525 az(g,15)=az(g,15)+1:IFaz(g,15)>1THEN1645 2530 su=0:IFb(g,1)<=0THEN4000 2540 IFb(g,1)=b(g,2)ANDb(g,2)=b(g,3)ANDb(g,3)=b(g,4)ANDb(g,4)=b(g,5)THENsu=50 2550 GOTO4000 4000 su$=STR$(su) 4010 FORi=2TOLEN(su$) 4020 us$=MID$(su$,i,1):u=VAL(us$) 4030 POKEt+bb+37-(LEN(su$)-i)-4*(a-g),u+48:POKEf+bb+37-(LEN(su$)-i)-4*(a-g),15 4040 NEXTi 4050 PRINT"{home}{right*6}{down}{space*10}" 4060 PRINT"{right*6}{space*10}" 4070 PRINT"{right*6}{space*10}" 4080 PRINT"{right*6}{space*10}" 4090 PRINT"{right*6}{space*10}" 4091 PRINT"{right*6}{space*10}" 4092 PRINT"{right*6}{space*10}" 5000 ra(g)=su+ra(g):ra=ra(g) 5010 ra$=STR$(ra) 5020 FORi=LEN(ra$)TO2STEP-1 5030 ar$=MID$(ra$,i,1):aa=VAL(ar$) 5040 POKEt+917-(LEN(ra$)-i)-4*(a-g),aa+48:POKEf+917-(LEN(ra$)-i)-4*(a-g),15 5045 NEXTi 5050 g=g+1:mo=mo+1:IFg<=aTHEN1446 5060 IFmora(j)THEN5100 5090 slask=ra(j):ra(j)=ra(i):ra(i)=slask 5095 k$=a$(j):a$(j)=a$(i):a$(i)=k$ 5100 NEXTj:NEXTi 5110 PRINT"{home}{space*16}" 5111 PRINT"{space*16}" 5112 PRINT"{space*16}" 5113 PRINT"{space*16}" 5114 PRINT"{space*16}" 5115 PRINT"{space*16}" 5116 PRINT"{space*16}" 5117 PRINT"{space*16}" 5118 PRINT"{space*16}" 5119 PRINT"{space*16}" 5120 PRINT"{space*16}" 5121 PRINT"{space*16}" 5122 PRINT"{space*16}" 5123 PRINT"{space*16}" 5124 PRINT"{space*16}" 5125 PRINT"{space*16}" 5126 PRINT"{space*16}" 5127 PRINT"{space*16}" 5128 PRINT"{space*16}" 5129 PRINT"{space*16}" 5130 PRINT"{space*16}" 5131 PRINT"{space*16}" 5132 PRINT"{space*16}" 5133 PRINT"{space*16}" 5140 PRINT"{home}{down*3} segrare" 5145 PRINT"{right}blev ";a$(1) 5150 PRINT"{right}{down*14}vill du" 5160 PRINT"{right}spela en" 5170 PRINT"{right}g]ng till?({reverse on}j/n{reverse off})"; 5180 GETm$:IFm$=""THEN5180 5190 IFm$="j"THENRUN 5200 PRINT"{clear}":END 7000 PRINT"{home}{right*6}{down*3}{space*9}" 7010 PRINT"{right*6}{space*10}" 7020 PRINT"{right*6}{space*10}" 7025 PRINT"{right*6}{space*10}" 7030 PRINT"{home}{down}{right*6}den raden" 7040 PRINT"{right*6}har du" 7050 PRINT"{right*6}anv[nt" 7060 PRINT"{right*6}en g]ng" 7070 PRINT"{right*6}tidigare":POKE54296,0 7071 POKE54296,0:POKE54296,15:POKE54278,240:POKE54277,0:POKE54276,33 7072 FORj=1TO5:FORn=10TO200:POKE54273,n:NEXT:NEXT:POKE54296,0 7080 PRINT"{home}{right*6}{down}{space*9}" 7090 PRINT"{right*6}{space*9}" 7100 PRINT"{right*6}{space*9}" 7110 PRINT"{right*6}{space*9}" 7120 PRINT"{right*6}{space*9}" 7130 PRINT"{right*6}{space*9}" 7131 az(g,r)=az(g,r)-1 7135 RETURN 7150 y(g)=su+y(g):zh=0 7190 vi$=STR$(y(g)) 7200 FORi=LEN(vi$)TO2STEP-1 7210 iv$=MID$(vi$,i,1):vv=VAL(iv$) 7220 POKEt+477-(LEN(vi$)-i)-4*(a-g),vv+48:POKEf+477-(LEN(vi$)-i)-4*(a-g),15 7225 NEXTi 7228 FORi=1TO6:zh=az(g,i)+zh:NEXTi 7230 IFzh<6ORy(g)<63THEN7260 7235 ra(g)=ra(g)+50 7240 POKEt+517-4*(a-g),48:POKEf+517-4*(a-g),15 7250 POKEt+516-4*(a-g),53:POKEf+516-4*(a-g),15 7260 RETURN 7280 qr=0 7285 FORi=1TOLEN(b$) 7290 u$=MID$(b$,i,1) 7300 IFu$="0"ORu$="1"ORu$="2"ORu$="3"ORu$="4"ORu$="5"THEN7410 7305 IFqr>=1THEN7410 7310 PRINT"{home}{right*6}{down}du f]r bara":PRINT 7320 PRINT"{right*6}anv[nda":PRINT 7340 PRINT"{right*6}{reverse on}0 - 5{reverse off}":POKE54296,0 7350 POKE54296,0:POKE54296,15:POKE54278,240:POKE54277,0:POKE54276,33 7351 FORj=1TO5:FORn=10TO200:POKE54273,n:NEXT:NEXT:POKE54296,0 7360 PRINT"{home}{down}{right*6}{space*12}":PRINT 7370 PRINT"{right*6}{space*10}":PRINT 7380 PRINT"{right*6}{space*10}":PRINT 7390 PRINT"{right*6}{space*10}":PRINT 7400 PRINT"{right*6}{space*10}" 7405 qr=1 7410 NEXTi:RETURN 7420 POKE54296,0:POKE54296,15:POKE54278,240:POKE54277,0:POKE54276,33 7421 FORj=1TO5:FORn=10TO200:POKE54273,n:NEXT:NEXT:POKE54296,0:RETURN 7500 POKEs+5,0:POKEs+6,240 7510 POKEs+12,85:POKEs+13,133 7520 POKEs+19,10:POKEs+20,197 7530 POKEs+24,31 7540 FOR i=0 TO im 7541 GETa$ 7542 IFa$="1"ORa$="2"ORa$="3"ORa$="4"THEN7596 7550 POKEs,l(0,i):POKEs+7,l(1,i):POKEs+14,l(2,i) 7560 POKEs+1,h(0,i):POKEs+8,h(1,i):POKEs+15,h(2,i) 7570 POKEs+4,c(0,i):POKEs+11,c(1,i):POKEs+18,c(2,i) 7580 FORt=1TO40:NEXT:NEXT 7590 FORt=1 TO200:NEXT:POKEs+24,0 7595 GOTO7500 7596 POKEs+24,0:a=VAL(a$):RETURN 7600 DATA 34334,36376,38539,40830 7610 DATA 43258,45830,48556,51443 7620 DATA 54502,57743,61176,64814 8000 DATA578,455,183,583,585,459,183 8001 DATA843,331,329,331,592,582,585,583 8002 DATA578,455,183,583,585,459,183 8003 DATA843,331,329,331,592,582,585,583 8004 REM block2 8005 DATA-256,338,338,331,852,338,338,336,848,336,336,329,850,336,336,331,843 8006 DATA322,455,178,583,585,459,178,843,331,329,331,592,582,585,583 8007 DATA-256,338,338,331,852,338,338,336,848,336,336,329,850,336,336,331,843 8008 DATA322,455,178,583,585,459,178,843,331,329,331,592,582,585,583 8009 DATA 0 8010 REM block1 8011 DATA-512,439,199,567,-512,439,203 8012 DATA567,-512,308,312,569,566,566,562 8013 DATA-512,439,199,567,-512,439,203 8014 DATA567,-512,308,312,569,566,566,562 8015 REMblock2 8016 DATA-256,315,315,311,832,315,315,313,825,311,308,310,827,313,313,311,823 8017 DATA306,434,199,562,-512,434,203,562,-512,308,312,569,562,566,562 8018 DATA-256,315,315,311,832,315,315,313,825,311,308,310,827,313,313,311,823 8019 DATA306,434,199,562,-512,434,203,562,-512,308,312,569,562,566,562 8020 DATA 0 8021 REM block1 8022 DATA-512,434,178,562,-512,434,178,562,-512,308 8024 DATA 308,564,562,562,562 8025 DATA-512,434,178,562,-512,434,178,562,-512,308 8026 DATA 308,564,562,562,562 8027 REM block2 8028 DATA-512,551,567,567,562,578,578,295,299,578,578,551,567,567,423 8029 DATA183,567,-512,423,183,567,-512,320,315,569,562,551,555 8030 DATA-512,551,567,567,562,578,578,295,299,578,578,551,567,567,423 8031 DATA183,567,-512,423,183,567,-512,320,315,569,562,551,555 8032 DATA0 8033 DATA163,122,204,122,163,204,122,124,202,204,122,124,163,202,204,122,124,162 8034 DATA164,202,204 9000 ii=54272:POKEii+1,40*s 9001 POKEii+5,9 9002 POKEii+15,15 9003 POKEii+24,15 9004 POKEii+4,21 9005 FORtt=1TO3:NEXTtt:POKEii+24,0:RETURN stop tok64 (bastext 1.0)