BEGIN 5 Û ÛxÝÿ ì11 ^û:õ¬10 ,8;"STOP THE TAPE":ën=1Ì10 :×.1}LÌÌÌ,10 :ón:ò100d û  êmultiple choice tester ½ê***********************This program will selectquestions from data statements starting at line 9000. You can add as many extra data items as you like.******************************** KêIt is currently set up to ask questions on Capitals. (ê 2ê dêvariables n:êdatanum=number of pairs of items in the data statements. x8ênumq=number of questions to be asked. ‚Têq$ and c$ are the country and correct capital for the qth data pair. Œ*êc=number of correct answer –Ïê***********************The program first reads the dataas far as the "end" marker to see how many item pairs exist. Then it asks you how many questions you want.******************************** èêmain program íê òêfind datanum üñdatanum=0:å9000(# 7ãq$:úq$É"end"Ëãc$:ñdatanum=datanum+1:ì1030 ê êrequest number of q's $aû:õ¬10 ,0;"This program can ask questions on the capitals of ";datanum;" countries." .6õ''"How many questions would you like to attempt?" 8î"Enter number.";numq B'únumq<1Ånumq>datanumËì10808 Lê Vê `ê Ðêinitialise variables Ú9éa$(5,15):ê alternative answers ä¢és$(datanum):ën=1Ìdatanum:ñs$(n)="x":ón:ês$(n) is "1" if the nth question has been answered correctly,"0" if incorrectly and "x" if not asked. îñscore=0 øê Üê***********************The main loop calls subroutines to select a question, select 5 alternative answers and finally print the question, check the response and update the score. ********************************  ê ¸êmain loop Âëa=1Ìnumq Ì2í4000 :êfind question Ö2í5000ˆ:êfind alternative answers à2í6000p:êask question êóa ô2í7000X:êprint results. õê öê ÷ê þêrepeat or quit? Zõ#1;¬0,0;"Press Y to run again, Press M to move on.": ñk$=¦:úk$=""Ëì3090 úk$="y"Åk$="y"Ë÷ &3ý:õ¬10 ,5;"PLEASE RUN THE TAPE":ï"" 0ê :ê  êfind question ªñq=º(1+datanum*¥) ´Lús$(q)="1"Ëì4010ª:êleave out correctly answered questions. ¾å9000(#:ën=1Ìq Èãq$,c$ Òón Üþ æê ðê úê ˆ5êfind a$(1..5) the five alternative answers ’ën=1Ì5 œñm=1+º(¥*datanum) ¦2úm=qËì5020œ:ê reject correct answer ° å9000(# ºëf=1Ìm:ãa$(n),a$(n):óf Ä*êif n>1 check for repeats. Îún=1Ëì5110ö Øëf=n-1Ì1Í-1 â$úa$(f)=a$(n)Ëì5020œ:êtry again ìóf öón (ênow decide on correct answer  ñc=1+º(¥*5) +ña$(c)=c$:êslot in the right answer. þ (ê 2ê pêask question zEû:õ¬5,0;"What is the capital of";¬7,8;q$;"?" „ën=1Ì5 Ž?õ¬8+2*n,2;Ý1;n;Ý0;­6;a$(n) ˜ón ¢Gõ#1;¬0,3;"PRESS 1, 2, 3, 4 or 5" ¬ñk$=¦:úk$=""Ëì6060¬ ¶úk$>"5"Åk$<"1"Ëì6060¬ Àúk$=ÁcËì62008:êcorrect Ê êincorrect Ô×.5ÿÿÿ,-15 Þ ñs$(q)="0" è ì6300œ 8 êcorrect BM×.2~LÌÌÌ,10 :×.4LÌÌÌ,22:õ¬21,8;Û1;"CORRECT!" L ñscore=score+1:ñs$(q)="1" Vê `ê œêflash correct answer. ¦<õ¬7,8;Û1;q$;¬8+2*c,6;c$ °9ën=1Ì200È:ón:ê keyboard insensitive pause. ºú¦É""Ëì6330º Ä3õ#1;¬0,3;" PRESS ANY KEY " 2 ò0:û:þ <ê Fê Xêprint score bû l#õ"You answered ";numq;" questions" võ'"You got ";score;" right." €õ'"You got these wrong;" Šå9000(#:ën=1Ìdatanum ”ãq$,c$ ¨ús$(n)="0"Ëõq$,c$ ²ón ¼þ #(êquestions & answers #2Pä"England","London","Wales","Cardiff","Scotland","Edinburgh","Ireland","Dublin" #