home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / MISCBAS.ZIP / SLOT.ASC < prev    next >
Encoding:
Text File  |  1987-01-11  |  3.6 KB  |  108 lines
  1.  
  2. 1 'COPYRIGHT 1977 BY W.A.BURTON-DO NOT COPY WITHOUT PERMISSION !
  3. 2 CLEAR 400
  4. 3 PRINT"               SLOT-MACHINE......."
  5. 4 PRINT"DO YOU WANT INSTRUCTIONS (Y OR N)":INPUT H$:PRINT CHR$(26)
  6. 5 IF H$="Y" GOTO 85
  7. 6 IF H$="N" GOTO 7:GOTO 4
  8. 7 PRINT"         ---------- SILVER DOLLAR SLOT ----------"
  9. 8 B$="    BIG 7    "
  10. 9 C$="    -BAR-    "
  11. 10 D$="    $1OO     "
  12. 11 E$="    FIFTY    "
  13. 12 F$="     TEN     "
  14. 13 J$="    $5.OO    "
  15. 14 G$="    LEMON    "
  16. 15 W$="    -------       -------       -------"
  17. 16 P$="   -------------------------------------"
  18. 17 INPUT"WHAT IS YOUR LUCKY NUMBER (1 TO 25OOO)";K
  19. 18 IF K>25000 THEN 17
  20. 19 IF K<1 THEN 17
  21. 20 IF K<>INT(K) THEN 17
  22. 21 IF K<71 THEN K=K+77
  23. 22 P=K MOD 73
  24. 23 FOR O=1 TO P:O1=RND(7):NEXT O
  25. 24 INPUT"  YOUR BET ($1,$2 OR $3) ";M
  26. 25 L$="":M$="":N$=""
  27. 26 Y$="   ---- PAY LINE ----":X$="":Z$=""
  28. 27 IF M>1 THEN X$=Y$
  29. 28 IF M=3 THEN Z$=Y$
  30. 29 IF M=2 THEN Z$=""
  31. 30 IF M<1 THEN 34
  32. 31 IF M>3 THEN 34
  33. 32 IF M<>INT(M) THEN 34
  34. 33 GOTO 35
  35. 34 PRINT"INVALID BET, REENTER!!!":GOTO 24
  36. 35 M=-M
  37. 36 S=S+M:PRINT CHR$(26)
  38. 37 FOR X=1 TO 9
  39. 38 A(X)=INT(RND(7)*101)
  40. 39 NEXT X
  41. 40 FOR Y=1 TO 9
  42. 41 IF A(Y)<2 THEN A$(Y)=B$ ELSE 43
  43. 42 GOTO 52
  44. 43 IF A(Y)<=5 THEN A$(Y)=C$ ELSE 45
  45. 44 GOTO 52
  46. 45 IF A(Y)<=13 THEN A$(Y)=D$ ELSE 47
  47. 46 GOTO 52
  48. 47 IF A(Y)<=26 THEN A$(Y)=E$ ELSE 49
  49. 48 GOTO 52
  50. 49 IF A(Y)<=55 THEN A$(Y)=F$ ELSE 51
  51. 50 GOTO 52
  52. 51 IF A(Y)<=94 THEN A$(Y)=J$ ELSE A$(Y)=G$
  53. 52 NEXT Y
  54. 53 IF A$(1)=G$ THEN A$(1)=J$
  55. 54 IF A$(2)=G$ THEN A$(2)=F$
  56. 55 IF A$(4)=G$ THEN A$(4)=E$
  57. 56 IF A$(5)=G$ THEN A$(5)=J$
  58. 57 IF A$(7)=G$ THEN A$(7)=F$
  59. 58 IF A$(8)=G$ THEN A$(8)=E$
  60. 59 N=1
  61. 60 IF X$<>Y$ THEN 63
  62. 61 IF A$(1)=A$(2) AND A$(2)=A$(3) THEN L$=" WINNER":GOSUB 78
  63. 62 IF A$(1)=A$(2) AND A$(3)=C$ THEN L$=" WINNER":GOSUB 78
  64. 63 N=4
  65. 64 IF A$(4)=A$(5) AND A$(5)=A$(6) THEN M$=" WINNER":GOSUB 78
  66. 65 IF A$(4)=A$(5) AND A$(6)=C$ THEN M$=" WINNER":GOSUB 78
  67. 66 IF Z$<>Y$ THEN 70
  68. 67 N=7
  69. 68 IF A$(7)=A$(8) AND A$(8)=A$(9) THEN N$=" WINNER":GOSUB 78
  70. 69 IF A$(7)=A$(8) AND A$(9)=C$ THEN N$=" WINNER":GOSUB 78
  71. 70 Q$=" "+A$(1)+" "+A$(2)+" "+A$(3)+" "+X$+L$
  72. 71 R$=" "+A$(4)+" "+A$(5)+" "+A$(6)+" "+Y$+M$
  73. 72 S$=" "+A$(7)+" "+A$(8)+" "+A$(9)+" "+Z$+N$
  74. 73 PRINT P$:PRINTQ$:PRINTW$:PRINTR$
  75. 74 PRINTW$:PRINTS$:PRINTP$:PRINT:PRINT
  76. 75 PRINT"           YOUR STANDING IS: $";S
  77. 76 PRINT:PRINT:PRINT:PRINT:PRINT
  78. 77 GOTO 24
  79. 78 IF A$(N)=B$ THEN S=S+7500
  80. 79 IF A$(N)=C$ THEN S=S+2500
  81. 80 IF A$(N)=D$ THEN S=S+100
  82. 81 IF A$(N)=E$ THEN S=S+50
  83. 82 IF A$(N)=F$ THEN S=S+10
  84. 83 IF A$(N)=J$ THEN S=S+5
  85. 84 RETURN
  86. 85 PRINT"GET THREE OF A KIND ON A 'PAY LINE' AND YOU WIN THAT AMOUNT"
  87. 86 PRINT"THREE 'BIG 7'S PAYS $75OO; THREE -BAR-S PAYS $25OO....."
  88. 87 PRINT
  89. 88 PRINT"ANY PAIR ON A LINE WITH A -BAR- IN THE THIRD POSITION PAYS"
  90. 89 PRINT"AS IF IT WERE THREE OF A KIND..."
  91. 90 PRINT"EXAMPLE:   $1OO   $1OO   -BAR- IS A $1OO.OO WINNER..."
  92. 91 PRINT
  93. 92 PRINT"IF YOU BET $1 ONLY THE CENTER LINE IS A 'PAY LINE'; IF"
  94. 93 PRINT"YOU BET $2 THE TOP TWO LINES ARE 'PAY LINES'; IF YOU BET $3"
  95. 94 PRINT"ALL THREE LINES ARE PAY LINES.
  96. 95 PRINT"ONLY WINNING COMBINATIONS ON A 'PAY LINE' WILL WIN MONEY..."
  97. 96 PRINT"THE 'LEMON' CANCELS THE PAYOFF ON ANY LINE ON WHICH IT APPEARS."
  98. 97 PRINT
  99. 98 PRINT"IF YOU HAVE BET MORE THAN $1, IT IS POSSIBLE TO HAVE MORE THAN"
  100. 99 PRINT"ONE SIMULTANEOUS PAYOFF......."
  101. 100 PRINT"EXAMPLE: IF YOU HAVE BET $2 AND YOU GET $5.OO SYMBOLS IN EACH"
  102. 101 PRINT"POSSIBLE POSITION, YOUR NET GAIN WOULD BE $1O MINUS YOUR $2"
  103. 102 PRINT"BET OR $8...YOU WOULD MISS AN ADDITIONAL $5 PAYOFF ON THE LAST"
  104. 103 PRINT"LINE BECAUSE YOU HAD ONLY BET $2......GOOD LUCK !!"
  105. 104 PRINT
  106. 105 GOTO7
  107. ISS AN ADDITIONAL $5 PAYOFF ON THE LAST"
  108. 103 PRINT"LINE BECAUSE YOU H