Back to Main page.
Back to Main tapes page.
1000  DIM A$[255]
1010  REM: ***** Slots
1015  GOSUB 8000
1020  A=100
1030  A$="CDC    IBM    DEC    HP     ALTAIR "
1040  DEF FNA(X)=INT(INT(LEN(A$)/7)*RND(0))+1
1050  PRINT LIN(1);"You have $"A;LIN(1);"What is your wager";
1060  INPUT W
1065  IF W<0 THEN 130
1070  IF W<.01 OR W>A THEN 1280
1080  X=FNA(0)
1090  Y=FNA(0)
1100  Z=FNA(0)
1110  IF INT(10*RND(0)) THEN 1130
1120  Y=Z=X
1130  PRINT  USING 1140;A$[7*X-6,7*X],A$[7*Y-6,7*Y],A$[7*Z-6,7*Z]
1140  IMAGE #,7A,2X7A2X,7A5X
1150  GOTO (X=Y AND Y=Z)*2 MAX (X=Y OR Y=Z OR X=Z) OF 1210,1190
1160  PRINT "A Loser"
1170  A=A-W
1180  GOTO 1210
1190  PRINT "A Winner"'7'7"!"'7'7"!"
1200  A=A+W*(INT(LEN(A$)/7+1)-X+1+5*(X=1))
1210  GOSUB 100
1215  IF A>.1 THEN 1050
1220  PRINT '13'10;
1230  PRINT "Hey, you're broke!"'7'7'7"!"'7'7'7"!!"
1240  PRINT "I hope you have better luck at the real thing."
1250  GOTO 130
1260  IF W<.01 OR W>A THEN 1280
1270  GOTO 1080
1280  PRINT "Your wager must be between one cent ($.01) and $";A
1290  GOTO 1050
1300  END 
8000  REM *** This section was written by Lane Rollins.
8010  DIM Z1$[10]
8020  PRINT "Instructions: ";
8030  LINPUT Z1$
8040  IF Z1$[1,1]="N" THEN 8190
8050  PRINT ""
8060  PRINT "    This program is a simulation of a slot machine.  The computer"
8070  PRINT "will randomly select the objects which will be displayed to you."
8080  PRINT "To win you must have three of a kind.  You must have two of  a kind"
8090  PRINT "to break even.  If none are alike, then you lose your bet.  When"
8100  PRINT "you win, the better the combination of objects, the more your winnings"
8110  PRINT "are multiplied.  The objects are listed below in decending order:"
8120  PRINT ""
8130  PRINT "    CDC"
8140  PRINT "    IBM"
8150  PRINT "    DEC"
8160  PRINT "    HP"
8170  PRINT "    ALTAIR"
8180  PRINT ""
8185  PRINT "A wager of -1 will end the game."
8190  RETURN 
8200  END