24R_Multiple_choice_test.bc2

1000 A=5500:GOTO20
1010 REM  MCTOETS  (Multiple-choicetest, 10 K)
1020 T=75:DIML(T),R(T),A$(T),B$(T,4)
1030 P=ASC("A")-1:Q=ASC("a")-1
1100 GOSUB100:FORV=1 TOT:R(V)=0:NEXTV:F=0:G=0
1110 PRINT"**  DE ";T;"- WOORDEN - TEST  **":PRINT
1120 PRINT:PRINT"Bij elk van de moeilijke woorden"
1130 PRINT"vind je 4 mogelijke betekenissen.":PRINT
1140 PRINT"Kies telkens de goede letter (A-B-C-D).":PRINT
1200 FORV=1 TOT:READA$(V):IF(V<10) THENPRINT" ";
1210 PRINTV;" ";:IFV/7=INT(V/7) THENPRINT
1300 GOSUB260:I=INT(RV*T+1):IFR(I)>0 THEN1300
1310 R(I)=V:FORJ=1 TO4:READB$(V,J):NEXTJ:READL
1320 L(V)=L:NEXTV:GOSUB1800:FORV=1 TOT:I=R(V)
1330 GOSUB100:PRINT"Score : ";G;" goed  en ";F;" fout"
1340 PRINT:PRINT"Vraag ";V;" :  ";A$(I):FORJ=1 TO5
1350 L=L(I):GOSUB260:A=INT(4*RV+1):L(I)=A
1360 B$=B$(I,L):B$(I,L)=B$(I,A):B$(I,A)=B$:NEXTJ
1400 PRINT:FORJ=1 TO4:PRINTCHR$(J+P);")   ";B$(I,J)
1410 NEXTJ:PRINT:PRINT"Wat kies je (A, B, C of D) ? ";
1500 GOSUB1900:L=0
1510 IF(IN$>="A") AND(IN$<="D") THENL=ASC(IN$)-P
1520 IF(IN$>="a") AND(IN$<="d") THENL=ASC(IN$)-Q
1530 IFL=0 THEN1500
1540 PRINTIN$;"  ";:IFL=L(I) THENPRINT"(JUIST)":G=G+1
1550 IFL<>L(I) THENPRINT"(FOUT)":F=F+1:GOSUB250
1560 PRINT:PRINT:PRINTA$(I);" = ";B$(I,L(I))
1570 GOSUB1800:NEXTV:V=T:PRINT:PRINT
1700 PRINT"Totale score uit ";V;" items : ";G:PRINT
1710 PRINT"     <Enter> ";:INPUTIN$:GOSUB100:END
1800 PRINT:PRINT:PRINT"     <toets> ";
1900 GOSUB200:IFIN$<>"" THEN1900
1910 GOSUB210:RETURN
25000 DATA"IMKER","NABOOTSER","ZWAKZINNIGE"
25010 DATA"BIJENHOUDER","ISLAMITISCHE LEIDER",3
25020 DATA"CARBURATOR","DONKERBRUIN TEERPRODUKT"
25030 DATA"ITALIAANSE POLITIEMAN"
25040 DATA"STAD IN VENEZUELA","VERGASSER",4
25050 DATA"OEKAZE","VERORDENING VAN RUSSISCHE TSAAR"
25060 DATA"DEEL VAN DE SOVJET-UNIE","GROTE UIL"
25070 DATA"HOOFDSTAD VAN MONGOLIA",1
25080 DATA"EMIR","LAND IN CENTRAAL-AFRIKA"
25090 DATA"UITGIFTE VAN EFFECTEN","ARABISCHE VORST"
25100 DATA"AANSPREEKTITEL VOOR KARDINAAL",3
25110 DATA"KWARK","MELKPRODUKT","BERGKRISTAL"
25120 DATA"AFSTAND VAN VIER TONEN","ZANDSTEEN",1
25130 DATA"GREIN","INFANTERIST","ENGELSE SCHRIJVER"
25140 DATA"GRIEKSE SCHRIJVER","GEWICHTJE",4
25150 DATA"ARGON","OORLOGSGOD","BODEMOPPERVLAKTE"
25160 DATA"EDELGAS","HONDERDOGIGE REUS",3
25170 DATA"CAVALCADE","KERKELIJK BOEK","SPAANSE PEPER"
25180 DATA"RUITERSTOET","BORGSTELLING",3
25190 DATA"KWETS","BOOM UIT ZUIDOOST-AZIE"
25200 DATA"ONZIN","GROND BUITEN DE ZEEDIJK"
25210 DATA"GEDICHT VAN VIER VERSREGELS",1
25220 DATA"HALO","BORDSPEL","HOLLE STENGEL"
25230 DATA"LICHTKRING ROND ZON OF MAAN","BEGROETING",3
25240 DATA"PITTORESK","ROTANPALM","SCHILDERACHTIG"
25250 DATA"SPAANSE AVONTURIER","ROOFVIS",2
25260 DATA"MOCASSIN","ZENDINSTALLATIE","MODDERBAD"
25270 DATA"BESTIKTE SCHOEN VAN INDIAAN"
25280 DATA"BRAZILIAANSE KOFFIESOORT",3
25290 DATA"RUMBA","GEMALEN EIKENSCHORS"
25300 DATA"FLES OM RUM IN TE KOELEN"
25310 DATA"ZUIDAMERIKAANSE DANS","VLINDER-LARVE",3
25320 DATA"NATHAN","PROFEET (OUDE TESTAMENT)"
25330 DATA"INDISCH GERECHT","DUITS HERTOGDOM"
25340 DATA"LAND IN AFRIKA",1
25350 DATA"KOLBAK","RUSSISCHE LANDBOUWONDERNEMING"
25360 DATA"HONGAARSE PELSMUTS","ONDERSCHEIDINGSTEKEN"
25370 DATA"AFRIKAANSE VRUCHT",2
25380 DATA"IMMUUN","NIET VATBAAR VOOR EEN ZIEKTE"
25390 DATA"ONBESCHAAMD","ONMETELIJK","GEBIEDENDE WIJS",1
25400 DATA"GABARDINE","IJZERTANG","GEWEI VAN DRIE TAKKEN"
25410 DATA"VAST GEWEVEN STOF","KLEIN GESNEDEN VLEES",3
25420 DATA"DUKAAT","STICHTER VAN HET RODE KRUIS"
25430 DATA"GOUDEN MUNT","HAVENHOOFD","BIJVOEGSEL",2
25440 DATA"BENZOL","OUD-ENGELS HELDENDICHT"
25450 DATA"LAAG STRUIKJE MET RODE VRUCHTEN"
25460 DATA"ZWERVENDE WOESTIJNBEWONER","MOTORBRANDSTOF",4
25470 DATA"YALE","JAKHALS","AMERIKAANSE UNIVERSITEIT"
25480 DATA"ENGELSE LENGTEMAAT","JAPANSE MUNT",2
25490 DATA"TRIANGEL","MUZIEKINSTRUMENT","SPREEKGESTOELTE"
25500 DATA"GEOLOGISCH TIJDPERK","SPECIALE RECHTBANK",1
25510 DATA"SCHOOR","SCHAKEL-KLAS","PLATVIS"
25520 DATA"RUWHARIGE HOND","SCHUINE STUT",4
25530 DATA"TERMIET","VERHOOGDE ZITGELEGENHEID"
25540 DATA"VASTGESTELD TIJDSTIP","WITTE MIER"
25550 DATA"KLEIN STUKJE MARMER",3
25560 DATA"DIFTONG","ROTSPUNT IN ZEE","GROTE VIS"
25570 DATA"TROPISCHE ZIEKTE","TWEEKLANK",4
25580 DATA"BERIBERI","INDIANEN-TAAL","EDELSTEEN"
25590 DATA"TROPISCHE ZIEKTE","SINAASAPPEL",3
25600 DATA"KOALA","BUIDELBEER","HARD, LICHTGRIJS METAAL"
25610 DATA"VERDIKKING AAN KOOLPLANT-WORTEL"
25620 DATA"CONSUMPTIE-VIS",1
25630 DATA"ISCHIAS","ZIJRIVIER VAN DE RHONE","HEUPJICHT"
25640 DATA"POOLSE COMPONIST","ANDERE NAAM VOOR JUDAS",2
25650 DATA"GALLON","MET SPECIAAL GAS GEVULDE BALLON"
25660 DATA"SNELLE GANG VAN EEN PAARD","HOFFELIJK"
25670 DATA"ENGELSE INHOUDSMAAT",4
25680 DATA"REU","BUIKVET","MANNELIJKE HOND"
25690 DATA"ENGELS PERSBUREAU","FAMILIELID",2
25700 DATA"NEBUKADNEZAR","NAAMLIJST VAN GESTORVENEN"
25710 DATA"ONTSTEKING AAN EEN PAARDEBEEN"
25720 DATA"BABYLONISCHE KONING","REISKOFFERTJE",3
25730 DATA"PANTRY","KLEINE KEUKEN","LUIPAARD"
25740 DATA"GROTE SLOF","DAMESKOUS",1
25750 DATA"MANDRIL","TOKKELINSTRUMENT","KROOS"
25760 DATA"HOGE AMBTENAAR IN CHINA","AAP",4
25770 DATA"ORION","STERRENBEELD","RIVIER IN VENEZUELA"
25780 DATA"HET MORGENLAND","DOORZICHTIG WEEFSEL",1
25790 DATA"ILIAS","HELDENDICHT VAN HOMERUS","ONWETTIG"
25800 DATA"EEN DER VERENIGDE STATEN","DROOMBEELD",1
25810 DATA"GENTIAAN","BESCHERMGEEST","GESLACHT"
25820 DATA"AARDKORST","ALPENPLANT",4
25830 DATA"ROERDOMP","ONTSTOPPER VOOR HET TOILET"
25840 DATA"WATER-ZOEKER (MET WICHELROEDE)"
25850 DATA"REIGERACHTIGE VOGEL","WIJNGLAS",3
25860 DATA"ONDULEREN","HET HAAR KRULLEN","FELICITEREN"
25870 DATA"ZAKKEN VOOR EEN EXAMEN"
25880 DATA"BODEM-ONDERZOEK VERRICHTEN",1
25890 DATA"METEOROLOGIE","WEERKUNDE","VLAKKE MEETKUNDE"
25900 DATA"GEDAANTEVERWISSELING","METAAL-ONDERZOEK",1
25910 DATA"HUMBUG","STAD IN DUITSLAND","POTGROND"
25920 DATA"BOERENBEDROG","WARME HAP",3
25930 DATA"CYCLOON","EILAND IN DE MIDDELLANDSE ZEE"
25940 DATA"REEKS VOORDRACHTEN","TROPISCHE WERVELSTORM"
25950 DATA"IN EEN POT GEKWEEKTE PLANT",3
25960 DATA"HARPUIS","GELE HARS MET LIJNOLIE EN VET"
25970 DATA"BAZIGE VROUW","BLAUWWITTE BLOEM"
25980 DATA"SLOEP VAN EEN WALVISVAARDER",1
25990 DATA"SERVIEL","KLEIN SERVET","LACHWEKKEND"
26000 DATA"VISMAND","SLAAFS",4
26010 DATA"SIBYLLE","INSEKTENBESTRIJDINGSMIDDEL"
26020 DATA"WAARZEGSTER","AFSTAMMELING","INSECT",2
26030 DATA"HEEMST","ANTILOPE","BOERENHOEVE"
26040 DATA"HARDHOREND","PLANT",4
26050 DATA"DOLOMIET","IEMAND DIE VERDWAALD IS"
26060 DATA"KALKGESTEENTE","KLUIZENAAR","INSEKT",2
26070 DATA"HAMEI","WINTERTEEN","HEIPAAL MET PLATTE KOP"
26080 DATA"VROUW DIE TEVEEL PRAAT","SLAGBOOM",4
26090 DATA"MISTRAL","SCHOONMAAKMIDDEL","DROGE WIND"
26100 DATA"MIDDELEEUWSE ZANGER","ITALIAANSE MUSICUS",2
26110 DATA"SCHEPEL","EENTIENDE HECTOLITER"
26120 DATA"TIEN KILO","EEN LITER","DRIE ONS",1
26130 DATA"GEEP","NAALDBOOM","VIS"
26140 DATA"HAGEDISACHTIG DIER","LIJMSOORT",2
26150 DATA"SONDE","KLEINE ZONDE","SOLDEERPISTOOL"
26160 DATA"ANKERGAT","PEILSTIFT",4
26170 DATA"ALIKAS","MARMEREN KNIKKER","HOOIKOORTS"
26180 DATA"KWEEKKAS VOOR EETBARE SLAKKEN","ZEEWIER",1
26190 DATA"GOUACHE","KOEIENDRIJVER","GEKRUIDE MAALTIJD"
26200 DATA"WATERVERFSCHILDERIJ","WIJDE SCHOUDERMANTEL",3
26210 DATA"HEKEL","GEHEMELTE","DWARSBALK AAN EEN HEK"
26220 DATA"VLASKAM","OPENING NAAST EEN SLAGBOOM",3
26230 DATA"STUF","ERG VERMOEID","VLAKGOM"
26240 DATA"ROMEINS BADHUIS","KACHELSMID",2
26250 DATA"IDOOL","VERBETERD ESPERANTO","AFGOD"
26260 DATA"ZAADBOL VAN EEN PAARDEBLOEM","GRASSOORT",2
26270 DATA"NEG","KIPPENGAAS","BRAZILIAANSE DANS"
26280 DATA"SCHERPE KANT","SPROOKJESFIGUUR",3
26290 DATA"MEUN","BRUINE ZEEVIS","ZACHT"
26300 DATA"BEWAARPLAATS VOOR APPELS","FAMILIELID",1
26310 DATA"BEUG","FLES MET EEN BEUGELSLUITING"
26320 DATA"LANGE VISLIJN","SPROEIER AAN EEN TUINSLANG"
26330 DATA"MENGSEL VAN KOPER EN BRONS",2
26340 DATA"PASSAAT","REISBILJET","KLEINE BIOSCOOP"
26350 DATA"ROEISPAAN","REGELMATIGE TROPISCHE WIND",4
26360 DATA"SAK","GROTE ZAK","MELKPRODUKT"
26370 DATA"GRIMAS","JAPON UIT DE 18E EEUW",4
26380 DATA"EPPE","SELDERIE","IJS VAN EEN NACHT"
26390 DATA"KINDERTAAL","MEISJE VAN ADEL",1
26400 DATA"DREVEL","GROTE SNOR","DWINGELAND"
26410 DATA"DRIJFIJZER","HEKS",3
26420 DATA"JUDASKUS","WREEDAARD","HERENPIAMA"
26430 DATA"PADDESTOEL","KUS VAN EEN VERRADER",4
26440 DATA"BLAARKOP","VLEERMUIS","HUILENDE BABY"
26450 DATA"WITTE PLEK OP EEN PAARDEKOP"
26460 DATA"HERT VAN DRIE MAANDEN",3
26470 DATA"KEG","WIG","ROMP VAN EEN SCHIP"
26480 DATA"HALSDOEK","KLEIN PAARD",1
26490 DATA"BRANIE","SCHEEPSJONGEN","BLUF"
26500 DATA"HAVERMOUTPAP","GRAAFSCHAP",2
26510 DATA"PARLEVINKER","JAGER OP ROOFVOGELS"
26520 DATA"KLEINHANDELAAR TE WATER","PANTER"
26530 DATA"SLUITING VAN EEN AUTOPORTIER",2
26540 DATA"TILBURY","OPHAALBRUG","GOEDERENLIFT"
26550 DATA"INWONER VAN TILBURG","TWEEWIELIG RIJTUIG",4
26560 DATA"TIJGEROOG","BRUIN GESTREEPTE KWARTS"
26570 DATA"SCHERP DOLKMES","GOUDEN KETTING","ROOFVIS",1
26580 DATA"ALIBI","METAALMENGSEL","AANWEZIGHEID ELDERS"
26590 DATA"ZUIDVRUCHT","OVERKAPPING VOOR VLIEGTUIGEN",2
26600 DATA"DOGGERSBANK","SCHUIT VOOR KABELJAUWVANGST"
26610 DATA"RESERVE-FONDS VOOR DOGGERS"
26620 DATA"ZANDBANK IN DE NOORDZEE"
26630 DATA"BANK VOOR ZES PERSONEN",3
26640 DATA"LUMMEL","LOMPE,ONHANDIGE JONGEN"
26650 DATA"ACHTERSTUK VAN EEN RUND"
26660 DATA"WIJDE SPORTKIEL","SLIJMVLIES",1
26670 DATA"ZURING","ZUUR SNOEPBALLETJE","PLANT"
26680 DATA"ZURE HARING","LOOPPAD DOOR EEN MOERAS",2
26690 DATA"LINGERIE","HUISHOUDING","ZOLDER"
26700 DATA"ONDERGOED","SPEELGOEDWINKEL",3
26710 DATA"PRINSJESDAG","ZEER ZONNIG WEER"
26720 DATA"DERDE DINSDAG IN SEPTEMBER"
26730 DATA"OUD ORANJE-FEEST","UITERSTE TERMIJN",2
30000 REM
30010 REM  DATA-structuur   : eerst de stam  A$(V),
30020 REM  dan 4 alternatieven  B$(V,1) t/m B$(V,4)
30030 REM  en tenslotte het juiste antwoord :  L(V)
30040 REM
30050 REM  Wijzig DATA-regel 25000 etc. naar wens !
30060 REM  In regel 1010 staat het aantal vragen T.
30070 REM
30080 REM  De Wie-weet-kwis van Hans Fontein (1984)
30090 REM  Bewerking Basicode  :   Maarten van Gils
30100 REM  1988  (C)  NOS - Hobbyscoop  (Hilversum)