home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / HORSES (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.3 KB  |  123 lines
  1. 10 REM HORSE RACE GAME, WRITTEN FOR THE COMMODORE 64 BY ROBERT NEWHART
  2. 20 PRINT"[147]":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"              HORSE RACE GAME"
  3. 30 PRINT:PRINT"             BY ROBERT NEWHART":CASH=500
  4. 40 FOR A=1 TO 1000:NEXT A
  5. 50 PRINT"[147]":PRINT"             HORSE RACE GAME":PRINT
  6. 60 PRINT"   THIS GAME WAS ORIGINALLY DEVELOPED"
  7. 70 PRINT"AS DOG RACE, BUT BECAUSE OF THE WAY"
  8. 80 PRINT"THAT RACING DOGS, SPECIFICALLY GREY-"
  9. 90 PRINT"HOUNDS, ARE SO BADLY ABUSED, I REWROTE"
  10. 100 PRINT"THIS PROGRAM, TO TAKE AWAY THE ATTEN-"
  11. 110 PRINT"TION FROM THE RACING OF GREYHOUNDS."
  12. 120 PRINT"RETIRED GREYHOUNDS MAKE EXCELLENT PETS,"
  13. 130 PRINT"BUT USUALLY WHEN THEY START LOSING"
  14. 140 PRINT"RACES, THEY WILL BE PUT TO SLEEP, OR"
  15. 150 PRINT"BEATEN OR STARVED TO DEATH.  IF YOU ARE"
  16. 160 PRINT"INTERESTED IN ADOPTING ONE OF THESE"
  17. 170 PRINT"RETIRED GREYHOUNDS, CONTACT:"
  18. 180 PRINT"NATIONAL GREYHOUND ADOPTION PROGRAM"
  19. 190 PRINT"8301 TORRESDALE AVENUE, PHILADELPHIA,"
  20. 200 PRINT"PA 19136, PHONE (215) 331-7918"
  21. 210 PRINT" ** OR ** REGAP OF CONNECTICUT"
  22. 220 PRINT"PO BOX 76, BETHANY, CT 06525"
  23. 230 PRINT"OR ANY OF THE OTHER GREYHOUND ADOPTION"
  24. 240 PRINT"AGENCIES AROUND THE COUNTRY."
  25. 250 PRINT:PRINT"PRESS ANY KEY TO CONTINUE";
  26. 260 GET A$
  27. 270 IF A$="" THEN GOTO 260
  28. 280 PRINT"[147]":PRINT:PRINT:PRINT"            HORSE RACE GAME":PRINT:PRINT:PRINT
  29. 285 IF CASH=0 THEN 1100
  30. 290 PRINT"WHICH HORSE ARE YOU BETTING ON?"
  31. 300 INPUT"ENTER A NUMBER FROM 1 TO 5";WWW
  32. 310 IF WWW<1 OR WWW>5 THEN PRINT"[145]";:GOTO 300                                  
  33. 320 PRINT:PRINT"YOU HAVE $";CASH:PRINT
  34. 330 INPUT"HOW MUCH ARE YOU BETTING $";BET
  35. 340 IF BET>CASH THEN PRINT"[145]";:GOTO 330
  36. 350 J=RND(1)*12+2:ODDS=INT(J)
  37. 360 PRINT"THE ODDS OF #";WWW;" WINNING ARE ";ODDS;" TO 1.":PRINT:PRINT:PRINT
  38. 370 PRINT:PRINT:PRINT:PRINT:PRINT"PRESS ANY KEY TO CONTINUE";
  39. 380 GET A$
  40. 390 IF A$="" THEN GOTO 380
  41. 400 PRINT"[147]              HORSE RACE GAME    FINISH"
  42. 410 FOR A=1304 TO 1343:POKE A,64:NEXT A
  43. 420 FOR A=1464 TO 1503:POKE A,64:NEXT A
  44. 430 FOR A=1624 TO 1663:POKE A,64:NEXT A
  45. 440 FOR A=1784 TO 1823:POKE A,64:NEXT A
  46. 450 FOR A=1944 TO 1983:POKE A,64:NEXT A
  47. 460 FOR A=1183 TO 1983 STEP 40:POKE A,101:NEXT A
  48. 470 B1=0:B2=0:B3=0:B4=0:B5=0
  49. 480 C1=106:C2=120:C3=116:C4=98
  50. 490 POKE 1224,C1:POKE 1225,C2:POKE 1226,C3:POKE 1186,C4
  51. 500 POKE 1384,C1:POKE 1385,C2:POKE 1386,C3:POKE 1346,C4
  52. 510 POKE 1544,C1:POKE 1545,C2:POKE 1546,C3:POKE 1506,C4
  53. 520 POKE 1704,C1:POKE 1705,C2:POKE 1706,C3:POKE 1666,C4
  54. 530 POKE 1864,C1:POKE 1865,C2:POKE 1866,C3:POKE 1826,C4
  55. 540 X=INT(RND(1)*6)
  56. 550 IF X<1 OR X>5 THEN GOTO 540
  57. 560 ON X GOTO 600,700,800,900,1000
  58. 600 IF B1<36 AND B2<36 AND B3<36 AND B4<36 AND B5<36 THEN 620
  59. 610 IF B1>=36 AND B2<=36 AND B3<=36 AND B4<=36 AND B5<=36 THEN 640
  60. 620 B1=B1+1:POKE1223+B1,32:POKE1224+B1,C1:POKE1225+B1,C2:POKE1226+B1,C3
  61. 630 POKE1185+B1,32:POKE1186+B1,C4:GOTO 540
  62. 640 PRINT"NUMBER 1 WINS!"
  63. 650 IF WWW=1 THEN CASH=CASH+(BET*ODDS):PRINT"YOU WON $";BET*ODDS
  64. 660 IF WWW<>1 THEN CASH=CASH-BET:PRINT"YOU LOST $";BET
  65. 670 PRINT"ANOTHER GAME <Y/N> ?"
  66. 680 GET A$
  67. 685 IF A$="" THEN GOTO 680
  68. 690 IF A$="Y" THEN 280
  69. 695 END
  70. 700 IF B1<36 AND B2<36 AND B3<36 AND B4<36 AND B5<36 THEN 720
  71. 710 IF B1<=36 AND B2>=36 AND B3<=36 AND B4<=36 AND B5<=36 THEN 740
  72. 720 B2=B2+1:POKE1383+B2,32:POKE1384+B2,C1:POKE1385+B2,C2:POKE1386+B2,C3
  73. 730 POKE1345+B2,32:POKE1346+B2,C4:GOTO 540
  74. 740 PRINT"NUMBER 2 WINS!"
  75. 750 IF WWW=2 THEN CASH=CASH+(BET*ODDS):PRINT"YOU WON $";BET*ODDS
  76. 760 IF WWW<>2 THEN CASH=CASH-BET:PRINT"YOU LOST $";BET
  77. 770 PRINT"ANOTHER GAME <Y/N> ?"
  78. 780 GET A$
  79. 785 IF A$="" THEN GOTO 780
  80. 790 IF A$="Y" THEN 280
  81. 795 END
  82. 800 IF B1<36 AND B2<36 AND B3<36 AND B4<36 AND B5<36 THEN 820
  83. 810 IF B1<=36 AND B2<=36 AND B3>=36 AND B4<=36 AND B5<=36 THEN 840
  84. 820 B3=B3+1:POKE1543+B3,32:POKE1544+B3,C1:POKE1545+B3,C2:POKE1546+B3,C3
  85. 830 POKE1505+B3,32:POKE1506+B3,C4:GOTO540
  86. 840 PRINT"NUMBER 3 WINS!"
  87. 850 IF WWW=3 THEN CASH=CASH+(BET*ODDS):PRINT"YOU WON $";BET*ODDS
  88. 860 IF WWW<>3 THEN CASH=CASH-BET:PRINT"YOU LOST $";BET
  89. 870 PRINT"ANOTHER GAME <Y/N>[160]?"
  90. 880 GET A$
  91. 885 IF A$="" THEN GOTO 880
  92. 890 IF A$="Y" THEN 280
  93. 895 END
  94. 900 IF B1<36 AND B2<36 AND B3<36 AND B4<36 AND B5<36 THEN 920
  95. 910 IF B1<=36 AND B2<=36 AND B3<=36 AND B4>=36 AND B5<=36 THEN 940
  96. 920 B4=B4+1:POKE1703+B4,32:POKE1704+B4,C1:POKE1705+B4,C2:POKE1706+B4,C3
  97. 930 POKE1665+B4,32:POKE1666+B4,C4:GOTO540
  98. 940 PRINT"NUMBER 4 WINS!"
  99. 950 IF WWW=4 THEN CASH=CASH+(BET*ODDS):PRINT"YOU WON $";BET*ODDS
  100. 960 IF WWW<>4 THEN CASH=CASH-BET:PRINT"YOU LOST $";BET
  101. 970 PRINT"ANOTHER GAME <Y/N>[160]?"
  102. 980 GET A$
  103. 985 IF A$="" THEN GOTO 980
  104. 990 IF A$="Y" THEN 280
  105. 995 END
  106. 1000 IF B1<36 AND B2<36 AND B3<36 AND B4<36 AND B5<36 THEN 1020
  107. 1010 IF B1<=36 AND B2<=36 AND B3<=36 AND B4<=36 AND B5>=36 THEN 1040
  108. 1020 B5=B5+1:POKE1863+B5,32:POKE1864+B5,C1:POKE1865+B5,C2:POKE1866+B5,C3
  109. 1030 POKE1825+B5,32:POKE1826+B5,C4:GOTO 540
  110. 1040 PRINT"NUMBER 5 WINS!"
  111. 1050 IF WWW=5 THEN CASH=CASH+(BET*ODDS):PRINT"YOU WON[160]$";BET*ODDS
  112. 1060 IF WWW<>5 THEN CASH=CASH-BET:PRINT"YOU LOST $";BET
  113. 1070 PRINT"ANOTHER GAME <Y/N> ?"
  114. 1080 GET A$
  115. 1085 IF A$="" THEN GOTO 1080
  116. 1090 IF A$="Y" THEN 280
  117. 1095 END
  118. 1100 PRINT:PRINT"   YOU HAVE LOST ALL OF YOUR MONEY."
  119. 1110 INPUT"DO YOU WANT TO START OVER? <Y/N>[160]?";S$
  120. 1120 IF S$="Y" THEN CASH=500:GOTO 280
  121. 1130 IF S$="N" THEN END
  122. 1140 END
  123.