home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / SHUTTLE-MISSION (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.5 KB  |  149 lines
  1. 5 PRINT"[147]";CHR$(5):POKE53281,0:POKE53280,12
  2. 6 GOSUB2000
  3. 13 FORT=1TO1000:NEXTT
  4. 100 DATA 0,96,0,0,241,128,1,249,192,0,251,224,0,127,224,0
  5. 110 DATA 127,224,0,127,224,13,255,224,15,255,224,0,127,224,0,255
  6. 115 DATA 224,3,255,224,3,255,192,3,255,128,3,207,128,1,207,0
  7. 120 DATA 1,192,0,1,224,0,1,224,0,15,224,0,15,224,0
  8. 130 DATA 0
  9. 140 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  10. 145 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11. 150 DATA 0,6,0,0,15,0,0,6,0,0,6,0,0,4,0
  12. 170 :
  13. 180 PRINTTAB(14)"[158]INSTRUCTIONS":PRINT
  14. 181 PRINT"YOUR TASK IS TO TO LEAVE YOUR SHUTTLE
  15. 182 [153]"AND ENTER THE DERELICT SPACE STATION ON
  16. 183 PRINT"THE LEFT SIDE OF THE SCREEN. IF YOU
  17. 184 [153]"TOUCH ANYTHING ON YOUR JOURNEY, YOU WILL
  18. 185 PRINT"[145]PUNCTURE YOUR SUIT AND BE VAPORIZED INTO
  19. 186 [153]"ON'NOTHINGNESS' !!  IF YOU RUN OUT OF FUEL
  20. 187 PRINT"[145]YOU WILL DIE IMMEDIATELY FROM LOSS
  21. 188 [153]"OF OXYGEN SUPPLIED WITH YOUR THRUSTERS.
  22. 189 PRINT"THERE IS SOME GRAVITY LEFT IN THE AREA..
  23. 190 [153]"ONTURN YOUR SOUND UP A LITTLE.":[153]
  24. 199 [153]" PRESS 'SPACE BAR' FOR MAIN THRUST
  25. 200 PRINT" PRESS '+' TO MOVE LEFT
  26. 210 [153]" PRESS '-' TO MOVE RIGHT
  27. 240 PRINT
  28. 250 PRINT" GOOD LUCK TO YOU ON YOUR MISSION !
  29. 260 [143]:SET UP
  30. 270 [129]J[178]0[164]126:[135]X:[151]832[170]J,X:[130]J
  31. 280 X0[178]53248:Y0[178]53249:C0[178]53279
  32. 290 X1[178]53250:Y1[178]53251:E[178]53269
  33. 300 [151] 2040,13:[151]2041,14
  34. 310 [151]53275,0:[151]53287,1
  35. 320 [151]53288,7:[143] THRUST COLOR
  36. 330 [153]:[153]" SYSREADY TO START ? (Y/N)";B$
  37. 340 [161]B$:[139]B$[178]""[167]340
  38. 350 [139]B$[178]"Y"[167] [151] E,0:[137]365
  39. 360 [139]B$[179][177]"Y"[175]B$[179][177]"YES"[167][128]
  40. 365 FL$[178]""
  41. 370 V[178]221:H[178]255:V0[178]0:H0[178]0:FL[178]100
  42. 380 [151]54296,15:[151]54278,240
  43. 390 [143]:DRAW SCREEN
  44. 392 [141]3000
  45. 395 [143]:GOSUB1750:GP SEQ FILE METHOD
  46. 470 K[178][194](203):[161]K$
  47. 480 [143]:MAIN FLIGHT LOOP-TESTKEYS
  48. 490 [139]K$[178]""[137]550
  49. 500 K0[178][198](K$):V1[178].01:H1[178]0
  50. 510 E0[178]1:[139]K0[178]32[167]V1[178][171].3:E0[178]3:FL[178]FL[171]1
  51. 512 [143]
  52. 520 [139]K0[178]43[167]H1[178][171].2:FL[178]FL[171]1
  53. 530 [139]K0[178]45[167]H1[178].2:FL[178]FL[171]1
  54. 535 [139]FL[179]1[167][153]FL$;[163]34)"OUT":[137]740
  55. 537 [153]FL$;[163]34)"FUEL":[153]FL$;[163]34)""FL"WAIT"
  56. 540 [137]560
  57. 550 [139]K[178]64[167]V1[178].01:H1[178]0:E0[178]1
  58. 560 [139][194](E)[178]E0 [137] 600
  59. 570 [143] THRUST SOUND
  60. 580 [151]E,E0:[139]E0[178]1[167][151]54276,0:[137]600
  61. 590 [151]54273,15:[151]54276,129
  62. 600 [139]H1[178]H9[137]630
  63. 610 H9[178]H1:K[178][180]([182](H9))[172]129:[151] 54273,99:[151]54276,K
  64. 620 [143] LET'S MOVE IT
  65. 630 V0[178]V0[170]V1:H0[178]H0[170]H1
  66. 640 [143] FIELD FORCE BOUNDRIES
  67. 650 [139]V[179]50[167]V0[178][182](V0)
  68. 660 [139]H[179]20[167]H0[178][182](H0)
  69. 670 [139]H[177]255[167]H0[178][171][182](H0)
  70. 675 [139]V[177]100[175]V[179]150[175]H[179]20[167][153]"SUCCESS !":[129]T[178]1[164]1000:[130]:[137]900
  71. 677 [139]V[177]220[167]V[178]220:V1[178]0:V0[178]0:[151]Y0,V:[151]Y1,V
  72. 680 V[178]V[170]V0:H[178]H[170]H0
  73. 690 [143] MOVE CRAFT,CHECK COLLISIONS
  74. 700 [151]X0,H:[151]Y0,V:[151]X1,H:[151]Y1,V
  75. 710 C[178][194](C0):[139](C[175]1)[178]O[137]470
  76. 712 C[178][194](C0):[139](C[175]1)[178]1[167][153]"":[137]740
  77. 716 :
  78. 720 :
  79. 730 [139]V[170]V0[178]220[137]470
  80. 740 [143]: HIT OBSTACLE AND DESTRUCT
  81. 750 [153][199](19);"VAPORIZED!WAIT":[151] E,0
  82. 760 [137]800
  83. 770 [143]: BOUNCE FACTORS
  84. 780 [139]V0[177]1[176]V0[179]0[167]V0[178][171][182](V0):[137]470
  85. 790 :
  86. 800 [143]:WHAT TO DO NEXT
  87. 805 [151]54276,0:[151]54296,0
  88. 810 [153]""[163]10)"      WANT TO TRY AGAIN ? Y/N";A$
  89. 820 [161]A$:[139]A$[178]""[167]820
  90. 830 [139]A$[178]"Y"[167][138]
  91. 840 [128]
  92. 900 [151]E,0:[139]FL[179]35[167][153]"RANK:NOVICE":[137]800
  93. 910 [139]FL[177]34[175]FL[179]70[167][153]"RANK:PILOT":[137]800
  94. 920 [139]FL[177]60[167][153]"RANK:ASTRONAUT!":[137]800
  95. 1990 [128]
  96. 2000 [143]:TITLE SCREEN
  97. 2010 [153]"                                        ";
  98. 2020 [153]"                                        ";
  99. 2030 [153]"      FOR   WAIT  WAIT  WAIT  WAIT  WAIT    WAIT    WAIT  WAIT      WAIT       ";
  100. 2040 [153]"       WAIT    WAIT  WAIT  WAIT  WAIT   WAIT    WAIT   WAIT    WAIT         ";
  101. 2050 [153]"         WAIT    WAIT  WAIT  WAIT   WAIT    WAIT   WAIT     WAIT        ";
  102. 2060 [153]"         WAIT  WAIT  WAIT  WAIT  WAIT   WAIT    WAIT   WAIT    WAIT         ";
  103. 2070 [153]"         WAIT  WAIT  WAIT    WAIT   WAIT    WAIT     WAIT    WAIT       ";
  104. 2080 [153]"                                        ";
  105. 2090 [153]"                                        ";
  106. 2100 [153]"        STEP WAIT  WAIT    WAIT    WAIT  WAIT    WAIT  WAIT  WAIT        ";
  107. 2110 [153]"           WAIT  WAIT  WAIT    WAIT    WAIT  WAIT  WAIT    WAIT        ";
  108. 2120 [153]"        WAITSTEP WAIT  WAIT    WAIT    WAIT  WAIT  WAIT  WAIT  WAIT  WAIT        ";
  109. 2130 [153]"        WAIT   WAIT  WAIT    WAIT    WAIT  WAIT  WAIT  WAIT  WAIT  WAIT        ";
  110. 2140 [153]"        WAIT   WAIT  WAIT    WAIT    WAIT  WAIT    WAIT  WAIT   WAIT        ";
  111. 2150 [153]"                                        ";
  112. 2160 [153]"                      WAIT                  ";
  113. 2170 [153]"                     WAIT                   ";
  114. 2180 [153]"                     WAIT                   ";
  115. 2190 [153]"                      WAIT                  ";
  116. 2200 [153]"                                        ";
  117. 2210 [153]"         SYSPROGRAM AND GRAPHICS BY        ";
  118. 2220 [153]"                                        ";
  119. 2230 [153]"               BUD GROVER               ";
  120. 2240 [153]"                                       ";
  121. 2250 [129]T[178]1[164]5000:[130]:[153][199](147)
  122. 2260 [142]
  123. 3000 [153]"LOADWAIT                                        ";
  124. 3010 [153]"   WAIT                                    ";
  125. 3020 [153]"    (null)WAIT                         FOR(null)  WAIT       ";
  126. 3030 [153]"     (null)WAIT    FORSTEP(null)WAIT  STEP (null)WAIT  RND              WAIT      ";
  127. 3040 [153]"     WAIT     FOR(null)        (null)STEP  (null)WAIT      RND  (null) WAIT     ";
  128. 3050 [153]"    WAIT   (null)WAIT   FOR             (null)WAIT          WAIT     ";
  129. 3060 [153]"        WAIT   FOR              (null)WAIT     (null) WAIT    WAIT   ";
  130. 3070 [153]"       WAITSTEP    FOR       WAITSTEP  (null)   (null)WAIT      WAIT    WAIT  WAIT ";
  131. 3080 [153]"    WAIT  WAITSTEP    FORSTEP      WAITSTEP                  WAIT  WAIT ";
  132. 3090 [153]"WAIT           FOR(null)     WAITSTEP               (null)     WAIT ";
  133. 3100 [153]"WAIT            FOR(null)   WAITSTEP               RND      WAIT ";
  134. 3110 [153]"WAIT                    FORSTEP(null)WAIT                 WAIT ";
  135. 3120 [153]"  WAIT     (null)WAIT           FORSTEP       WAITSTEP    STEP(null)WAIT     WAIT ";
  136. 3130 [153]"        WAIT   FOR(null)WAIT      STEP      WAIT       (null)      WAIT ";
  137. 3140 [153]"       WAITSTEP   FOR              WAITSTEP             WAIT ";
  138. 3150 [153]"      WAITSTEP     FOR            WAITSTEP      (null)        ";
  139. 3160 [153]"    WAIT        FOR           WAITSTEP               WAIT ";
  140. 3170 [153]"    WAITSTEP     FORSTEP    WAIT        WAIT         STEP       ";
  141. 3180 [153]"   WAITSTEP     FORSTEP            WAITSTEP        STEP        ";
  142. 3190 [153]"  WAITSTEP      FOR(null)       WAIT    WAITSTEP        (null)         ";
  143. 3200 [153]"WAIT                  FORRND            (null)        ";
  144. 3210 [153]"WAIT                                        ";
  145. 3220 [153]"WAIT    FORSTEP(null)WAIT                     STEP(null)WAIT           ";
  146. 3230 [153]"WAIT    FOR(null) (null)WAIT  STEP(null)WAIT    (null)WAIT    STEP(null)WAIT (null)WAIT  STEP  WAIT           ";
  147. 3240 [153]"WAIT     FOR(null) (null)WAIT (null) (null)WAIT  STEP WAIT STEP      (null)WAIT              WAIT";
  148. 3250 [142]
  149.