home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD010A.D64 / hypertanic (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  17.2 KB  |  504 lines
  1. 1 REM
  2. 2 PRINT"[147]":POKE53280,0:POKE53281,7
  3. 3 PRINT"[144]  PROTECTED BY  FORMULA-ONE SECURITY [146]"
  4. 4 FORX=0TO3000:NEXTX
  5. 5 GETA$:IFA$=""THEN15
  6. 15 POKE53280,0:POKE53281,0:PRINT""
  7. 16 PRINT"[147]";
  8. 17 PRINT"*THE*[146][157][157][157][157][157][157][157][157][157][157]";:FORZ=1TO1500:NEXT
  9. 18 GETK$:IFK$=""THEN20
  10. 19 IFK$=CHR$(133)THEN25
  11. 20 PRINT"      THE [157][157][157][157][157][157][157][157]";:FORZ=1TO900:NEXT
  12. 21 PRINT" HYPERTANIC ":FORZ=1TO100:NEXT
  13. 22 PRINT""
  14. 23 PRINT"[158] FI TO CONTINUE - ON -     *THE*[146]":FORZ=1TO1999:NEXT
  15. 24 GOTO5
  16. 25 FORX=0TO559:NEXT
  17. 26 PRINT:PRINT:PRINT:     PRINT"   ENTER PASS-WORD FOR QUIZ":INPUTA$
  18. 27 IFA$="HARRY"THEN13080
  19. 28 GOSUB2010
  20. 29 POKE53280,14:POKE53281,6:PRINT"";:HS=0:LY=3:QQ=1
  21. 30 SC=1000
  22. 40 RESTORE:ONQQGOSUB9800,10100,11000
  23. 50 SW(1)=14:SW(2)=13:SW(3)=15:SW(4)=13:DX=1:DY=2:N=2
  24. 1062 PRINT"NEW [146]"
  25. 1063 PRINT"YORK[146]"
  26. 1064 PRINT"DOCK[146]"
  27. 1070 GOTO7010
  28. 2010 POKE53280,3:POKE53281,5
  29. 2020 PRINT"[147][153]";
  30. 2022 PRINT:PRINT
  31. 2023 FORA=1024TO1063:POKEA,90:NEXTA
  32. 2025 FORB=1063TO1863STEP40:POKEB,90:NEXTB
  33. 2026 FORC=2023TO1984STEP-1:POKEC,90:NEXTC
  34. 2027 FORD=1984TO1024STEP-40:POKED,90:NEXTD
  35. 2028 FORX=1983TO2023STEP40:POKEX,90:NEXTX
  36. 2029 POKE1903,90
  37. 2030 PRINT"[218]           THE HYPERTANIC"
  38. 2032 PRINT"[218][158]         *[162][162][162][162][162][162][162][162][162][162][162][162][162][162] *"
  39. 2040 PRINT"[218]   [158]   PROGRAMMED & DESIGNED BY        [218][218]    [144]"
  40. 2045 PRINT"[218][144]            FORMULA ONE"
  41. 2050 PRINT"[218]         (HARRY HEMINGWAY)
  42. 2055 [153]:[153]"STOP"
  43. 2090 [153]"(null)STOP       USE A JOYSTICK IN PORT 2 WAIT
  44. 2100 PRINT"[218]       BONUS BOAT FOR 5000 PTS"
  45. 2110 PRINT"[218]PRESS'J'(& RETURN) FOR J/STICK CONTROL"
  46. 2118 PRINT"[218]  [218]"
  47. 2120 INPUT" ";K$
  48. 2130 IFK$<>"J"ANDK$<>"K"THENPRINT"[145][145]":GOTO2140
  49. 2140 IFK$="J"THENK=1
  50. 2200 RETURN
  51. 2500 GOTO2500
  52. 4010 PRINT"[147]":POKESP+21,0
  53. 4015 POKE53280,3:POKE53281,3
  54. 4020 PRINT""TAB(2)"[144]YOU FAILED TO SAVE THE HYPERTANIC"
  55. 4025 PRINT""TAB(13)"YOU SCORED"HI
  56. 4027 WAIT197,64:FORDL=1TO2000:NEXTDL:WAIT197,64
  57. 4030 PRINT""TAB(3)"PRESS ANY KEY FOR ANOTHER VOYAGE:"
  58. 4035 FORI=0TO50:GETA$:NEXT
  59. 4040 GETA$:IFA$=""THEN4040
  60. 4050 GOTO25
  61. 5999 :
  62. 6010 ONKGOTO6015
  63. 6015 JV=PEEK(56320)
  64. 6020 IF(JVAND1)=0THENSY=SY+2*(SY>1)
  65. 6025 IF(JVAND2)=0THENSY=SY-2*(SY<255)
  66. 6030 IF(JVAND4)=0THENSX=SX+2*(SX>1)
  67. 6035 IF(JVAND8)=0THENSX=SX-2*(SX<350)
  68. 6037 GOTO6062
  69. 6062 ONFL GOSUB9010
  70. 6070 POKESP,SX+256*(SX>255):POKESP+16,(PEEK(SP+16)AND254)OR-(SX>255):POKESP+1,SY
  71. 6073 IFSW=5THENSW=0:POKE2040,SW(N):N=N+1:IFN=5THENN=1
  72. 6074 SW=SW+1:SC=SC-1:GOSUB10230:IFSC<0 THEN 4010
  73. 6075 IFPEEK(SP+31)<>0THEN8002
  74. 6080 GOTO6010
  75. 6999 :
  76. 7010 SP=53248
  77. 7020 FORT=0TO191:READA:POKE832+T,A:NEXTT
  78. 7030 POKE2040,13
  79. 7040 POKESP+21,1:POKESP+39,1
  80. 7045 SX=310:SY=218
  81. 7050 POKESP,SX+256*(SX>255):POKESP+16,(PEEK(SP+16)AND254)OR-(SX>255):POKESP+1,SY
  82. 7060 PP=PEEK(SP+31)
  83. 7499 :
  84. 7510 SO=54272
  85. 7520 FORT=0TO28:POKESO+T,0:NEXT
  86. 7530 POKESO+5,9:POKESO+6,240:POKESO+24,15:POKESO,200
  87. 7599 GOTO6010
  88. 7600 :
  89. 8002 IFSX<68 AND SY<70THEN9500
  90. 8005 POKESO+4,33
  91. 8010 FORT=10TO35:POKESO+1,T:POKE53280,T:NEXTT:POKE53280,6
  92. 8015 POKESO+4,32
  93. 8020 SX=310:SY=220:LY  =LY  -1:HI=HI+(250-SY):SC=1000:GOSUB10220
  94. 8025 IFLY  <1THEN4010
  95. 8027 POKESP,SX+256*(SX>255):POKESP+16,(PEEK(SP+16)AND254)OR-(SX>255):POKESP+1,SY
  96. 8030 PP=PEEK(SP+31)
  97. 8050 GOTO6080
  98. 8999 :
  99. 9010 POKE53270,(PEEK(53270)AND248)+X:X=X+DX:IFX=7ORX=0THENDX=-DX
  100. 9100 RETURN
  101. 9499 :
  102. 9500 POKE53280,3 :POKE53281,10
  103. 9510 IFSX>40ANDSY>56THEN6080
  104. 9511 POKE53280,0:POKE53281,2
  105. 9512 SX=310:SY=220:HI=HI+SC:SC=1000
  106. 9513 IF LY<1THEN4010
  107. 9514 IF LY>3THEN13000
  108. 9515 PP=PEEK(SP+31)
  109. 9520 HI=HI+1000:QQ=QQ+1
  110. 9530 IFHI>5000ANDIH=OTHEN LY  =LY  +1:IH=1
  111. 9540 IFQQ>3THENQQ=3:FL=1
  112. 9550 GOSUB10220
  113. 9555 POKESO+4,17:FORNN=1TO10
  114. 9560 FORT=20TO40STEP2:POKESO+1,T:NEXTT
  115. 9570 FORT=40TO20STEP-2:POKESO+1,T:NEXTT
  116. 9580 NEXTNN:POKESO+4,16
  117. 9614 POKESP,SX+256*(SX>255):POKESP+16,(PEEK(SP+16)AND254)OR-(SX>255):POKESP+1,SY
  118. 9615 PP=PEEK(SP+31)
  119. 9620 GOTO40
  120. 9700 :
  121. 9800 PRINT"[147]":POKE53280,5:POKE53281,12
  122. 9801 PRINT"[144]  SOUTHAMPTON [146]  [184][184][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][184][184]";
  123. 9802 PRINT"[144]"
  124. 9803 PRINT" ":PRINT" "
  125. 9804 PRINT"[168][168][168][168][168][168][168][168][168][168][168][220][168][168][168][168][168][168][168][168][168][168][168][220][168][168][168]   [168][168][220][168][191][191][191][191][191][191][144]";
  126. 9805 PRINT"[166]"
  127. 9806 PRINT
  128. 9807 PRINT"[168][220][191][191][191][144][168]    [168][168][168][220][168][168][168] [168][168][168][220][168][168][168]   [168][168][168][168][168][168][168][220][220][220][168][168]";
  129. 9808 PRINT:PRINT
  130. 9809 PRINT"[168][168][168][160][168][168][168][160][168][168][168][168][168][168][168][168][220][168][168][168][168][168] [160][160][168][168][220][168][168][168][220][168][160] [160][160][191][191][191][191][144]";
  131. 9810 PRINT:PRINT
  132. 9815 PRINT"[168][168][168][168][168][168][220][191][191][191][191][191][191][144][168][220] [168][168][168][168]     [168][220][168][168][168][160][168][168][168][168][168]+[168][168][168]";
  133. 9816 PRINT:PRINT
  134. 9817 PRINT"[168][168]    [168][168][220][168][168][168][168][168][168][168][220][168][168][168][168][168][168][168][168][220][168][168][168][220][168][168][168][168]     [168]";
  135. 9818 PRINT
  136. 9819 PRINT"      [215] [215] [215]  [146] LIVERPOOL[146]  [146] [215] [215] [215]  DANGER"
  137. 9820 PRINT"                                 BANKS"
  138. 9821 PRINT"[144][168]    [168][168][168][168][168][168][168][168][168][168][191][191][191][191][191][191][191][191][191][144]             [168][168][220]";
  139. 9822 PRINT:PRINT
  140. 9823 PRINT"[144][168][168][168][168][168][168][168][220][168][168][168][168][168][168][168][220][168][168][168][168][168][168][220][168][168] [158] BELFAST [146]  ";
  141. 9824 GOSUB10210:RETURN
  142. 9999 :
  143. 10100 PRINT" [158]  QUEENSTOWN  [146] [218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]";
  144. 10101 POKE53280,6:POKE53281,0
  145. 10102 PRINT"[191][191][191][191][191][190][190][190][166][190][190][190][166][190][190][190][190][191][191][191][191][191][190][190][190][191][191][191][190][190][190][190][191][191][191][191][191][191][191][191]";
  146. 10103 PRINT"[191]               [191][191][191][191][191]             [191][191][191][191][191][191]";
  147. 10104 PRINT"[191]                [191][191]                [191][191][191][191][191]";
  148. 10105 PRINT"[191][191][191][191][191][191][191]           [168]       [168]      [191][191][191][191][191][191][191]";
  149. 10106 PRINT"[191][191][191][191][191][191][191][191][191][191][191][191][191]            [191][191][191][191][191]     [191][191][191][191][191]";
  150. 10107 PRINT"[191][191][191][191][191][191][191][191][191][191][191][191][191][191][191]       [191][191][191][191][191][191][191][191]     [191][191][191][191][191]";
  151. 10108 PRINT"[191][191][191][191][191][191][191][191] [191][191][191][191][191][191][191]    [188][158]CHERBOURG[146][191]   [191][191][191][191]";
  152. 10109 PRINT"[191][191][191][191][191][191]  [168]   [191][191][191][191][191][191][191][191]   [191][191][191][190][190][190][190][190][191]     [191][191][191]";
  153. 10110 PRINT"[191][191][191][191][191]        [191][191][191][191]           [168]  [191]     [191][191][191]";
  154. 10111 PRINT"[191][191][191][191]         [191][191][191][191]                   [191][191][191][191]";
  155. 10112 PRINT"[191][191][191][191]     [191]    [191][191][191][191]   [168]               [191][191][191]";
  156. 10113 PRINT"[191][191][191]     [191][191]      [191]      [191][191][191]         [191][191][191][191][191]";
  157. 10114 PRINT"[191][191][191]     [191][191][191]          [191][191][191][191][191][191][191][191]    [191][191][191][191][191][191][191]";
  158. 10115 PRINT"[191][191][191][191][191]   [191][191][191][191][191]       [191][191][191][191][191][191][191][191]       [191][191][191][191][191]";
  159. 10116 PRINT"[191][191][191][191]     [191][191][191][191][191][191]   [191][191][191]THE[146][191][191][191][191][191][191]     [191][191][191][191][191]";
  160. 10117 PRINT"[191][191][191][191]    [191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191]   [191][191][191][191][191]";
  161. 10118 PRINT"[191][191][191][191]    [191][191][191][191]DREADED GOODWIN[146][191][191][191][191][191]    [191][191][191][191]";
  162. 10119 PRINT"[191][191][191]    [191][191][191][191][191][191][191][191] [191][191][191] [191][191][191][191][191][191][191][191]          [191][191]";
  163. 10120 PRINT"[191][191][191][191]   [191][191][191][191][191] [220]       [191]SANDS[146][191]          [191][191][191][191]";
  164. 10121 PRINT"[191][191]                  [190]    [190]  [190]   [166]      [191]";
  165. 10122 PRINT"[191][191]             [168]                       [191]";
  166. 10123 PRINT"[191][191][191]        [168] [191]   [190]     [168]               [191]";
  167. 10124 PRINT"[218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218] [158]SOUTHAMPTON[146] [218][218][218][218][218][218]";
  168. 10199 :
  169. 10210 PRINT"TIME          LINERS        SCORE"
  170. 10220 PRINT""TAB(23)LY  " ";TAB(34)HI" "
  171. 10225 POKESP+21,1
  172. 10230 PRINT""TAB(6)SC" "
  173. 10290 RETURN
  174. 10300 :
  175. 11000 PRINT"[147] [158] NEW YORK  [146]   [191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191]  "
  176. 11001 PRINT"            [191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191]  "
  177. 11002 FORL=1TO30                .
  178. 11003 POKE1184+INT(RND(1)* 700),90 :NEXTL
  179. 11004 FORX=1TO5
  180. 11005 POKE1184+INT(RND(1)*700),42 :NEXTX
  181. 11006 FORZ=1TO30
  182. 11007 POKE1184+INT(RND(1)*700),46:NEXTZ
  183. 11008 PRINT:PRINT"                                      [209]"
  184. 11009 PRINT:PRINT"[209]                                     [209]"
  185. 11010 PRINT:PRINT"[209]                                     [209]"
  186. 11011 PRINT:PRINT"[209]    [159]BERG     INFESTED     WATERS     [209]"
  187. 11012 PRINT:PRINT"[209]                                     [209]"
  188. 11013 PRINT:PRINT"[209]                                     [209]"
  189. 11014 PRINT:PRINT"[209][160][160]                                   [209]"
  190. 11015 PRINT"                                       "
  191. 11016 PRINT"   "
  192. 11053 PRINT"   [162][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][162]     "
  193. 11055 PRINT"[158]  QUEENSTOWN  "
  194. 11100 GOSUB10210:RETURN
  195. 11500 :
  196. 12000 PRINT"[147] WHAT A SHAME!!  YOU WERE DOING SO WELL. BUT THAT'S THE PRICE
  197. 12010 [153]" YOU HAVE TO PAY FOR NOT KNOWING YOUR                  SUBJECT !! :"
  198. 12015 [153]"CLRTHE CORRECT ANSWER IS 20. 14 LIFE-BOATS,      4 COLLAPSIBLES AND"
  199. 12020 [153]"      2 AUXILERY CUTTERS:"
  200. 12025 [129]X[178]0[164]7000:[130]X:[153]"LOAD"
  201. 12030 [142]
  202. 12050 [153]"LOAD                 WRONG  WAIT"
  203. 12055 [153]" THE CORRECT ANSWER IS"
  204. 12060 [153]"SYS             THE CARPATHIA  WAIT"
  205. 12065 [153]"OPEN  IF YOUR ANSWER WAS 'THE CANADIAN'       THEN GO TO THE BOTTOM OF
  206. 12068 PRINT"  THE CLASS. NO SHIP OF THAT NAME        ATTENDED, THE OTHERS DID.
  207. 12069 [153]"             :EVENTUALLY:"
  208. 12070 [129]X[178]0[164]6000:[130]X:[153]"LOAD"
  209. 12095 [142]
  210. 12100 [153]"LOAD                 WRONG WAIT"
  211. 12105 [153]"  THE CORRECT ANSWER IS 'C' CAPE-RACE"
  212. 12106 [153]"'TITANIC' WENT DOWN 400 MILES SOUTH         OF CAPE-RACE NEWFOUNDLAND"
  213. 12107 [153]"ABOUT 2000 MILES OUT OF QUEENSTOWN AND  1000 MILES SHORT OF NEW-YORK"
  214. 12108 [129]X[178]0[164]4000:[130]X
  215. 12110 [142]
  216. 12200 [153]"LOAD          0H DEAR !  WRONG: WAIT"
  217. 12210 [153]"   THE CORRECT ANSWER IS 'A':              'TITANICS' TONNAGE WAS"
  218. 12215 [153]"CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE46,329 TONNES:"
  219. 12220 [153]"SYS  SHE WAS 882FT 9INS LONG, & THAT'S           QUITE A BIG BOAT!"
  220. 12250 [129]X[178]0[164]6000:[130]X
  221. 12260 [142]
  222. 12300 [153]"LOAD TRICKY ONE THIS (INTENTIONALLY)         CORRECT ANSWER IS 'C'"
  223. 12305 [153]"SYS A AND B ARE OBVIOUSLY WRONG, & 'D'      NOT REALLY BECAUSE SOME
  224. 12310 PRINT" PEOPLE DID GET OUT OF IT ALIVE SO A     DEATH TRAP IT WAS NOT:"
  225. 12320 PRINT"[144] 'BLOODY DANGEROUS' HAS TO BE AN              APT DESCRIPTION:"
  226. 12370 FORX=0TO6000:NEXTX
  227. 12380 RETURN
  228. 12400 PRINT"[147]                WRONG  [146]"
  229. 12405 PRINT"[144] THE CORRECT ANSWER IS 'B' 705: (SAVED)"
  230. 12410 PRINT"  1,523 PEOPLE DIED IN THE DISASTER:"
  231. 12450 FORX=0TO3000:NEXTX
  232. 12455 RETURN
  233. 12500 PRINT"[147][144]            THAT'S WRONG  [146]"
  234. 12505 PRINT"[136]       CORRECT ANSWER IS 'D'"
  235. 12510 PRINT"[144] 'TITANIC' LIES ABOUT TWO AND A HALF                 MILES DOWN
  236. 12515 [153]"           12,460 FOOT DEEP:"
  237. 12550 [129]X[178]0[164]3000:[130]X
  238. 12555 [142]
  239. 12600 [153]"LOAD                WRONG  WAIT"
  240. 12605 [153]"       THE CORRECT ANSWER IS 'A' "
  241. 12606 [153]"SYS    A HALFPENNY:  (TODAYS EQUIVILENT)"
  242. 12607 [153]"SYS            (THERE IS'NT ONE)
  243. 12608 PRINT"      WORK IT OUT FOR YOURSELF !
  244. 12610 [129]X[178]0[164]5000:[130]X
  245. 12615 [142]
  246. 12700 [153]"LOAD               WRONG WAIT"
  247. 12705 [153]"SYS        THE CORRECT ANSWER IS 'B'"
  248. 12710 [153]"OPEN'TITANIC' WAS FINALLY 'FOUND' ON THE"
  249. 12715 [153]"       FIRST OF SEPTEMBER 1985 "
  250. 12717 [153]"        SHORTLY AFTER 1.00 AM:"
  251. 12720 [153]"       BY  DR ROBERT BALLARD WAIT"
  252. 12722 [153]"          EXPEDITION LEADER."
  253. 12740 [129]X[178]0[164]5000:[130]X
  254. 12750 [142]
  255. 13000 [153]"LOAD":[151]53280,6:[151]53281,0
  256. 13009 [153]":CONGRATULATIONS CAPTAIN:"
  257. 13029 [153]"OPEN      HYPERTANIC HAS COMPLETED                HER MAIDEN VOYAGE:"
  258. 13035 [153]"SYS YOU MAY NOW RETIRE GRACEFULLY AS THE    UNDEFETED CAPTAIN"
  259. 13040 [153]" OR YOU MAY ELECT TO COMPETE IN THE      FOLLOWING QUIZ:"
  260. 13045 [153]" WHICH IF YOU ANSWER ALL QUESTIONS       CORRECTLY WILL GIVE YOU :"
  261. 13048 [153]" ACCESS TO THE VERY SPECIAL BONUS, VERY  SECRET & USEFULL: AND !"
  262. 13050 [153]" RANK OF ADMIRAL OF THE WORLDS SHIPPING  LINES, AND EQUEL ONLY TO"
  263. 13055 [153]" FORMULA-ONE HIM'SELF !!"
  264. 13056 [153]:[153]"  OPEN PRESS 'E' TO END WAIT   OR 'Q' FOR QUIZ WAIT":[153]
  265. 13057 [133]"";Q$
  266. 13058 [139]Q$[179][177]"E"[175]Q$[179][177]"Q"[167][153]"ONON":[137]13057
  267. 13059 [139]Q$[178]"E"[167]55555:[139]Q$[178]"Q"[167][137] 13080
  268. 13080 [153]"LOAD":[151]53280,4:[151]53281,4
  269. 13081 [151]SP[170]21,0
  270. 13085 [153]"                QUIZ WAIT"
  271. 13100 [153]""
  272. 13111 [153]
  273. 13112 [153]"SYS             QUESTION 1 WAIT"
  274. 13113 [153]
  275. 13120 [153]" WHAT ACTUAL DATE DID 'TITANIC' SINK     BENEATH THE WAVES ?"
  276. 13121 [153]
  277. 13125 [153]" WAS IT - A: APRIL 14TH:                        - B: APRIL 15TH:"
  278. 13130 [153]"        - C: APRIL 16TH:OR             WAS IT - D: MAY 5TH:"
  279. 13131 [153]:[153]
  280. 13140 [153]" PLEASE INSERT YOUR ANSWER":[133]A$
  281. 13141 [139]A$[178]"B"[167]13180
  282. 13180 [153]:[153]"LOAD":[153]"     CORRECT WAIT"
  283. 13181 [139]A$[179][177]"B"[167][141]13185
  284. 13182 [129]X[178]0[164]3000:[130]X:[137]13500
  285. 13185 [153]"LOADSYS OH DEAR !! WHAT A RIDICULAS ANSWER, IF IT WAS A DELIBERATE"
  286. 13186 [153]" WRONG ANSWER YOU'VE JUST BLOWN-IT, FOR  WHILE YOU MAY GO THROUGH
  287. 13187 PRINT" THE REST OF THE QUIZ IT WILL  NOT [146] GIVE ACCESS TO THE TOP-SECRET"
  288. 13188 PRINT" SUPER DUPER BONUS, THE ONLY WAY TO GET THAT IS TO ANSWER  ALL [146]  "
  289. 13189 PRINT" 10 QUESTIONS WITHOUT GIVING ONE WRONG   ANSWER !!!"
  290. 13190 PRINT:PRINT:PRINT"SO -TOUGH -  NO WAY - - - - TRY AGAIN     ANOTHER DAY:"
  291. 13192 PRINT" THE CORRECT ANSWER SHOULD HAVE BEEN"
  292. 13193 PRINT"[158] 'B'  TITANIC SANK BENEATH THE WAVES      AT 2.20 AM APRIL 12/1912
  293. 13195 [129]X[178]0[164]9999:[130]X:[153]"LOAD"
  294. 13199 [142]
  295. 13305 [153]"  A AND B OBVIOUSLY ARE OUT,
  296. 13310 PRINT"    DID GET OUT OF IT ALIVE"
  297. 13500 PRINT"[147]":  POKE53280,0:POKE53281,0
  298. 13510 PRINT"[159]0NE DOWN, NINE TO GO:"
  299. 13520 PRINT"[158]           QUESTION TWO [146]"
  300. 13525 PRINT"  WHERE WAS THE NEAREST LAND MASS TO      'TITANICS' GRAVE ?"
  301. 13530 PRINT" WAS IT - A: CAPE WRAITH:- B: CAPE WRATH :"
  302. 13535 PRINT"        - C: CAPE RACE  :OR   - D: CAPE HOPE  :"
  303. 13538 PRINT:PRINT
  304. 13540 PRINT"[150] PLEASE ANSWER NOW":INPUTB$
  305. 13545 IFB$="C" THEN13560
  306. 13560 PRINT"[147]":PRINT"[158] CORRECT "
  307. 13562 IFB$<>"C"THENGOSUB12100
  308. 13565 FORX=0TO5000:NEXTX:GOTO13600
  309. 13600 PRINT"[147]":POKE53280,8:POKE53281,8
  310. 13610 PRINT"[144]            QUESTION THREE [146]"
  311. 13615 PRINT"[159] HOW MANY TONNE'S DID 'TITANIC' WEIGH ?[160][160](TO NEAREST 1000)."
  312. 13620 PRINT"  WAS IT - A:  46,000 TON:                       - B:  51,000 TON:"
  313. 13625 PRINT"         - C:  17,000 TON:                   OR  - D:  68,000 TON:"
  314. 13630 PRINT"  PLEASE GIVE YOUR ANSWER":INPUT C$
  315. 13635 IF C$="A"THEN13640
  316. 13640 PRINT"[147]  CORRECT [146]"
  317. 13642 IFC$<>"A"THENGOSUB12200
  318. 13645 FORX=0TO3000:NEXTX:GOTO13700
  319. 13700 PRINT"[147]":POKE53280,5:POKE53281,5
  320. 13705 PRINT"[144]            QUESTION FOUR [146]"
  321. 13710 PRINT" HOW WOULD  YOU [146] DESCRIBE THE 'TITANIC'?"
  322. 13715 PRINT" WOULD IT BE A: UNSINKABLE :                         B: SAFE :"
  323. 13720 PRINT"             C: BLOODY DANGEROUS :         OR AS     D: A DEATH TRAP
  324. 13725 [153]:[153]
  325. 13730 [153]"  PLEASE INSERT YOUR ANSWER":[133]A$
  326. 13735 [139]A$[178]"C"[167]13750
  327. 13750 [153]:[153]"LOAD":[153]" CORRECT WAIT"
  328. 13755 [139]A$[179][177]"C"[167][141]12300
  329. 13760 [129]X[178]0[164]3000:[130]X:[137]13800
  330. 13800 [153]"LOAD":[151]53280,5:[151]53281,3
  331. 13805 [153]"POKE  HALF-WAY: ARE YOU STILL ON COARSE ??"
  332. 13810 [153]"            QUESTION FIVE WAIT"
  333. 13815 [153]"  THEY GET A BIT HARDER AFTER THIS ONE WAIT
  334. 13820 PRINT"[156] UNDERHOW MANY 'FOOT' OF WATER DOES           'TITANIC'LAY ?"
  335. 13825 PRINT"  (APROX) - A: 1,760.FT:                          - B: 5,280.FT:
  336. 13830 [153]"          - C:10,560.FT:                          - D:12,460.FT:
  337. 13832 PRINT"       OR - E:13,840.FT:"
  338. 13835 PRINT:PRINT
  339. 13840 PRINT" YOUR ANSWER PLEASE":INPUTA$
  340. 13845 IFA$="D"THEN13850
  341. 13850 PRINT:PRINT"[147]":PRINT" RIGHT !!"
  342. 13855 IFA$<>"D"THENGOSUB12500
  343. 13860 FORX=0TO3000:NEXTX:GOTO13900
  344. 13900 PRINT"[147]":POKE53280,6:POKE53281,6
  345. 13905 PRINT"[158] 2ND HALF.   QUESTION SIX [146]"
  346. 13910 PRINT"[159] A NEWSPAPER IN 1988[146][159] COSTS 20 NEW PENCE WHICH IN 1912 WOULD"
  347. 13919 PRINT" HAVE BEEN 48 PENNYS (OR 4 SHILLINGS)   HOW MUCH DID THE NEWSPAPERS"
  348. 13920 PRINT" THAT REPORTED 'TITANICS' DISASTER COST IN 1912[146][159]  ? "
  349. 13925 PRINT"[153]  WAS IT - A: A HALFPENNY:                       - B: A PENNY:"
  350. 13930 PRINT"         - C: THREEHALFPENCE:                OR  - D: SIXPENCE:"
  351. 13935 PRINT" ANSWER PLEASE: A.B.C. OR D":PRINT:PRINTTAB(15):   INPUTA$
  352. 13940 IFA$="A"THEN13950
  353. 13950 PRINT"[147]":PRINT"CORRECT:"
  354. 13952 IFA$<>"A"THENGOSUB12600
  355. 13955 FORX=0TO3000:NEXTX:GOTO14000
  356. 14000 PRINT"[147]":POKE53281,7
  357. 14010 PRINT"[144]          QUESTION SEVEN [146]"
  358. 14020 PRINT"HOW MANY LIFE-BOATS (INC COLLAPSIBLES    & EMERGENCY CUTTERS) DID"
  359. 14025 PRINT"         'TITANIC' CARRY:"
  360. 14030 PRINT"[156]      WAS IT - A: 13 :       - B: 16 :"
  361. 14035 PRINT"           - C: 20 :                            OR - D: 46 :"
  362. 14040 PRINT"[144]     THE SHORT ANSWER IS NOT ENOUGH:[146]"
  363. 14045 PRINT"BUT,YOUR ANSWER FROM THE OPTIONS PLEASE:":PRINT:INPUTA$
  364. 14050 IFA$="C"THEN14055
  365. 14055 PRINT:PRINT"[147]":PRINT" CORRECT:"
  366. 14060 IFA$<>"C"THENGOSUB12000
  367. 14065 FORX=0TO3000:NEXTX:GOTO14100
  368. 14100 PRINT"[147]":POKE53280,0:POKE53281,0
  369. 14105 PRINT""
  370. 14120 PRINT"           QUESTION EIGHT [146]"
  371. 14125 PRINT"[158]WHICH SHIP WAS THE FIRST TO ANSWER       'TITANICS' DISTRESS SIGNAL
  372. 14130 [153]" AND ALSO  FIRST TO ARRIVE AT THE            SCENE OF THE DISASTER:"
  373. 14135 [153]"OPEN   WAS IT - A:THE CALIFORNIAN                     - B:THE CARONIA
  374. 14140 PRINT"          - C:THE OLYMPIC                         - D:THE CARPATHIA
  375. 14145 [153]"          - E:THE PARISIAN              OR  WAS IT- F:THE CANADIAN
  376. 14150 PRINT"          YOUR ANSWER PLEASE [146]":PRINT: INPUTA$
  377. 14155 IFA$="D"THEN14160
  378. 14160 PRINT"[147]":PRINT"CORRECT:"
  379. 14168 IFA$<>"D"THENGOSUB12050
  380. 14170 FORZ=0TO3000:NEXTZ:GOTO14200
  381. 14200 PRINT"[147]":POKE53281,5
  382. 14210 PRINT"[144]              QUESTION NINE  [146]"
  383. 14215 PRINT"  ALMOST THERE, ONE MORE AFTER THIS:"
  384. 14220 PRINT"[144]'TITANIC'WAS DESIGNED TO ACCOMMODATE     2435 PASSENGERS, 860 CREW
  385. 14226 [153]" AND 25 OFFICERS, 3320 SOULS IN ALL, ON  HER FATAL VOYAGE"
  386. 14228 [153]" HOWEVER SHE CARRIED A FULL COMPLEMENT   OF OFFICERS & CREW"
  387. 14229 [153]" BUT ONLY 1343 PASSENGERS A TOTAL OF       (2228) ACTUALLY ON BOARD:
  388. 14230 PRINT"    HOW MANY WERE ACTUALLY SAVED ?"
  389. 14235 PRINT"   WAS IT[158]   - A: NONE OF THEM                       - B: 705:"
  390. 14238 PRINT"            - C: 805:                               - D: 905:"
  391. 14240 PRINT"            - E: 995:                           OR  - F: ALL OF THEM
  392. 14245 [153]"STOP          YOUR ANSWER PLEASE.":[153][163]5):  [133]A$
  393. 14250 [139]A$[178]"B"[167]14253
  394. 14253 [153]"LOAD":[153]" CORRECT WAIT"
  395. 14260 [139]A$[179][177]"B"[167][141]12400
  396. 14265 [129]X[178]0[164]3000:[130]X:[137]14290
  397. 14290 [153]"LOAD":[151]53280,3:[151]53281,6
  398. 14291 [153]"SYS"
  399. 14295 [153]"     QUESTION TEN: WAIT  THE BIG ONE!!"
  400. 14300 [153]"'TITANIC' HAS BEEN 'LOST' TO THE WORLD         FOR OVER 70 YEARS,
  401. 14305 PRINT" ON WHAT HISTORIC DATE WAS SHE FINALLY                'FOUND'"
  402. 14307 PRINT"[159]"
  403. 14310 PRINT"        WAS IT - A: 1984:                              - B: 1985:"
  404. 14315 PRINT"               - C: 1986:                              - D: 1987:"
  405. 14320 PRINT"  OR WAS IT IN - E: 1988:"
  406. 14322 PRINT""
  407. 14325 PRINT"[158]    YOUR ANSWER PLEASE [146]":PRINTTAB(26):INPUTA$
  408. 14328 IFA$="B"THEN14330
  409. 14330 PRINT"[147]":PRINT" BINGO! [146]"
  410. 14335 IFA$<>"B"THENGOSUB12700
  411. 14338 FORX=0TO3000:NEXTX:GOTO14500
  412. 14500 PRINT"[147]":POKE53280,3:POKE53281,5
  413. 14501 PRINT"[144]"
  414. 14505 PRINT" THAT IS YOUR 10 QUESTIONS, IF YOU DID   IT AFTER HAVING COMPLETED
  415. 14510 [153]" THE VOYAGE, AND USING ONLY THE ONE      LINER, AND GOT THEM ALL
  416. 14515 PRINT" CORRECT, THEN YOU NOW QUALIFY FOR THE"
  417. 14520 PRINT"   SUPER-DUPER-BONUS [146][144] AS PROMISED:"
  418. 14525 PRINT"[158]  BUT FIRST, (AND FINALLY) YOU MUST"
  419. 14530 PRINT"  PASS A HONESTY AND INTEGRITY TEST"
  420. 14535 PRINT"      [144] PRESS ANY KEY TO GET IT [146]"
  421. 14540 GETA$:IFA$=""THEN14540
  422. 14545 PRINT"[147]":POKE53280,3:POKE53281,4
  423. 14546 FORX=0TO3:PRINT"":NEXT
  424. 14550 PRINT"     DID YOU COMPLETE THE VOYAGE WITH           ONLY ONE LINER ?"
  425. 14555 PRINT"      ANSWER: TYPE [144] YES [146] OR[144]  NO [146]":PRINT""
  426. 14556 INPUTB$
  427. 14557 PRINTTAB(15)
  428. 14560 IFB$="YES" THEN14565
  429. 14562 IFB$="NO"THEN15000
  430. 14563 IFB$<>"NO"THEN14556
  431. 14564 IFB$<>"YES"THEN14556
  432. 14565 PRINT"[147][144]  VERY GOOD [146]  IN THAT CASE."
  433. 14570 PRINT"  HOW MANY OF THE QUESTIONS DID YOU GET"
  434. 14578 PRINT"              RIGHT ? ?"
  435. 14580 PRINT"[158]   A HONEST ANSWER IF YOU PLEASE:"
  436. 14582 PRINT"[144] TYPE YOUR ANSWER:"
  437. 14583 PRINT" AS 'ONE': 'FIVE': 'TEN': OR WHATEVER:"
  438. 14584 PRINT""
  439. 14585 PRINT TAB(16):  INPUTC$
  440. 14588 IFC$<>"TEN"THENGOTO15000
  441. 14590 IFC$="TEN"THENGOTO55999
  442. 14599 GETA$:IFA$=""THEN14599
  443. 15000 PRINT"[147]":POKE53280,0:POKE53281,0
  444. 15005 PRINT"       IN THAT CASE. HARD LINES:"
  445. 15007 PRINT"         :DISGRACE AND FAILURE:"
  446. 15010 FORX=0TO4000:NEXTX:GOTO15
  447. 19999 :
  448. 20009 DATA0,0,0,0,0,0,0
  449. 20010 DATA0,0,0,0,0,0,0
  450. 20011 DATA0,0,0,0,0,0,0
  451. 20012 DATA33,182,194,32,0,2,33
  452. 20013 DATA182,194,33,182,194,35,255
  453. 20014 DATA226,37,85,82,42,170,170
  454. 20015 DATA255,255,255,117,85,86,58
  455. 20016 DATA170,174,31,255,252,0,0
  456. 20017 DATA0,0,0,0,0,0,0
  457. 20018 DATA0
  458. 20021 DATA0,0,0,0,0,0,0
  459. 20022 DATA20,136,32,41,16,32,82
  460. 20023 DATA34,32,128,66,32,0,2
  461. 20024 DATA33,182,194,32,0,2,33
  462. 20025 DATA182,194,33,182,194,35,255
  463. 20026 DATA226,37,85,82,42,170,170
  464. 20028 DATA255,255,255,117,85,86,58
  465. 20029 DATA170,174,31,255,252,15,255
  466. 20030 DATA248,7,255,248,1,178,171
  467. 20031 DATA0
  468. 20041 DATA0,0,0,0,0,0,0
  469. 20042 DATA0,0,0,0,0,0,0
  470. 20043 DATA0,0,0,0,0,0,0
  471. 20044 DATA33,182,194,32,0,2,33
  472. 20045 DATA182,194,33,182,194,35,255
  473. 20046 DATA226,37,85,82,42,170,170
  474. 20048 DATA255,255,255,117,85,86,58
  475. 20049 DATA170,174,31,255,252,0,0
  476. 20050 DATA0,0,0,0,0,0,0
  477. 20051 DATA0
  478. 20060 END
  479. 55555 PRINT"[147]"
  480. 55557 PRINT"YOU COWARD"
  481. 55559 FORX=0TO3000:NEXT
  482. 55560 END
  483. 55999 PRINT"[147]":FORX=0TO999:NEXTX
  484. 56000 PRINT"BRAVO !! DONE IT:"
  485. 56005 FORBA=0TO15
  486. 56007 FORBO=0TO15
  487. 56010 POKE53280,BO
  488. 56012 POKE53281,BA
  489. 56015 FORX=1TO1:NEXTX
  490. 56020 NEXTBO:NEXTBA
  491. 56025 FORX=0TO1000:NEXTX
  492. 56030 POKE53280,10:POKE53281,14
  493. 56035 PRINT"[144]        VERY WELL DONE INDEED"
  494. 56038 PRINT"[158]    FOR YOUR BONUS, HIT  ANY KEY [146]"
  495. 56040 GETA$:IFA$=""THEN56040
  496. 56050 PRINT"[147]":POKE53280,0:POKE53281,0
  497. 56055 PRINT" STOP EVERYTHING: TURN COMPUTER  OFF [146]"
  498. 56057 PRINT" TURN COMPUTER BACK  ON [146] AGAIN:"
  499. 56060 PRINT" TURN CASSETTE  OVER [146] AND REWIND IT:"
  500. 56065 PRINT" RUN IT  ON [146] FOR  XX [146]'COMMODORE NUMBERS'"
  501. 56070 PRINT"   [159]TYPE LOAD (OR PRESS SHIFT/RUNSTOP)"
  502. 56075 PRINT"      :AND SEE WHAT GOD SENDS YOU:"
  503. 56100 GETA$:IFA$=""THEN56100
  504.