PR?;!6dD:\a6=?D12345<t(1,f+g+4)=491+(g-1)*4:t(2,f+g)=-12 :t(2,f+g+4)=-15:g zt(1,79O)=491:t(2,79O)=-11 :t(1,80P)=524:t(2,80P)=-13   udg  !7950:f=""""+7  r:f,r:f "L24,24,60<,126~,126~,126~,60<,24 ? @gewonnen  J$f=18:n$(sp,f)=" "f Tkl;20,1;19;1,21;9 ;31;2,21;31;2,22+(f/2);n$(sp,f);3,21;31;5,21;7;" heeft ";6,21;" gewonnen " YUf=16:kl=kl+3*(kl=1)-3*(kl=4):9;kl;11+f,17;w$(zet-6+f);" ";s$(zet-6+f):f ^g=.015zu\:h=7 hf=0142 rUg+.5*(f=14),h+f-(f>4)-(f=14)-7*(h0f=14) |f:h08080 h=-2:8040h  20 !u.3,10 :9 ,22;" Druk ";10 ,22;" een ";11 ,22;" toets ":450 !""9200# ! 8610! #(** GEBR.AANW. + init * # 9600% #t"Deze variant van het spel:"'" ""BOTER,KAAS,EIEREN"" wordt ge-"'" speeld op een veld met 4 rijen"'" van 4 pennen." #W"Twee spelers laten ombeurten een"'" gekleurde kraal op een van de"'" pennen zakken." #Z"Wie erin slaagt 4 kralen van z'n"'" kleur op een (1) rij te krijgen"'" heeft gewonnen." #f"LET OP:Een rij mag een lijn in"'" het horizontale,het verticale,"'" of in een diagonaal vlak zijn!" #:10 ;"DRUK EEN TOETS" # 0 # 9300T$ #:9600%:::2;"NOG EEN SPELLETJE ? (J/N)" #&="n"7:7:0:: $=""9210# $N:g=015:"o-";:g:::2;"MET DEZELFDE SPELERS ? (J/N)" $="j"9400$ $"=""9240$ $T~9600%:::2;"HOEVEEL SPELERS ? ( 1 of 2 )"'';2;"( 1 speler = je speelt tegen";18;"de SPECTRUM!)" $Y] '''"(Kies voor een demonstratie -2- spelers, en noem beide spelers 'SPECTRUM')" $^n$(2,8):m$= $hm$"1"m$"2"9310^$ $r*m=m$:m=1n$(2)="SPECTRUM" $| f=1m $*:"TYPE NAAM VAN SPELER IN",,"(+ ENTER)" $"m$:m$>8m$=m$(8) $Tm$(1)>96`Ưm$(1)<123{m$(1)=(m$(1)-32 ) $g=1̱m$ $n$(f,g+8-m$)=m$(g) $ g:n$(f):f $Yf=12:g=18:p()+7+g+8*(f=2),n$(f,g):g:f $0m1(p()+25),3:9400$ $#:"KIES SPECTRUM-NIVO : 1,2 of 3" $'m$=:m$<"1"m$>"3"m$=""9395$ $ nivo=m$:(p()+25),nivo $K:n$(2,8):x(2):y=(*10 ):nivo=(p()+25) $\f=12:g=18:n$(f,g)=¾(p()+7+g+8*(f=2)):g:f $ 7800x $S9600%::" RAAD EEN GETAL KLEINER DAN 10, OM TE BEPALEN WIE MAG BEGINNEN": $4f=12:" Mag ik jouw getal,";n$(f);"?" $ " Druk een toets 0 - 9 : "; $2n$(f)="SPECTRUM"x(f)=(*10 ):9470$ $!m$=:m$<"0"m$>"9"9450$ $ x(f)=m$ $(7;x(f)::g=060<:g %&f:x(1)=x(2)9400$ %>(y-x(1))=(y-x(2))y=(*10 ):9490% % " Het getal was : ";7;y %&-(y-x(1))<(y-x(2))9530:% %09m$=n$(1):n$(1)=n$(2):n$(2)=m$ %:%:" Dus :";n$(1);" begint !" %Dg=0160:g %X 4000 % %0:6: %1,6;1;7;2;25;2,6;" *** 3D - OXXO *** ";3,6;25;4,6;"  R.Koning 1985";25: % &Hg=1:f=110 :f,18;t(f,g);21;t(f,g+1);24;t(f,g+2);27;t(f,g+3);30;t(f,g+4);32 ;t(f,g+5)::f: & '#:*1;"OXXO2!"1:*1;"oxxo""" f=23813]65:f;" ";f,¾fƾf>31:f 'Qq=40000@:f=23813]+536982v+58::f,q:q=q+1:f ER,KAAS,EIEREN" wordt ge-" /=1)-3*(kl=4):9 ;kl;11 +f,17;w$(zet-6+f);" ";s$(zet-6+f):f 3 1:1:1  3 :1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1  3 :1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1  6:kl=kl+3*(kl=1)-3*(kl=4):9 ;kl;11 +f,17;w$(zet-6+f);" ";s$(zet-6+f):f 3 1:1:1  3 :1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1  3 :1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1:1  mMM:WM8 W P P P 8 \3r]GWq !Wv>+ R.Koning 2000 OPUSPC 720K o RoelofSPECTRUMU "  3D - OXXO by R.K/A.A 1985  65367W *1;"oxxo"  9000(# 1n(x)=x-(((x-1)/16))*16 v(x ,y)=5+6*(x>4)+6*(x>8)+6*(x>12 )-x+(4-y):h(x ,y)=3+(x>4)+(x>8)+(x>12 )+3*(y-1) ei$(n)=(((n-1)/4)+97a)+(n-1-4*((n-1)/4)+491) #c(c$`,t$"0)=65376` )p()=23635S\+256*23636T\ c** subroutines * dzoek naar zo in t$  i(pr,21;"zoek : ";zo;" ":pr=pr+1 nq$="":q=0:qh=q xh$=t$(qh+1) q=c(zo,h$) q170 q$=q$+(q+qh) qh=qh+q:120x zoek naar legen in lyn  !pr,21;"q$=";q$:pr=pr+1 l$="":qh280 l$="":qh280 g=1̱q$ q=q$(g) loopgetallen uit tabel  ?f=t(1,q)t(1,q)+3*t(2,q)t(2,q) a$(f)0250 0f>17a$(f-16)=0250 l$=l$+f f g  %pr,21;"LEN l$ =";l$:pr=pr+1  ** SPECTRUM SPEELT ** څz3=3*(sp=1)+30*(sp=2):z2=2*(sp=1)+20*(sp=2):z1=(sp=1)+10 *(sp=2) zt3=3*(sp=2)+30*(sp=1):zt2=2*(sp=2)+20*(sp=1):zt1=(sp=2)+10 *(sp=1) ci$="":0;19,22;"Stilte,";20,22;"ik denk" zet<52500  check 3 op ry   %zo=z3:100d:l$=""21004 i$=i$(n(l$(1)))  (r$=" put 4e ":pr,21;r$:pr=pr+1 * 4blok tegenparty  >&zo=zt3:100d:l$=""2200 Hi$=i$(n(l$(1))) R)r$=" blok 4e ":pr,21;r$:pr=pr+1  tegenzet  2000+500*nivo * nivo 1 RANDOM * tl=0 i$=i$((*16)+1) tl=tl+1 Ar$="random"+tell+" ":pr20pr=20:pr,21;r$;i$:pr=pr+1 6let=i$(1):cif=i$(2):nn=let+cif:f=nn a$(f)=02550 &f=f+16:f64@2530 2510 * tp niet helpen!  &zet>502tl>202620< <ho=1+((f-1)/16):ho=42620< bt=3*(sp=2)+30*(sp=1):tho=20+16*ho:tlet=5+let/4 ~t$(cif+tho)=tt$(cif+60<)=tt$(cif+70F)=tt$(tlet+tho)=tt$(tlet+60<)=tt$(tlet+70F)=t2510 Elet+11+4*(cif-1)2600( : not a1  It$(29+10 *ho)=tt$(69E)=tt$(79O)=t2510 (<let+117-4*cif2620< : not a4  2It$(30+10 *ho)=tt$(70F)=tt$(80P)=t2510 < out  /r$="random"+tell:pr,21;r$;i$:pr=pr+1 T * nivo 2 kruisingen   tegenparty ,zo=zt2:100d:l$<23100 qh=0 #qh=qh+1:h$=l$(qh+1) q=c(l$(qh),h$) qi$=i$(n(l$(qh))): Gqi$=i$(n(l$(qh))):r$="blok kruis":pr,21;r$;i$:pr=pr=1: qh"d"i$(2)<"1"i$(2)>"4"4120 6zet=04170J @"k;v(nn2,ho2),h(nn2,cif2);"" E5pr,21;"i$ was: ";i$;" ";pr+1,21;r$:pr=pr+3 J<k=kl:let=i$(1):cif=i$(2):nn=let+cif:f=nn Ta$(f)=0a$(f)=(1+9 *(sp=2)):ho=((f-1)/16):k;v(nn,ho),h(nn,cif);"":nn2=nn:ho2=ho:cif2=cif:4220| ^&f=f+16:f64@4180T hQ7;20,1;"NIET MOGELIJK !!!!":.5,-20:4110 |Bzet=zet+1:20,1;9 ;" EVEN CONTROLEREN:" w$(zet)=i$:s$(zet)=r$  *** CHECK ***   ook totalen !!  Yt=4*(sp=1)+40(*(sp=2):tho=16*ho:tlet=5+let/4 ** vanuit naald *  t1=0 )f=nn64@16:t1=t1+a$(f):f (t$(nn)=t1:t1=t8000@: won  ** vanuit cijfer * <d1=cif:d2=d1+480:t1=0:t2=0:t3=0 $f=cif+thocif+tho+12 4 &%.002xn,f-10 :.002xn,f 0,t1=t1+a$(f):t2=t2+a$(d1):t3=t3+a$(d2) : d1=d1+20:d2=d2-12 Df:t1=tt2=tt3=t8000@ NNt$(10 *ho+cif+20)=t1:t$(60<+cif)=t2:t$(70F+cif)=t3 X** vanuit letter **** bDd1=let+1:d2=d1+480:t1=0:t2=0:t3=0 l#f=let+1+tholet+tho+4 v%.002xn,f-10 :.002xn,f ,t1=t1+a$(f):t2=t2+a$(d1):t3=t3+a$(d2)  d1=d1+17:d2=d2-15 f:t1=tt2=tt3=t8000@ Qt$(10 *ho+tlet+20)=t1:t$(60<+tlet)=t2:t$(70F+tlet)=t3  ** vanuit diag A1 **** 7let+11+4*(cif-1)4610 =d1=1:d2=491:t1=0:t2=0:t3=0 $f=1+tho16+tho5 %.002xn,f-10 :.002xn,f ,t1=t1+a$(f):t2=t2+a$(d1):t3=t3+a$(d2)  d1=d1+21:d2=d2-11 f:t1=tt2=tt3=t8000@ Bt$(10 *ho+29)=t1:t$(69E)=t2:t$(79O)=t3  ** vanuit diag A4 ****  .let+117-4*cif4700\ =d1=4:d2=524:t1=0:t2=0:t3=0  $f=4+tho13 +tho3 *%.002xn,.5*f:.002xn,f 4,t1=t1+a$(f):t2=t2+a$(d1):t3=t3+a$(d2) > d1=d1+19:d2=d2-13 Hf:t1=tt2=tt3=t8000@ RBt$(10 *ho+30)=t1:t$(70F)=t2:t$(80P)=t3 \** remise? ** fzet=64@1,22;1;5;" ";2,22;" REMISE ";3,22;" ":8600! p-sp=sp+(sp=1)-(sp=2):4100  END mainloop  x* setup checktabel  t(2,80P) .01z# =,15 >f=116:t(1,f)=f:t(2,f)=16:f +f=2050210 :.01z# =,f %ho=16*((f-20)/10 ) g=14:t(1,f+g)=ho+g:t(1,f+g+4)=ho+1+(g-1)*4:t(2,f+g)=4:t(2,f+g+4)=1:g t(1,f+9 )=1+ho:t(2,f+9 )=5:t(1,f+10 )=4+ho:t(2,f+10 )=3 f #f=60<:.015zu\,f-30 Ȗg=14:t(1,f+g)=g:t(1,f+g+4)=1+(g-1)*4:t(2,f+g)=20:t(2,f+g+4)=17:g vt(1,69E)=1:t(2,69E)=21:t(1,70F)=4:t(2,70F)=19 #f=70F:.015zu\,f-30 g=14:t(1,f+g)=g+480:t(1,f+g+4)=491+(g-1)*4:t(2,f+g)=-12 :t(2,f+g+4)=-15:g zt(1,79O)=491:t(2,79O)=-11 :t(1,80P)=524:t)(2,80P)=-13   udg  !7950:f=""""+7  r:f,r:f "L24,24,60<,126~,126~,126~,60<,24 ? @gewonnen  J$f=18:n$(sp,f)=" "f Tkl;20,1;19;1,21;9 ;31;2,21;31;2,22+(f/2);n$(sp,f);3,21;31;5,21;7;" heeft ";6,21;" gewonnen " YUf=16:kl=kl+3*(kl=1)-3*(kl=4):9;kl;11+f,17;w$(zet-6+f);" ";s$(zet-6+f):f ^g=.015zu\:h=7 hf=0142 rUg+.5*(f=14),h+f-(f>4)-(f=14)-7*(h0f=14) |f:h08080 h=-2:8040h  20 !u.3,10 :9 ,22;" Druk ";10 ,22;" een ";11 ,22;" toets ":450 !""9200# ! 9400$ #(** GEBR.AANW. + init * # 9600% #t"Deze variant van het spel:"'" ""BOTER,KAAS,EIEREN"" wordt ge-"'" speeld op een veld met 4 rijen"'" van 4 pennen." #W"Twee spelers laten ombeurten een"'" gekleurde kraal op een van de"'" pennen zakken." #Z"Wie erin slaagt 4 kralen van z'n"'" kleur op een (1) rij te krijgen"'" heeft gewonnen." #f"LET OP:Een rij mag een lijn in"'" het horizontale,het verticale,"'" of in een diagonaal vlak zijn!" #:10 ;"DRUK EEN TOETS" # 0 # 9300T$ #:9600%:::2;"NOG EEN SPELLETJE ? (J/N)" #&="n"7:7:0:: $=""9210# $N:g=015:"o-";:g:::2;"MET DEZELFDE SPELERS ? (J/N)" $="j"9400$ $"=""9240$ $T~9600%:::2;"HOEVEEL SPELERS ? ( 1 of 2 )"'';2;"( 1 speler = je speelt tegen";18;"de SPECTRUM!)" $^n$(2,8):m$= $hm$"1"m$"2"9310^$ $r*m=m$:m=1n$(2)="SPECTRUM" $| f=1m $*:"TYPE NAAM VAN SPELER IN",,"(+ ENTER)" $"m$:m$>8m$=m$(8) $Tm$(1)>96`Ưm$(1)<123{m$(1)=(m$(1)-32 ) $g=1̱m$ $n$(f,g+8-m$)=m$(g) $ g:n$(f):f $Yf=12:g=18:p()+7+g+8*(f=2),n$(f,g):g:f $m19400$ $#:"KIES SPECTRUM-NIVO : 1,2 of 3" $'m$=:m$<"1"m$>"3"m$=""9395$ $ nivo=m$:(p()+25),nivo $K:n$(2,8):x(2):y=(*10 ):nivo=(p()+25) $\f=12:g=18:n$(f,g)=¾(p()+7+g+8*(f=2)):g:f $ 7800x $S9600%::" RAAD EEN GETAL KLEINER DAN 10, OM TE BEPALEN WIE MAG BEGINNEN": $4f=12:" Mag ik jouw getal,";n$(f);"?" $ " Druk een toets 0 - 9 : "; $2n$(f)="SPECTRUM"x(f)=(*10 ):9470$ $!m$=:m$<"0"m$>"9"9450$ $ x(f)=m$ $(7;x(f)::g=060<:g %&f:x(1)=x(2)9400$ %>(y-x(1))=(y-x(2))y=(*10 ):9490% % " Het getal was : ";7;y %&-(y-x(1))<(y-x(2))9530:% %09m$=n$(1):n$(1)=n$(2):n$(2)=m$ %:%:" Dus :";n$(1);" begint !" %Dg=0160:g %X 4000 % %0:6: %{1,6;1;7;2;25;2,6;" *** 3D - OXXO *** ";3,6;25: % &Hg=1:f=110 :f,18;t(f,g);21;t(f,g+1);24;t(f,g+2);27;t(f,g+3);30;t(f,g+4);32 ;t(f,g+5)::f: & '9f=3276865:f;" ";f,¾fƾf>31:f '&tr=6:s=3:q=32768 'V@tr,s,q:q=q+512:s=s+1:9992'+(s>9 )+10 *(q>65535) ' Ttr=tr+(128*(tr<128))-(127*(tr128)):s=1:9992' ' @q=40000@:f=23755\36982v:q,f:q=q+1:f '':*1;"OXXO2!"1:*1;"oxxo""",100 Q[ P  jMu00P>v P P P[[MORO\GWq !Wv>J"Zelfinductie? (uH) ";h T.6,0;" Zelfinductie: ";h;" (uH)" ^"Kerndoorsnede? (mm) ";q h" Kerndoorsnede: ";q;" (mm)" r"Wikkellengte? (mm) ";l |" Wikkellengte : ";l;" (mm)" N'" *";12 ,0;" even geduld.... "  drd=3 f=.1}L3.1}L  85004! test=(l/n-f) testFn=((h*(9 *r/25.4K333+10 /25.4K333*l)))/(r/25.4K333) !H " #(45::20:';9 ;"* MENU *" #7,0;1;" 6 EVEN GEDULD A.U.B. " #d%("a"+1)09800H& #n67,0;" Maak uw keuze: " #i$= #i$="1"13 #i$="2"1000 #i$="3"1300 #i$="4"8000@ # 9100# &Hl:f="a""a"+15:f,0:f:"a"+7,1:"b"+6,128:"b"+7,192 &Rf="c""l"+7 &T a:f,a:f &V.2~L,0 &\ &fH0,16,112p,95_,112p,64@,0,0 &gC0,0,0,255,8,8,8,8 &hB8,8,8,15,0,0,0,0 &iC8,8,8,248,0,0,0,0 &jC8,8,8,62>,0,28,0,8 &kC8,8,8,62>,0,62>,8,8 &lG0,20,20,247,20,20,0,0 &mI82R,62>,36$,82R,62>,36$,82R,62> &nL0,219,109m,73I,219,109m,146,0 &oE0,2,14,250,14,8,0,0 'Nf=23755\+4.2fff*7500L65:f;" ";f,¾fƾf>31:f ''tr=22:s=3:q=58000 'V@tr,s,q:q=q+512:s=s+1:9992'+(s>9 )+10 *(q>65535) ' Ttr=tr+(128*(tr<128))-(127*(tr128)):s=1:9992' ' '@q=538080:f=5800065535:f,q:q=q+1:f 'qs9999' 65535:f,q:q=q+1:f     -xx  tuncirc 'Cjuu \ I:t\ʊͲ(0 !:t\=(Š0%(#~w #~w #q>q(J"Zelfinductie? (uH) ";h T.6,0;" Zelfinductie: ";h;" (uH)" ^"Kerndoorsnede? (mm) ";q h" Kerndoorsnede: ";q;" (mm)" r"Wikkellengte? (mm) ";l |" Wikkellengte : ";l;" (mm)" N'" *";12 ,0;" even geduld.... "  drd=3 f=.1}L3.1}L  85004! test=(l/n-f) testFn=((h*(9 *r/25.4K333+10 /25.4K333*l)))/(r/25.4K333) !H " #(45::20:';9 ;"* MENU *" #7,0;1;" EVEN GEDULD A.U.B. " #d%("a"+1)09800H& #n67,0;" Maak uw keuze: " #i$= #i$="1"13 #i$="2"1000 #i$="3"1300 #i$="4"8000@ # 9100# &Hl:f="a""a"+15:f,0:f:"a"+7,1:"b"+6,128:"b"+7,192 &Rf="c""l"+7 &T a:f,a:f &V.2~L,0 &\ &fH0,16,112p,95_,112p,64@,0,0 &gC0,0,0,255,8,8,8,8 &hB8,8,8,15,0,0,0,0 &iC8,8,8,248,0,0,0,0 &jC8,8,8,62>,0,28,0,8 &kC8,8,8,62>,0,62>,8,8 &lG0,20,20,247,20,20,0,0 &mI82R,62>,36$,82R,62>,36$,82R,62> &nL0,219,109m,73I,219,109m,146,0 &oE0,2,14,250,14,8,0,0 'Nf=23755\+4.2fff*7500L65:f;" ";f,¾fƾf>31:f ''tr=22:s=3:q=58000 'V@tr,s,q:q=q+512:s=s+1:9992'+(s>9 )+10 *(q>65535) ' Ttr=tr+(128*(tr<128))-(127*(tr128)):s=1:9992' ' '@q=538080:f=58000655353AX63F3-ACj=u& 72\H I:t\ʊͲ(0 !:t\=(Š0%(#~w #~w #q>q(W P P MrC=D PMp3MP>v><~~~<* \^V{(FnfR8;DM^Vn fNF # x BDMx( #D-<~|~B$MBDB$$B0BH8xx<(BB@)D8|8D88x8D8x@888x8$BB@BHBB@@@B@b$D88<8J BBB0BpDD0DDB<|)BDDD 0DDDxD@DD|B|BpBB<||B|RTD <DDJ>>>B>BB>>>0|HDDDD>B)Bxx(< IBDB$$B0DDDDD<BB)D@ @(D DD(DDD@x@ BB@DDBBB@@D@FTD D<@J<<<)x<|<< 8~B~B(8 < <<8D@8       B     @ 8x888x88xD8h888xD8xx8xx8xD888x888888x8h 8D88x88x<8(8D8(888x88xD8x8x8xx8x|8((8xB88x888<8(88xD8x|x(8D8x88x(88(<8x@888<8D8xx8x@DDD<DDDDDDD<TD( 0DDDD(DTDD@DDD @DDDT
8$ <$ 8$4)+6*(x>8)+6*(x>12 )-x+(4-y):h(x,y)=3+(x>4)+(x>8)+(x>12 )+3*(y-1) ei$(n)=(((n-1)/4)+97a)+(n-1-4*((n-1)/4)+491) #c(c$Ε,t$ )=65376` )p()=23635S\+256*23636T\ c** subroutines * dzoek naar zo in t$  i(pr,21;"zoek : ";zo;" ":pr=pr+1 nq$="":q=0:qh=q xh$=t$(qh+1) q=c(zo,h$) q170 q$=q$+(q+qh) qh=qh+q:120x zoek naar legen in lyn  !pr,21;"q$=";q$:pr=pr+1 l$="":qh280 l$="":qh280 g=1̱q$ q=q$(g) loopgetallen uit tabel  ?f=t(1,q)t(1,q)+3*t(2,q)t(2,q) a$(f)0250 0f>17a$(f-16)=0250 l$=l$+f f g  %pr,21;"LEN l$ =";l$:pr=pr+1  ** SPECTRUM SPEELT ** څz3=3*(sp=1)+30*(sp=2):z2=2*(sp=1)+20*(sp=2):z1=(sp=1)+10 *(sp=2) zt3=3*(sp=2)+30*(sp=1):zt2=2*(sp=2)+20*(sp=1):zt1=(sp=2)+10 *(sp=1) ci$="":0;19,22;"Stilte,";20,22;"ik denk" zet<52500  check 3 op ry   %zo=z3:100d:l$=""21004 i$=i$(n(l$(1)))  (r$=" put 4e ":pr,21;r$:pr=pr+1 * 4blok tegenparty  >&zo=zt3:100d:l$=""2200 Hi$=i$(n(l$(1))) R)r$=" blok 4e ":pr,21;r$:pr=pr+1  tegenzet  2000+500*nivo * nivo 1 RANDOM * tl=0 i$=i$((*16)+1) tl=tl+1 Ar$="random"+tell+" ":pr20pr=20:pr,21;r$;i$:pr=pr+1 6let=i$(1):cif=i$(2):nn=let+cif:f=nn a$(f)=02550 &f=f+16:f64@2530 2510 * tp niet helpen!  &zet>502tl>202620< <ho=1+((f-1)/16):ho=42620< bt=3*(sp=2)+30*(sp=1):tho=20+16*ho:tlet=5+let/4 ~t$(cif+tho)=tt$(cif+60<)=tt$(cif+70F)=tt$(tlet+tho)=tt$(tlet+60<)=tt$(tlet+70F)=t2510 Elet+11+4*(cif-1)2600( : not a1  It$(29+10 *ho)=tt$(69E)=tt$(79O)=t2510 (<let+117-4*cif2620< : not a4  2It$(30+10 *ho)=tt$(70F)=tt$(80P)=t2510 < out  /r$="random"+tell:pr,21;r$;i$:pr=pr+1 T * nivo 2 kruisingen   tegenparty ,zo=zt2:100d:l$<23100 qh=0 #qh=qh+1:h$=l$(qh+1) q=c(l$(qh),h$) qi$=i$(n(l$(qh))): Gqi$=i$(n(l$(qh))):r$="blok kruis":pr,21;r$;i$:pr=pr=1: qh"d"i$(2)<"1"i$(2)>"4"4120 6zet=04170J @"k;v(nn2,ho2),h(nn2,cif2);"" E5pr,21;"i$ was: ";i$;" ";pr+1,21;r$:pr=pr+3 J<k=kl:let=i$(1):cif=i$(2):nn=let+cif:f=nn Ta$(f)=0a$(f)=(1+9 *(sp=2)):ho=((f-1)/16):k;v(nn,ho),h(nn,cif);"":nn2=nn:ho2=ho:cif2=cif:4220| ^&f=f+16:f64@4180T hQ7;20,1;"NIET MOGELIJK !!!!":.5,-20:4110 |Bzet=zet+1:20,1;9 ;" EVEN CONTROLEREN:" w$(zet)=i$:s$(zet)=r$  *** CHECK ***   ook totalen !!  Yt=4*(sp=1)+40(*(sp=2):tho=16*ho:tlet=5+let/4 ** vanuit naald *  t1=0 )f=nn64@16:t1=t1+a$(f):f (t$(nn)=t1:t1=t8000@: won  ** vanuit cijfer * <d1=cif:d2=d1+480:t1=0:t2=0:t3=0 $f=cif+thocif+tho+12 4 &%.002xn,f-10 :.002xn,f 0,t1=t1+a$(f):t2=t2+a$(d1):t3=t3+a$(d2) : d1=d1+20:d2=d2-12 Df:t1=tt2=tt3=t8000@ NNt$(10 *ho+cif+20)=t1:t$(60<+cif)=t2:t$(70F+cif)=t3 X** vanuit letter **** bDd1=let+1:d2=d1+480:t1=0:t2=0:t3=0 l#f=let+1+tholet+tho+4 v%.002xn,f-10 :.002xn,f ,t1=t1+a$(f):t2=t2+a$(d1):t3=t3+a$(d2)  d1=d1+17:d2=d2-15 f:t1=tt2=tt3=t8000@ Qt$(10 *ho+tlet+20)=t1:t$(60<+tlet)=t2:t$(70F+tlet)=t3  ** vanuit diag A1 **** 7let+11+4*(cif-1)4610 =d1=1:d2=491:t1=0:t2=0:t3=0 $f=1+tho16+tho5 %.002xn,f-10 :.002xn,f ,t1=t1+a$(f):t2=t2+a$(d1):t3=t3+a$(d2)  d1=d1+21:d2=d2-11 f:t1=tt2=tt3=t8000@ Bt$(10 *ho+29)=t1:t$(69E)=t2:t$(79O)=t3  ** vanuit diag A4 ****  .let+117-4*cif4700\ =d1=4:d2=524:t1=0:t2=0:t3=0  $f=4+tho13 +tho3 *%.002xn,.5*f:.002xn,f 4,t1=t1+a$(f):t2=t2+a$(d1):t3=t3+a$(d2) > d1=d1+19:d2=d2-13 Hf:t1=tt2=tt3=t8000@ RBt$(10 *ho+30)=t1:t$(70F)=t2:t$(80P)=t3 \** remise? ** fzet=64@1,22;1;5;" ";2,22;" REMISE ";3,22;" ":8600! p-sp=sp+(sp=1)-(sp=2):4100  END mainloop  x* setup checktabel  t(2,80P) .01z# =,15 >f=116:t(1,f)=f:t(2,f)=16:f +f=2050210 :.01z# =,f %ho=16*((f-20)/10 ) g=14:t(1,f+g)=ho+g:t(1,f+g+4)=ho+1+(g-1)*4:t(2,f+g)=4:t(2,f+g+4)=1:g t(1,f+9 )=1+ho:t(2,f+9 )=5:t(1,f+10 )=4+ho:t(2,f+10 )=3 f #f=60<:.015zu\,f-30 Ȗg=14:t(1,f+g)=g:t(1,f+g+4)=1+(g-1)*4:t(2,f+g)=20:t(2,f+g+4)=17:g vt(1,69E)=1:t(2,69E)=21:t(1,70F)=4:t(2,70F)=19 #f=70F:.015zu\,f-30 g=14:t(1,f+g)=g+480: