home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / MARS-PROBE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.5 KB  |  104 lines
  1. 0 REM    PARSEC GAMES DISK # 23-                 JIM GREEN PD DISK # 50
  2. 10 FORT=0TO62:READA:POKE832+T,A:NEXT
  3. 20 DATA0,126,0,1,129,128,2,0,64
  4. 30 DATA4,0,32,28,6,56,4,137,32
  5. 40 DATA4,137,32,4,230,32,4,128,32
  6. 50 DATA4,0,32,3,255,192,3,24,192
  7. 60 DATA3,36,192,6,66,96,6,126,96
  8. 70 DATA12,0,48,12,0,48,24,0,24
  9. 80 DATA24,0,24,24,0,24,126,0,126
  10. 90 POKEV+33,0:POKEV+41,1
  11. 100 FORT=960TO1017:READA:POKET,A:NEXT
  12. 110 DATA169,254,120,141,0,220,173,1,220,10,162,3,10,144,3,202,208,250
  13. 120 DATA134,251,169,223,141,0,220,174,1,220,169,1,133,252,138,41,16,208
  14. 130 DATA2,198,252,138,41,128,208,2,230,252,169,255,141,1,220,169,127
  15. 140 DATA141,0,220,88,96
  16. 150 FORI=896TO926STEP3:POKEI,255:POKEI+1,0:POKEI+2,255:NEXT:POKE53280,15
  17. 160 POKE53281,15:PRINT"[147]       - = [205] A R S  [208] R O B E = -       "
  18. 170 PRINT"[151]  [217]OU PILOT A LANDING CRAFT FROM ITS"
  19. 180 PRINT"  LAUNCH PLATFORM TO THE BASE IN THE"
  20. 190 PRINT" MOUNTAINS.  [217]OU MUST LAND ON THE RED"
  21. 200 PRINT"   STRIP VERY GENTLY AND CAREFULLY."
  22. 205 PRINT"     [201]T IS HARD BUT CAN BE DONE...
  23. 210 [153]""[166]13)"(null)OUR CONTROLSWAIT"
  24. 220 [153]"(null)HRUST CONTROL  (MOVES SHIP UP)
  25. 230 PRINT"[198]5- 1.5 GRAVITIES"
  26. 240 PRINT"[198]3- 1.0 GRAVITIES. [206][207][212][197]: ([198]1 AND [198]3 ONLY";
  27. 250 PRINT"[151][198]1- 0.5 GRAVITIES   WORK AFTER [198]5 USED.)
  28. 260 [153]"POKE(null)ATERAL JET CONTROL"
  29. 270 [153]"< - LEFT JET  (MOVES SHIP RIGHT)
  30. 280 PRINT"> - RIGHT JET (MOVES SHIP LEFT)
  31. 282 [153]"(null)EVEL: 1 [VALASY]  2 [LEFT$ARD],  1 OR 2
  32. 283 GETE$:IFE$<"1"ORE$>"2"THEN283
  33. 284 IFE$="1"THENEZ=1
  34. 290 PRINT"[204]ARGE,[205]EDIUM OR [211]MALL":PRINT"[198]UEL TANK ([204],[205],[211])?"
  35. 300 GETA$:IFA$=""GOTO300
  36. 310 IFA$="L"THENFU=9900:GOTO350
  37. 320 IFA$="M"THENFU=4000:GOTO350
  38. 330 IFA$="S"THENFU=2000:GOTO350
  39. 340 GOTO300
  40. 350 POKE53280,14:POKE53281,11
  41. 355 V=53248:C=54272:PRINT"[147][142][152]";:FORT=1984TO2023:POKEC+T,1:POKET,160:NEXT
  42. 360 PRINTSPC(39)"[169]";
  43. 370 PRINTSPC(38)"[169] ";
  44. 380 PRINTSPC(37)"[169]  ";
  45. 390 PRINTSPC(37)"   ";
  46. 400 PRINTSPC(35)"[169][223]   ";
  47. 410 PRINTSPC(34)"[169]     ";
  48. 420 PRINTSPC(34)"      ";
  49. 430 PRINTSPC(34)"      ";
  50. 440 PRINTSPC(33)"[169]      ";
  51. 450 PRINTSPC(33)"       ";
  52. 460 PRINTSPC(33)"       ";
  53. 470 PRINTSPC(32)"[169]       ";
  54. 480 PRINTSPC(31)"[169]        ";
  55. 490 PRINTSPC(15)"[169][223]"SPC(14)"         ";
  56. 500 PRINTSPC(11)"[169] [223][169]  [223]"SPC(12)"[169]         ";
  57. 510 PRINTSPC(11)"       "SPC(10)"[169]           ";
  58. 520 PRINTSPC(11)"       [223]"SPC(9)"            ";
  59. 530 PRINTSPC(11)"        "SPC(9)"    [164]  [164]  [164] ";
  60. 540 PRINTSPC(10)"         [223][146]"SPC(8)"[223] [146][169]"SPC(8)" ";
  61. 550 PRINTSPC(9)"[152][169]           [223]"SPC(17)" ";
  62. 560 PRINTSPC(8)"[152][190]             "SPC(17)" ";
  63. 570 PRINTSPC(7)"[152][169]               [223]"SPC(15)" ";
  64. 580 PRINTSPC(6)"[152][190]                 [146]"SPC(7)"[129][175][175][175][175][175][175]   [146]";
  65. 590 PRINT"[152][172][169][223][146][162][172][169]                   [223][146][187][162][175][187][169]      [223][146]  [146]"
  66. 595 IFEZ=1THENGOSUB950
  67. 600 POKEV+21,0:POKE2042,13:POKE2040,14
  68. 610 POKEV+23,0:POKEV+29,0:POKEV+27,1
  69. 620 POKEV+41,1:POKEV+39,6
  70. 630 HP=28:VP=213:VV=0:VH=0:T0=1
  71. 640 GETA$:IFA$<>""THEN640
  72. 650 POKEV,28:POKEV+1,234:POKEV+5,VP:POKEV+4,HP:POKEV+16,0:POKEV+21,5
  73. 660 GETA$:IFA$<>"[135]"THEN660
  74. 670 POKEV+21,4
  75. 680 Q=PEEK(V+31):IFQ<>0THEN680
  76. 690 IFVP>256THEN750
  77. 700 POKEV+5,VP
  78. 710 POKEV+4,HPAND255:POKEV+16,SGN(HPAND256)*4
  79. 720 Q=PEEK(V+31):IFQ=0THEN790
  80. 730 IFABS(VV)>=2OR(HP<270)OR(HP>295)ORABS(VH)>2ORVP<210GOTO750
  81. 740 PRINT""SPC(10)"YOU HAVE LANDED!!!":FORT=1TO500:NEXT:GOTO880
  82. 750 POKE2042,0:PRINT""SPC(15)"CRASH!!![146]"
  83. 760 POKEV+41,10
  84. 770 FORI=1TO5:POKEV+33,7:FORJ=1TO140:NEXT:POKEV+33,0:FORJ=1TO140:NEXT:NEXT
  85. 780 FORT=1TO500:NEXT:POKEV+21,0:GOTO880
  86. 790 SYS960:TV=PEEK(251)/2:AH=PEEK(252)-1:AV=1-TV:FU=FU-(TV+ABS(AH))*20
  87. 800 IFFU<0THENAV=1:AH=0:FU=0
  88. 810 PRINT""SPC(11)"[155]FUEL"RIGHT$("     "+STR$(INT(FU)),5)
  89. 820 VP=VP+VV*T0+.5*AV*T0*T0:VV=VV+AV*T0
  90. 830 HP=HP+VH*T0+.5*AH*T0*T0:VH=VH+AH*T0
  91. 840 IFHP<0THENHP=345
  92. 850 IFHP>345THENHP=0
  93. 860 IFVP<0THENPRINT"[147]OUT INTO SPACE!":FORT=1TO500:NEXT:GOTO160
  94. 870 GOTO690
  95. 880 PRINT""TAB(7)"ANOTHER GAME- Y/N"
  96. 890 GETA$:IFA$="Y"THENPOKEV+21,0:GOTO160
  97. 900 IFA$<>"N"THEN890
  98. 910 POKEV+21,0:POKEV+33,6:PRINT"[147][154]":END
  99. 950 FORT=217TO242:POKET,PEEK(T)OR128:NEXT
  100. 955 PRINT:PRINT""TAB(28)"[152]  [187]"
  101. 960 PRINTSPC(28)"  [190]"
  102. 965 PRINTTAB(28)"  [223]
  103. 970 [153][166]28)"   ":[142]
  104.