10 PROGRAM FRUITMA 20 30 PROC TEKST 40 P.$12;TOON(3) 50 VT.6;HT.0;P."Voor lofbetuigingen en"' 60 VT.7;HT.0;P."opbouwende kritiek:" 70 VT.10;HT.5;P."Gerrit Bronsveld" 80 VT.11;HT.5;P."Weytackers 158" 90 VT.12;HT.5;P."7824 PH Emmen" 100 VT.13;HT.5;P."tel 05910-23337" 110 VT.16;HT.0;P."PS wie kan de draai routine" 120 VT.17;HT.0;P." sneller en of storings vrij" 130 VT.18;HT.0;P." maken?" 140 PEND 150 160 PROC DRAAI(W) 170 ?#3D9=W:#F;LINK#6100 180 PEND 190 200 FUNCTION ADD(X,Y) 210 IF X<0 OR X>255;X=X-255 220 IF Y<0 OR Y>191;Y=Y-191 230 ADD=#97E0+(X/8)-(Y*32) 240 FEND 250 260 PROC INIT,A,I 270 *SET 280 *NOMON 290 *L.OMKEER 6000 300 *L.DRAAI 6100 310 *L.SYMBOOL 5800 320 *2440VDU 330 P.$12;VT.14;HT.0 340 *L.CONTROL 8000 350 *D. 360 TOON(5) 370 DO 380 F.I=1TO2 390 OM.ADD(200,22),5,20 400 PA.20 410 NEXT 420 KEYA 430 U.A<>0 440 *L.PUNTEN 8000 450 *D. 460 TOON(5) 470 DO 480 F.I=1TO2 490 OM.ADD(8,28),9,16 500 PA.20 510 NEXT 520 KEYA 530 U.A<>0 540 *L.SCHERM 8000 550 *D. 560 TOON(5) 570 PEND 580 590 PROC FUTOP(:F),I 600 FOR I=B TO B+F 610 BEEP40-I,20;HT.3;P.B+I;HT.0 620 NEXT 630 B=B+F;FUTURE(0,F) 640 F=0 650 PEND 660 670 PROC TOON(K),A 680 IFK=5;IFA.R.%2;K=6 690 CASE K OF 700 <1> BEEP80,10;BEEP60,20 710 BEEP40,30 720 <2> BEEP30,40 730 <3> BEEP205,60;BEEP205,60 740 BEEP205,60;BEEP246,120 750 <4> BEEP255,20 760 <5> BEEP45,60;BEEP39,60 770 BEEP50,100;BEEP102,60 780 BEEP68,100 790 <6> BEEP50,100;BEEP50,100 800 BEEP50,50;BEEP50,100 810 BEEP68,100 820 CEND 830 PEND 840 850 PROC KNIPFU(F),I 860 CASE F OF 870 <4> OM.ADD(16,124),4,15 880 <10>OM.ADD(16,140),4,15 890 <20>OM.ADD(16,156),4,15 900 CEND 910 PEND 920 930 PROC KNIPPER(K),I,J,W 940 W=K:#FF;PA.7 950 IFW&16;OM.#93A2,4,11 960 IFW&32;OM.#96A2,4,11 970 IFW& 1;OM.#96A8,3,11 980 IFW& 2;OM.#96AC,3,11 990 IFW& 4;OM.#96B0,3,11 1000 IFW& 8;OM.#96B4,3,11 1010 IFW&64;OM.#96B9,4,11 1020 IFW&128;OM.#93B9,4,11 1030 PEND 1040 1050 PROC AUTOHOLD(:W),V 1060 V=W 1070 IFRR2<>0;IFRR2=RR5;W=W|1;W=W|2 1080 IFRR5<>0;IFRR5=RR8;W=W|2;W=W|4 1090 IFRR8<>0;IFRR8=RR11;W=W|4;W=W|8 1100 IFRR2<>0;IFRR2=RR8;W=W|1;W=W|4 1110 IFRR5<>0;IFRR5=RR11;W=W|2;W=W|8 1120 IFW=15;W=0 1130 IFW<>V;TOON(2);TOON(2) 1140 PEND 1150 1160 PROC SCAN(F:W,Y),A,V,Q,Z 1170 XIF Y%2;G.1190 1180 ELSE G.1460 1190 XIF F>0;Q=0 1200 ELSE Q=#10 1210 Z=0 1220 DO 1230 IFF>0;KNIPFU(F) 1240 KNIPPER(W|Q) 1250 IFZ=0;AUTOHOLD(W);Z=1 1260 KEYA;V=W 1270 CASE A OF 1280 <#46> IFF>0;W=W|16 1290 <#54> W=0 1300 KNIPPER(W:#FF) 1310 <#31> W=W|1 1320 <#32> W=W|2 1330 <#33> W=W|4 1340 <#34> W=W|8 1350 <#20> W=W|64 1360 <#51> W=W|128 1370 CEND 1380 XIFW<>V;TOON(2) 1390 ELSE IFA<>0;TOON(4) 1400 IFF>0;KNIPFU(F) 1410 KNIPPER(W|Q) 1420 IFF>0;IFW|#EF=#FF;FUTOP(F) 1430 U.W&64 OR W&128 1440 IF W%16<>0;Y=Y+1 1450 G.1640 1460 XIF F>0;Q=#2F 1470 ELSE Q=#3F 1480 DO 1490 IFF>0;KNIPFU(F) 1500 KEYA;V=W 1510 KNIPPER(W|Q) 1520 CASE A OF 1530 <#46> IFF>0;W=W|16 1540 <#20> W=W|64 1550 <#51> W=W|128 1560 CEND 1570 XIF W<>V;TOON(2) 1580 ELSE IFA<>0;TOON(4) 1590 IFF>0;KNIPFU(F) 1600 KNIPPER(W|Q) 1610 IFF>0;IFW|#EF=#FF;FUTOP(F) 1620 U.W&64 OR W&128 1630 Y=3 1640 PEND 1650 1660 PROC PUNTEN(G:B,C),D,E,I 1670 D=0;E=0 1680 CASE G OF 1690 <1> D=D+2 1700 <2> D=D+4 1710 <3> D=D+10 1720 <4> D=D+20 1730 <5> E=E+2 1740 <6> E=E+4 1750 <7> E=E+10 1760 <8> E=E+20 1770 CEND 1780 XIF E<>0 1790 FOR I=1 TO E 1800 BEEP40-I,20;HT.3;P.I+B;HT.0 1810 N. 1820 ELSE 1830 XIF D<>0 1840 FOR I=1 TO D 1850 BEEP40-I,20;HT.34;P.I+C;HT.0 1860 N. 1870 ELSE 1880 C=C+D;B=B+E 1890 PEND 1900 1910 PROC GOKKEN(:G,F),A,I,J,V 1920 DO;DO 1930 F.I=G TO G+1 1940 F.J=0TO1 1950 BEEP96-I*8,(20-I)*J 1960 OM.(#8C79-I*#200+I/5*#7E9),4,15 1970 N.;N. 1980 KEYA 1990 U.A<>0 2000 IFA<>#20;G.2060 2020 XIF A.R.%2 2030 FUTURE(0,F);F=0 2040 G=G+1;IFG>8;G=8 2050 ELSE G=0;TOON(3) 2060 U.G=0 OR G=8 OR A=#54 2070 IF A=#54;FUTURE(0,F);F=0 2080 PEND 2090 2100 PROC VERGELIJK(:G),A,H 2110 A=RR5;H=0 2120 IF RR 2=1;G=1 2130 IF RR11=1;G=1 2140 IF RR 5=1;IFRR 2=1;G=2 2150 IF RR 8=1;IFRR11=1;G=2 2160 IFRR 2=A;IFRR 8=A;H=3 2170 IFRR11=A;IFRR 8=A;H=3 2180 IFRR 2=A;IFRR 8=A;IFRR11=A;H=4 2190 CASE H OF 2200 <3> IFA<16;G=7 2210 IFA<13;G=5 2220 IFA< 8;G=3 2230 IFA= 0;G=0 2240 <4> IFA<16;G=8 2250 IFA<13;G=6 2260 IFA< 8;G=4 2270 IFA= 0;G=0 2280 CEND 2290 PEND 2300 2310 PROC VULARRAY 2320 RR 1=?#C2;RR 2=?#C1;RR 3=?#C0 2330 RR 4=?#C6;RR 5=?#C5;RR 6=?#C4 2340 RR 7=?#CA;RR 8=?#C9;RR 9=?#C8 2350 RR10=?#CE;RR11=?#CD;RR12=?#CC 2360 PEND 2370 2380 PROC FTEST(A,B:F),I,H 2390 H=0;F=0 2400 FOR I=A TO B 2410 IF SSI>0;H=H+1 2420 NEXT 2430 XIF (B-A+1)=H 2440 IFH<13 F=20 2450 IFH<10 F=10 2460 IFH<7 F=4 2470 ELSE 2480 PEND 2490 2500 PROC FUTURE(D:F),I,X,Y 2510 I=1 2520 FOR X=64 TO 160 S.32 2530 FOR Y=108 TO 180 S.28 2540 CASE D OF 2550 <1> IFRRI=I;IFSSI=0;TOON(1); SSI=SSI+1 2560 IFRRI=15;IFSSI=0;TOON(1); SSI=SSI+1 2570 IFSSI=1;OM.ADD(X,Y),3,20; SSI=SSI+1 2580 IFRRI=0;IFSSI>0;TOON(3); SSI=0;OM.ADD(X,Y),3,20 2590 <0> IFSSI>0;OM.ADD(X,Y),3,20; SSI=0;TOON(4) 2600 <2> OM.ADD(X,Y),3,20 2610 CEND 2620 I=I+1 2630 NEXT 2640 NEXT 2650 FTEST(1,6,H);IFF0;TOON(5) 2720 PEND 2730 2740 PROC BONUS(:C,L,F),I,J,Z 2750 Z=0 2760 FOR I=#C0 TO #C2 2770 FOR J=0 TO 12 S.4 2780 IF ?(I+J)=15;Z=1 2790 NEXT 2800 NEXT 2810 XIF Z=1;L=2 2820 TOON(5) 2830 FOR I=1 TO 20 2840 BEEP40-I,20;HT.34;P.I+C;HT.0 2850 NEXT 2860 C=C+20 2870 F=0;FUTURE(0,F) 2880 ELSE L=3 2890 PEND 2900 2910 REM HOOFDPROG 2920 DIM RR12,SS12 2930 T=?#3FC;CLEAR4 2940 @=4;?#3FC=#60;INIT 2950 F.I=1TO12;SSI=0;RRI=I+1;N. 2960 F.I=108 TO 170 S.16 2970 OM.ADD(16,I),4,15 2980 OM.ADD(200,I),4,15 2990 NEXT 3000 FUTURE(2,F);KNIPPER(0) 3010 W=0;B=0;C=10;Y=1;F=0;G=0;L=0 3020 HT.3;P.B;HT.0 3030 HT.34;P.C;HT.0 3040 DO 3050 W=0;SCAN(F,W,Y) 3060 IF W|#7F=#FF;?#3FC=T;TEKST;E. 3070 XIFB>0;B=B-1;HT.3;P.B;L=0;HT.0 3080 ELSE L=1 3090 C=C-1;HT.34;P.C;HT.0 3100 DRAAI(W) 3110 KNIPPER(W:#FF) 3120 VULARRAY 3130 G=0;VERGELIJK(G) 3140 F=0;FUTURE(1,F) 3150 IFL=0;BONUS(C,L,F) 3160 IFL=2;Y=0 3170 IFL=3;IFY=3;Y=1 3180 IFG>0;IFL%2;GOKKEN(G,F);Y=0 3190 IFG>0;IFL%2;PUNTEN(G,B,C) 3200 U.0