home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / funbasic.arc / SLOTS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.7 KB  |  91 lines
  1. 10  CLS:SCREEN 1:KEY OFF
  2. 20  LOCATE 12,12:PRINT "WELCOME TO THE SLOTS!"
  3. 30  LOCATE 14,12:PRINT "DUE TO YOUR REPUTATION"
  4. 40  LOCATE 15,12:PRINT "THE MANAGEMENT WILL"
  5. 50  LOCATE 16,12:PRINT "ADVANCE YOU $100 TO START "
  6. 60  LOCATE 22,12:INPUT "HIT RETURN TO START ",R$
  7. 70  CLS
  8. 80  LOCATE 3,12:PRINT "THE PAYOFFS ARE:"
  9. 90  LOCATE 5,14:PRINT CHR$(2):LOCATE 5,16:PRINT CHR$(2):LOCATE 5,18:PRINT CHR$(2)
  10. 100  LOCATE 5,20:PRINT "100 x BET"
  11. 110  LOCATE 6,14:PRINT CHR$(2):LOCATE 6,16:PRINT CHR$(2):LOCATE 6,18:PRINT CHR$(45)
  12. 120  LOCATE 6,20:PRINT " 50 x BET"
  13. 130  LOCATE 8,14:PRINT CHR$(6):LOCATE 8,16:PRINT CHR$(6):LOCATE 8,18:PRINT CHR$(6):LOCATE 8,20:PRINT " 20 x BET"
  14. 140  LOCATE 10,14:PRINT CHR$(3):LOCATE 10,16:PRINT CHR$(3):LOCATE 10,18:PRINT CHR$(3):LOCATE 10,20:PRINT " 15 x BET"
  15. 150  LOCATE 11,14:PRINT CHR$(4):LOCATE 11,16:PRINT CHR$(4):LOCATE 11,18:PRINT CHR$(4):LOCATE 11,20:PRINT " 10 x BET"
  16. 160  LOCATE 12,14:PRINT CHR$(5):LOCATE 12,16:PRINT CHR$(5):LOCATE 12,18:PRINT CHR$(5):LOCATE 12,20:PRINT "  5 x BET"
  17. 170  LOCATE 14,14:PRINT CHR$(6):LOCATE 14,16:PRINT CHR$(6):LOCATE 14,18:PRINT CHR$(45)
  18. 180  LOCATE 14,20:PRINT "  4 x BET"
  19. 190  LOCATE 16,14:PRINT CHR$(3):LOCATE 16,16:PRINT CHR$(3):LOCATE 16,18:PRINT CHR$(45):LOCATE 16,20:PRINT "  3 x BET"
  20. 200  LOCATE 17,14:PRINT CHR$(4):LOCATE 17,16:PRINT CHR$(4):LOCATE 17,18:PRINT CHR$(45):LOCATE 17,20:PRINT "  2 x BET"
  21. 210  LOCATE 18,14:PRINT CHR$(5):LOCATE 18,16:PRINT CHR$(5):LOCATE 18,18:PRINT CHR$(45):LOCATE 18,20:PRINT "  1 x BET"
  22. 220  LOCATE 22,12:PRINT "EVERYTHING ELSE PAYS ZERO"
  23. 230  LOCATE 24,12:INPUT "HIT RETURN TO CONTINUE ",C$
  24. 240  CLS
  25. 250  LOCATE 12,8:PRINT "HIT THE `X' KEY TO STOP THE WHEEL"
  26. 260  LOCATE 22,12:INPUT "HIT RETURN TO START ",C$
  27. 270  CLS
  28. 280  D=100
  29. 290  PRINT "YOU HAVE $";D
  30. 300  IF D=0 THEN GOTO 900
  31. 310  INPUT "WHAT BET? (1,2,5,10) ",B
  32. 320  IF B=1 OR B=2 OR B=5 OR B=10 THEN 350 ELSE 330
  33. 330  PRINT "THE ONLY BETS ARE 1,2,5,10"
  34. 340  GOTO 310
  35. 350  IF B>D THEN 360 ELSE 380
  36. 360  SOUND 90,10:PRINT "CUTE! YOU DON'T HAVE THAT MUCH"
  37. 370  GOTO 310
  38. 380  CLS
  39. 390  LINE (120,80)-(192,104),1,BF
  40. 400  LINE (144,80)-(144,104):LINE (168,80)-(168,104)
  41. 410  LINE (204,70)-(208,104),2,BF
  42. 420  CIRCLE (206,66),4,1
  43. 430  LOCATE 18,5:INPUT "HIT RETURN TO PULL LEVER ",R$
  44. 440  FOR I=600 TO 200 STEP -50:SOUND I,1:NEXT I
  45. 450  FOR I=70 TO 104 STEP 5
  46. 460  LINE(204,I)-(208,I+5),0,BF
  47. 470  FOR L=1 TO 30:NEXT L
  48. 480  NEXT I
  49. 490  LINE (204,70)-(208,104),2,BF
  50. 500  LOCATE 18,5:PRINT "                            "
  51. 510  R$=RIGHT$(TIME$,2):R=VAL(R$)
  52. 520  RANDOMIZE(R)
  53. 530  W1=INT(RND*5)+2
  54. 540  W2=INT(RND*5)+2
  55. 550  W3=INT(RND*5)+2
  56. 560  FOR I=1 TO 70:NEXT I
  57. 570  SOUND 40,0.5
  58. 580  SOUND 240,0.5
  59. 590  SOUND 440,0.5
  60. 600  LOCATE 12,17:PRINT CHR$(W1)
  61. 610  LOCATE 12,20:PRINT CHR$(W2):LOCATE 12,23:PRINT CHR$(W3)
  62. 620  H$=INKEY$:IF H$="X" OR H$="x" THEN 640
  63. 630  GOTO 510
  64. 640  SOUND 700,4
  65. 650  SOUND 1300,3
  66. 660  IF W1=2 AND W2=2 THEN D=D+(B*50)
  67. 670  IF W1=2 AND W2=2 AND W3=2 THEN D=D+(B*100)
  68. 680  IF W1=6 AND W2=6 THEN D=D+(B*4)
  69. 690  IF W1=6 AND W2=6 AND W3=6 THEN D=D+(B*20)
  70. 700  IF W1=3 AND W2=3 THEN D=D+(B*3)
  71. 710  IF W1=3 AND W2=3 AND W3=3 THEN D=D+(B*15)
  72. 720  IF W1=4 AND W2=4 THEN D=D+(B*2)
  73. 730  IF W1=4 AND W2=4 AND W3=4 THEN D=D+(B*10)
  74. 740  IF W1=5 AND W2=5 THEN D=D+B
  75. 750  IF W1=5 AND W2=5 AND W3=5 THEN D=D+(B*5)
  76. 760  J=0
  77. 770  IF W1<>W2 THEN D=D
  78. 780  IF W1=2 AND W2=2 AND W3=2 THEN GOSUB 850
  79. 790  IF J=1 THEN 820 ELSE 800
  80. 800  IF W1<>W2 THEN WI$="LOSER" ELSE WI$="WINNER"
  81. 810  LOCATE 16,17:PRINT WI$
  82. 820  D=D-B
  83. 830  LOCATE 18,5:INPUT "HIT RETURN TO CONTINUE ",R$
  84. 840  CLS:GOTO 290
  85. 850  CLS:LOCATE 12,13:PRINT "J A C K P O T "
  86. 860  FOR I=440 TO 1000 STEP 5:SOUND I,0.5:NEXT I
  87. 870  FOR I=1000 TO 440 STEP -5:SOUND I,0.5:NEXT I
  88. 880  J=1
  89. 890  RETURN
  90. 900  CLS:LOCATE 12,12:PRINT " GO HOME LOSER!!!"
  91.