home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / TREK-TRIVIA-II (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.1 KB  |  235 lines
  1. 0 REM SEND EMAIL TO: "THE ROCK" ON PLINK
  2. 1 REM  OR GREGORY J. GRESH ON GENIE
  3. 2 REM
  4. 10 CLR:PRINT CHR$(147)
  5. 20 GOSUB1790:GOSUB2060:GOSUB2010:PRINT"[147]"
  6. 30 FOR I=1 TO 30
  7. 40 :  READ Q$,A1$,A2$,A3$,A4$,C$
  8. 50 :  A=0
  9. 60 :  PRINT I"[157]. ";Q$
  10. 70 :  PRINTTAB(5)A1$:PRINTTAB(5)A2$:PRINTTAB(5)A3$:PRINTTAB(5)A4$
  11. 80 :  INPUT"     ANSWER QUESTION";R$
  12. 90 :  IF R$<>C$ THEN160
  13. 100 : C=C+1
  14. 110 : PRINT
  15. 120 : PRINT "THAT IS CORRECT!"
  16. 130 : FORX=1TO900:NEXTX:PRINTCHR$(147)
  17. 140 NEXT I
  18. 150 GOTO210 
  19. 160 A=A+1
  20. 170 IF A=1 THEN190 
  21. 180 PRINT"THE ANSWER IS: ";C$:W=W+1:GOTO200
  22. 190 PRINT"TRY AGAIN.":GOTO60 
  23. 200 GOTO130 
  24. 210 T=C+W
  25. 220 PC=C/T:TC=PC*100
  26. 230 IF T=C THEN310 
  27. 240 IF TC>90 THEN270 
  28. 250 IF TC > 70 AND TC < 90 THEN280 
  29. 260 GOTO290 
  30. 270 PRINT"YOU ARE A TREKKER FOR SURE.":GOTO380 
  31. 280 PRINT"YOU OCCASIONALLY WATCH STAR TREK.":GOTO380 
  32. 290 PRINT"YOU VERY RARELY[146] KNOW ANYTHING ABOUT STAR TREK."
  33. 300 PRINT"WATCH MORE STAR TREK!":GOTO380 
  34. 310 PRINT"YOU GOT ALL";T;" QUESTIONS CORRECT!"
  35. 320 PRINT"YOU ARE A TRUE TREKKER BEYOND ANY DOUBT."
  36. 330 PRINT"CONTRATULATIONS!":GOTO380 
  37. 340 PRINT CHR$(147)
  38. 350 PRINT"LIVE LONG AND PROSPER."
  39. 360 END
  40. 370 FORX=1TO4000:NEXTX:GOTO340 
  41. 380 PRINT"YOU GOT";TC;"[157]% CORRECT."
  42. 390 PRINT"YOU GOT";W;"QUESTIONS INCORRECT."
  43. 400 PRINT"YOU GOT";C;"QUESTIONS CORRECT."
  44. 410 GOTO370 
  45. 420 REM **** MUSIC DATA ****
  46. 430 DATA 47,3.5,54,.5,59,6
  47. 440 DATA 58,2,54,1,51,1,56,1,61,9,0,2,61,1,65,10
  48. 450 DATA 0,4,0,4,0,0,-1
  49. 460 REM DATA QUESTIONS
  50. 470 REM **** QUESTION 1 ****
  51. 480 DATA"WHO WAS SARIC?                              "
  52. 490 DATA "A) A KLINGON COMMANDER"
  53. 500 DATA B) CHIEF SCIENCE OFFICER
  54. 510 DATA C) STARFLEET ADMIRAL
  55. 520 DATA D) SPOCK'S FATHER,D
  56. 530 REM **** QUESTION 2 ****
  57. 540 DATA "WHO WAS THE FIRST COMMANDER OF THE      STARSHIP ENTERPRISE?"
  58. 550 DATA"A) CAPT J.T. KIRK"
  59. 560 DATA"B) CAPT SPOCK"
  60. 570 DATA C) CAPT PIKE
  61. 580 DATA D) CAPT DECKER,C
  62. 590 REM *** QUESTION 3 ****
  63. 600 DATA "HOW MANY EPISODES DID HARRY MUDD        APPEAR IN?"
  64. 610 DATA A) ONE
  65. 620 DATA B) TWO
  66. 630 DATA C) THREE
  67. 640 DATA D) FOUR,B
  68. 650 REM **** QUESTION 4 ****
  69. 660 DATA"WHO DIED IN STAR TREK III?"
  70. 670 DATA A) DAVID MARCUS
  71. 680 DATA B) SCOTTY
  72. 690 DATA C) SPOCK
  73. 700 DATA D) MCCOY,A
  74. 710 REM **** QUESTION 5 ****
  75. 720 DATA"HOW LONG WAS THE VOYAGE OF THE          ENTERPRISE SUPPOSED TO BE?"
  76. 730 DATA A) FIVE YEARS
  77. 740 DATA B) THREE YEARS
  78. 750 DATA C) SEVENTEEN YEARS
  79. 760 DATA D) THERE WAS NO TIME LIMIT,A
  80. 770 REM **** QUESTION 6 ****
  81. 780 DATA"WHAT WAS THE COLOR OF A VULCANS'        BLOOD?"
  82. 790 DATA A) RED
  83. 800 DATA B) WHITE
  84. 810 DATA C) MAROON
  85. 820 DATA D) GREEN,D
  86. 830 REM **** QUESTION 7 ****
  87. 840 DATA"BESIDES 'BEAM ME UP SCOTTY', WHAT       OTHER COMMAND WAS USED?"
  88. 850 DATA A) 'TRACTOR BEAM'
  89. 860 DATA B) 'PHASORS UP'
  90. 870 DATA C) 'ENERGIZE'
  91. 880 DATA D) 'SCAN SECTOR',C
  92. 890 REM **** QUESTION 8 ****
  93. 900 DATA "WHAT IS A VULCAN MIND MELT?"
  94. 910 DATA A) A WEAPON
  95. 920 DATA B) A FORM OF ESP
  96. 930 DATA C) A VULCAN DISH
  97. 940 DATA D) THE DIRECT READING OF THOUGHTS,D
  98. 950 REM **** QUESTION 9 ****
  99. 960 DATA "HOW MANY SETTINGS ARE ON A              STANDARD PHASOR?"
  100. 970 DATA A) THREE
  101. 980 DATA B) TWO
  102. 990 DATA C) FIVE
  103. 1000 DATA D) ONE,A
  104. 1010 REM **** QUESTION 10 ***
  105. 1020 DATA "WHAT PLANET WAS CAPT PIKE BROUGHT       BACK TO?"
  106. 1030 DATA A) TALOS IV
  107. 1040 DATA B) VULCAN
  108. 1050 DATA C) EARTH
  109. 1060 DATA D) ALPHA V,A
  110. 1070 REM **** QUESTION 11 ***
  111. 1080 DATA WHO WAS FIRST OFFICER UNDER PIKE?
  112. 1090 DATA A) DECKER
  113. 1100 DATA B) SPOCK
  114. 1110 DATA C) KIRK
  115. 1120 DATA D) MUDD,B
  116. 1130 REM **** QUESTION 12 ****
  117. 1140 DATA"WHAT WAS BONES REFERRING TO WHEN        HE SAID 'IT'S LIKE CHILDPLAY'
  118. 1150 [131] A) COMMANDING A STARSHIP,B) INVENTING CURES
  119. 1160 [131] C) PLAYING CHESS,D) SPOCK'S BRAIN,D
  120. 1170 [143] *** QUESTION 13 ****
  121. 1180 [131]"IN THE SERIES, HOW FAST COULD THE       ENTERPRISE GO?"
  122. 1190 [131] A) WARP 7,B) WARP 8,C) WARP 9,D) WARP 10,B
  123. 1200 [143] **** QUESTION 14 ****
  124. 1210 [131]"WHO WAS THE FIRST TO BUY A TRIBBLE?"
  125. 1220 [131] A) UHURA,B) KIRK,C) THE BARTENDER,D) CHEKOV,A
  126. 1230 [143] *** QUESTION 15 ****
  127. 1240 [131] "THAT SAME EPISODE, WHAT DID CHEKOV      DRINK BY MISTAKE?"
  128. 1250 [131] A) WINE,B) SCOTCH,C) VODKA,D) CLEANING FLUID,B
  129. 1260 [143] *** QUESTION 16 ****
  130. 1270 [131]"WHAT WAS THE NAME OF KHAN'S SHIP?"
  131. 1280 [131] A) USS EXCELSIOR,B) USS BOTANY BAY,C) USS EXPLORER,D) VOYAGER,B
  132. 1290 [143] **** QUESTION 17 ****
  133. 1300 [131]"IN STAR TREK II, WHAT WAS THE NAME      OF THE PROJECT IN QUESTION?"
  134. 1310 [131] A) GENESIS,B) VOYAGER,C) PLANET DOMINATION,D) WEAPONS,A
  135. 1320 [143] **** QUESTION 18 ****
  136. 1330 [131] OF THE PEOPLE BELOW  WHO IS AUTHOR-     IZED TO A SELF-DESTRUCT?
  137. 1340 [131] A) SCOTTY,B) UHURA,C) CHEKOV,D) SULU,A
  138. 1350 [143] **** QUESTION 19 ****
  139. 1360 [131]"THE MOST CONTROL OF A STARSHIP IS       LOCATED WHERE?"
  140. 1370 [131] A) THE BRIDGE
  141. 1380 [131] B) THE ENGINE ROOM
  142. 1390 [131] C) THE CAPTAIN'S QUARTERS
  143. 1400 [131] D) THE COMPUTER ROOM,B
  144. 1410 [143] **** QUESTION 20 ****
  145. 1420 [131]"SPOCK WAS MOST INSULTED WHEN HE         WAS TERMED..."
  146. 1430 [131] A) EMOTIONAL,B) COMPUTER-LIKE,C) IRRATIONAL,D) HUMAN,D
  147. 1440 [143] **** QUESTION 21 ****
  148. 1450 [131]"SCOTTY'S ETHNIC BACKGROUND IS"
  149. 1460 [131] A) SCOTISH,B) IRISH, C) ENGLISH, D) WELSH,A
  150. 1470 [143] **** QUESTION 22 ****
  151. 1480 [131]"WHO WAS NOT AUTHORIZED TO SELF          DESTRUCT?"
  152. 1490 [131] A) SULU,B) KIRK,C) SCOTTY,D) SPOCK,A
  153. 1500 [143] **** QUESTION 23 ****
  154. 1510 [131]"IN STAR TREK 3, WHY WAS THE ENTER-      PRISE SPACEDOCKED?"
  155. 1520 [131] A) BECAUSE OF DAMAGES
  156. 1521 [131] B) BECAUSE THE MISSION ENDED
  157. 1522 [131] C) BECAUSE OF ENGINE REFIT
  158. 1523 [131] D) IT WAS NOT SPACEDOCKED,C
  159. 1530 [143] **** QUESTION 24 ****
  160. 1540 [131]"IN STAR TREK I, WHY COULDN'T THE   ASTEROID BE DESTROYED BY PHASORS?"
  161. 1550 [131] A) BECAUSE WARP ENGINES WERE OUT OF       SYNC,B) THEY WERE OUT
  162. 1555 [131] C) NOT ENOUGH POWER,D) THEY COULDN'T AIM,A
  163. 1560 [143] **** QUESTION 25 ****
  164. 1570 [131] "WHAT WAS THE PRIME OBJECTIVE?"
  165. 1580 [131] A) EXPLORE,B) INTERACT, C) DIPLOMACY, D) NON-INTERFERANCE,D
  166. 1590 [143] **** QUESTION 26 ****
  167. 1600 [131]"WHY ARE SHIPS WARNED ABOUT GOING   NEAR A NEAR-NOVA STAR?"
  168. 1610 [131] A) RISK OF EXPLOSION,B) EXCESSIVE GRAVITY PULL
  169. 1615 [131] C) THE CREW GOT DRUNK,D) ALL OF THE ABOVE,D
  170. 1620 [143] **** QUESTION 27 ****
  171. 1630 [131]"WHO'S BRAIN WAS SURGICALLY REMOVED?"
  172. 1640 [131] A) KIRK,B) SPOCK,C) SCOTTY,D) MCCOY,B
  173. 1660 [143] **** QUESTION 28 ****
  174. 1670 [131] "WHO WANTED AN ANDROID BODY?"
  175. 1680 [131] A) UHURA,B) DECKER,C) SPOCK,D) CHEKOV,A
  176. 1690 [143] **** QUESTION 29 ****
  177. 1700 [131] "IN THE SERIES, WHO WON THE KLINGON-     FEDERATION WAR?"
  178. 1710 [131] A) THE FEDERATION,B) THE KLINGONS,C) IT WAS A DRAW
  179. 1720 [131] D) IT WAS NEVER RESOLVED,D
  180. 1730 [143] **** QUESTION 30 ****
  181. 1740 [131] "WHAT DECADE DID SPOCK SAY WAS THE   MOST VIOLENT TIME ON EARTH?"
  182. 1750 [131]A)THE 1960'S,"B) THE 1970'S","C) THE 1980'S","D) THE 1990'S",D
  183. 1760 [143]
  184. 1770 [143]
  185. 1780 [143] **** INTRODUCTION SCREEN ****
  186. 1790 [143]
  187. 1800 [151] 53281,3:[151] 53280,6:[151] 646,11
  188. 1810 [153] [199](147);
  189. 1820 C$ [178] "TREK TRIVIA II"
  190. 1830 C%[178][195](C$)
  191. 1840 [129] X[178]1 [164] C%
  192. 1850 :   [129] V [178] 1 [164] 5
  193. 1860 [153] [163](39[171]C%)[173]2[170]X) [202](C$,X,1)"ONCMD "
  194. 1870 :   [130] V:[153]""
  195. 1880 [130] X
  196. 1885 [153]""
  197. 1890 [153]"       ORIGINALLY PROGRAMMED AND"
  198. 1900 A$[178]"CREATED BY DIANE & JOANNE NOTT"
  199. 1910 A%[178][195](A$)
  200. 1920 [129] X[178]1 [164] A%
  201. 1930 : [153] [163](39[171]A%)[173]2)[202](A$,X,1);
  202. 1940 : [129] D[178]1[164]60:[130] D
  203. 1950 [130] X
  204. 1955 [153]"           REVISION BY GREGORY J. GRESH"
  205. 1960 [153]
  206. 1970 [142]
  207. 1980 [143]
  208. 1990 [143] **** PROMPT TO BEGIN ****
  209. 2000 [143]
  210. 2010 [153] [163]9)"PRESS RETURNWAITPOKE TO BEGIN.";
  211. 2020 [161] AN$:[139] AN$[178]"" [167]2020
  212. 2030 [139] AN$[178][199](13) [167] [142]
  213. 2040 [137]2020 
  214. 2050 [143]
  215. 2060 [143] **** STAR TREK MUSIC ****
  216. 2070 [143]
  217. 2080 M1[178]54272:[129]II[178]M1 [164] M1[170]28:[151] II,0:[130]
  218. 2090 [134] F(3),V(3),AD(3),SR(3),S(99)
  219. 2100 T0[178]2[174](1[173]12)
  220. 2110 [129] II[178]1 [164] 3:A[178]7[172]II[170]M1[171]7:F(II)[178]A:V(II)[178]A[170]4:AD(II)[178]A[170]5:SR(II)[178]A[170]6:[130]
  221. 2120 T[178]65535:[129]I[178]99 [164] 35[169][171]1:S(I)[178][181](T[170].5):T[178]T[173]T0:[130]
  222. 2130 [151]M1[170]24,15:[140]:O[178][171]5:SS[178]100:[141]2180:SS[178]35:[142]
  223. 2140 O[178]0:[140]:[129]D[178]1 [164] 1E9:[135]A:[139]A[177][171]1[167][130]:[137]540  THEME
  224. 2150 SS[178]50:[141]2180:SS[178]35:[142]
  225. 2160 [143] * PLAY TUNE *
  226. 2170 [140]:O[178][181](21[172][187](1)):[143] LOG THEME
  227. 2180 [129] D[178]1 [164] 3:[151]AD(D),2[172]16[170]4:[130]:SR[178]12[172]16[170]10
  228. 2190 [135] II:[139]II[179]0 [167] [142]
  229. 2200 C[178]C[170]1:[139]C[177]3 [167] C[178]1
  230. 2210 [139] II [167] II[178]II[170]O
  231. 2220 N1[178]S(II):HH[178][181](N1[173]256):LL[178]N1[171]256[172]HH
  232. 2230 [151]F(C),LL:[151]F(C)[170]1,HH:[151]SR(C),0:[151]SR(C),SR:[151]V(C),33
  233. 2240 [135] TT:[129]D[178]20 [164] SS[172]TT:[130]:[151]V(C),32:[137]2190
  234. 2250 :
  235.