9000  REM  *****  SLOT  *****  DEMONSTRATION PROGRAM  *****
9001  REM  *****  VERSION 1  *****  7/31/69  *****
9002  REM  PROGRAM TO SIMULATE A SLOT MACHINE
9003  DIM X[3],A$[72]
9004  PRINT "WELCOME TO THE CASINO"'13'13'10'10
9005  PRINT "ENTER YOUR THREE DIGIT LUCKY NUMBER, PLEASE";
9006  INPUT J
9007  IF J<1000 THEN 9010
9008  PRINT "TRY AGAIN"
9009  GOTO 9004
9010  FOR I=1 TO J
9011  LET N=RND(1)
9012  NEXT I
9013  LET S=0
9014  PRINT '10'10"HOW MUCH DO YOU WANT TO BET";
9015  INPUT B
9016  IF B=INT(B) THEN 9019
9017  PRINT '10"I ONLY BET EVEN MONEY"
9018  GOTO 9014
9019  IF B<1001 THEN 9022
9020  PRINT "THAT'S TOO MUCH MONEY"
9021  GOTO 9014
9022  IF B>0 THEN 9025
9023  PRINT "COME ON, LET'S GET DOWN TO BUSINESS"
9024  GOTO 9014
9025  PRINT '10"VERY GOOD -- AFTER EACH PULL I WILL ASK IF YOU WANT TO"
9026  PRINT "GO AGAIN.  IF YOU DO TYPE 'P' (FOR PULL), IF NOT, TYPE"
9027  PRINT "'Q' (FOR QUIT)."
9028  GOTO 9035
9029  PRINT '10"AGAIN";
9030  INPUT A$
9031  IF A$="Q" THEN 9098
9032  IF A$="P" THEN 9035
9033  PRINT "WHAT";
9034  GOTO 9030
9035  PRINT 
9036  FOR I=1 TO 3
9037  LET X[I]=INT(RND(1)*8)+1
9038  IF X[I]>5 THEN 9058
9039  IF X[I]>2 THEN 9047
9040  IF X[I]=2 THEN 9044
9041  PRINT "CHERRY  ";
9042  LET X[I]=1
9043  GOTO 9069
9044  PRINT "ORANGE  ";
9045  LET X[I]=2
9046  GOTO 9069
9047  IF X[I]>3 THEN 9051
9048  PRINT "LEMON   ";
9049  LET X[I]=3
9050  GOTO 9069
9051  IF X[I]=5 THEN 9055
9052  PRINT "PLUM    ";
9053  LET X[I]=4
9054  GOTO 9069
9055  PRINT "BELL    ";
9056  LET X[I]=5
9057  GOTO 9069
9058  IF X[I]>7 THEN 9066
9059  IF X[I]=7 THEN 9064
9060  IF I=1 AND RND(1)<.8 THEN 9044
9061  PRINT "BAR     ";
9062  LET X[I]=6
9063  GOTO 9069
9064  IF I=2 THEN 9041
9065  GOTO 9048
9066  IF I=1 THEN 9055
9067  IF I=3 AND X[1]<6 THEN 9061
9068  GOTO 9052
9069  NEXT I
9070  LET P=0
9071  IF X[1]>1 THEN 9073
9072  LET P=2
9073  IF X[1]=X[2] THEN 9078
9074  IF P>0 THEN 9094
9075  LET S=S-B
9076  PRINT "  YOU LOSE"B,"TOTAL="S
9077  GOTO 9029
9078  IF X[2]=X[3] THEN 9083
9079  IF X[1]=1 THEN 9081
9080  IF X[3]<6 THEN 9075
9081  LET P=5
9082  GOTO 9094
9083  IF X[1]=1 THEN 9081
9084  IF X[1]>2 THEN 9087
9085  LET P=8
9086  GOTO 9094
9087  IF X[1]>4 THEN 9090
9088  LET P=12
9089  GOTO 9094
9090  IF X[1]>5 THEN 9093
9091  LET P=20
9092  GOTO 9094
9093  LET P=100
9094  LET W=P*B
9095  LET S=S+W-B
9096  PRINT "  YOU WIN "W,"TOTAL="S
9097  GOTO 9029
9098  IF S<1000 THEN 9102
9099  PRINT "THE HOUSE IS HAPPY TO SEE YOU LEAVE,"
9100  PRINT "WE HATE TO LOSE THAT MUCH MONEY."
9101  STOP 
9102  IF S>0 THEN 9105
9103  PRINT "COME BACK SOON!  YOUR MONEY IS APPRECIATED."
9104  STOP 
9105  PRINT "WELL, YOU WON, BUT NOT TOO MUCH."
9106  STOP 
9999  END 
