home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD010A.D64 / hyp-capt's log (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.9 KB  |  83 lines
  1. 0 FORX=0TO500:NEXT
  2. 1 PRINT"[147]   [156] COMMODORE 64 ONLY [146]":POKE53280,3:POKE53281,3
  3. 2 PRINT"[144]   YOU CAN ONLY SEE THESE INSTRUCTIONS "
  4. 3 PRINT" 0NCE [146] WITHOUT RELOADING THE TAPE  O.K.[146]"
  5. 4 PRINT"         :ANY KEY TO GET THEM:"
  6. 5 GETB$:IFB$=""THEN5
  7. 6 PRINT"[147]":POKE53280,7:POKE53281,15
  8. 7 PRINT"[144]"
  9. 8 PRINT"HYPERTANIC"
  10. 10 PRINT"[168][168][168][168][168][168][168][168][168][168] "
  11. 12 PRINT
  12. 15 PRINT"   CAN YOU TAKE 'CUNNARDS' NEW LINER   "
  13. 16 PRINT" THE 'HYPERTANIC' FROM HER BELFAST DOCK [146]";
  14. 18 PRINT"               TO NEW YORK [146]"
  15. 25 PRINT:PRINT" FOLLOWING THE ROUTE OF THE ILL-FATED"
  16. 27 PRINT"'TITANIC' WHO ONLY EVER LEARNED TO SINK:"
  17. 35 PRINT"[144] 4 TOUGH SCREENS & A NAUTICAL QUIZ TO"
  18. 40 PRINT" FINISH, DO IT USING ONE LINER ONLY OR"
  19. 45 PRINT" YOU CAN'T COMPLETE THE VOYAGE, OR GET"
  20. 48 PRINT" ACCESS TO THE QUIZ: IF YOU LOSE A LINER";
  21. 50 PRINT" YOU CAN ONLY PRACTICE WITH THE OTHERS:"
  22. 53 PRINT
  23. 55 PRINT"[156] DO IT IN ONE (ALL OF IT) & YOU GET A"
  24. 58 PRINT" VERY EXTRA SPECIAL,& TOP SECRET BONUS!"
  25. 60 PRINT:PRINT"           [144] PRESS SPACE BAR [146]"
  26. 70 GETA$:IFA$=""THEN70
  27. 100 PRINT"[147]":POKE53281,0
  28. 110 PRINT"  CAPTAINS LOG[146]   SEA-DATE[146]  AS CURRENT[146]"
  29. 112 PRINT
  30. 120 PRINT"[158] MEMO FROM FORMULA-1:TO COMMAND CAPTAIN:";
  31. 122 PRINT"[159] [168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]"
  32. 125 PRINT:PRINT" ALL INFORMATION RELATING TO THIS VOYAGE";
  33. 130 PRINT" IS STRICTLY CLASSIFIED & MAY NOT BE  "
  34. 135 PRINT" LISTED BY UNAUTHORISED PERSONNEL, ANY"
  35. 138 PRINT" ATTEMPT TO DO SO WILL RESULT IN A TOTAL";
  36. 140 PRINT" WIPE-OUT OF THE SHIPS ONBOARD COMPUTER"
  37. 145 PRINT" MEMORY BANKS,& MAY CAUSE SERIOUS DAMAGE";
  38. 150 PRINT"    TO YOUR NAVIGATIONAL EQUIPMENT:"
  39. 155 PRINT:PRINT"[159]  AUTHORISED PERSONNEL ARE AS FOLLOWS."
  40. 160 PRINT:PRINT"      FORMULA-ONE [146]"
  41. 165 PRINT:PRINT"      & SUCCESSFUL CAPTAINS ONLY [146]"
  42. 170 PRINT:PRINT"[158]  ASPIRING CAPTAINS:"
  43. 175 PRINT" [159] FOR FINAL BRIEFING  PRESS SPACE [146]"
  44. 180 GETA$:IFA$=""THEN180
  45. 200 POKE53280,4 :POKE53281,10:PRINT"[147]"
  46. 210 PRINT"[144]   WELCOME ONTO THE BRIDGE OF THE                  'HYPERTANIC'"
  47. 215 PRINT"          * * * * * * * *"
  48. 220 PRINT:PRINT" TO ACTIVATE YOUR ROUTE,CO'ORDINATES,           & TIME SCHEDULES
  49. 225 [153]:[153]"   FIRST PLEASE ENTER YOUR NAME:"
  50. 227 [153]:[153]
  51. 230 [133]A$
  52. 232 [153]"LOAD"
  53. 235 [153]" :WELCOME ABOARD:",  A$
  54. 240 [153]:[153]"STOP      YOU MAY NOW ACCESS THE SHIPS"
  55. 245 [153]"           ON-BOARD COMPUTERS:"
  56. 250 [129]X[178]0[164]3000:[130]X
  57. 300 [153]"LOAD":[153]"             TYPE LOAD"
  58. 301 [153]" * * * *         * *         * * * *"
  59. 350 [153]:[153]:[153]:[153]"STOP OR ENTER  PASS-WORD WAIT TO GO STRAIGHT TO"
  60. 360 [153]:[153]"               THE QUIZ"
  61. 362 [153]:[153]
  62. 365 [133]"CORRECT PASS-WORD PLEASE ";M$
  63. 368 [139]M$[179][177]"HARRY"[167][137]400
  64. 369 [137]380
  65. 380 [153]"LOAD":[153]"    CORRECT BUT WAIT"
  66. 381 [153]""
  67. 390 [153]"         ! YOU'VE BEEN HAD !"
  68. 391 [153]""
  69. 392 [153]"STOP  YOU DID'NT REALLY THINK IT WOULD BE           THAT EASY,  DID YOU?"
  70. 394 [153]"     SYS PRESS SHIFT/RUNSTOP WAIT":[153]"STOP       LIKE EVERY ONE ELSE"
  71. 395 [153][199](156)
  72. 396 [129]X[178]0[164]6500:[130]
  73. 398 [153]"LOAD":[153]"SYS PRESS SHIFT/RUNSTOP   NOW WAIT"
  74. 399 [153][199](156):[128]
  75. 400 [153]"LOAD":[153]" NO GOOD!              WRONG PASS-WORD"
  76. 405 [153]"SYS     THIS PROGRAM ONLY RESPONDS TO"
  77. 410 [153]"STOP            SHIFT/RUNSTOP WAIT"
  78. 411 [153]"      OR THE PASS-WORD OF COURSE WAIT"
  79. 412 [153][199](156)
  80. 413 [129]X[178]0[164]6000:[130]X
  81. 415 [153]"LOAD":[153]"SYS   PRESS SHIFT/RUNSTOP   NOW WAIT"
  82. 417 [153][199](156)
  83.