home *** CD-ROM | disk | FTP | other *** search
/ Sunny 1,000 Collection / SUNNY1000.iso / Files / Dos / Casino / SLOT2_42.ZIP / SLOT.BAS < prev    next >
BASIC Source File  |  1995-09-22  |  15KB  |  204 lines
  1. 10 DIM V$(10), V(10), V1$(10), V1(10), V3$(10), V3(10), W$(7), W(7), DAY$(10), NA$(10), SC(10), Z(10): L$ = CHR$(186): S$ = CHR$(205): B$ = CHR$(186): M = 25: NS = 0: GOTO 1470
  2. 20 OPEN "SLOT.SCO" FOR OUTPUT AS #1: FOR X = 1 TO 10: DAY$(X) = DATE$: NA$(X) = STRING$(32, 46): SC(X) = 0: WRITE #1, DAY$(X), NA$(X), SC(X): NEXT X: CLOSE 1: RETURN
  3. 30 IF NS = 0 THEN t = TIMER: WHILE t + 1 > TIMER: WEND: RETURN
  4. 40 PLAY "T220L4C2O3B-AA2G+AA.G+AA2G+AO4CO3A.O4CO3B-1GP4G2F+GG2F+GB-.AGAO4C2.D2.DO3G.P4O4C2C2O3B-AA2G+AA.G+AA2G+AB-AGEG1FP4F2F2EFA-2GFO4F.O3FGAO4CP2P4O3CDAG2FO4F8": RETURN
  5. 50 IF NS = 0 THEN t = TIMER: WHILE t + 1 > TIMER: WEND: RETURN
  6. 60 PLAY "T200L2O4G.E.D.C.DC4O3AB4O4C.": RETURN
  7. 70 IF NS = 0 THEN t = TIMER: WHILE t + 1 > TIMER: WEND: RETURN
  8. 80 PLAY "T200L4O4EEEG8F8D2DDDF8E8C2EDCC8O3B8B2O4DCO3AA8G8G2": RETURN
  9. 90 IF NS THEN NS = 0: RETURN ELSE NS = 1: RETURN
  10. 100 LOCATE 14, 52, 0: PRINT "/";
  11. 110 Y = 52: FOR X = 13 TO 8 STEP -1: LOCATE X, Y, 0: PRINT "//"; : Y = Y + 1: NEXT X
  12. 120 FOR X = 7 TO 6 STEP -1: LOCATE X, 57, 0: PRINT STRING$(3, 178): NEXT X: RETURN
  13. 130 Y = 56: FOR X = 8 TO 12: LOCATE X, Y, 0: PRINT "   ";
  14. 140 FOR X1 = X - 1 TO X: COLOR 15: LOCATE X1, Y, 0: PRINT STRING$(3, 178);
  15. 150 COLOR 0, 0: PRINT " ": LOCATE X1 - 2, Y + 1, 0: PRINT "   ": NEXT X1
  16. 160 Y = Y - 1: t = TIMER: WHILE t + .1 > TIMER: WEND: NEXT X: IF NS THEN SOUND 400, .2: PLAY "p64": SOUND 400, .2
  17. 170 RETURN
  18. 180 COLOR 15, 0, 0: CLS
  19. 190 Y = 16: FOR X = 1 TO 18: LOCATE X, Y, 0: PRINT S$: NEXT X
  20. 200 X = 18: FOR Y = 17 TO 50: LOCATE X, Y, 0: PRINT B$: NEXT Y
  21. 210 Y = 51: FOR X = 18 TO 1 STEP -1: LOCATE X, Y, 0: PRINT S$: NEXT X
  22. 220 X = 1: FOR Y = 50 TO 17 STEP -1: LOCATE X, Y, 0: PRINT L$: NEXT Y
  23. 230 COLOR 1
  24. 240 FOR X = 2 TO 17: LOCATE X, 17, 0
  25. 250 FOR Z = 1 TO 17: PRINT CHR$(176); CHR$(176); : NEXT Z, X
  26. 260 LOCATE 3, 27, 0: COLOR 15: PRINT "Q U A R T E R";
  27. 270 GOSUB 100
  28. 280 X = 15: FOR Y = 24 TO 43: LOCATE X, Y, 0: PRINT L$: NEXT Y
  29. 290 FOR X = 15 TO 17: LOCATE X, 44, 0: PRINT S$: NEXT X
  30. 300 FOR Y = 43 TO 24 STEP -1: LOCATE 17, Y, 0: PRINT B$: NEXT Y
  31. 310 FOR X = 17 TO 15 STEP -1: LOCATE X, 23, 0: PRINT S$: NEXT X
  32. 320 COLOR 15, 0
  33. 330 FOR Y = 18 TO 26: LOCATE 5, Y, 0: PRINT L$: NEXT Y
  34. 340 FOR X = 5 TO 7: LOCATE X, 27, 0: PRINT S$: NEXT X
  35. 350 FOR Y = 26 TO 18 STEP -1: LOCATE 7, Y, 0: PRINT B$: NEXT Y
  36. 360 FOR X = 7 TO 5 STEP -1: LOCATE X, 18, 0: PRINT S$: NEXT X
  37. 370 FOR Y = 30 TO 37: LOCATE 5, Y, 0: PRINT L$: NEXT Y
  38. 380 FOR X = 5 TO 7: LOCATE X, 38, 0: PRINT S$: NEXT X
  39. 390 FOR Y = 37 TO 30 STEP -1: LOCATE 7, Y, 0: PRINT B$: NEXT Y
  40. 400 FOR X = 7 TO 5 STEP -1: LOCATE X, 29, 0: PRINT S$: NEXT X
  41. 410 FOR Y = 41 TO 48: LOCATE 5, Y, 0: PRINT L$: NEXT Y
  42. 420 FOR X = 5 TO 7: LOCATE X, 49, 0: PRINT S$: NEXT X
  43. 430 FOR Y = 48 TO 41 STEP -1: LOCATE 7, Y, 0: PRINT B$: NEXT Y
  44. 440 FOR X = 7 TO 5 STEP -1: LOCATE X, 40, 0: PRINT S$: NEXT X
  45. 450 C = 2: L$ = STR$(M): L = LEN(L$): S = L - 1: FOR X = L TO 1 STEP -1
  46. 451 IF MID$(L$, X, 1) = "." THEN S = L - C: GOTO 460
  47. 452 C = C + 1: NEXT X
  48. 460 IF S < 1 THEN S = 1
  49. 470 TOT$ = "$" + STRING$(S, "#") + ".##  "
  50. 480 PA$ = "  You now have ": L = (LEN(PA$) + LEN(TOT$)) / 2: LOCATE 21, 33 - L: PRINT PA$; USING TOT$; M
  51. 490 IF M = 0 THEN 1010
  52. 500 LOCATE 22, 18: PRINT "<ENTER>=PULL, <S>ound or <E>xit": PLAY "t120"
  53. 510 A$ = INKEY$: IF A$ = "S" OR A$ = "s" THEN GOSUB 90: GOTO 510
  54. 520 IF A$ = "E" OR A$ = "e" THEN 1010 ELSE IF A$ <> CHR$(13) THEN 510
  55. 530 COUNT = COUNT + 1: COLOR 7: Z$ = "   (25) ": FOR X = 1 TO 8: LOCATE 3, 52: PRINT MID$(Z$, X, 9 - X): C = TIMER: WHILE C + .05 > TIMER: WEND
  56. 540 NEXT X: IF NS THEN SOUND 1000, .1: PLAY "p64": SOUND 2000, 1: PLAY "p64": SOUND 500, .5: SOUND 100, 1
  57. 550 LOCATE 21, 2: PRINT SPACE$(78): LOCATE 22, 13: PRINT SPACE$(42): GOSUB 130: FOR X = 11 TO 12: LOCATE X, 52: PRINT "   ": NEXT X: COLOR 15, 0
  58. 560 LOCATE 16, 24: PRINT SPACE$(20); : GOSUB 100
  59. 570 FOR I = 1 TO 3: Z(I) = INT((RND * 10) + 1): NEXT I
  60. 580 FOR X = 1 TO 5: FOR Y = 1 TO 5: COLOR W(Y + 0): LOCATE 6, 19, 0: PRINT W$(Y + 0); : COLOR W(Y + 1)
  61. 590 LOCATE 6, 30, 0: PRINT W$(Y + 1); : COLOR W(Y + 2): LOCATE 6, 41, 0: PRINT W$(Y + 2); : IF NS THEN SOUND 2000, .1: PLAY "p64": SOUND 4000, .1: PLAY "p64": SOUND 2000, .1 ELSE PLAY "p24"
  62. 600 PLAY "p64": NEXT Y, X
  63. 610 COLOR V(Z(1)): LOCATE 6, 19, 0: PRINT V$(Z(1));
  64. 620 FOR X = 1 TO 4: FOR Y = 1 TO 4
  65. 630 COLOR W(Y + 0): LOCATE 6, 30, 0: PRINT W$(Y + 0); : COLOR W(Y + 1): LOCATE 6, 41, 0: PRINT W$(Y + 1); : IF NS THEN SOUND 4000, .1: PLAY "p64": SOUND 2000, .1 ELSE PLAY "p40"
  66. 640 PLAY "p28": NEXT Y, X
  67. 650 COLOR V1(Z(2)): LOCATE 6, 30, 0: PRINT V1$(Z(2));
  68. 660 FOR X = 1 TO 3: FOR Y = 1 TO 3
  69. 670 COLOR W(Y): LOCATE 6, 41, 0: PRINT W$(Y); : IF NS THEN SOUND 4000, .1: SOUND 2000, .1: PLAY "T200p64T120" ELSE PLAY "p64"
  70. 680 PLAY "P19": NEXT Y, X
  71. 690 COLOR V3(Z(3)): LOCATE 6, 41, 0: PRINT V3$(Z(3));
  72. 700 COLOR 5
  73. 710 IF V$(Z(1)) <> V1$(Z(2)) THEN 850
  74. 720 IF V$(Z(1)) = " ORANGE " AND V3$(Z(3)) = " *$$$$* " THEN 840
  75. 730 IF V1$(Z(2)) <> V3$(Z(3)) THEN 850
  76. 740 IF V$(Z(1)) <> " CHERRY " THEN 760
  77. 750 LOCATE 16, 24: PRINT "   YOU WIN $ 5.00   ": M = M + 4.75: GOSUB 70: GOTO 450
  78. 760 IF V$(Z(1)) <> "  PLUM  " THEN 780
  79. 770 LOCATE 16, 24: PRINT "   YOU WIN $10.00   ": M = M + 9.75: GOSUB 70: GOTO 450
  80. 780 IF V$(Z(1)) <> " ORANGE " THEN 800
  81. 790 LOCATE 16, 24: PRINT "   YOU WIN $15.00   ": M = M + 14.75: GOSUB 70: GOTO 450
  82. 800 IF V$(Z(1)) <> " *$$$$* " THEN 820
  83. 810 LOCATE 16, 24: PRINT "   YOU WIN $37.50   ": M = M + 37.25: GOSUB 30: GOTO 450
  84. 820 IF V$(Z(1)) <> " LEMON  " THEN 850
  85. 830 LOCATE 16, 24: PRINT "   YOU WIN $ 7.50   ": M = M + 7.25: GOSUB 70: GOTO 450
  86. 840 LOCATE 16, 24: PRINT "   YOU WIN $25.00   ": M = M + 24.75: GOSUB 30: GOTO 450
  87. 850 IF V$(Z(1)) <> " CHERRY " THEN 890
  88. 860 IF V1$(Z(2)) <> " CHERRY " THEN 880
  89. 870 LOCATE 16, 24: PRINT "   YOU WIN $1.00    ": M = M + .75: GOSUB 50: GOTO 450
  90. 880 LOCATE 16, 24: PRINT "   YOU WIN $0.50    ": M = M + .25: GOSUB 50: GOTO 450
  91. 890 ON Z(3) GOSUB 910, 920, 930, 940, 950, 960, 970, 980, 990, 1000
  92. 900 M = M - .25: GOTO 450
  93. 910  LOCATE 16, 24: COLOR 3: PRINT " TRY BINGO INSTEAD  ": RETURN
  94. 920  LOCATE 16, 24: COLOR 6: PRINT "   HA HA YOU LOSE   ": RETURN
  95. 930  LOCATE 16, 24: COLOR 5: PRINT "      ZILCH-O       ": RETURN
  96. 940  LOCATE 16, 24: COLOR 4: PRINT "  TRY AGAIN SUCKER  ": RETURN
  97. 950  LOCATE 16, 24: COLOR 3: PRINT " TRY VEGAS INSTEAD  ": RETURN
  98. 960  LOCATE 16, 24: COLOR 2: PRINT "  YOU GOT SCHMALTZ  ": RETURN
  99. 970  LOCATE 16, 24: COLOR 14: PRINT " BACK TO STAR TREK  ": RETURN
  100. 980  LOCATE 16, 24: COLOR 13: PRINT " ARM GETTING TIRED  ": RETURN
  101. 990  LOCATE 16, 24: COLOR 12: PRINT "       SUCKER       ": RETURN
  102. 1000 LOCATE 16, 24: COLOR 10: PRINT "     GO TO RENO     ": RETURN
  103. 1010 LOCATE 16, 24: COLOR 15: PRINT "      BYE-BYE       "
  104. 1020 IF COUNT = 0 THEN COLOR 15: LOCATE 21, 14: PRINT SPACE$(50): LOCATE 22, 14: PRINT SPACE$(50): PA$ = N$ + ", you took Zero pulls": LOCATE 21, 34 - (LEN(PA$) / 2): PRINT PA$: TOT$ = "#.##": M = 0: GOTO 1140
  105. 1030 C = 2: L$ = STR$(M): L = LEN(L$): S = L - 1: FOR X = L TO 1 STEP -1
  106. 1031 IF MID$(L$, X, 1) = "." THEN S = L - C: GOTO 1040
  107. 1032 C = C + 1: NEXT X
  108. 1040 IF S < 1 THEN S = 1
  109. 1050 C = 2: L$ = STR$(M - 25): L = LEN(L$): S2 = L - 1: FOR X = L TO 1 STEP -1: IF MID$(L$, X, 1) = "." THEN S2 = L - C: GOTO 1060
  110. 1051 C = C + 1: NEXT X
  111. 1060 IF S2 < 1 THEN S2 = 1
  112. 1070 TOT$ = "$" + STRING$(S, "#") + ".##": TOT2$ = "$" + STRING$(S2, "#") + ".##": N1$ = " " + N$ + " ": L = INT(LEN(N1$) / 2): LOCATE 17, 33 - L: PRINT N1$: COLOR 14, 0: IF M > 25 THEN 1110
  113. 1080 C = 2: L$ = STR$(25 - M): L = LEN(L$): S = L - 1: FOR X = L TO 1 STEP -1: IF MID$(L$, X, 1) = "." THEN S = L - C: GOTO 1090
  114. 1081 C = C + 1: NEXT X
  115. 1090 IF S < 1 THEN S = 1
  116. 1100 TOT2$ = "$" + STRING$(S, "#") + ".##"
  117. 1110 LOCATE 21, 1, 0: PRINT SPACE$(80); : LOCATE 22, 1, 0: PRINT SPACE$(80);
  118. 1120 LOCATE 21, 17 - ((LEN(TOT$) + LEN(TOT2$)) / 2), 0: PRINT "You have "; : PRINT USING TOT$; M; : PRINT " after"; COUNT; "pulls, you ";
  119. 1130 IF M < 25 THEN PRINT "lost "; USING TOT2$; ABS(M - 25) ELSE IF M > 25 THEN PRINT "won "; USING TOT2$; M - 25 ELSE IF M = 0 THEN PRINT "lost everything." ELSE IF M < 25 THEN PRINT "lost "; USING TOT2$; 25 - M
  120. 1140 COLOR 15: LOCATE 23, 19, 0: PRINT "Press <ANY KEY> for `Top Ten'"
  121. 1150 I$ = INKEY$: IF I$ > "" THEN 1150
  122. 1160 IF INKEY$ = "" THEN 1160
  123. 1170 CLS : LOCATE 3, 27: PRINT "S L O T'S   `T O P   T E N'": COLOR 30: LOCATE 23, 27: PRINT "Disk activity, please wait": COLOR 15
  124. 1180 ON ERROR GOTO 1340
  125. 1190 OPEN "SLOT.SCO" FOR INPUT AS #1
  126. 1200 FOR X = 1 TO 10: INPUT #1, DAY$(X), NA$(X), SC(X): NEXT X: CLOSE 1
  127. 1210 FLAG = 0: IF M > 25 AND M > SC(10) THEN DAY$(10) = DATE$: NA$(10) = N$: SC(10) = M: FLAG = 1 ELSE 1250
  128. 1220 FOR X1 = 1 TO 9: SK = 0: FOR Y1 = 9 TO X1 STEP -1: IF SC(Y1) >= SC(Y1 + 1) THEN 1240
  129. 1230 SK = 1: SWAP DAY$(Y1), DAY$(Y1 + 1): SWAP NA$(Y1), NA$(Y1 + 1): SWAP SC(Y1), SC(Y1 + 1)
  130. 1240 NEXT Y1: IF SK = 0 THEN 1250
  131. 1241 NEXT X1
  132. 1250 LOCATE 6: FOR X = 1 TO 10: PRINT TAB(7); DAY$(X); " > with "; USING "$#,###,###.##"; SC(X); : PRINT ", is "; NA$(X): NEXT X
  133. 1260 PA$ = N$ + ", your holdings are ": LOCATE 18, 40 - (LEN(PA$) + LEN(TOT$)) / 2: PRINT PA$; : PRINT USING TOT$; M
  134. 1270 LOCATE 20, 21: IF FLAG THEN COLOR 14: PRINT "Congratulations, you made the `TOP TEN' ": COLOR 15 ELSE PRINT " Cheer up, there is always another time "
  135. 1280 IF FLAG = 0 THEN 1310
  136. 1290 OPEN "SLOT.SCO" FOR OUTPUT AS #1
  137. 1300 FOR X = 1 TO 10: WRITE #1, DAY$(X), NA$(X), SC(X): NEXT X: CLOSE 1
  138. 1310 LOCATE 23, 15: PRINT "Press <E> to erase score, <ANY OTHER KEY> to exit "; : SOUND 3000, .1
  139. 1320 I$ = INKEY$: IF I$ = "" THEN 1320 ELSE IF I$ = "E" OR I$ = "e" THEN CLS : GOSUB 20: GOTO 1170
  140. 1330 CLS : END
  141. 1340 IF ERR = 53 THEN GOSUB 20: RESUME 1170
  142. 1350 IF ERR = 61 OR ERR = 70 OR ERR = 71 THEN LOCATE 11, 10: PRINT "Drive write protected, diskette has no free space or drive not ready,": PRINT : PRINT "Press any key to exit program:goto 1230"
  143. 1360 LOCATE 11, 10: PRINT "Error in line"; ERL: PRINT : PRINT TAB(10); "Error number"; ERR: PRINT : PRINT "Press any key to exit program"
  144. 1370 I$ = INKEY$: IF I$ > "" THEN 1370
  145. 1380 IF INKEY$ = "" THEN 1380
  146. 1390 CLS : END
  147. 1400 RETURN
  148. 1410 REM CONVERTED FOR IBM-PC FROM 101 BASIC COMPUTER GAMES BY DIGITAL
  149. 1420 REM EQUIPMENT CORP. SUBMITTED TO DIGITAL BY ROB HOFFBERG OF ROSLYN N.Y.
  150. 1430 REM AUTHOR UNKNOWN
  151. 1440 REM ENHANCED FOR COLOR AND SOUND BY ARNOLD THOMSEN OF SCOTTSDALE, AZ
  152. 1450 REM Further enhanced/errors corrected by James Huckabey of Bellingham, WA
  153. 1460 REM Colors/sound/payoffs/ also changed by James Huckabey + following REM's
  154. 1470 SCREEN 0: RANDOMIZE TIMER: WIDTH 80: KEY OFF: COLOR 14, 0, 0: CLS : PLAY "MF"
  155. 1490 DATA 5,10,12,4,14,5,5,12,4,10,14,12,4,5,12,5,14,4,14,4,12,4,14,10,12,5,14,5,12,14
  156. 1500 W$(1) = " CHERRY ": W(1) = 4: W$(2) = " LEMON  ": W(2) = 14: W$(3) = " *$$$$* ": W(3) = 10: W$(4) = "  PLUM  ": W(4) = 5
  157. 1510 W$(5) = " ORANGE ": W(5) = 12: W$(6) = " CHERRY ": W(6) = 4: W$(7) = " LEMON  ": W(7) = 14
  158. 1520 V$(1) = "  PLUM  ": V$(2) = " CHERRY ": V$(3) = "  PLUM  ": V$(4) = " *$$$$* "
  159. 1530 V$(5) = " CHERRY ": V$(6) = "  PLUM  ": V$(7) = " LEMON  ": V$(8) = " CHERRY "
  160. 1540 V$(9) = " ORANGE ": V$(10) = "  PLUM  "
  161. 1550 V1$(1) = " *$$$$* ": V1$(2) = " LEMON  ": V1$(3) = " ORANGE ": V1$(4) = " LEMON  "
  162. 1560 V1$(5) = "  PLUM  ": V1$(6) = " LEMON  ": V1$(7) = " CHERRY ": V1$(8) = " LEMON  "
  163. 1570 V1$(9) = "  PLUM  ": V1$(10) = " ORANGE "
  164. 1580 V3$(1) = " ORANGE ": V3$(2) = "  PLUM  ": V3$(3) = " CHERRY ": V3$(4) = " ORANGE "
  165. 1590 V3$(5) = " ORANGE ": V3$(6) = " CHERRY ": V3$(7) = " ORANGE ": V3$(8) = " *$$$$* "
  166. 1600 V3$(9) = " LEMON  ": V3$(10) = " LEMON  "
  167. 1610 RANDOMIZE TIMER
  168. 1620 LOCATE 2, 2, 0: PRINT CHR$(201); STRING$(76, 205); CHR$(187)
  169. 1630 FOR J = 3 TO 22: LOCATE J, 2: PRINT CHR$(186); TAB(79); CHR$(186): NEXT J
  170. 1640 LOCATE 23, 2: PRINT CHR$(200); STRING$(76, 205); CHR$(188); : COLOR 12
  171. 1650 LOCATE 5, 23: PRINT "S  L  O  T    M  A  C  H  I  N  E": COLOR 15: FOR X = 1 TO 10: READ V(X), V1(X), V3(X): NEXT X
  172. 1660 LOCATE 8, 21: PRINT "This version modified by James Huckabey"
  173. 1670 LOCATE 9, 29: PRINT "Bellingham, Washington": LOCATE 15, 29: PRINT "Original Author Unknown": LOCATE 12, 34: PRINT "version 3.00"
  174. 1680 LOCATE 17, 28: COLOR 5: PRINT "C "; : COLOR 6: PRINT "O "; : COLOR 1: PRINT "L "; : COLOR 2: PRINT "O "; : COLOR 3: PRINT "R"; : COLOR 15: PRINT "   V E R S I O N";
  175. 1690 LOCATE 20, 33: PRINT "Press <ANY KEY>"
  176. 1700 I$ = INKEY$: IF I$ = "" THEN 1700
  177. 1710 LOCATE 5, 23: PRINT SPACE$(33); : LOCATE 8, 21: PRINT SPACE$(39); : LOCATE 9, 29: PRINT SPACE$(22); : LOCATE 15, 29: PRINT SPACE$(40);
  178. 1720 LOCATE 12, 34: PRINT SPACE$(12); : LOCATE 17, 28: PRINT SPACE$(44); : LOCATE 20, 33: PRINT SPACE$(16): COLOR 5
  179. 1730 LOCATE 4, 4: PRINT "W E L C O M E  T O . . ."
  180. 1740 LOCATE 8, 30: PRINT "I B M ' S  C A S I N O"
  181. 1750 LOCATE 17, 4: PRINT "Today you will lose your money at IBM's famous slot machine."
  182. 1760 LOCATE 18, 4: PRINT "You have been given a credit line of $25.00. Therefore at 25 a pull you"
  183. 1770 LOCATE 19, 4: PRINT "have a minimum of 100 pulls!"
  184. 1780 LOCATE 21, 4: PRINT "By the way what is your name "; : COLOR 15: INPUT N$: IF N$ = "" THEN N$ = "Hey You": COLOR 5
  185. 1790 IF LEN(N$) > 32 THEN N$ = LEFT$(N$, 32)
  186. 1800 LOCATE 4, 4: PRINT SPACE$(24); : LOCATE 8, 4: PRINT SPACE$(73); : FOR X = 17 TO 21: LOCATE X, 4: PRINT SPACE$(73); : NEXT X
  187. 1810 LOCATE 4, 10, 0: PRINT "OK "; : COLOR 15: PRINT N$; : COLOR 5: PRINT ", here are the odds:"
  188. 1820 LOCATE 6, 20: PRINT "SYMBOL / HOW MANY        PAYOUT"
  189. 1830 LOCATE 7, 20: PRINT "-------------------------------"
  190. 1840 LOCATE 8, 20: COLOR 4: PRINT "CHERRY"; : COLOR 5: PRINT "                   $ 0.50"
  191. 1850 LOCATE 9, 20: COLOR 4: PRINT "CHERRY-CHERRY"; : COLOR 5: PRINT "            $ 1.00"
  192. 1860 LOCATE 10, 20: COLOR 4: PRINT "CHERRY-CHERRY-CHERRY"; : COLOR 5: PRINT "     $ 5.00"
  193. 1870 LOCATE 11, 20: COLOR 14: PRINT "LEMON -LEMON -LEMON "; : COLOR 5: PRINT "     $ 7.50"
  194. 1880 LOCATE 12, 20: PRINT " PLUM - PLUM - PLUM      $10.00"
  195. 1890 LOCATE 13, 20: COLOR 12: PRINT "ORANGE-ORANGE-ORANGE"; : COLOR 5: PRINT "     $15.00"
  196. 1900 LOCATE 14, 20: COLOR 12: PRINT "ORANGE-ORANGE"; : COLOR 10: PRINT "-*$$$$*"; : COLOR 5: PRINT "     $25.00"
  197. 1910 LOCATE 15, 20: COLOR 10: PRINT "*$$$$*-*$$$$*-*$$$$*"; : COLOR 5: PRINT "     $37.50": COLOR 15
  198. 1920 LOCATE 17, 10: PRINT "When the message PULL appears, press ENTER to PULL."
  199. 1930 LOCATE 19, 10: PRINT "Or press E to end the session."
  200. 1940 LOCATE 21, 10: PRINT "When you are ready to begin press ENTER."
  201. 1950 I$ = INKEY$: IF I$ = CHR$(13) THEN 180 ELSE 1950
  202. 1960 t = TIMER: WHILE t + .0015 > TIMER: WEND: RETURN
  203.  
  204.