home *** CD-ROM | disk | FTP | other *** search
/ Emulator Universe CD / emulatoruniversecd1998.iso / C64 / ROMs / NINJA2.D64 / 1 / 1.3500 (.txt)
Encoding:
Commodore BASIC  |  1994-06-08  |  18.0 KB  |  182 lines
  1. 21 V=53248:POKEV+32,0:POKEV+33,0
  2. 22 :
  3. 23 :
  4. 24 :
  5. 25 DIMSC$(11):DIMSP$(12)
  6. 26 FORI=16640TOI+5:POKEI,0:NEXT
  7. 27 T3=8:PL=10:SP=2:SK=5:GK=5
  8. 28 RESTORE:FORI=0TO10:READSP$(I):NEXT
  9. 29 P$="":J$=""
  10. 30 FORI=1TO10
  11. 31 SC$(I)="000000  ELWOOD"
  12. 32 NEXT
  13. 33 POKEV+17,91:POKEV+22,200:POKEV+24,29:POKE16646,0:POKE16651,0
  14. 34 :
  15. 35 :
  16. 36 :
  17. 37 :
  18. 38 :
  19. 39 GOSUB53
  20. 40 GOSUB68
  21. 41 GOSUB87
  22. 42 POKE16649,0:POKE16647,0:IFPL=9THENPOKE16649,254:POKE16647,250
  23. 43 POKE16648,0:IFT3=7ANDPL=10THENPOKE16648,250
  24. 44 POKE16653,9:IFSK=6THENPOKE16653,0
  25. 45 POKE16652,6:IFGK=6THENPOKE16652,0
  26. 46 POKE51613,SP+250
  27. 47 SYS49152
  28. 48 GOSUB138
  29. 49 GOSUB53
  30. 50 GOSUB99
  31. 51 GOTO39
  32. 52 END
  33. 53 :
  34. 54 :
  35. 55 :
  36. 56 :
  37. 57 POKEV+32,0:POKEV+33,9:POKEV+34,2:POKEV+35,6:POKEV+36,7
  38. 58 PRINT"[151][147][144]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
  39. 59 PRINT"@@@///[144]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  40. 60 [153]"@@//STOP@//STOP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  41. 61 PRINT"@//[144]@@@/[144]@/[144]@@@/[144]@@@/[144]@@@/[144]@@/[144]@/////[144]@@///[144]@
  42. 62 [153]"@@///STOP@@@//STOP@@/STOP@@/STOP@/STOP@@/STOP@/STOP@@/STOP@@@@@/STOP@@@@
  43. 63 PRINT"@@@@//[144]@@/[144]@/[144]@/[144]@@///[144]@@//[144]@@@///[144]@@@@///[144]@
  44. 64 [153]"@//STOP@@//STOP@/STOP@@//STOP@/STOP@@@/STOP@/STOP@/STOP@@/STOP@@@@@@@@@/STOP
  45. 65 PRINT"@@////[144]@@/[144]@@@/[144]@/[144]@@@/[144]@/[144]@@/[144]@/////[144]@////[144]@
  46. 66 [153]"STOP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  47. 67 RETURN
  48. 68 :
  49. 69 :
  50. 70 :
  51. 71 :
  52. 72 PRINTP$"[144][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][221]@@@@@@@
  53. 73 [153]"STOPWAITANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND(null)@@@@@@@"
  54. 74 [153]"STOP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  55. 75 PRINT"[144]@@@[146]       * ELWOOD COMPUTERS     [144]@@@
  56. 76 [153]"STOP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  57. 77 PRINT"[144]@@@@@@@                       @@@@@@
  58. 78 [153]"STOP@@@@@@@       MAINMENU        @@@@@@
  59. 79 PRINT"[144]@@@@@@@  - F1 -   "SP$(PL)" PLAYER  @@@@@@
  60. 80 [153]"STOP@@@@@@@  - F3 -   SEE TOP 10  @@@@@@
  61. 81 PRINT"[144]@@@@@@@  - F5 -   PARAMETERS  @@@@@@
  62. 82 [153]"STOP@@@@@@@  - F7 -   START RACE  @@@@@@
  63. 83 PRINT"[144]@@@@@@@                       @@@@@@
  64. 84 [153]"STOP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  65. 85 RETURN
  66. 86 :
  67. 87 :
  68. 88 :
  69. 89 :
  70. 90 :
  71. 91 POKE198,0:GOSUB68
  72. 92 GETZZ$:IFZZ$=""THEN92
  73. 93 IFZZ$="[133]"THENPL=PL+1:IFPL>10THENPL=9
  74. 94 IFZZ$="[134]"THENGOSUB99
  75. 95 IFZZ$="[135]"THEN122
  76. 96 IFZZ$="[136]"ORZZ$=" "THENRETURN
  77. 97 GOTO91
  78. 98 :
  79. 99 :
  80. 100 :
  81. 101 :
  82. 102 :
  83. 103 PRINTP$"[144]@@[175][175][175][175]  SNAKES TOP TEN RACER  [144][146][175][175][175][175]@@
  84. 104 [153]"STOP@@AND@@@CONT  SCORES    TOP RACERS  STOP@@@WAITAND@@"
  85. 105 [129]I[178]1[164]10
  86. 106 [153]"STOP@@AND@@@@ "[200](SC$(I),6)" -- "[201](SC$(I),10)" @@@@WAITAND@@"
  87. 107 [130]
  88. 108 [153]"STOP@@ANDANDANDANDANDANDANDANDANDANDANDANDANDAND(null)@@WAIT(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDAND@@
  89. 109 PRINT"[144]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  90. 110 [151]198,0:[146]198,1:[151]198,0:[142]
  91. 111 :
  92. 112 :
  93. 113 :
  94. 114 :
  95. 115 [153]P$"STOP@@@@@@@    PARAMETER-MENU     @@@@@@
  96. 116 PRINT"[144]@@@@@@@ -F1-  SARK    "SP$(T3)"   "
  97. 117 PRINT"[144]@@@@@@@ -F3-  SPEED "SP$(SP)
  98. 118 PRINT"[144]@@@@@@@ -F8-  SARK  "SP$(SK)
  99. 119 PRINT"[144]@@@@@@@ -F5-  GRID  "SP$(GK)
  100. 120 PRINT"[144]@@@@@@@ -F7-  MAIN-MENU    "
  101. 121 RETURN
  102. 122 GOSUB111
  103. 123 GETZZ$:IFZZ$=""THEN123
  104. 124 IFZZ$="[133]"ANDPL<>9THENT3=T3+1:IFT3>8THENT3=7
  105. 125 IFZZ$="[140]"THENSK=SK+1:IFSK>6THENSK=5
  106. 126 IFZZ$="[135]"THENGK=GK+1:IFGK>6THENGK=5
  107. 127 IFZZ$="[134]"THENSP=SP+1:IFSP>4THENSP=0
  108. 128 IFZZ$="[136]"THEN87
  109. 129 GOTO122
  110. 130 :
  111. 131 :
  112. 132 :
  113. 133 :
  114. 134 :
  115. 135 :
  116. 136 :
  117. 137 :
  118. 138 :
  119. 139 :
  120. 140 :
  121. 141 :
  122. 142 S(1)=PEEK(16640)+PEEK(16641)*256
  123. 143 S(2)=PEEK(16642)+PEEK(16643)*256
  124. 144 S(3)=PEEK(16644)+PEEK(16645)*256
  125. 145 WI=PEEK(16650):GOSUB53:POKE198,0:GOSUB157:S=1:N$(3)="TRON  C.S."
  126. 146 FORI=1TO10
  127. 147 IFS=WITHEN152
  128. 148 IFS(S)<=VAL(LEFT$(SC$(I),6))THENNEXT
  129. 149 FORX=10TOISTEP-1
  130. 150 SC$(X+1)=SC$(X):NEXTX
  131. 151 SC$(I)=RIGHT$("000000"+MID$(STR$(S(S)),2),6)+LEFT$((N$(S)+"          "),10)
  132. 152 S=S+1:IFS<4THEN146
  133. 153 IFWI<>1THENPOKE16640,0:POKE16641,0
  134. 154 IFWI<>2THENPOKE16642,0:POKE16643,0
  135. 155 IFWI<>3THENPOKE16644,0:POKE16645,0
  136. 156 RETURN
  137. 157 :
  138. 158 :
  139. 159 :
  140. 160 :
  141. 161 PRINT"[144]@@@@@@@                      @@@@@@@
  142. 162 [153]"STOPANDANDAND@@@    THE RACE RESULTS    @@@WAITANDANDAND"
  143. 163 [153]"STOP@@AND@@@    ----------------    @@@WAITAND@@"
  144. 164 [153]"STOP@@AND@@@                        @@@WAITAND@@
  145. 165 PRINT"[144]@@[175]@@@     RACE-WINNER IS     @@@[146][175]@@
  146. 166 [153]"STOP@@AND@@@        PLAYER:"WI"CMD       @@@WAITAND@@
  147. 167 PRINT"[144]@@[175]@@@     TAKES HIS SCORE    @@@[146][175]@@
  148. 168 [153]"STOP@@AND@@@    TO THE NEXT RACE!   @@@WAITAND@@
  149. 169 PRINT"[144]@@[175]@[219]@                        @[146][219]@[146][175]@@
  150. 170 [153]"STOP@@AND@AND@                        @WAITAND@WAITAND@@
  151. 171 PRINT"[144]@@[175]@[175]@                        @[146][175]@[146][175]@@
  152. 172 [153]"STOP@@AND@AND@                        @WAITAND@WAITAND@@
  153. 173 PRINT"[144]@@[175][175][175]@                        @[146][175][175][175]@@
  154. 174 [153]"STOP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  155. 175 FORT=1TO2:IFPL=9ANDT=2THEN177
  156. 176 IFT<>WITHENGOSUB179
  157. 177 NEXTT
  158. 178 GOSUB185:RETURN
  159. 179 IFVAL(LEFT$(SC$(10),6))>S(T)THEN183
  160. 180 PRINTJ$"                 [144] "
  161. 181 PRINTTAB(11)"PLAYER"T"[157]:..........[157][157][157][157][157][157][157][157][157][157]";
  162. 182 POKE19,64:INPUTN$(T):POKE19,0:RETURN
  163. 183 PRINTJ$"     SORRY...[144]       "
  164. 184 PRINTTAB(11)"PLAYER"T": NO ENTRY "
  165. 185 FORI=1TO1000:GETR$:IFR$<>""THENRETURN
  166. 186 NEXT:RETURN
  167. 187 :
  168. 188 :
  169. 189 :
  170. 190 :
  171. 191 DATA"VERY SLOW"
  172. 192 DATA"  SLOW   "
  173. 193 DATA" MEDIUM  "
  174. 194 DATA"  FAST   "
  175. 195 DATA"VERY FAST"
  176. 196 DATA" VISIBLE "
  177. 197 DATA"INVISIBLE"
  178. 198 DATA"OFF"
  179. 199 DATA"ON "
  180. 200 DATA"ONE"
  181. 201 DATA"TWO"
  182.