(\Sq1IHCp SY26V#61} *L,"Nu hopen we alleen maar een ding: namelijk dat die verdraaide flexi-disks op tijd klaar zijn. Want er is een klein kansje dat dat niet lukt, maar in dat geval komt dit fraais in het augustus-nummer van MCM. *P,*C,"Later",*N,*L,"Een veelgehoorde vraag over de cassette/diskette service is waarom de bestellers eventjes moeten wachten, als ze meteen na het uitkomen van het blad bestellen. Vele lezers blijken namelijk te verwachten dat de MCM-diskette of cassette gelijk met het blad verschijnt, hetgeen juist niet zo is.o *P,"We durven namelijk nooit helemaal uit te sluiten dat we - ondanks nauwkeurig kontroleren - ergens een foutje in een programma hebben laten zitten. Als dat zo is, dan horen we dat echter altijd heel snel via het vragenuurtje.  "Door nu eventjes te wachten met het aanmaken van de cassettes en diskettes kunnen we dergelijke foutjes nog korrigeren. Vandaar dat u altijd eventjes geduld moet hebben.  *L,"Gelukkig gebeurt het bijna nooit dat we echte fouten maken, maar het kan nu eenmaal gebeuren dat er eens iets niet goed blijkt te funktioneren als vele duizenden mensen het gaan uitproberen, op allerlei verschillende MSXen.| "Temeer daar het bij sommige programma's bijna ondoenlijk is om werkelijk alle mogelijkheden uit te testen.E *P,"Vandaar ook dat geen enkele programmeur - ook onze redaktie-leden niet - ooit zijn of haar hand in het vuur zal durven steken als het erom gaat of een bepaald programma helemaal foutloos is. *P,*C,PROBLEEMPJES?,*N,*L,"Mocht u problemen ondervinden met het laden van een of meer van de programma's op deze diskette, geef het dan niet meteen op."}" "Weliswaar komen dergelijke problemen met een diskdrive weinig voor, maar het kan helpen als u de computer en de - losse - drive eventjes uitzet., "Als er een losse diskdrive gebruikt wordt, kijk dan even of de cartridge wel goed in de slot zit.x6 *L,"Als de moeilijkheden daardoor echter niet op te lossen zijn, stuurt u dan de diskette, met een beschrijving van de problemen, naar:",*L@ *P,"AKTU bv, MCM Programma ServiceJ "POSTBUS 1392ϞT "1000 BJ AMSTERDAM^ *L,"waarna wij uw diskette zullen omruilen voor een ander exemplaar."h *L,"Telefonische vragen over de Programma Service - maar geen technische vragen - kunt u kwijt op 020-681081. Leg zo kort en bondig mogelijk uit wat er aan de hand is en wij zullen proberen het te verhelpen.r *P,*C,"Vragenuurtje",*N,*L,"Die technische vragen kunt u namelijk alleen stellen tijdens het telefonisch vragenuurtje van de redaktie van MSX Computer Magazine.~| *L,"Elke dinsdag tussen vier uur in de middag en zeven uur s'avonds kunt u terecht op telefoon: 020-931263. Op andere dagen kunnen we u echter niet te woord staan. Per slot van rekening moeten we ook nog een blad schrijven!١} *L,"In juli zijn we echter op vakantie, dan zal het vragenuurtje komen te vervallen.塆 *P,*S : PROGRAMMA'S ******************- MCMPRT ' Afdrukken MCMBASEL DRPASC ' Het Galton-bordi DEMOMS ' Muis-demootje TEXTMS ' Muis-layout BLOKMS ' Simpele grafiekƢ FILEMS ' Muis-bestandshulpje DRAWMS ' Muis-tekenaar GELIJK ' Gelijk verdeeld test+ GELBAD ' Idem, slechte randomF SERIE ' Dobbel testj SERBAD ' Idem, slechte random DOTS ' Grafische serie test DOTBAD ' Idem, slechte randoṃ POKER ' Poker-test PKRBAD ' Idem, slechte random NEWRND ' Goede RND-generator; MCARLO ' Monte Carlo PI-schattingd ICP4 ' Invoer Controle Programmap OP=OPFE,72,C0,7ET FE,65,C0,23,7E,FE,6D,28,EF,C9,36,27,1,6,0,21,**,47,11,7F,F8,ED,B0,3E,C9,32,DB,FD,C3,**,CB,63,6F,6C,6F,72,20,1,6,0u^ 21,7F,F8,11,**,47,ED,B0,21,7F,F8,36,27,21,83,F8,36,27,23,36,D,21,DB,FD,36,C3,23,36,*1,71,23,36,*2,C9,1E,0,CD,**,00,21,5Eh F5,6,1,7E,4F,FE,27,28,B1,18,1,4E,3E,0,B9,28,16,C5,16,7,CB,39,30,1,80,15,28,4,CB,20,18,F4,83,5F,C1,4,23,18,E4,6B_r 11,80,F8,26,0,1+ MCMPRT, afdrukprogramma bij MCMDATA1M MSX Computer MagazineS(2 Ingezonden door Guy Kersemans, Antwerpen<ȀF::,:,,,,:(:X:MRc:A$(,),NV$(,):P:quicksort module ****************ZS:ST(,):ST(,)RN.dLST(S,):RST(S,):SSLnJL:KR:A$A$((LR),SV)hxA$(J,SV)A$JJ:xA$(K,SV)A$KK:JKJJ:KK:xցJKڂNNV:A$(J,N),A$(K,N):N:JJ:KK:xJRSS:ST(S,)J:ST(S,)R RK:LRnSd:!AN :(N):N,"":N::i:aanroepen foutafhandeling ******tX{b:laden bestand ******************:,:"Staat het bestand op:":, :"* disk ---------> [D]":, :"* cassette -----> [C]":TJ$$()NTJ$"d"TJ$"D":TJ$"c"TJ$"C"":::,:"LADEN BESTAND":OP$"A:"::,"::,:"LADEN BESTAND":OP$"CAS:",,:"tik bestandsnaam in (max. 6 tekens)":,:V2:MS:0:FL$I1$:OP$OP$I1$:I9$"mcmdata1.0"*6,:(&)@,:FL$" wordt geladen":OP$AS#:#,I8$:I9$I8$,:FL$" is geen MCMDATA bestand":#:V2:0:%J#,NV:A$,NV$:A$(,NV),NV$(NV,):NNV:#,NV$(N,),NV$(N,):N:#,RN:NRN:N1NV:#,A$(N,N1):N1:N:V1:#}TNNV:NV$(N,)"a"ڂN1RN:A$(N1,N)(" "A$(N1,N),(NV$(N,))):N1^Nh:,:RN"records geladen":V2:0rST:|:,:"Programma beindigen? [J/N]":J$$():J$"N"J$"n"ډr:::!J::I:printen voorbeeldrecord ********h:,:"VOORBEELD RECORD"qPRNNV:"## \ \:&";N;NV$(N,);A$(PR,N):N:STڎ::startmenu **********************N:(N):N̍ ,H,,,,|KST:,:" PRINTMOGELIJKHEDEN "q,:"F1........ALLE ETIKETTEN",:"F2........DEEL V.D. ETIKETTEN"LJ,:"F3........LIJSTEN(alle namen)",:"F4........LIJSTEN(deel v/d namen)"%,:"F5........BESTAND BEKIJKEN+etiket"E,:"F6........EINDIGEN"XV2:0:&:input **************************0X:Y():V4ڋV2V4::ĈD!,:"MCMDATA"͈N,XV1ڑ"Bestand: "FL$((FL$))b,lV2ڑ()=vV2ڑ"Voer tekst in "jV2ڑ"Kies gewenste functie "V2ڑ"Druk spatiebalk in "Y,XV2V2ڑ();:I1$""܉I$:V2ڎ:I$""ꉲV2 V2ڋI$" "V2:0::VI$()ڋ(I1$):I1$(I1$,(I1$)):(,)();:V2I$( )ڋ(I1$)V2:();:0::ҊV2I$( )ڋ(I1$)V2:I(I1$):();:0::V2ڋI$"0"I$"9"I$" "I$"}"+(I1$)MSI1$(I1$,MS):O()I$();:I1$I1$I$:w :printen van alle etiketten******DE%:: *NRN4h>N:ߋH:printen van deel etiketten *****RDE%::\PfpNRNz.N:DE%:7TN:,N:('):N,:"Druk toets als printer gereed is":V2:0:,:(&):Č:printen volledige lijst ********ԌDN%:DE%݌:lijstindeling maken ************,::::>N :,N:('):N:, :Hi, :"Hoeveel kolommen afdrukken?";HtNH,( N):"Veldnr.kolom";N;":";K(N),( N):K(N):TA(),( N):"Lengte tekst";N;":";T(N)#,( N):T(N):TA(N)TA(N)T(N).$TA(N)OTA(N)_ڍN.TA(N)_TA(N)ڍc8TA(N)ڍjBNL, :" PRINTDEFINITIE"̎V,:" Goed zo? [J/N] ";:AK$$()`AK$"j"AK$"J"jN :,N:('):NCt, :"Welke naam krijgt de lijst?":,:LL$:,:LL$x~,:"Datum van vandaag":,:DD$:,:DD$NNV:,N:('):N::,:"PRINTEN!"ُ)"Lijst:"LL$2)"Datum:"DD$:)"Lijst:"LL$2)"Datum:"DD$: NH1TA(N))(NV$(K(N),),T(N));:N:ENHkTA(N))(NV$(K(N),),T(N));tN:DN%ڎNRN N:ː:printen deel-lijst ************ԐP(DN%:DE%::2NRN<FN:8P:selectie opbouwen *************ZZ:N:,N:('):Nԑd,:(',"*"):,:"Op hoeveel velden selecteren (max.3)":,:SE%:,:SE%:SE%ڑ"Te veel velden!!!":dUn,:('):TTSE%:,TT:"veldnr.:";TV%(TT):,TT:TV%(TT): ,TT:"zoekstring: "ZS$(TT):,TT:ZS$(TT)xTT:"Goed zo? [J/N]":J$$():J$"J"J$"j"ڎ:Z:selectie uitvoeren ************ꒌSE%(,A$(N,TV%()),ZS$())ډ:SE%(,A$(N,TV%()),ZS$())ډ:L(,A$(N,TV%()),ZS$())ډ:}SE%(,A$(N,TV%()),ZS$())ډ:Ɠ(,A$(N,TV%()),ZS$())(,A$(N,TV%()),ZS$())ډ:퓾:opbouw van een etiket ********* N2:,N2:('):N2\,:(',"*"):!,:A1%:,:"Hoeveel velden op de 1ste regel";A1%AA%A1%:,AA%:"Veldnummer "AA%;V1%(AA%):,AA%:V1%(AA%):AA%ʔN2:,N2:('):N2WA1%R1$A$(,V1%()):A1%R1$A$(,V1%())" "A$(,V1%()):A1%R1$A$(,V1%())" "A$(,V1%())" "A$(,V1%())!,:A2%:,:"Hoeveel velden op de 2de regel";A2%AA%A2%:,AA%:"Veldnummer "AA%;V2%(AA%):,AA%:V2%(AA%):AA%N2:,N2:('):N2A2%R2$A$(,V2%()):A2%R2$A$(,V2%())" "A$(,V2%()):A2%R2$A$(,V2%())" "A$(,V2%())" "A$(,V2%())Ζ"!,:A3%:,:"Hoeveel velden op de 3de regel";A3%,AA%A3%:,AA%:"Veldnummer "AA%;V3%(AA%):,AA%:V3%(AA%):AA%6A3%R3$A$(,V3%()):A3%R3$A$(,V3%())" "A$(,V3%()):A3%R3$A$(,V3%())" "A$(,V3%())" "A$(,V3%())ɗ@N2:,N2:('):N2 J,:"VOORBEELDETIKET"::,:R1$:,:R2$:,:R3$OT" Goed zo?[J/N]":J$$():J$"J"J$"j"ڎ:o^N2:,N2:('):N2h:printen van een etiket ********8rR1$"":R2$"":R3$"":A1%R1$A$(N,V1%()):A1%R1$A$(N,V1%())" "A$(N,V1%()):A1%R1$A$(N,V1%())" "A$(N,V1%())" "A$(N,V1%())ř|A2%R2$A$(N,V2%()):A2%R2$A$(N,V2%())" "A$(N,V2%()):A2%R2$A$(N,V2%())" "A$(N,V2%())" "A$(N,V2%())RA3%R3$A$(N,V3%()):A3%R3$A$(N,V3%())" "A$(N,V3%()):A3%R3$A$(N,V3%())" "A$(N,V3%())" "A$(N,V3%())t)R1$:)R2$:)R3$:::)R1$:)R2$:)R3$:::R1$"":R2$"":R3$"":ؚ:printen van een lijstregel ****N1H:TA(N1))(A$(N,K(N1)),T(N1));:N1:DN1H:TA(N1))(A$(N,K(N1)),T(N1));:N1:Jq:activeren printen *************DE%ڍh:DN%ڍ::lengte printerlijn bij lijst **::,:, :"Lijn wordt langer dan 80 tekens!!!":Z:Z:, :('):,:B|::,:, :"Lijn wordt langer dan 92 tekens!!!":Z:Z:, :('):,:Bܜ::,:, :"Lijn wordt langer dan 130 tekens!!!":Z:Z:, :('):,:B:sorteren of niet ************** &N:,N:('):NM0,:"Ga je sorteren?[J/N]";:TJ$$()f:TJ$"j"TJ$"J"ڎD,:"Op welk veldnummer sorteren?";:MS:V2:0:,:('):,:" ":,:" ":SVI:Z:-N:ondervangen CTRL-STOP plus foutafhandeling *************************;XST:b8ڟ:, :,:"Verkeerde filenaam !":TR:TR:,:Оl5ڟ:, :,:"Filenaam bestaat niet !":TR:TR:,:vڟ:, :,:"Even geduld! Fout: !";:TR:TR:,:ڟ:, :,:"Te weinig geheugen":"Pas aan in regel 300":"De 254 moet kleiner worden!":::TR:TR:,:䟊:, :,:"U maakte een fout !";:TR:TR:,:ST: :Bladeren/etiketten drukken **** PRRN:8,:"RECORD nr.:";PR::" Ga je hier een etiket van printen?":" [J] = PRINTEN"::" [N] = GEWOON VERDER"ʠJ$$():J$"J"J$"j":PR:r"Is de etiketopbouw in orde? [J/N]":J$$():J$"J"J$"j"::2NPR:h:PR :r,36,D,21,DB,FD,36,C3,23,36,*1,71,23,36,*2,C9,1E,0,CD,**,00,21,5Eh F5,6,1,7E,4F,FE,27,28,B1,18,1,4E,3E,0,B9,28,16,C5,16,7,CB,39,30,1,80,15,28,4,CB,20,18,F4,83,5F,C1,4,23,18,E4,6B_r 11,80,F8,26,0,1# DRPASC, Driehoek van Pascal)F MSX Comnputer MagazineL(~2 ingezonden door: Tjeerd Nijeholt, Epse (G.)<؀F: initialisatie *************************************************************P ( -) "Dit programma werkt niet op MSX1": Z vDd ,,,,, : : ,,: POn T()\x  Ai  Dq  "GRP:" AS # 6:: sprite inlezenÁ h:: scherm tekenenDY: DB: N,b: () : () N: A() `: hoofdlus *****************************************************************() : () : : (,): #,(T()Nd@P): ނNN: SX~: SY: (, ): #,N: () : () ,(SX,SY),,SYSYDY SY "M (SYDB) ()@P SXSX : SXSXW ƒ" ,(,),,: EX(SX): T(EX)T(EX): ((,): #,();"LIJ";();"CIR";();"BLO";();"VUL";();"KLE";();"NIE";();"LAA";();"SAV"H KL: (,): #,(): 2NPR:h:PR :r,36,D,21,DB,FD,36,C3,23,36,*1,71,23,36,*2,C9,1E,0,CD,**,00,21,5Eh F5,6,1,7E,4F,FE,27,28,B1,18,1,4E,3E,0,B9,28,16,C5,16,7,CB,39,30,1,80,15,28,4,CB,20,18,F4,83,5F,C1,4,23,18,E4,6B_r 11,80,F8,26,0,1d: GELIJK VERDEELD TEST;n: ====================Cx:h: Bij deze test kijken we naar: het aantal keer dat een worp: voorkomt. De verwachting is׀: natuurlijk- aantal worpen / 6߀:: ============================ ::): variabelen=1:c: VERWACHT - bevat het verwachte aantal: TELLING - bevat getelde aantallen voor elk aantal ogeń: ============================ԁ: TELLING(): ""startgetal";A:X(A)$,"aantal worpen";MWRP,6:J@: alles klaar zetten...RJ:fTVERWACHTMWRP^ VERWACHT  "meer dan";MWRP;" worpen nemen...":h I ‚r TELLING(I)ʂ| I҂:: doe de worpen maar...:  WRP MWRP ".";- W(())K TELLING(W)TELLING(W)U WRP]:jRESULTr:: eindresultaat beoordelen:ƃ:"Ogen telling verwacht resultaat""---------------------------------" GROEP 0& Z((TELLING(GROEP)VERWACHT))VERWACHT|0 " #: #### #### ##.###";GROEP,TELLING(GROEP),VERWACHT;Z: RESULTRESULTZD GROEPN:΄X: "Eindresultaat ##.###";RESULTلb R,R$l RESULTR bv: "Dit is ";R$;" random!":: 0.5543,"onmogelijk goedV 1.1455,"verdacht goedw 2.675,"bijna verdacht goed 4.351,"goed 6.626,"bijna verdacht slechtɅ 11.07,"verdacht slecht 15.09,"onmogelijk slecht 1e62, "niet,0,1"d: GELIJK VERDEELD TEST metFn: de slechte random generatorjx: ===========================r:: Voor de verklaring, zie de testŀ: met de ingebouwde random generatorꀠ: ============================: TELLING() :("startgetal";A:X(A)B"aantal worpen";MWRPJ:h: alles klaar zetten...p:VERWACHTMWRP VERWACHT  "meer dan";MWRP;" worpen nemen...":́ I  TELLING(I)" I,:6: doe de worpen maar...@:)J WRP MWRP5T ".";M^ :W(R)kh TELLING(W)TELLING(W)ur WRP}|:RESULT:: eindresultaat beoordelen:悮:"Ogen telling verwacht resultaat""---------------------------------"! GROEP P Z((TELLING(GROEP)VERWACHT))VERWACHT " #: #### #### ##.###";GROEP,TELLING(GROEP),VERWACHT;Z RESULTRESULTZ GROEPƃ:: "Eindresultaat ##.###";RESULT R,R$ RESULTR .: "Dit is ";R$;" random!"4&<0:Z: 0.5543,"onmogelijk goedvD 1.1455,"verdacht goedN 2.675,"bijna verdacht goedX 4.351,"goed̄b 6.626,"bijna verdacht slechtl 11.07,"verdacht slechtv 15.09,"onmogelijk slecht 1e62, "niet":A: (bad) random generator`: ======================{A)(A 2)(A2) A AARAt slechtɅ 11.07,"verdacht slecht 15.09,"onmogelijk slecht 1e62, "niet,0,1d: SERIE TEST'n: ==========/x:V: Voor de SERIE TEST bekijken wex: steeds twee worpen met de: dobbelsteen. De som van de beideǀ: worpen, samen met de kans is:߀: som kans: 2 1/36: 3 2/36-: 4 3/36G: 5 4/36a: 6 5/36{: 7 6/36: 8 5/36: 9 4/36Ɂ: 10 3/36: 11 2/36: 12 1/36":!, 1,2,3,4,5,6,5,4,3,2,1)6:N@: ============================VJ:^T:s^: variabelen={h:r: VERWACHT - bevat verwachte aantallen voor elke groep|: TELLING - bevat getelde aantallen voor elke groep : ============================(:G VERWACHT( ),TELLING( )O:l"startgetal";A:X(A)"aantal 2-worpen";MWRP:: alles klaar zetten...:Ƀ GROEP  փ KANS VERWACHT(GROEP)KANSMWRP$= VERWACHT(GROEP)  "meer dan";MWRP;" worpen nemen...":T TELLING(GROEP)` GROEPh:&: doe de worpen maar...0:: WRP MWRPD ".";ĄN W1(())ۄX W2(())b GROEPW1W2:: worpen optellen'l TELLING(GROEP)TELLING(GROEP)1v WRP9:FRESULTN:o: eindresultaat beoordelenw::"Groep telling verwacht resultaat"˅"---------------------------------"ޅ GROEP   Z((TELLING(GROEP)VERWACHT(GROEP)))VERWACHT(GROEP)o " ##: #### #### ##.###";GROEP,TELLING(GROEP),VERWACHT(GROEP);Z RESULTRESULTZ GROEP:: "Eindresultaat ##.###";RESULT̆  R,R$ RESULTR   : "Dit is ";R$;" random!"*4:,> 2.558,"onmogelijk goedGH 3.940,"verdacht goedhR 6.737,"bijna verdacht goedz\ 9.342,"goedf 12.55,"bijna verdacht slechtp 18.31,"verdacht slechtهz 23.21,"onmogelijk slecht뇄 1e62, "niet 1e62, "niet,0,1$d: SERIE TEST met een slechte=n: random generator`x: ==========================h:: Voor uitleg, zie de SERIE TEST: met ingebouwde random generator:ۀ 1,2,3,4,5,6,5,4,3,2,1〴:: ============================:/ VERWACHT( ),TELLING( )7:T"startgetal";A:X(A)p"aantal 2-worpen";MWRPx:: alles klaar zetten...: GROEP  " KANS, VERWACHT(GROEP)KANSMWRP$%6 VERWACHT(GROEP)  "meer dan";MWRP;" worpen nemen...":<@ TELLING(GROEP)HJ GROEPPT:n^: doe de worpen maar...vh:r WRP MWRP| "."; :W1(R)ǂ :W2(R)킚 GROEPW1W2:: worpen optellen TELLING(GROEP)TELLING(GROEP) WRP%:2RESULT::[: eindresultaat beoordelenc::"Groep telling verwacht resultaat""---------------------------------"ʃ GROEP   Z((TELLING(GROEP)VERWACHT(GROEP)))VERWACHT(GROEP)[ " ##: #### #### ##.###";GROEP,TELLING(GROEP),VERWACHT(GROEP);Zq RESULTRESULTZ}& GROEP0::: "Eindresultaat ##.###";RESULTD R,R$̈́N RESULTR DX: "Dit is ";R$;" random!"bl:v 2.558,"onmogelijk goed3 3.940,"verdacht goedT 6.737,"bijna verdacht goedf 9.342,"goed 12.55,"bijna verdacht slecht 18.31,"verdacht slechtƅ 23.21 ,"onmogelijk slecht؅ 1e62, "niet:: (bad) random generator: ======================&:AA)(A 2)(A2)V A AAbRAh$P);Z RESULTRESULTZ GROEP:: "Eindresultaat ##.###";RESULT̆  R,R$ RESULTR   : "Dit is ";R$;" random!"*4:,> 2.558,"onmogelijk goedGH 3.940,"verdacht goedhR 6.737,"bijna verdacht goedz\ 9.342,"goedf 12.55,"bijna verdacht slechtp 18.31,"verdacht slechtهz 23.21,"onmogelijk slecht뇄 1e62, "niet 1e62, "niet,0,1d: GRAFISCHE SERIE TEST;n: ====================Cx:g: Er wordt telkens een random: getallen-paar genomen. Dit: paar wordt opgevat als scherm-ـ: coordinaat. Ontstaan er lijnen,: is er sprake van afhankelijkheid$: tussen twee opeenvolgende<: random waarden.D:g: Twee maal CTRL+STOP om het: programma te beeindigen.::===============================:ށ "Startgetal";A: A(A)  T" , X():: coordinaten46 Y() D@ (X,Y), NJ ,iT (, )(,), ,Bw^ |h r r| : "Eindresultaat ##.###";RESULT̆  R,R$ RESULTR   : "Dit is ";R$;" random!"*4:,> 2.558,"onmogelijk goedGH 3.940,"verdacht goedhR 6.737,"bijna verdacht goedz\ 9.342,"goedf 12.55,"bijna verdacht slechtp 18.31,"verdacht slechtهz 23.21,"onmogelijk slecht뇄 1e62, "niet 1e62, "niet,0,1d: GRAFISCHE SERIE TESTCn: met slechte random generatorhx: ============================p:: Voor de uitleg van het: programma zie de test met de؀: ingebouwde random generator:: Twee maal CTRL+STOP om het$: programma te beeindigen.,:S:===============================[:z "Startgetal";A: X(A)  6  :X(R):: coordinaten܁ :Y(R) " (X,Y), , 6 (, )(,), ,B@ ^'J 1T T9^ ?hGr:f: (bad) random generator: ======================:A)(A 2)(A2) A AAȂ&RA΂0 RESULTR   : "Dit is ";R$;" random!"*4:,> 2.558,"onmogelijk goedGH 3.940,"verdacht goedhR 6.737,"bijna verdacht goedz\ 9.342,"goedf 12.55,"bijna verdacht slechtp 18.31,"verdacht slechtهz 23.21,"onmogelijk slecht뇄 1e62, "niet 1e62, "niet,0,1d: POKER TEST'n: ==========/x:V: Voor de poker test bekijken we~: groepen van vijf worpen met een: dobbelsteen. We brengen elkeɀ: vijf-worp onder in een van de〪: volgende klassen-: 5 verschillende cijfers): 4 verschillende cijfersL: 3 verschillende cijferso: 2 verschillende cijfers: 1 cijfer oftewel poker:: Voorbeeld:с: 1 3 5 4 2 = 5 verschillende: 1 4 3 1 2 = 4 verschillende: 1 4 6 4 6 = 3 verschillende@: 1 4 6 6 6 = 3 verschillendee": 4 3 3 3 3 = 2 verschillende,: 5 5 5 5 5 = poker6:@: De kansen voor de groepenJ: zijn ruwweg:ނT: 5 verschillen = 10 %^: 4 verschillen = 46 %h: 3 verschillen = 38 %;r: 2 verschillen = 6 %]|: poker = 0.08 %e:: ============================:: Groep-kansen zijnƃ 0.000772 :: pokerꃸ 0.057870 :: 2 verschillende 0.385802 :: 3 verschillende2 0.462963 :: 4 verschillendeV 0.092593 :: 5 verschillende^:: ============================::: variabelen=:: VERWACHT - bevat verwachte aantallen voor elke groep0&: TELLING - bevat getelde aantallen voor elke groeps0: OGEN - hulparray om te testen wat er al is gegooid:: ============================D:ŅN VERWACHT(),TELLING(),OGEN()ͅX:b"startgetal";A:X(A)l"aantal 5-worpen";MWRPv:,: alles klaar zetten...4:F GROEP S KANSs VERWACHT(GROEP)KANSMWRP TELLING(GROEP) GROEP:: doe de worpen maar...Ć:׆ WRP MWRP "."; I  OGEN(I): :nog niets gegooid&  I.:^  GROEP: :GROEP telt aantal verschillenn* I 4 W(())͇> OGEN(W) OGEN(W): GROEPGROEP:: ogen niet meer tellenׇH I߇R:\ TELLING(GROEP)TELLING(GROEP)f WRPp:$zRESULT,:M: eindresultaat beoordelenU::"Groep telling verwacht resultaat""---------------------------------" GROEP ۈ VERWACHT(GROEP)  TELLING(GROEP)TELLING(GROEP)TELLING(GROEP)P VERWACHT(GROEP)VERWACHT(GROEP)VERWACHT(GROEP)^ f: Z((TELLING(GROEP)VERWACHT(GROEP)))VERWACHT(GROEP) " #: #### #### ##.###";GROEP,TELLING(GROEP),VERWACHT(GROEP);Z  RESULTRESULTZ GROEP :H$: "Eindresultaat ##.###";RESULTS. R,R$h8 RESULTR .B: "Dit is ";R$;" random!"LV:` 0.2971,"onmogelijk goedЊj 0.7107,"verdacht goedt 1.923,"bijna verdacht goed~ 3.357,"goed& 5.385,"bijna verdacht slechtC 9.488,"verdacht slechtb 13.28,"onmogelijk slechtt 1e62, "nietoedf 12.55,"bijna verdacht slechtp 18.31,"verdacht slechtهz 23.21,"onmogelijk slecht뇄 1e62, "niet 1e62, "niet,0,1$d: POKER TEST met een slechte=n: random generator`x: ==========================h:: Voor programma uitleg, zie: POKER test met ingebouwdeǀ: random generator.π:: ============================:: Groep-kansen zijn0 0.000772 :: pokerT 0.057870 :: 2 verschillendex 0.385802 :: 3 verschillende 0.462963 :: 4 verschillende 0.092593 :: 5 verschillendeȁ:: ============================:" VERWACHT(),TELLING(),OGEN()",:?6"startgetal";A:X(A)[@"aantal 5-worpen";MWRPcJ:T: alles klaar zetten...^:h GROEP r KANSȂ| VERWACHT(GROEP)KANSMWRP߂ TELLING(GROEP)낐 GROEP:: doe de worpen maar...:, WRP MWRP8 ".";H I q OGEN(I): :nog niets gegooid{ I: GROEP: :GROEP telt aantal verschillenà I ݃ :W(R)$ OGEN(W) OGEN(W): GROEPGROEP:: ogen niet meer tellen. I6&:\0 TELLING(GROEP)TELLING(GROEP)f: WRPnD:{NRESULTX:b: eindresultaat beoordelenl:ׄv:"Groep telling verwacht resultaat""---------------------------------" GROEP 2 VERWACHT(GROEP) k TELLING(GROEP)TELLING(GROEP)TELLING(GROEP) VERWACHT(GROEP)VERWACHT(GROEP)VERWACHT(GROEP) : Z((TELLING(GROEP)VERWACHT(GROEP)))VERWACHT(GROEP)M " #: #### #### ##.###";GROEP,TELLING(GROEP),VERWACHT(GROEP);Zc RESULTRESULTZo GROEPw:: "Eindresultaat ##.###";RESULT R,R$  RESULTR ߆: "Dit is ";R$;" random!" *: 4 0.2971,"onmogelijk goed'> 0.7107,"verdacht goedHH 1.923,"bijna verdacht goedZR 3.357,"goed}\ 5.385,"bijna verdacht slechtf 9.488,"verdacht slechtp 13.28,"onmogelijk slechtˇz 1e62, "nietӇ:: (bad) random generator: ======================,A)(A 2)(A2)A A AAMRAS8 RESULTR .B: "Dit is ";R$;" random!"LV:` 0.2971,"onmogelijk goedЊj 0.7107,"verdacht goedt 1.923,"bijna verdacht goed~ 3.357,"goed& 5.385,"bijna verdacht slechtC 9.488,"verdacht slechtb 13.28,"onmogelijk slechtt 1e62, "nietoedf 12.55,"bijna verdacht slechtp 18.31,"verdacht slechtهz 23.21,"onmogelijk slecht뇄 1e62, "niet 1e62, "niet,0,1$: een goede random generatorG: ==========================O:mA1)(A1 2)(A12) A1 A1A1:$A2*(A2 1)(A21). A2 A2A2ɀ8:BA3'(A3 5)(A35)L A3 A3A3V:!`RA1A2A3/jRR(R)5tacht slechtb 13.28,"onmogelijk slechtt 1e62, "nietoedf 12.55,"bijna verdacht slechtp 18.31,"verdacht slechtهz 23.21,"onmogelijk slecht뇄 1e62, "niet 1e62, "niet,0,1(d: MONTE CARLO - schatting van PINn: =============================Vx:~: Met een random generator kunnen: we een schatting maken van PI.ƀ: We nemen steeds 2 random造: getallen. Dit getallenpaar: stelt een coordinaat voor in0: een vierkant van 1 bij 1.X: De oppervlakte van het vierkant: is 1. Binnen het vierkant kunnen: we een kwart-cirkel tekenen. Deс: oppervlakte van de kwart-cirkel: is PI*r*r/4 met r=1, dus PI/4.:': Voor elke coordinaat kijken weM: of hij binnen de kwart cirkels: ligt; de verhouding tussen de: binnenliggende punten en het": totaal komt ruwweg overeen met,: de verhouding van de oppervlakten6: van kwart cirkel en vierkant.@:>J: ==============================FT:j^: 1e maal CTRL+STOP stopt heth: nemen van coordinaten;r: 2e maal CTRL+STOP drukt deу|: schatting van PI af.ك:: ==============================:: variabelen:C: ALLES telt het totaal van de_: coordinaten: BINNEN telt de coordinaten binnen: het cirkel segmentф: X, Y zijn de coordinatenل:: ==============================:' "Startgetal";A: A(A)/ = E _& (, ),,,AG@,t0BINNEN:ALLES:: begin van de lusȅD ALLESALLES:: totaal aantal coordinaten verhogenN X():: X-coordinaatX Y():: Y-coordinaatb:5l XXYY  BINNENBINNENTv: teken de coordinaat...h X(X)| Y(Y)  (X,Y),  D (, )(,), ,B dž ц ن :: het eindresultaat...::8 "Eindresultaat:":"-------------":d "Van de";ALLES;"coordinaten liggen er"BINNEN;"binnen de cirkel." :  "Schatting PI: #.#####";BINNENALLES* "Werkelijke waarde PI: #.#####";()4 >et,0,1) : MSX Computer Magazine checker/41:^: copyright MBI Publications B.V. 1985(:*********************************2: PAS TOP OF BASIC MEMORY AAN ****Ҁ< ,(( J)( K))FB( J)( K): BMP: STEL SCHERM IN *****************7Z : %: ,,_d: GEEF INSTRUCTIE OP SCHERM *****n ,: "MSX COMPUTER MAGAZINE"x ,: "INVOER CONTROLE PROGRAMMA/3" ,: "Dit programma maakt het mogelijk om de listings uit dit blad foutloos in te voeren." "Bij het intikken van programma-regelsveschijnt nadat u op 'RETURN' of 'ENTER' gedrukt heeft een getal linksop de onderste regel."6 "Dit getal moet gelijk zijn aan de bijde listing afgedrukte checksumwaarde.Als dit niet zo is, dan is er een fout gemaakt bij het intikken." "Let op, BASIC woorden moeten met hoofdletters geschreven worden!": INSTALLEER MACHINECODE ******** R à A$CSCS((A$,))((A$,)) (A$,)"*" BR,("&H"A$): x A$"**" A$: ABB("&H"A$): BR,AB((AB)): RR: BR,(AB):  A$"*1" A$: ABB("&H"A$): BR,AB((AB)):  A$"*2" BR,(AB):  R: KONTROLEER DATA-WAARDES *******z CSV : "U heeft een fout gemaakt in de data- regels!": : "Eerst verbeteren!": : ZET CHECKSUMROUTINE AAN *******"A()ԅ,: "Begint u maar met intikken"څ6@: MACHINECODE *******************~J 21,5E,F5,7E,23,FE,20,20,FA,7E,23,FE,20,28,FA,FE,27,28,D,FE,52,20,D,7E,FE,45,C0,23,7E,FE,4D,C0,E1,C3,**,9F,FE,72,C0,7ET FE,65,C0,23,7E,FE,6D,28,EF,C9,36,27,1,6,0,21,**,47,11,7F,F8,ED,B0,3E,C9,32,DB,FD,C3,**,CB,63,6F,6C,6F,72,20,1,6,0u^ 21,7F,F8,11,**,47,ED,B0,21,7F,F8,36,27,21,83,F8,36,27,23,36,D,21,DB,FD,36,C3,23,36,*1,71,23,36,*2,C9,1E,0,CD,**,00,21,5Eh F5,6,1,7E,4F,FE,27,28,B1,18,1,4E,3E,0,B9,28,16,C5,16,7,CB,39,30,1,80,15,28,4,CB,20,18,F4,83,5F,C1,4,23,18,E4,6B_r 11,80,F8,26,0,1,64,0,CD,**,B9,1,A,0,CD,**,B9,1,1,0,CD,**,B9,18,12,37,3F,3E,0,ED,42,FA,**,C5,3C,18,F8,C6,30,12x| 13,9,C9,CD,C9,0,C9,7ET FE,65,C0,23,7E,FE,6D,28,EF,C9,36,27,1,6,0,21,**,47,11,7F,F8,ED,B0,3E,C9,32,DB,FD,C3,**,CB,63,6F,6C,6F,72,20,1,6,0u^ 21,7F,F8,11,**,47,ED,B0,21,7F,F8,36,27,21,83,F8,36,27,23,36,D,21,DB,FD,36,C3,23,36,*1,71,23,36,*2,C9,1E,0,CD,**,00,21,5Eh F5,6,1,7E,4F,FE,27,28,B1,18,1,4E,3E,0,B9,28,16,C5,16,7,CB,39,30,1,80,15,28,4,CB,20,18,F4,83,5F,C1,4,23,18,E4,6B_r 11,80,F8,26,0,1  pause PLAATS UW FLOPPIES copy c:*.* a: del a:c4.bat copy c:*.* b: del b:c4.bat copy c:*.* d: del d:c4.bat c:c4 3,6F,6C,6F,72,20,1,6,0u^ 21,7F,F8,11,**,47,ED,B0,21,7F,F8,36,27,21,83,F8,36,27,23,36,D,21,DB,FD,36,C3,23,36,*1,71,23,36,*2,C9,1E,0,CD,**,00,21,5Eh F5,6,1,7E,4F,FE,27,28,B1,18,1,4E,3E,0,B9,28,16,C5,16,7,CB,39,30,1,80,15,28,4,CB,20,18,F4,83,5F,C1,4,23,18,E4,6B_r 11,80,F8,26,0,1