home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG021.ARK / HORSE.ASC < prev    next >
Text File  |  1984-04-29  |  5KB  |  236 lines
  1.  
  2.  
  3. 1 PRINT"HORSE RACE":Q2=5
  4. 2 PRINT "ANY NUMBER OF PLAYERS CAN BET ON THE RESULTS."
  5. 3 PRINT "EXAMPLE OF BET; 1,2,200,0 ."
  6. 4 PRINT"YOU BORROWED 5$ IN CASE YOU LOST ALOT.":PRINT
  7. 5 PRINT"      SEVENTH - 1 MILE, 3 YR. OLDS       POST 2:35"
  8. 6 PRINT
  9. 7 PRINT"1 MAN O' WAR  (3:1); 2 CITATION    (4:1);"; 
  10. 8 PRINT" 3 WHIRLAWAY   (5:1);"
  11. 9 PRINT"4 ASSAULT     (8:1); 5 SEABISCUIT  (9:1);";
  12. 10 PRINT" 6 GALLANT FOX(11:1);"
  13. 11 PRINT"7 STYMIE     (20:1); 8 COALTOWN   (30:1);"
  14. 12 PRINT
  15. 13 PRINT"ENTER HORSE(1-8);TO WIN,PLACE,SHOW(1,2,3);AND THE WAGER."
  16. 14 PRINT "AND 0 FOR NO MORE BETTING OR 1 OR MORE BETTING."
  17. 15 LET S = 0
  18. 16 PRINT
  19. 17 LET S = S + 1
  20. 18 PRINT"BET NO. ";S;
  21. 19 INPUT T(S),U(S),V(S),Y1
  22. 20 LET T(S)=ABS(INT(T(S)))
  23. 21 IF T(S)>8 THEN 26
  24. 22 IF T(S)<1 THEN 26
  25. 23 LET U(S)=ABS(INT(U(S)))
  26. 24 IF U(S)>3 THEN 26
  27. 25 IF U(S)>0 THEN 29
  28. 26 PRINT"HORSE NO. OR WIN-PLACE-SHOW BET IN ERROR"
  29. 27 LET R = 3*(J-1)
  30. 28 INPUT V(S)
  31. 29 IF V(S) -2=ABS(V(S)-2) THEN 32
  32. 30 PRINT"BET MUST BE >$2 AND <$300, BET AGAIN";
  33. 31 GOTO 28
  34. 32 IF V(S)>300 THEN 30
  35. 33 IF Y1 = 1 THEN 17
  36. 34 PRINT
  37. 35 PRINT"   THEY'RE OFF AND RUNNING -"
  38. 36 PRINT
  39. 37 LET M(1) = 62.25
  40. 38 M(2) = 60
  41. 39 M(3) = 350/6
  42. 40 M(4) = 500/9
  43. 41 M(5) = 55
  44. 42 M(6) = 650/12
  45. 43 M(7) = 1100/21
  46. 44 M(8) = 1600/31
  47. 45 LET O(1) = 6
  48. 46 O(2) = 8
  49. 47 O(3) = 10
  50. 48 O(4) = 16
  51. 49 O(5) = 18
  52. 50 O(6) = 22
  53. 51 O(7) = 40
  54. 52 O(8) = 60
  55. 53 FOR N = 1 TO 8
  56. 54 LET H(N)=0
  57. 55 NEXT N
  58. 56 LET K = 0
  59. 57 LET G=1
  60. 58 LET J = 1
  61. 59 LET N = 4*T(1)-U(1)
  62. 60 FOR Z5=S TO 5*V(S)+N
  63. 61 LET Z1=RND(1)
  64. 62 NEXT Z5
  65. 63 FOR Z5=1 TO 500000
  66. 64 IF INT(Z5/N)-G<>0 THEN 82
  67. 65 LET H(J)=H(J)+RND(1)*M(J)
  68. 66 LET J=J+1
  69. 67 LET G=G+1
  70. 68 IF J <> 9 THEN 81
  71. 69 LET J = 1
  72. 70 GOSUB 134
  73. 71 LET D = H(B(1))
  74. 72 LET K=K+1
  75. 73 PRINT
  76. 74 IF K = 8 THEN 78
  77. 75 GOSUB 194
  78. 76 GOSUB 159
  79. 77 GOTO 82
  80. 78 PRINT"           FINISH"
  81. 79 LET Z5=500001
  82. 80 GOSUB 159
  83. 81 LET Z1=RND(1)
  84. 82 NEXT Z5
  85. 83 PRINT
  86. 84 PRINT
  87. 85 PRINT"$2 MUTUELS PAID:"
  88. 86 PRINT"          STRAIGHT  PLACE     SHOW"
  89. 87 LET K = 0
  90. 88 FOR I = 1 TO 3
  91. 89 GOSUB 165
  92. 90 LET J=I
  93. 91 IF J = 1 THEN 95
  94. 92 PRINT"         ";
  95. 93 LET J=J-1
  96. 94 GOTO 91
  97. 95 FOR J = I TO 3
  98. 96 LET L=I+I+J
  99. 97 IF J > 1 THEN 100
  100. 98 LET R = 1
  101. 99 GOTO 101
  102. 100 LET R = 3*(J-1)
  103. 101 LET H(L)=1.5+.01*INT((O(B(I))/R+RND(1))*100)
  104. 102 PRINT H(L);
  105. 103 NEXT J
  106. 104 PRINT
  107. 105 NEXT I
  108. 106 PRINT
  109. 107 LET Q=0
  110. 108 FOR J=1 TO S
  111. 109 PRINT "BET NO. ";J
  112. 110 LET P=0
  113. 111 FOR I = 1 TO 3
  114. 112 IF B(I) <> T(J) THEN 119
  115. 113 IF U(J) < I THEN 125
  116. 114 LET P = .01*INT((V(J)*50)*H(I+I+U(J)))
  117. 115 PRINT "YOU COLLECT";P;"ON ";
  118. 116 GOSUB 165
  119. 117 PRINT
  120. 118 GOTO 127
  121. 119 NEXT I
  122. 120 LET I = T(J)
  123. 121 PRINT"TEAR UP YOUR TICKET ON ";
  124. 122 FOR I = 4 TO 8
  125. 123 IF B(I) = T(J) THEN 116
  126. 124 NEXT I
  127. 125 PRINT"NEXT TIME, PURCHASE A SHOW TICKET ON ";
  128. 126 GOTO 116
  129. 127 LET Q = Q+P-V(J)
  130. 128 NEXT J
  131. 129 GOTO 7000
  132. 130 PRINT"YOUR TOTAL WINNINGS AMOUNT TO $";Q2
  133. 131 GOTO 300
  134. 132 PRINT"YOUR TOTAL LOSSES AMOUNT TO $";ABS(Q2)
  135. 133 GOTO 300
  136. 134 LET Q = 1
  137. 135 FOR L1 = 1 TO 8
  138. 136 LET B(L1) = 1
  139. 137 LET A(L1) = 1
  140. 138 NEXT L1
  141. 139 FOR L1 = 1 TO 8
  142. 140 FOR L2 = 1 TO 8
  143. 141 IF L1=L2 THEN 145
  144. 142 IF H(L1)<>H(L2) THEN 145
  145. 143 PRINT"RERUN PLEASE"
  146. 144 STOP
  147. 145 IF H(L1)<H(L2) THEN 147
  148. 146 LET A(L1)=A(L1)+1
  149. 147 NEXT L2
  150. 148 LET A(L1) = A(L1) - 1
  151. 149 NEXT L1
  152. 150 FOR L1=8 TO 1 STEP -1
  153. 151 FOR L2 = 1 TO 8
  154. 152 IF A(L2)<>L1 THEN 156
  155. 153 LET B(Q) = L2
  156. 154 LET Q=Q+1
  157. 155 LET L2 = 9
  158. 156 NEXT L2
  159. 157 NEXT L1
  160. 158 RETURN
  161. 159 REM
  162. 160 IF K = 8 THEN 193
  163. 161 PRINT"POS.  HORSE   LENGTHS BEHIND"
  164. 162 PRINT
  165. 163 FOR I = 1 TO 8
  166. 164 PRINT I;
  167. 165 IF B(I)=1 THEN 186
  168. 166 IF B(I)=2 THEN184
  169. 167 IF B(I)=3 THEN 182
  170. 168 IF B(I)=4 THEN 180
  171. 169 IF B(I)=5 THEN 178
  172. 170 IF B(I)=6 THEN 176
  173. 171 IF B(I)=7 THEN 174
  174. 172 PRINT"COALTOWN   ";
  175. 173 GOTO 187
  176. 174 PRINT"STYMIE     ";
  177. 175 GOTO 187
  178. 176 PRINT"GALLANT FOX";
  179. 177 GOTO 187
  180. 178 PRINT"SEABISCUIT ";
  181. 179 GOTO 187
  182. 180 PRINT"ASSAULT    ";
  183. 181 GOTO 187
  184. 182 PRINT"WHIRLAWAY  ";
  185. 183 GOTO 187
  186. 184 PRINT"CITATION   ";
  187. 185 GOTO 187
  188. 186 PRINT"MAN O'WAR  ";
  189. 187 IF K = 0 THEN 193
  190. 188 IF I > 1 THEN 191
  191. 189 PRINT
  192. 190 GOTO 192
  193. 191 PRINT .1*INT(D-H(B(I)))
  194. 192 NEXT I
  195. 193 RETURN
  196. 194 IF K=1 THEN 204
  197. 195 IF K=2 THEN 206
  198. 196 IF K=3 THEN 208
  199. 197 IF K=4 THEN 210
  200. 198 IF K=5 THEN 212
  201. 199 IF K=6 THEN 214
  202. 200 IF K = 7 THEN 202
  203. 201 GOTO 215
  204. 202 PRINT"   COMING DOWN THE STRETCH -"
  205. 203 GOTO 215
  206. 204 PRINT"   AS THEY BREAK FROM THE GATE -"
  207. 205 GOTO 215
  208. 206 PRINT"   AT THE 1/4 MILE POLE -"
  209. 207 GOTO 215
  210. 208 PRINT"   NEARING THE HALFWAY MARK -"
  211. 209 GOTO 215
  212. 210 PRINT"   MIDWAY IN THE RACE -"
  213. 211 GOTO 215
  214. 212 PRINT"   AT 5/8 OF A MILE -"
  215. 213 GOTO 215
  216. 214 PRINT "   ROUNDING THE TURN -"
  217. 215 RETURN
  218. 216 END
  219. 300 INPUT"DO YOU WANT TO BET ON THE NEXT RACE (Y OR N)";W$
  220. 310 IF W$="N" THEN 340
  221. 320 IF W$="Y" THEN 5
  222. 330 GOTO 300
  223. 340 IF Q2>0 THEN 380
  224. 350 IF Q2<0 THEN 390
  225. 360 PRINT"BYE NOW!!!!"
  226. 370 GOTO 216
  227. 380 PRINT"PUT THE MONEY I OWE YOU ON MY TAB!!":GOTO 216
  228. 390 PRINT"PUT THE MONEY YOU OWE ME ON THE TERMINAL!!!"
  229. 400 GOTO 216
  230. 7000 Q2=Q+Q2
  231. 7010 IF Q2=0 THEN 7300
  232. 7020 IF Q2<0 THEN 132
  233. 7030 GOTO 130
  234. 7300 PRINT"WELL YOU BROKE EVEN!"
  235. 7310 GOTO 300
  236.