home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / SPACE-BELT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.6 KB  |  120 lines
  1. 1 REM SPACE BELT  RTG DISK # 5 ********
  2. 2 REM JLH # 10* ****
  3. 3 REM
  4. 4 REM ANY ALTERATIONS TO THIS PROGRAM
  5. 5 REM WILL DESTROY IT
  6. 6 REM
  7. 7 PRINT"[147]";TAB(14);" SPACE BELT "
  8. 8 PRINTTAB(11);"JOYSTICK PORT TWO "
  9. 9 PRINTTAB(11);" F.B. TO RESTART  "
  10. 10 POKE55,0:POKE56,160
  11. 11 POKE51,0:POKE52,160:EN=70
  12. 12 FORI=0TO2000:NEXT:NB=3:BN=70
  13. 13 PRINT"[147]";:POKE53280,9:POKE53281,0
  14. 14 POKE53287,14:POKE53288,7
  15. 15 POKE53289,4:POKE53290,5
  16. 16 POKE53291,7:POKE53292,14
  17. 17 POKE53292,14:VO=54296
  18. 18 W1=54276:A1=54277:H1=54273:L1=54272
  19. 19 W2=54283:A2=54284:H2=54280:L2=54279
  20. 20 W3=54290:A3=54291:H3=54287:L3=54286
  21. 21 V=53248:SE=V+21:MS=V+16:C=0
  22. 22 POKEV+23,0:POKEV+29,0
  23. 23 TX=120:TY=20:XT=75:YT=20:POKESE,0
  24. 24 XX=175:YY=20:POKE900,0
  25. 25 PL=1:BK$="         ":B2$="                "
  26. 26 B3$="[145]                                ":GD$="     "
  27. 27 GOSUB105
  28. 28 PRINT""
  29. 29 INPUT"         1 OR 2 PLAYERS";NO$
  30. 30 PRINTB3$
  31. 31 IFNO$<>"1"ANDNO$<>"2"THENPRINT"[145][145][145]":GOTO29
  32. 32 INPUT"         SPEED S/M/F";SP$
  33. 33 PRINTB3$
  34. 34 IFSP$="S"THENPOKE06928,120:GOTO38
  35. 35 IFSP$="M"THENPOKE06928,090:GOTO38
  36. 36 IFSP$="F"THENPOKE06928,50:GOTO38
  37. 37 PRINT"[145][145][145]":GOTO32
  38. 38 PRINT"[145][145][145][145][145][145][145]"
  39. 39 PRINT"2550100200":REM""
  40. 40 X0=V:X1=V+2:X2=V+4:X3=V+6:X4=V+8
  41. 41 X5=V+10:X6=V+12
  42. 42 Y0=V+1:Y1=V+3:Y2=V+5:Y3=V+7:Y4=V+9
  43. 43 Y5=V+11:Y6=V+13:MS=V+16:SS=V+30
  44. 44 D0=2040:D1=2041:D2=2042:D3=2043
  45. 45 D4=2044:D5=2045:D6=2046:X=200:Y=150
  46. 46 POKED0,128:POKED1,130:POKED2,131
  47. 47 POKED3,132:POKED4,133:POKED5,134
  48. 48 POKED6,129
  49. 49 POKEX0,042:POKEY0,100:POKEX1,0
  50. 50 POKEY1,000:POKEX2,092:POKEY2,100
  51. 51 POKEX3,141:POKEY3,100:POKEX4,192
  52. 52 POKEY4,100:POKEX5,241:POKEY5,100
  53. 53 POKEX6,032:POKEY6,100
  54. 54 POKEMS,64:POKESE,127
  55. 55 PRINT" PRESS FIRE BUTTON TO BEGIN ":REM""
  56. 56 IFPEEK(56336)AND16THEN56
  57. 57 GOTO79
  58. 58 GOSUB106:GOSUB98
  59. 59 IFPEEK(900)=1THEN62
  60. 60 POKEX0,240:POKEY0,150:POKESE,3:POKEMS,0:POKESS,0:POKE05891,240:POKE05892,150
  61. 61 FORI=0TO40:POKEINT(RND(0)*878+1144),46:NEXT
  62. 62 POKESE,PEEK(SE)-2:POKED1,130:POKE53288,7:POKE903,0:SYS05888
  63. 63 IFPEEK(900)=1THEN87
  64. 64 GOSUB113
  65. 65 IFNO$="1"THENPL=2
  66. 66 IFQ1$=GD$ANDQ2$=GD$THEN69
  67. 67 IFNO$="1"ANDQ1$=GD$THEN69
  68. 68 GOTO71
  69. 69 PRINT"     G A M E  O V E R-  FB RESTARTS     ";
  70. 70 NB=12:EN=100:GOSUB114:POKE901,0:GOTO83
  71. 71 IFPL=1THEN73
  72. 72 GOTO78
  73. 73 PL=2:POKE53287,7
  74. 74 IFQ2$="   * "THENQ2$="     "
  75. 75 IFQ2$="  ** "THENQ2$="   * "
  76. 76 IFQ2$=" *** "THENQ2$="  ** "
  77. 77 GOTO58
  78. 78 PL=1:POKE53287,14
  79. 79 IFQ1$="   * "THENQ1$="     "
  80. 80 IFQ1$="  ** "THENQ1$="   * "
  81. 81 IFQ1$=" *** "THENQ1$="  ** "
  82. 82 GOTO58
  83. 83 FORI=1TO1000:NEXT
  84. 84 IFPEEK(56336)AND16THEN84
  85. 85 P1=0:P2=0:PL=1:POKE900,2:POKEMS,0
  86. 86 POKESE,0:POKESS,0:Q1$="  ** ":Q2$=" *** ":POKE53287,14:GOSUB106
  87. 87 HO=PEEK(901):IFPL=2THEN93
  88. 88 IFHO>=32THENP1=P1+200:HO=HO-32
  89. 89 IFHO>=16THENP1=P1+100:HO=HO-16
  90. 90 IFHO>=8THENP1=P1+50:HO=HO-8
  91. 91 IFHO>=4THENP1=P1+25:HO=HO-4
  92. 92 GOTO97
  93. 93 IFHO>=32THENP2=P2+200:HO=HO-32
  94. 94 IFHO>=16THENP2=P2+100:HO=HO-16
  95. 95 IFHO>=8THENP2=P2+50:HO=HO-8
  96. 96 IFHO>=4THENP2=P2+25:HO=HO-4
  97. 97 PRINTCHR$(19):GOSUB107:GOTO59
  98. 98 POKEW1,00:POKEA1,0
  99. 99 POKEW2,00:POKEA2,0
  100. 100 POKEW3,00:POKEA3,0:POKEVO,15
  101. 101 POKEH1,15:POKEL1,1:POKEA1,12
  102. 102 POKEH2,15:POKEL2,1:POKEA2,12
  103. 103 POKEH3,15:POKEL3,1:POKEA3,12
  104. 104 RETURN
  105. 105 Q1$=" *** ":Q2$=" *** ":POKE53287,14
  106. 106 PRINT"[147]";
  107. 107 P1$=STR$(P1):Y=LEN(P1$)+2
  108. 108 P2$=STR$(P2):Z=LEN(P2$)+2
  109. 109 PRINTCHR$(19);"[155]                                        ";
  110. 110 PRINT" [154]PLAYER 1[155] S P A C E   B E L T [158]PLAYER 2[155]  ";
  111. 111 PRINTLEFT$(BK$,9-Y);P1$;Q1$;
  112. 112 PRINTB2$;:PRINTLEFT$(BK$,9-Z);P2$;Q2$;:RETURN
  113. 113 IFNO$="1"THENRETURN
  114. 114 FORDG=1TONB-PL:POKEW1,0
  115. 115 FORH=1TOBN:NEXT
  116. 116 POKEA1,15:POKEL1,EN:POKEH1,EN:POKEW1,33:POKEVO,15
  117. 117 FORH=1TOBN:NEXT
  118. 118 NEXT:POKEW1,0
  119. 119 NB=3:EN=70:RETURN
  120.