home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / inst / hrace.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-02-02  |  5.8 KB  |  240 lines
  1. 5  S1=25:S2=25:S3=25:S4=25:S5=25:S6=25:S7=25:S8=25:S9=25:S10=25
  2. 10  REM ** DELUXE HORSE RACING **
  3. 20  REM ** BY CHRIS HUDSON AND JON RITZ **
  4. 25  RANDOMIZE VAL(MID$(TIME$,7,2))
  5. 30  SCREEN 2
  6. 35  KEY OFF
  7. 40  CLS
  8. 45  LINE (11,2)-(14,2)
  9. 300  PRINT "Welcome to The Meadows horse racing tracks! The races are about to begin so get your bets in!"
  10. 305  PRINT
  11. 308  PRINT
  12. 310  INPUT "How much money are you taking to the track this evening";ADOW
  13. 311  IF X=1 THEN 315
  14. 315  PRINT
  15. 320  PRINT "Here are the horses and the odds:"
  16. 325  PRINT
  17. 330  PRINT "1. Lightnin'       3 to 1"
  18. 340  PRINT "2. Joey            3 to 1"
  19. 350  PRINT "3. Benny's Girl    5 to 1"
  20. 360  PRINT "4. Maiden         12 to 1"
  21. 370  PRINT "5. Lady Anne      17 to 1"
  22. 380  PRINT "6. Stranger Eyes  25 to 1"
  23. 390  PRINT "7. Spooky         48 to 1"
  24. 400  PRINT "8. Runaway        56 to 1"
  25. 410  PRINT "9. Painter's Cap  65 to 1"
  26. 420  PRINT "10. Tom Sawyer    72 to 1"
  27. 430  PRINT
  28. 440  PRINT:INPUT "Which horse would you like to bet on";AHORSE
  29. 445  IF X=1 THEN 455
  30. 455  PRINT
  31. 460  INPUT "How much would you like to bet";ABET
  32. 465  IF ABET>ADOW THEN 470 ELSE 480
  33. 470  PRINT "You don't have that much!"
  34. 475  PRINT:GOTO 460
  35. 480  IF X=1 THEN 510
  36. 495  IF BBET>BDOW THEN 500 ELSE 510
  37. 500  PRINT "You don't have that much!"
  38. 505  PRINT:GOTO 490
  39. 510  CLS
  40. 520  IF SEE=0 THEN 521 ELSE 705
  41. 521  DIM AHORSE(500)
  42. 522  SEE=SEE+1
  43. 525  LINE (14,1)-(15,1)
  44. 530  LINE (13,2)-(16,2)
  45. 535  LINE (12,3)-(17,3)
  46. 540  LINE (5,4)-(14,4)
  47. 545  LINE (2,5)-(14,5)
  48. 550  LINE (1,6)-(2,6)
  49. 555  LINE (5,6)-(13,6)
  50. 560  LINE (6,7)-(7,7)
  51. 565  LINE (11,7)-(12,7)
  52. 570  LINE (7,8)-(8,8)
  53. 575  LINE (10,8)-(11,8)
  54. 580  PSET (8,9)
  55. 585  PSET (10,9)
  56. 610  GET (1,1)-(17,9),AHORSE
  57. 620  CLS
  58. 630  IF BSEE=1 THEN 640 ELSE 631
  59. 631  DIM BHORSE(500)
  60. 632  BSEE=1
  61. 640  LINE (12,1)-(13,1)
  62. 645  LINE (11,2)-(14,2)
  63. 650  LINE (10,3)-(15,3)
  64. 655  LINE (5,4)-(12,4)
  65. 656  LINE (2,5)-(12,5)
  66. 657  PSET (2,5)
  67. 658  LINE (1,6)-(2,6)
  68. 660  LINE (5,6)-(11,6)
  69. 665  PSET (5,7)
  70. 670  LINE (11,7)-(12,7)
  71. 675  LINE (4,8)-(5,8)
  72. 680  LINE (12,8)-(13,8)
  73. 685  LINE (3,9)-(4,9)
  74. 690  PSET (13,9)
  75. 700  GET (1,1)-(17,9),BHORSE
  76. 705  S1=25:S2=25:S3=25:S4=25:S5=25:S6=25:S7=25:S8=25:S9=25:S10=25
  77. 706  CLS
  78. 707  LINE (500,5)-(500,180)
  79. 708  LOCATE 23,56:PRINT "FINISH   LINE"
  80. 710  LOCATE 2,1:PRINT "1."
  81. 720  LOCATE 4,1:PRINT "2."
  82. 730  LOCATE 6,1:PRINT "3."
  83. 740  LOCATE 8,1:PRINT "4."
  84. 750  LOCATE 10,1:PRINT "5."
  85. 760  LOCATE 12,1:PRINT "6."
  86. 770  LOCATE 14,1:PRINT "7."
  87. 780  LOCATE 16,1:PRINT "8."
  88. 790  LOCATE 18,1:PRINT "9."
  89. 800  LOCATE 20,1:PRINT "10."
  90. 810  PUT (25,6),BHORSE
  91. 820  PUT (25,22),BHORSE
  92. 830  PUT (25,38),BHORSE
  93. 840  PUT (25,54),BHORSE
  94. 850  PUT (25,70),BHORSE
  95. 860  PUT (25,86),BHORSE
  96. 870  PUT (25,102),BHORSE
  97. 880  PUT (25,118),BHORSE
  98. 890  PUT (25,134),BHORSE
  99. 900  PUT (25,150),BHORSE
  100. 901  LOCATE 22,1:PRINT "You are horse #"AHORSE"."
  101. 902  LOCATE 23,1:PRINT "Press any key to start the race...."
  102. 903  JON$=INKEY$:IF JON$="" THEN 903
  103. 904  LOCATE 22,1:PRINT "                            "
  104. 905  LOCATE 23,1:PRINT "                                        "
  105. 910  REM ** AHORSE 1 **
  106. 920  PUT (S1,6),BHORSE
  107. 930  S1=S1+INT(RND*12+1)
  108. 940  PUT (S1,6),AHORSE
  109. 970  REM ** AHORSE 2
  110. 980  PUT (S2,22),BHORSE
  111. 990  S2=S2+INT(RND*12+1)
  112. 1000  PUT (S2,22),AHORSE
  113. 1010  REM ** AHORSE 3 **
  114. 1020  PUT (S3,38),BHORSE
  115. 1030  S3=S3+INT(RND*12+1)
  116. 1040  PUT (S3,38),AHORSE
  117. 1045  REM ** AHORSE 4 **
  118. 1050  PUT (S4,54),BHORSE
  119. 1060  S4=S4+INT(RND*12+1)
  120. 1070  PUT (S4,54),AHORSE
  121. 1080  REM ** AHORSE 5 **
  122. 1090  PUT (S5,70),BHORSE
  123. 1100  S5=S5+INT(RND*12+1)
  124. 1110  PUT (S5,70),AHORSE
  125. 1120  REM ** AHORSE 6 **
  126. 1130  PUT (S6,86),BHORSE
  127. 1140  S6=S6+INT(RND*11+1)
  128. 1150  PUT (S6,86),AHORSE
  129. 1160  REM ** AHORSE 7 **
  130. 1170  PUT (S7,102),BHORSE
  131. 1180  S7=S7+INT(RND*11+1)
  132. 1190  PUT (S7,102),AHORSE
  133. 1200  REM ** AHORSE 8 **
  134. 1210  PUT (S8,118),BHORSE
  135. 1220  S8=S8+INT(RND*11+1)
  136. 1230  PUT (S8,118),AHORSE
  137. 1235  REM AHORSE 9
  138. 1250  PUT (S9,134),BHORSE
  139. 1260  S9=S9+INT(RND*11+1)
  140. 1270  PUT (S9,134),AHORSE
  141. 1280  REM ** AHORSE 10 **
  142. 1290  PUT (S10,150),BHORSE
  143. 1300  S10=S10+INT(RND*11+1)
  144. 1310  PUT (S10,150),AHORSE
  145. 1320  IF S1>500 THEN 1325 ELSE 1330
  146. 1325  WINNER$="Lightnin', #1":GOTO 2000
  147. 1330  IF S2>500 THEN 1335 ELSE 1340
  148. 1335  WINNER$="Joey, #2":GOTO 2000
  149. 1340  IF S3>500 THEN 1345 ELSE 1350
  150. 1345  WINNER$="Benny's Girl, #3":GOTO 2000
  151. 1350  IF S4>500 THEN 1355 ELSE 1360
  152. 1355  WINNER$="Maiden, #4":GOTO 2000
  153. 1360  IF S5>500 THEN 1365 ELSE 1370
  154. 1365  WINNER$="Lady Anne, #5":GOTO 2000
  155. 1370  IF S6>500 THEN 1375 ELSE 1380
  156. 1375  WINNER$="Stranger Eyes, #6":GOTO 2000
  157. 1380  IF S7>500 THEN 1385 ELSE 1390
  158. 1385  WINNER$="Spooky, #7":GOTO 2000
  159. 1390  IF S8>500 THEN 1395 ELSE 1400
  160. 1395  WINNER$="Runaway, #8":GOTO 2000
  161. 1400  IF S9>500 THEN 1405 ELSE 1410                        FINISH   LINE
  162. 1405  WINNER$="Painter's Cap, #9":GOTO 2000
  163. 1410  IF S10>500 THEN 1415 ELSE 1500                       FINISH   LINE
  164. 1415  WINNER$="Tom Sawyer, #10":GOTO 2000
  165. 1500  REM **  BHORSE 1 **
  166. 1510  PUT (S1,6),AHORSE
  167. 1520  S1=S1+INT(RND*5+5)
  168. 1530  PUT (S1,6),BHORSE
  169. 1540  REM **  BHORSE 2 **
  170. 1550  PUT (S2,22),AHORSE
  171. 1560  S2=S2+INT(RND*5+5)
  172. 1570  PUT (S2,22),BHORSE
  173. 1580  REM **  BHORSE 3 **
  174. 1590  PUT (S3,38),AHORSE
  175. 1600  S3=S3+INT(RND*5+5)
  176. 1610  PUT (S3,38),BHORSE
  177. 1620  REM **  BHORSE 4 **
  178. 1630  PUT (S4,54),AHORSE
  179. 1640  S4=S4+INT(RND*5+5)
  180. 1650  PUT (S4,54),BHORSE
  181. 1660  REM **  BHORSE 5 **
  182. 1670  PUT (S5,70),AHORSE
  183. 1680  S5=S5+INT(RND*5+1)
  184. 1690  PUT (S5,70),BHORSE
  185. 1700  REM **  BHORSE 6 **
  186. 1710  PUT (S6,86),AHORSE
  187. 1720  S6=S6+INT(RND*5+1)
  188. 1730  PUT (S6,86),BHORSE
  189. 1740  REM **  BHORSE 7 **
  190. 1750  PUT (S7,102),AHORSE
  191. 1760  S7=S7+INT(RND*5+1)
  192. 1770  PUT (S7,102),BHORSE
  193. 1780  REM **  BHORSE 8 **
  194. 1790  PUT (S8,118),AHORSE
  195. 1800  S8=S8+INT(RND*5+1)
  196. 1810  PUT (S8,118),BHORSE
  197. 1820  REM **  BHORSE 9 **
  198. 1830  PUT (S9,134),AHORSE
  199. 1840  S9=S9+INT(RND*5+5)
  200. 1850  PUT (S9,134),BHORSE
  201. 1860  REM **  BHORSE 10 **
  202. 1870  PUT (S10,150),AHORSE
  203. 1880  S10=S10+INT(RND*5+5)
  204. 1890  PUT (S10,150),BHORSE
  205. 1900  GOTO 910
  206. 2000  LOCATE 20,1:PRINT "....And the winner is "WINNER$".        "
  207. 2010  IF WINNER$="Lightnin', #1" THEN WH=1
  208. 2015  IF WINNER$="Joey, #2" THEN WH=2
  209. 2020  IF WINNER$="Benny's Girl, #3" THEN WH=3
  210. 2025  IF WINNER$="Maiden, #4" THEN WH=4
  211. 2030  IF WINNER$="Lady Anne, #5" THEN WH=5
  212. 2035  IF WINNER$="Stranger Eyes, #6" THEN WH=6
  213. 2040  IF WINNER$="Spooky, #7" THEN WH=7
  214. 2045  IF WINNER$="Runaway, #8" THEN WH=8
  215. 2050  IF WINNER$="Painter's Cap, #9" THEN WH=9
  216. 2055  IF WINNER$="Tom Sawyer, #10" THEN WH=10
  217. 2060  IF AHORSE=WH THEN 2500
  218. 2065  LOCATE 22,1:PRINT "Sorry, you lose."
  219. 2066  ADOW=ADOW-ABET
  220. 2070  LOCATE 23,1:PRINT "You lose"ABET"dollars. You now have"ADOW"dollars."
  221. 2075  LOCATE 24,1:PRINT "Press any key to continue...."
  222. 2080  JON$=INKEY$:IF JON$="" THEN 2080
  223. 2085  CLS:GOTO 320
  224. 2500  IF WH=1 THEN ABET=ABET*3
  225. 2505  IF WH=2 THEN ABET=ABET*3
  226. 2510  IF WH=3 THEN ABET=ABET*5
  227. 2515  IF WH=4 THEN ABET=ABET*12
  228. 2520  IF WH=5 THEN ABET=ABET*17
  229. 2525  IF WH=6 THEN ABET=ABET*25
  230. 2530  IF WH=7 THEN ABET=ABET*48
  231. 2535  IF WH=8 THEN ABET=ABET*56
  232. 2540  IF WH=9 THEN ABET=ABET*65
  233. 2545  IF WH=10 THEN ABET=ABET*72
  234. 2546  ADOW=ADOW+ABET
  235. 2550  LOCATE 22,1:PRINT "YOU WIN!!!"
  236. 2555  LOCATE 23,1:PRINT "YOU WIN"ABET"DOLLARS!!"
  237. 2650  LOCATE 24,1:PRINT "Press any key to continue..."
  238. 2655  JON$=INKEY$:IF JON$="" THEN 2655
  239. 2660  CLS:GOTO 320
  240.