home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_18_(11-1984).d64 / trivia (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  8KB  |  194 lines
  1. 1 A=RND(-TI)
  2. 5 DIM Q1$(100),Q2$(100),AN$(100),ID(100)
  3. 6 FORI=1TO100:ID(I)=I:NEXT:GOSUB1300
  4. 10 GOSUB1000
  5. 20 GOSUB1100
  6. 25 GOSUB1200
  7. 26 GOSUB4000
  8. 30 FOR Z = 1 TO 10
  9. 50 GOSUB3000
  10. 60 GOSUB2000
  11. 65 GOSUB5000
  12. 90 NEXT
  13. 100 GOSUB2100
  14. 110 GOSUB7000
  15. 120 PRINTTAB(4);"[208]LAY AGAIN? ([217]/[206])"
  16. 130 GETX$:IFX$=""THEN130
  17. 140 IFX$="N"THEN20000
  18. 150 RUN
  19. 999 END
  20. 1000 POKE53281,1:POKE53280,11:PRINTCHR$(14):PRINT"[147][152]"
  21. 1001 PRINT"                                    "
  22. 1002 PRINT"                                    "
  23. 1003 PRINT"                                    "
  24. 1004 PRINT"              [212]RIVIA  [209]UIZ"
  25. 1005 PRINT"[144][146]    [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  26. 1006 PRINT"";TAB(36);" "
  27. 1007 PRINT"";TAB(36);" "
  28. 1008 PRINT"";TAB(36);" [146]"
  29. 1009 PRINT"[144]";
  30. 1010 PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  31. 1020 FORI=1TO13:PRINT" [221]                                    [221]":NEXT
  32. 1030 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  33. 1040 PRINT:PRINT"               [211][195][207][210][197]:";SC;"  "
  34. 1099 RETURN
  35. 1100 FOR I=1TO100
  36. 1110 READQ1$(I),Q2$(I)
  37. 1130 READAN$(I)
  38. 1140 NEXT
  39. 1199 RETURN
  40. 1200 PRINT"[144]";TAB(4);
  41. 1205 PRINT"[197]NTER A TIME LIMIT FOR EACH"
  42. 1210 PRINTTAB(4);"QUESTION. (1-9 SECS)"
  43. 1215 GETX$:IFX$=""THEN1215
  44. 1220 IFX$<"1"ORX$>"9"THEN1215
  45. 1230 SE=VAL(X$)
  46. 1240 GOSUB2100
  47. 1299 RETURN
  48. 1300 FORZ=1TO10
  49. 1310 R=INT(RND(0)*100)+1
  50. 1320 T=ID(Z):ID(Z)=ID(R):ID(R)=T
  51. 1330 NEXT
  52. 1399 RETURN
  53. 2000 PRINT"[144]";TAB(3);Q$;Q1$(ID(Z))
  54. 2010 PRINTTAB(6);Q2$(ID(Z))
  55. 2030 T1=TI
  56. 2099 RETURN
  57. 2100 PRINT"":FORI=1TO10:PRINTTAB(3);"                                   "
  58. 2110 NEXT
  59. 2199 RETURN
  60. 3000 Q$=STR$(Z)
  61. 3010 Q$=RIGHT$(Q$,LEN(Q$)-1)+") "
  62. 3099 RETURN
  63. 4000 GOSUB2100
  64. 4005 PRINT"[144]";TAB(4);"[208]RESS RETURN TO CONTINUE OR...":PRINT
  65. 4010 PRINTTAB(4);"[198]1 TO RETURN TO THE [205][193][201][206] [205][197][206][213]"
  66. 4015 GOSUB1040
  67. 4020 GETX$:IFX$=""THEN4020
  68. 4025 IFX$="[133]"THEN20000
  69. 4030 IFX$<>CHR$(13)THEN4020
  70. 4040 GOSUB2100
  71. 4099 RETURN
  72. 5000 GETX$
  73. 5010 IFX$="[136]"THEN6000
  74. 5020 IFTI-T1>SE*60THEN5500
  75. 5030 GOTO5000
  76. 5500 GOSUB2100:GOSUB7000
  77. 5510 PRINTTAB(4);"[211]ORRY, TIME IS UP!"
  78. 5520 PRINTTAB(4);"[212]HE ANSWER IS ";AN$(ID(Z))
  79. 5530 GOSUB4005
  80. 5599 RETURN
  81. 6000 GOSUB2100
  82. 6010 GOSUB7000
  83. 6015 PRINTTAB(4);
  84. 6020 INPUT"[217]OUR ANSWER";A$
  85. 6030 IFLEFT$(A$,LEN(AN$(ID(Z))))=AN$(ID(Z))THEN6500
  86. 6040 PRINTTAB(4);"[211]ORRY THAT IS INCORRECT.":SC=SC-5:GOTO5520
  87. 6500 PRINTTAB(4);"[195][207][210][210][197][195][212]!!":SC=SC+5:GOTO4005
  88. 7000 PRINT"[144]";:RETURN
  89. 9000 DATA"[215]HAT COUNTRY IS [212]IMBUKTU IN?","","MALI"
  90. 9001 DATA"[215]HERE IS [205]OUNT [207]LYMPUS?","","GREECE"
  91. 9002 DATA"[215]HAT FAMED [197]NGLISH SITE IS","FOUND ON [211]ALISBURY [208]LAIN?","STONEHENGE"
  92. 9003 DATA"[215]HAT CITY WAS THE FIRST HOME TO","THE [211]TATUE OF [204]IBERTY?","PARIS"
  93. 9004 DATA"[215]HERE IS [200]ARRY'S [206]EW [217]ORK [194]AR?"," ","PARIS"
  94. 9005 DATA"[215]HERE IS [194]ANTRY [194]AY?"," ",IRELAND
  95. 9006 DATA"[215]HERE IS [204]OFTLEIDIR [193]IRLINES","BASED",ICELAND
  96. 9007 DATA"[215]HAT OCEAN SURROUNDS THE","[211]ARGASSO SEA?",ATLANTIC
  97. 9008 DATA"[215]HAT'S THE CAPITAL OF [215]YOMING?","",CHEYENNE
  98. 9009 DATA"[215]HAT RIVER DOES THE [200]OOVER [196]AM","DAM?",COLORADO
  99. 9010 DATA"[200]OW MANY DIED AT [203]ENT [211]TATE?","",4
  100. 9011 DATA"[215]HAT'S [198]IDEL [195]ASTRO'S BROTHER'S","NAME?",RAOUL
  101. 9012 DATA"[215]HAT WAS [202]IMMY [200]OFFA'S MIDDLE","NAME?",RIDDLE
  102. 9013 DATA"[215]HAT WAS THE CHUCKWAGON USED","FOR ON CATTLE DRIVES?",COOKING
  103. 9014 DATA"[200]OW MANY NAIL HOLES ARE THERE","IN A STANDARD HORSE SHOE?",8
  104. 9015 DATA"[215]HAT'S THE COMMON NAME FOR THE","FRUIT [195]ITRUS GRANDIS[146] ?",GRAPEFRUIT
  105. 9016 DATA"[215]HAT [197]UROPEAN CITY IS [203]ARL","[205]ARX BURIED IN?",LONDON
  106. 9017 DATA"[215]HAT SEASONING IS MENTIONED","MORE THAN 30 TIMES IN THE [194]IBLE?",SALT
  107. 9018 DATA"[215]HERE IS THE [204]INCOLN [208]ARK [218]OO?"," ",CHICAGO
  108. 9019 DATA"[215]HAT'S THE NAME OF [196]R. [211]EUSS'S","EGG-HATCHING ELEPHANT?",HORTON
  109. 9020 DATA"[215]HAT PLANET DID [208]ERCIVAL [204]OVELL","DISCOVER?",PLUTO
  110. 9021 DATA"[215]HAT SPORT SEES STONES THROWN","AT A HOUSE?",CURLING
  111. 9022 DATA"[215]HAT MAMMAL LIVES THE LONGEST?","",MAN
  112. 9023 DATA"[215]HAT CITY FELL TO THE [215]OODEN","[200]ORSE?",TROY
  113. 9024 DATA"[200]OW MANY [213].[211]. CAPITALS ARE","NAMED FOR PRESIDENTS?",4
  114. 9025 DATA"[215]HERE DID THE DEPOSED [211]HAH OF","[201]RAN FINALLY FIND REFUGE?",EGYPT
  115. 9026 DATA"[215]HAT COUNTRY HAS THE MOST","COASTLINE?",CANADA
  116. 9027 DATA"[200]OW MANY SEAMS ARE THERE ON A","FOOTBALL?",4
  117. 9028 DATA"[215]HAT WAS [205]ARCO [208]OLO'S HOME","TOWN?",VENICE
  118. 9029 DATA"[215]HAT NATIONALITY IS TENNIS STAR","[201]LIE [206]ASTASE?",ROMANIAN
  119. 9030 DATA"[215]HAT DO BLACKJACK DEALERS STAND","ON?",17
  120. 9031 DATA"[215]HAT DO [201]TALIANS CALL [198]LORENCE?","",FIRENZE
  121. 9032 DATA"[215]HAT 1963 [202]OSEPH [204]. [205]ANKIEWICZ","FILM COST $28 MILLION?",CLEOPATRA
  122. 9033 DATA"[215]HAT SEASON IS STATISTICALLY","THE MOST HAZARDOUS?",SUMMER
  123. 9034 DATA"[215]HAT DIRECTION DOES THE [206]ILE","RIVER FLOW?",NORTH
  124. 9035 DATA"[215]HAT'S THE MOST COMMON ATOM IN","THE UNIVERSE?",HYDROGEN
  125. 9036 DATA"[215]HERE'S THE [204]ONGCHAMPS","RACETRACK?",PARIS
  126. 9037 DATA"[215]HAT INERT GAS IS USED IN","FLUORESCENT LIGHTS?",ARGON
  127. 9038 DATA"[215]HERE DID THE [207]RIENT [197]XPRESS","END ITS RUN FROM [201]STANBUL?",PARIS
  128. 9039 DATA"[215]HAT DOES THE [194]INET TEST","MEASURE?",INTELLIGENCE
  129. 9040 DATA"[215]HAT AGE DOES A FILLY BECOME A","MARE AT?",5
  130. 9041 DATA"[200]OW MANY CUPS OF BUTTER ARE","THERE IN A POUND?",2
  131. 9042 DATA"[215]HO WAS THE LAST [193]NGLO-[211]AXON","KING OF [197]NGLAND?",HAROLD
  132. 9043 DATA"[215]HAT DELICACY IS KNOWN AS","PICKLED ROE?",CAVIAR
  133. 9044 DATA"[215]HO IS [215]OODSTOCK'S BEAGLE","BUDDY?",SNOOPY
  134. 9045 DATA"[215]HAT WAS THE FIRST [204]IFESAVER","FLAVOR?",PEPPERMINT
  135. 9046 DATA"[215]HAT COUNTRY IS HOME TO THE","BANK OF [193]LEXANDRIA?",EGYPT
  136. 9047 DATA"[215]HAT NATIONALITY IS A [194]RETON?","",FRENCH
  137. 9048 DATA"[200]OW MANY DAILY TIDES ARE THERE?","",2
  138. 9049 DATA"[215]HAT WAS [194]EAVER [195]LEAVER'S FIRST","NAME?",THEODORE
  139. 9050 DATA"[215]HAT YEAR WAS THE SETTING FOR","[193]MERICAN [199]RAFFITI[146]?",1962
  140. 9051 DATA"[215]HAT ARE [212]HE [211]TAR OF [193]FRICA[146] AND","CULLINAN [201][201][146]?",DIAMONDS
  141. 9052 DATA"[215]HAT IS THE VOLTAGE OF MOST","CAR BATTERIES?",12
  142. 9053 DATA"[215]HAT COUNTRY DID THE HOUSES OF","[210]URIK AND [210]OMANOV RULE?",RUSSIA
  143. 9054 DATA"[215]HAT WAS [195]APTAIN [193]HAB'S PEG LEG","MADE OF?",IVORY
  144. 9055 DATA"[215]HAT'S THE MINIMUM NUMBER OF","BARS ON A ABACUS?",9
  145. 9056 DATA"[215]HAT WAS [205]AE [215]EST'S LAST FILM?","",SEXTET
  146. 9057 DATA"[200]OW MANY FEET IN A MILE?","",5280
  147. 9058 DATA"[215]HAT SPORT USES PLUGS AND","LEADERS?",FISHING
  148. 9059 DATA"[215]HERE WAS THE FIRST ZOO IN THE","[213]NITED [211]TATES?",PHILADELPHIA
  149. 9060 DATA"[215]HO WAS THE [195]ISCO [203]ID'S","SIDEKICK?",PANCHO
  150. 9061 DATA"[215]HO WAS THE [204]ONE [210]ANGER'S","SIDEKICK?",TONTO
  151. 9062 DATA"[215]HO WAS [194]ATMAN'S SIDEKICK?","",ROBIN
  152. 9063 DATA"[215]HAT'S THE NORTHERNMOST","[195]ANADIAN PROVINCE?",QUEBEC
  153. 9064 DATA"[215]HAT COMPANY IS THE WORLD'S","LARGEST USER OF SILVER?",KODAC
  154. 9065 DATA"[215]HAT SIGN OF THE ZODIAC COVERS","[206]OV. 22 TO [196]EC. 21?",SAGITTARIUS
  155. 9066 DATA"[200]OW MANY ATTENDED THE [205]ARCH","[200]ARE'S TEA PARTY?",4
  156. 9067 DATA"[215]HERE'S THE [194]LUE [199]ROTTO?","",ITALY
  157. 9068 DATA"[215]HAT IS [205]AY'S BIRTHSTONE?","",EMERALD
  158. 9069 DATA"[215]HAT PLANT IS THE MOST COMMON","CAUSE OF HAYFEVER?",RAGWEED
  159. 9070 DATA"[215]HAT'S THE CAPITAL OF [201]LLINOIS?","",SPRINGFIELD
  160. 9071 DATA"[200]OW MANY BITS IN A BYTE?","",8
  161. 9072 DATA"[200]OW MANY BYTES ARE THERE IN","1K OF MEMORY?",1024
  162. 9073 DATA"[200]OW MANY SPRITES ARE AVAILABLE","ON THE [195]64?",8
  163. 9074 DATA"[215]HAT MEMORY LOCATION DO YOU POKE","TO CHANGE THE BORDER COLOR?",53280
  164. 9075 DATA"[215]HAT IS [205][201][196]$('HELLO',2,2)?","",EL
  165. 9076 DATA"[215]HAT IS [204][197][206]('TESTING')?","",7
  166. 9077 DATA"[201][206][212]([210][206][196](0)*6)+1 GIVES A NUMBER","BETWEEN 1 AND ?",6
  167. 9078 DATA"[215]HAT IS THE COLOR CODE FOR RED","ON THE [195]64?",2
  168. 9079 DATA"[215]HAT IS THE [195][208][213] THAT RUNS THE","[195]64?",6510
  169. 9080 DATA"[215]HAT COLOR IS THE LITTLE BROWN","JUG?",BROWN
  170. 9081 DATA"[200]OW MANY YEARS DID THE 100 YEARS","WAR LAST?",115
  171. 9082 DATA"[215]HO IS KNOWN AS THE FATHER OF","GEOMETRY",EUCLID
  172. 9083 DATA"[215]HAT SPORT DO YOU THROW BOMBS","IN?",FOOTBALL
  173. 9084 DATA"[200]OW MANY INCHES THICK IS A","HOCKEY PUCK",1
  174. 9085 DATA"[200]OW MANY FINGERS DID [193]NNE [194]OLEYN","HAVE?",11
  175. 9086 DATA"[200]OW MANY WINGS DOES A FLEA HAVE?","",0
  176. 9087 DATA"[215]HAT PLANET IS CLOSEST TO THE","SUN?",MERCURY
  177. 9088 DATA"[200]OW MANY RINGED PLANETS ARE IN","OUR SOLAR SYSTEM?",3
  178. 9089 DATA"[215]HAT YEAR DID THE LIGHTS GO","OUT?",1965
  179. 9090 DATA"[215]HAT NUTS ARE USED IN MARZIPAN?","",ALMONDS
  180. 9091 DATA"[215]HAT IS THE ETERNAL CITY?","",ROME
  181. 9092 DATA"[215]HAT PRIMARY COLOR HAS THE","SHORTEST NAME?",RED
  182. 9093 DATA"[215]HAT STATE IS [198]ORT [203]NOX IN?","",KENTUCKY
  183. 9094 DATA"[215]HAT DOES A [199]ERMAN CALL [205]UNICH?","",MUNCHEN
  184. 9095 DATA"[215]HAT IS THE CAPITAL OF [208]ERU?","",LIMA
  185. 9096 DATA"[215]HAT IS THE [210]OYAL [199]AME[146]?","",CHESS
  186. 9097 DATA"[215]HO MOVES FIRST IN CHESS?","",WHITE
  187. 9098 DATA"[215]HAT STATE HAS THE HIGHEST","SUICIDE RATE?",ALASKA
  188. 9099 DATA"[215]HAT LETTER WAS THE SCARLET","LETTER?",A
  189. 20000 PRINTCHR$(142);
  190. 20001 PRINT"[147][144]   RETURNING TO THE MAIN MENU..."
  191. 20010 PRINT"LOAD"CHR$(34)"0:MENU"CHR$(34)",8"
  192. 20020 PRINT"RUN":PRINT"[145][145][145][145][145][145][145][145][145]"
  193. 20030 POKE631,13:POKE632,13:POKE198,2
  194.