2 READ num:DIM a$(num),aa$(num),ab$(num),ac$(num),a1$(num),a2$(num),a3$(num)
4 FOR a=0 TO num:READ aa$(a),ab$(a),ac$(a),a1$(a),a2$(a),a3$(a),a$(a):NEXT
6 WIDTH 255:x$=CHR$(27)
8 n=40:DEF FNa$=CHR$(27)+"Y3!"+STRING$(a/n*23,"ž")+STRING$(INT(23-(a/n*23)),"ŧ")
10 DEF FNb$(a$)=x$+"p"+x$+"Y3!"+SPACE$(7)+a$+SPACE$(7)+x$+"q":'a$ is 9 chars long
12 DEF FNc$(a)=x$+"Y"+CHR$(a+37)+";"
14 PRINT CHR$(27)"E"
16 FOR a=1 TO 9:squ(a)=0:NEXT:PRINT CHR$(27)"Y$ "
18  PRINT "†ŠŠŠŠŠŠŠ„ŠŠŠŠŠŠŠ„ŠŠŠŠŠŠŠŽŠŠŠ";STRING$(50,"Š");"Œ"
20  PRINT "…       •       •       …    ";TAB(79);"…"
22  PRINT "…   7   •   8   •   9   …    ";TAB(79);"…"
24  PRINT "…       •       •       …    ";TAB(79);"…"
26  PRINT "‚šššššššŸšššššššŸšššššššˆ    ";TAB(79);"…"
28  PRINT "…       •       •       …    ";TAB(79);"…"
30  PRINT "…   4   •   5   •   6   …    ";TAB(79);"…"
32  PRINT "…       •       •       …    ";TAB(79);"…"
34  PRINT "‚šššššššŸšššššššŸšššššššˆ    ";TAB(79);"…"
36  PRINT "…       •       •       …    ";TAB(79);"…"
38  PRINT "…   1   •   2   •   3   …    ";TAB(79);"…"
40  PRINT "…       •       •       …    ";TAB(79);"…"
42  PRINT "‡ŠŠŠŠŠŠŠ‹ŠŠŠŠŠŠŠ‹ŠŠŠŠŠŠŠ    ";TAB(79);"…"
44  PRINT "…"x$"p"SPC(23)x$"q…    ";TAB(81);"…"
46  PRINT "…"x$"p"SPC(23)x$"q…    ";TAB(81);"…"
48  PRINT "…"x$"p"SPC(23)x$"q…    ";TAB(81);"…"
50  PRINT "‡ŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠ    ";TAB(79);"…"
52  PRINT "…         SCORE         …    ";TAB(79);"…"
54  PRINT "… Computer       ";USING "##";score.c;:PRINT TAB(25);"…    ";TAB(79);"…"
56  PRINT "… "player$;TAB(18);USING "##";score.p;:PRINT TAB(25);"…    ";TAB(79);"…"
58  PRINT "ƒŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠŠ‹ŠŠŠ";STRING$(50,"Š");"‰"
60 PRINT:PRINT "†";STRING$(77,"Š");"Œ"
62  PRINT "…"TAB(20)"Questions and Answers - by Keith M. Simons";TAB(79);"…"
64  PRINT "ƒ";STRING$(77,"Š");"‰":GOSUB 154
66 '*** get an answer
68 qu%=INT(RND*num):GOSUB 170
70 PRINT FNc$(1)"   ... for square no. "z$
72 PRINT FNc$(3)aa$(qu%)'aa$(qu%) is first line question: a$()=answer,
74 PRINT FNc$(5)ab$(qu%)'ab$(qu%) is line 2
76 PRINT FNc$(7)ac$(qu%)'ac$(qu%) is line 3
78 PRINT FNc$(11)"(1)  "a1$(qu%):PRINT FNc$(13)"(2)  "a2$(qu%):PRINT FNc$(15)"(3)  "a3$(qu%)
80 FOR a=n TO 0 STEP -1:PRINT FNa$;:a$=INKEY$:IF a$="" OR INSTR("123",a$)=0 THEN NEXT :ELSE 86
82 REM n=20 for 1 second
84 PRINT FNb$(" time up!");FNc$(18)"Correct answer was "a$(qu%):GOTO 90
86 IF a$=a$(qu%) THEN PRINT FNb$("  right! "):PRINT x$"p":GOTO 90
88 IF a$<>a$(qu%) THEN PRINT FNb$("  wrong! ")FNc$(18)"Correct answer was "a$(qu%)
90 FOR a=1 TO 1000:NEXT:GOSUB 106:GOSUB 124
92 IF win=-1 THEN PRINT FNc$(18);"You won - well done!  Play again(y/n)?":score.p=score.p+1:GOTO 166
94 IF win=1 THEN PRINT FNc$(18);"I won the game!  Play again(y/n)?":score.c=score.c+1:GOTO 166
96 IF opt$="" THEN PRINT FNc$(18);"End of game - a draw!  Play again(y/n)?":GOTO 166
98 PRINT FNc$(19);"...please select your next square no."
100 z$="A":WHILE INSTR(opt$,z$)=0:z$=INPUT$(1):WEND
102 a$=SPACE$(50):PRINT FNc$(3);a$;FNc$(5);a$;FNc$(7);a$;FNc$(11);a$;FNc$(13);a$;FNc$(15);a$;FNc$(18);a$;FNc$(19);a$
104 GOTO 66:END
106 '*** draw up board positions ***
108 IF INSTR("789",z$) THEN a=INSTR("789",z$):r$="Y&"
110 IF INSTR("456",z$) THEN a=INSTR("456",z$):r$="Y*"
112 IF INSTR("123",z$) THEN a=INSTR("123",z$):r$="Y."
114 IF a$<>a$(qu%) THEN squ(VAL(z$))=1 ELSE squ(VAL(z$))=-1
116 r$=r$+CHR$(33+((a-1)*8))
118 FOR c=1 TO 3:PRINT x$;r$;SPACE$(7)
120 MID$(r$,2,1)=CHR$(ASC(MID$(r$,2,1))+1):NEXT
122 PRINT x$"q":RETURN
124 '*** win? - also sets up opt$ ***
126 opt$="":FOR a=1 TO 9
128 IF squ(a)=0 THEN opt$=opt$+DEC$(a,"#")
130 NEXT
132 win=0
134 FOR a=1 TO 3
136 IF squ(a)+squ(a+3)+squ(a+6)=3 THEN win=1
138 IF squ(a)+squ(a+3)+squ(a+6)=-3 THEN win=-1
140 NEXT:FOR a=1 TO 7 STEP 3
142 IF squ(a)+squ(a+1)+squ(a+2)=3 THEN win=1
144 IF squ(a)+squ(a+1)+squ(a+2)=-3 THEN win=-1
146 NEXT
148 IF squ(1)+squ(5)+squ(9)=3 OR squ(7)+squ(5)+squ(3)=3 THEN win=1
150 IF squ(1)+squ(5)+squ(9)=-3 OR squ(7)+squ(5)+squ(3)=-3 THEN win=-1
152 RETURN
154 IF player$="" THEN PRINT FNc$(5);:LINE INPUT "What is your name?  ",player$:IF player$="" OR LEN(player$)>9 THEN player$="Competitor"
155 PRINT FNc$(5);SPACE$(50);FNc$(5);:PRINT "Press any key.":FOR a%=-32000 TO 32000:IF INKEY$="" THEN NEXT ELSE RANDOMIZE a%
156 PRINT x$"Y8"CHR$(34)player$
158 PRINT FNc$(5);SPACE$(50);FNc$(5);:INPUT "Number of seconds per question: ",n:n=MAX(n,1):n=MIN(n,20):n=n*20
160 PRINT FNc$(5);"...please select your first square no."
162 z$="A":WHILE INSTR("123456789",z$)=0:z$=INPUT$(1):WEND:
164 PRINT FNc$(5);SPACE$(50):RETURN
166 a$="Q":WHILE INSTR("YN",a$)=0:a$=UPPER$(INPUT$(1)):WEND
168 IF a$="Y" THEN 16 ELSE FOR a=1 TO 35:PRINT:NEXT:GOTO 25000:END
170 WHILE INSTR(quest$,CHR$(qu%))
173 qu%=(qu%+1)MOD num
176 WEND:quest$=RIGHT$(quest$,(num-2))+CHR$(qu%):RETURN
200 '*** QUESTIONS ***
210 'order: three lines of question,three answers, the correct answer
999 DATA 99:'the number of questions-1
1000 DATA MATHEMATICS,What is the next number in this,"sequence; 7,14,21,",23,48,28,3
1001 DATA BIBLE,Who was Gideon?,,a judge,a prophet, a gospel writer,1
1002 DATA HISTORY,Which of these events took place in,the year 1066?,The Great Plague,Norman Conquest,Great Fire of London,2
1003 DATA COMPUTERS,Which of these has a daisywheel printer?,,PCW8256,PCW8512,PCW9512,3
1004 DATA MATHEMATICS,What is the cube root of 125?,,25,5,15,2
1005 DATA GAMES,Which of the following childrens games was,begun by the Great Plague?,Oranges and Lemons,Ring a ring of roses,Othello,2
1006 DATA MATHEMATICS,What's the next number in this sequence;,"0,1,4,9,",16,17,14,1
1007 DATA BIBLE,What is sin?,,wrong things,doing wrong against God,disobeying your conscience,2
1008 DATA BIBLE,According to the Bible; why was Jesus ,killed?,as a martyr,to take punishment for our sins,because the Romans hated him,2
1009 DATA MATHEMATICS,What is 12 x 6 ?,,36,48,72,3
1010 DATA MATHEMATICS,What is 97 + 4 ?,,102,101,99,2
1011 DATA ABBREVIATIONS,What does N.U.M. stand for?,,National United Movement,No Union Members,National Union Of Miners,3
1012 DATA BIBLE,Who wrote the Book of Acts?,,Luke,John,Jesus,1
1013 DATA SCIENCE,What has the chemical symbol Hg?,,Helium,Hydrogen,Mercury,3
1014 DATA SCIENCE,Which of the following theories,did Einstein produce?,relativity,gravity,evolution,1
1015 DATA INVENTIONS,Who invented the wheel?,,Newton,De Vincii,Unknown,3
1016 DATA TAX,What does Stamp Duty tax?,,Postage Stamps,Dogs,Legal documents,3
1017 DATA GEOGRAPHY,How high is Mt. Everest?,,"29,028 ft","67,325 ft","12,752 ft",1
1018 DATA METEROLOGY,"If the temperature is 59ĒF, what", "is the temperature in ĒC?","12Ē","35Ē","15Ē",3
1019 DATA SYMBOLS,"What does ĸ mean?",,does not equal,identically equals,square root symbol,2
1020 DATA NAUTICAL MEASURE,How many feet in one fathom?,(Can you fathom out...!),600,60,6,3
1021 DATA PAPER AND PRINTING,How many sheets of paper in a ream?,,1000,516,252,2
1022 DATA HISTORY,When was the Roman conquest of,Britain?,105 B.C.,43 A.D.,1003 A.D.,2
1023 DATA GEOGRAPHY,How long is the river Nile?,,4150 miles,1276 miles,551 miles,1
1024 DATA GEOGRAPHY,How many miles is it by air,from London to Johannesburg,"12,751","8,124","6,299",3
1025 DATA GEOGRAPHY,Which is the highest of these,mountains?,Pik Kommunizmma (Pamirs),Nandakot (Himalayas),Ararat (Turkey),1
1026 DATA SYMBOLS,"What does 'Ķ' mean?",,Refer to footnote,Subscript,Section Mark,3
1027 DATA MEASUREMENTS,How many grams in an ounce?,,"ķ (one eighth)",28,173,2
1028 DATA MEASUREMENT,How many miles are there in a,light year?,"6,000,000,000,000","6,000,000,000","6,000,000",1
1029 DATA TEMPERATURE,"If the temperature is 0ĒC, what","is the temperature in ĒF?","0ĒF","12ĒF","32ĒF",3
1030 DATA MATHEMATICAL SYMBOLS,What does the symbol > mean?,,proportional to,greater than,less than,2
1031 DATA SPELLING,Which of the following is spelt,correctly?,adress,missnomer,reference,3
1032 DATA WORDS,What is a moa?,,An awkward woman,An ostrich-like extinct bird,A device used like a spade,2
1033 DATA WORDS,What is a mahout?,,An elephant driver,An Indian snake-charmer,A Ford car,1
1034 DATA WORDS,What is a limerick,,An Irishman,A lemon-like fruit,A Poem,3
1035 DATA ABBREVIATIONS,What does Ebor. mean?,,Elizabethan Brigadeers Ordinary Regiment,Made from Ebony,The city of York,3
1036 DATA DEGREES,What is a B.Arch. qualified in?,,Archaeology,Architecture,Archives,2
1037 DATA FOREIGN PHRASES,From which language does the phrase,"'requiescat in pace' come?",Latin,Serbo-croatian,French,1
1038 DATA SYMBOLS,"What does Ĩ mean?",,Section,Paragraph,Page,2
1039 DATA SYMBOLS,"What does ― mean?",,Paragraph,Delete this line,Yen,3
1040 DATA SYMBOLS,"What does Þ mean?",,Does not equal,Delete this word,End of page,1
1041 DATA MEASUREMENT,How far is one league?,,1 mile,3 miles,8 miles,2
1042 DATA WEIGHTS AND MEASURES,How many Kilos in one Metric Ton?,,"1,000","10,000","100,000",1
1043 DATA ABBREVIATIONS,What does Q.E.D. mean?,,Queen's Express Delivery,Which was to be proved,Please consider,2
1044 DATA ABBREVIATIONS,What does A.C. mean?,(next to a date),A.D.,B.C.,In the year of reigning of the Queen/King,2
1045 DATA BIBLE,How many books are there in,the Bible?,39,55,66,3
1046 DATA BIBLE,How many books are there in,the New Testament?,120,27,25,2
1047 DATA BIBLE,Which is the longest book of,the Bible,Exekiel,Isaiah,Psalms,3
1048 DATA BIBLE,Which is the shortest book in,the Bible,Obediah,I John,II John,3
1049 DATA BIBLE,Which of the following was both,a king and a hymn-writer,Josiah,David,Moses,2
1050 DATA BIBLE,Which book of the Bible tells the,story of the Jewish feast of Purim?,Esther,Ruth,Samuel,1
1051 DATA MATHEMATICS,What is 103+72?,,175,173,201,1
1052 DATA MATHEMATICS,Which of the following totals 94?,,31 x 3,88 + 6,1255 / 15,2
1053 DATA MATHEMATICS,Which of the following totals 28?,,3 x 11,17 x 2,4 x 7,3
1054 DATA MATHEMATICS,What is the square root of 36?,,5,6,7,2
1055 DATA MATHEMATICS,What is 13 x 13?,,169,170,171,1
1056 DATA LITERATURE,Who wrote 1984?,,Shakespeare,Williams,Orwell,3
1057 DATA LITERATURE,"Who wrote 'Canterbury Tales'?",,Shakespeare,Wright,Chauncer,3
1058 DATA LITERATURE,"Who wrote 'Pilgrims Progress'?",,Bunyan,Wesley,Shakespeare,1
1059 DATA LITERATURE,Who was the first person to translate,the Bible into German?,Weinholt,Strauss,Luther,3
1060 DATA FAMOUS PEOPLE,Which of the following did,William Tyndale do?,translate the Bible,become Prime Minister,travel to America,1
1061 DATA FAMOUS PEOPLE,What was Marco Polo famous for?,,politics,world travel,fishing,2
1062 DATA OBSERVATION,Who holds the copyright to,Mallard BASIC?,Amstrad,Locomotive,Alan Sugar,2
1063 DATA COMPUTERS,How many different characters are,there in the ASCII set on the PCW?,100,256,1000,2
1064 DATA TYPESTYLES,What is UNCIAL?,,A computer-type style,A ancient style used by monks,The style used in the Guardian,2
1065 DATA ACCOUNTS,For whom were SIMLEX accounts,books designed?,Politicians,Sales-related businesses,Personal Accounts,2
1066 DATA FIGURES,Which of the following is 9 in,Roman Numerals?,VIII,9,IX,3
1067 DATA COMPUTERS,What sort of discs does the,PCW8256 use?,CF2 3inch,CF2DD 3inch,CF2 5.25inch,1
1068 DATA GEOGRAPHY,What is the currency of the,U.S.S.R.?,Rouble,Romel,Dinar,1
1069 DATA GEOGRAPHY,Where is the Yemen?,,Middle East,South America,Pacific Region,1
1070 DATA GEOGRAPHY,What is the currency of,Uganda?,Shilling,Pound,Dollar,1
1071 DATA GEOGRAPHY,What is the capital of,Turkey?,Ankara,Istanbul,Yerevan,1
1072 DATA GEOGRAPHY,What is the main language, in Taiwan?,Chinese,Taiwanese,Hindi,1
1073 DATA GEOGRAPHY,Where is the country of,Andorra?,South America,Western Europe,East Asia,2
1074 DATA GEOGRAPHY,What is the official language,of Ghana?,French,English,Ghanaian,2
1075 DATA GEOGRAPHY,What is the capital of,Greece?,Olympia,Athens,Istanbul,2
1076 DATA GEOGRAPHY,What is the currency of,Greece?,Mark,Drachma,Rial,2
1077 DATA GEOGRAPHY,What is Iceland's official,language?,Danish,Icelandic,Serbo-Croatian,2
1078 DATA GEOGRAPHY,In 1976 what was the population,of Cuba?,one million,nine million,fifty two million,2
1079 DATA GEOGRAPHY,What is the currency of,Canada called?,Franc,Pound,Dollar,3
1080 DATA GEOGRAPHY,Where is the country of C.A.E.?,,America,East Asia,Africa,3
1081 DATA GEOGRAPHY,What is the official religion,of Albania?,Islamic,Christian,Atheistic,3
1082 DATA GEOGRAPHY,What is the currency of,Angola called?,Pashto,Dinar,Kwanza,3
1083 DATA GEOGRAPHY,What is the capital of,Austria?,Berlin,Frankfurt,Vienna,3
1084 DATA ASTRONOMY,Which planet is furthest from,the sun?,Pluto,Jupiter,Saturn,1
1085 DATA ASTRONOMY,Which planet is nearest to,the sun?,Pluto,Mercury,Earth,2
1086 DATA ASTRONOMY,How may rings does Saturn have?,,one,seven,hundreds,3
1087 DATA ASTRONOMY,What temperature is the surface,of the sun?,"50,000ĒC","18,000ĒC","6,000ĒC",3
1088 DATA ASTRONOMY,How long does Pluto take to,go round the sun?,2 years,74 years,248 years,3
1089 DATA BIBLE,Who led was brought up by a princess,and saved a nation from slavery?,Moses,Joseph,Abraham,1
1090 DATA BIBLE,Where was Jesus born?,,Bethlehem,Jerusalem,Salem,1
1091 DATA BIBLE,Where did Jesus move shortly,after his birth?,Persia,Rome,Egypt,3
1092 DATA BIBLE,In which city was Jesus,brought up?,Nazareth,Bethlehem,Jerusalem,1
1093 DATA BIBLE,Who was the 'father' of the,Arab and Jewish peoples?,Abraham,Isaac,Joseph,1
1094 DATA BIBLE,Which book in the bible tells,the history of the early church?,St. Matthew,Revelation,Acts,3
1095 DATA BIBLE,Which king had 700 wives?,,David,Saul,Solomon,3
1096 DATA BIBLE,Complete this sentence-,The Lord is my Shepherd;,My head is anointed with oil.,I fear nothing.,I shall not want.,3
1097 DATA ROMAN NUMBERALS,What does MM mean?,,50,200,2000,3
1098 DATA FIGURES,Which of these is in arabic form?,,fifteen,XV,15,3
1099 DATA SYMBOLS,Which is a diaeresis?,," ~"," þ"," ē",3
25000 IF FIND$("M:$$$$$$$$.&&&")<>"" THEN OPTION STOP:PRINT "[Press any key to return to main menu or press (STOP) to stop]":z$=INPUT$(1):RUN "M:$$$$$$$$.&&&":ELSE END
OPTION STOP:PRINT "[Press any key to return to main menu or press (STOP) to stop]":z$