home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / SHUTTLEMISSION.JOY (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.1 KB  |  165 lines
  1. 2 JS=56320
  2. 5 PRINT"[147]";CHR$(5):POKE53281,0:POKE53280,0
  3. 6 GOSUB2000
  4. 13 FORT=1TO1000:NEXTT
  5. 100 DATA 0,96,0,0,241,128,1,249,192,0,251,224,0,127,224,0
  6. 110 DATA 127,224,0,127,224,13,255,224,15,255,224,0,127,224,0,255
  7. 115 DATA 224,3,255,224,3,255,192,3,255,128,3,207,128,1,207,0
  8. 120 DATA 1,192,0,1,224,0,1,224,0,15,224,0,15,224,0
  9. 130 DATA 0
  10. 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
  11. 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
  12. 150 DATA 0,6,0,0,15,0,0,6,0,0,6,0,0,4,0
  13. 170 :
  14. 180 PRINTTAB(14)"[158]INSTRUCTIONS":PRINT
  15. 181 PRINT"YOUR TASK IS TO TO LEAVE YOUR SHUTTLE
  16. 182 [153]"AND ENTER THE DERELICT SPACE STATION ON
  17. 183 PRINT"THE LEFT SIDE OF THE SCREEN. IF YOU
  18. 184 [153]"TOUCH ANYTHING ON YOUR JOURNEY, YOU WILL
  19. 185 PRINT"[145]PUNCTURE YOUR SUIT AND BE VAPORIZED INTO
  20. 186 [153]"ON'NOTHINGNESS' !!  IF YOU RUN OUT OF FUEL
  21. 187 PRINT"[145]YOU WILL DIE IMMEDIATELY FROM LOSS
  22. 188 [153]"OF OXYGEN SUPPLIED WITH YOUR THRUSTERS.
  23. 189 PRINT"THERE IS SOME GRAVITY LEFT IN THE AREA..
  24. 190 [153]"ONTURN YOUR SOUND UP A LITTLE.":[153]
  25. 199 [153]" PRESS JOYSTICK UP OR DOWN FOR THRUST
  26. 200 PRINT" LEFT  TO MOVE LEFT
  27. 210 [153]" RIGHT TO MOVE RIGHT
  28. 220 PRINT" FIRE BUTTON WILL GIVE YOU A LITTLE"
  29. 221 PRINT" EXTRA THRUST. (BE CAREFUL!)
  30. 240 [153]
  31. 250 [153]" GOOD LUCK TO YOU ON YOUR MISSION !
  32. 260 REM:SET UP
  33. 265 POKE53280,12
  34. 270 FORJ=0TO126:READX:POKE832+J,X:NEXTJ
  35. 280 X0=53248:Y0=53249:C0=53279
  36. 290 X1=53250:Y1=53251:E=53269
  37. 300 POKE 2040,13:POKE2041,14
  38. 310 POKE53275,0:POKE53287,1
  39. 320 POKE53288,7:REM THRUST COLOR
  40. 330 PRINT:PRINT" [158]PRESS  FIRE [146] BUTTON REG.   LEFT[146] EASY "
  41. 340 IF(PEEK(JS)AND16)=0THENDF=1:GOTO350
  42. 345 IF(PEEK(JS))=123 THENDF=0:GOTO350
  43. 346 GOTO340
  44. 350 BP=DF:POKE E,0:GOTO365
  45. 365 FL$=""
  46. 370 V=221:H=255:V0=0:H0=0:FL=100
  47. 380 POKE54296,15:POKE54278,240
  48. 390 REM:DRAW SCREEN
  49. 392 GOSUB3000
  50. 470 JO=PEEK(JS) :J=(JO AND16)
  51. 471 POKE53288,7:REM THRUST COLOR
  52. 472 HD=0:VD=0
  53. 475 HD=SGN(JO AND4)-SGN(JO AND8):VD=SGN(JO AND1)-SGN(JO AND2)
  54. 480 REM:MAIN FLIGHT LOOP-TESTKEYS
  55. 490 IFJO=127  THEN550
  56. 500 V1=.01:H1=0
  57. 510 E0=1:IFVD=-1THENV1=-.3:E0=3:FL=FL-1:IFJ=0THENV1=-.6:POKE53288,14
  58. 511 IFVD=1 THENV1=.3:E0=3:FL=FL-1:IFJ=0THENV1=.6:POKE53288,15
  59. 512 REM
  60. 520 IFHD=-1 THENH1=-.2:FL=FL-1:IFJ=0THENH1=H1-.2
  61. 530 IFHD=1 THENH1=.2:FL=FL-1:IF J=0THEN H1=.4
  62. 535 IFFL<1THENPRINTFL$;TAB(34)"OUT":GOTO740
  63. 537 PRINTFL$;TAB(34)"FUEL":PRINTFL$;TAB(34)""FL"[146]"
  64. 540 GOTO560
  65. 550 IFJO=127 THENV1=.01:H1=0:E0=1
  66. 560 IFPEEK(E)=E0 GOTO 600
  67. 570 REM THRUST SOUND
  68. 580 POKEE,E0:IFE0=1THENPOKE54276,0:GOTO600
  69. 590 POKE54273,15:POKE54276,129
  70. 600 IFH1=H9GOTO630
  71. 610 H9=H1:K=SGN(ABS(H9))*129:POKE 54273,99:POKE54276,K
  72. 620 REM LET'S MOVE IT
  73. 630 V0=V0+V1:H0=H0+H1
  74. 640 REM FIELD FORCE BOUNDRIES
  75. 650 IFV<50THENV0=ABS(V0)
  76. 660 IFH<20THENH0=ABS(H0)
  77. 670 IFH>255THENH0=-ABS(H0):
  78. 675 IFV>100ANDV<150ANDH<20THENPRINT"SUCCESS !":FORT=1TO1000:NEXT:GOTO900
  79. 677 IFV>220THENV=220:V1=0:V0=0:POKEY0,V:POKEY1,V
  80. 680 V=V+V0:H=H+H0
  81. 685 IFH>255THENH=255
  82. 690 REM MOVE CRAFT,CHECK COLLISIONS
  83. 700 POKEX0,H:POKEY0,V:POKEX1,H:POKEY1,V
  84. 710 C=PEEK(C0):IF(CAND1)=OGOTO470
  85. 712 C=PEEK(C0):IF(CAND1)=1THENBP=BP+1
  86. 715 IFBP=>2THENBP=DF:  PRINT"":GOTO740
  87. 716 :
  88. 720 :
  89. 730 IFV+V0=220GOTO470
  90. 735 IFBP<2THEN470
  91. 740 REM: HIT OBSTACLE AND DESTRUCT
  92. 750 PRINTCHR$(19);"VAPORIZED![146]":POKE E,0
  93. 760 GOTO800
  94. 770 REM: BOUNCE FACTORS
  95. 780 IFV0>1ORV0<0THENV0=-ABS(V0):GOTO470
  96. 790 :
  97. 800 REM:WHAT TO DO NEXT
  98. 805 POKE54276,0:POKE54296,0
  99. 810 PRINT""TAB(16)"WANT TO TRY AGAIN ? Y/N":FB=0
  100. 812 PRINTTAB(16)"OR PRESS  FIRE [146] BUTTON ":GOTO815
  101. 813 IFFB>60THENPRINT"[154]"TAB(248)"LET GO OF THE"CHR$(34)"FIRE"CHR$(34)"BUTTON
  102. 815 [139]([194](JS)[175]16)[178]0[167]FB[178]FB[170]1:[137] 813
  103. 816 [139]([194](JS)[175]16)[178]0[167]350
  104. 819 A$[178]""
  105. 820 [161]A$:[139]A$[178]""[167]816
  106. 830 [139]A$[178]"Y"[167][138]
  107. 840 [128]
  108. 900 [151]E,0:[139]FL[179]35[167][153]"RANK:NOVICE":[137]800
  109. 910 [139]FL[177]34[175]FL[179]70[167][153]"RANK:PILOT":[137]800
  110. 920 [139]FL[177]60[167][153]"RANK:ASTRONAUT!":[137]800
  111. 1990 [128]
  112. 2000 [143]:TITLE SCREEN
  113. 2010 [153]"                                        ";
  114. 2020 [153]"                                        ";
  115. 2030 [153]"      FOR   WAIT  WAIT  WAIT  WAIT  WAIT    WAIT    WAIT  WAIT      WAIT       ";
  116. 2040 [153]"       WAIT    WAIT  WAIT  WAIT  WAIT   WAIT    WAIT   WAIT    WAIT         ";
  117. 2050 [153]"         WAIT    WAIT  WAIT  WAIT   WAIT    WAIT   WAIT     WAIT        ";
  118. 2060 [153]"         WAIT  WAIT  WAIT  WAIT  WAIT   WAIT    WAIT   WAIT    WAIT         ";
  119. 2070 [153]"         WAIT  WAIT  WAIT    WAIT   WAIT    WAIT     WAIT    WAIT       ";
  120. 2080 [153]"                                        ";
  121. 2090 [153]"                                        ";
  122. 2100 [153]"        STEP WAIT  WAIT    WAIT    WAIT  WAIT    WAIT  WAIT  WAIT        ";
  123. 2110 [153]"           WAIT  WAIT  WAIT    WAIT    WAIT  WAIT  WAIT    WAIT        ";
  124. 2120 [153]"        WAITSTEP WAIT  WAIT    WAIT    WAIT  WAIT  WAIT  WAIT  WAIT  WAIT        ";
  125. 2130 [153]"        WAIT   WAIT  WAIT    WAIT    WAIT  WAIT  WAIT  WAIT  WAIT  WAIT        ";
  126. 2140 [153]"        WAIT   WAIT  WAIT    WAIT    WAIT  WAIT    WAIT  WAIT   WAIT        ";
  127. 2150 [153]"                                        ";
  128. 2160 [153]"                      WAIT                  ";
  129. 2170 [153]"                     WAIT                   ";
  130. 2180 [153]"                     WAIT                   ";
  131. 2190 [153]"                      WAIT                  ";
  132. 2200 [153]"                                        ";
  133. 2210 [153]"         SYSPROGRAM AND GRAPHICS BY        ";
  134. 2220 [153]"                                        ";
  135. 2230 [153]"               BUD GROVER               ";
  136. 2240 [153]"LIST    JOYSTICK ROUTINE  LAMBERT KLEIN    ";
  137. 2250 [129]T[178]1[164]5000:[130]:[153][199](147)
  138. 2260 [142]
  139. 3000 [153]"LOADWAIT                                        ";
  140. 3010 [153]"   WAIT                                    ";
  141. 3020 [153]"    (null)WAIT                         FOR(null)  WAIT       ";
  142. 3030 [153]"     (null)WAIT    FORSTEP(null)WAIT  STEP (null)WAIT  RND              WAIT      ";
  143. 3040 [153]"     WAIT     FOR(null)        (null)STEP  (null)WAIT      RND  (null) WAIT     ";
  144. 3050 [153]"    WAIT   (null)WAIT   FOR             (null)WAIT          WAIT     ";
  145. 3060 [153]"        WAIT   FOR              (null)WAIT     (null) WAIT    WAIT   ";
  146. 3070 [153]"       WAITSTEP    FOR       WAITSTEP  (null)   (null)WAIT      WAIT    WAIT  WAIT ";
  147. 3080 [153]"    WAIT  WAITSTEP    FORSTEP      WAITSTEP                  WAIT  WAIT ";
  148. 3090 [153]"WAIT           FOR(null)     WAITSTEP               (null)     WAIT ";
  149. 3100 [153]"WAIT            FOR(null)   WAITSTEP               RND      WAIT ";
  150. 3110 [153]"WAIT                    FORSTEP(null)WAIT                 WAIT ";
  151. 3120 [153]"  WAIT     (null)WAIT           FORSTEP       WAITSTEP    STEP(null)WAIT     WAIT ";
  152. 3130 [153]"        WAIT   FOR(null)WAIT      STEP      WAIT       (null)      WAIT ";
  153. 3140 [153]"       WAITSTEP   FOR              WAITSTEP             WAIT ";
  154. 3150 [153]"      WAITSTEP     FOR            WAITSTEP      (null)        ";
  155. 3160 [153]"    WAIT        FOR           WAITSTEP               WAIT ";
  156. 3170 [153]"    WAITSTEP     FORSTEP    WAIT        WAIT         STEP       ";
  157. 3180 [153]"   WAITSTEP     FORSTEP            WAITSTEP        STEP        ";
  158. 3190 [153]"  WAITSTEP      FOR(null)       WAIT    WAITSTEP        (null)         ";
  159. 3200 [153]"WAIT                  FORRND            (null)        ";
  160. 3210 [153]"WAIT                                        ";
  161. 3220 [153]"WAIT    FORSTEP(null)WAIT                     STEP(null)WAIT           ";
  162. 3230 [153]"WAIT    FOR(null) (null)WAIT  STEP(null)WAIT    (null)WAIT    STEP(null)WAIT (null)WAIT  STEP  WAIT           ";
  163. 3240 [153]"WAIT     FOR(null) (null)WAIT (null) (null)WAIT  STEP WAIT STEP      (null)WAIT              WAIT";
  164. 3250 [142]
  165.