Super Slot-O

Gallery

Source Code

   5 REM SUPER SLOT-O
   6 RAND 
  10 PRINT "PLAY SUPER SLOT-O"
  20 FOR L=1 TO 17
  30 PRINT "*";
  40 NEXT L
  50 PRINT 
  60 GOSUB 800
  70 GOSUB 900
  90 IF INKEY$="" THEN GOTO 90
 100 CLS 
 110 GOSUB 500
 120 LET A=X
 130 GOSUB 500
 140 LET B=X
 150 GOSUB 500
 160 LET C=X
 170 IF A=B THEN LET P=1
 180 IF B=C THEN LET Q=1
 190 IF C=A THEN LET R=1
 200 PRINT 
 210 PRINT CHR$ A;"  ";CHR$ B;"  ";CHR$ C
 220 IF P+Q+R=1 THEN LET S=1
 230 IF P+Q+R>1 THEN LET T=1
 240 IF P+Q+R<1 THEN LET U=1
 300 PRINT 
 310 PAUSE 60
 320 IF S THEN PRINT "TWO OF A KIND"
 330 IF S THEN PRINT "YOU WIN $5"
 340 IF T THEN PRINT "THREE OF A KIND"
 350 IF T THEN PRINT "YOU WIN $10"
 360 IF U THEN PRINT "SORRY, THERE IS NO MATCH"
 370 IF U THEN PRINT "YOU DO NOT WIN ANY MONEY"
 380 PRINT 
 390 GOTO 20
 500 LET X=2*RND
 510 IF X<1 THEN GOTO 600
 520 GOTO 700
 600 LET X=INT (8*RND)
 610 IF X<2 THEN GOTO 600
 620 RETURN 
 700 LET X=INT (133*RND)
 710 IF X<128 THEN GOTO 700
 720 RETURN 
 800 PRINT "PRESS ANY KEY TO"
 810 PRINT "PULL THE SLOT MACHINE HANDLE"
 820 RETURN 
 900 LET P=0
 910 LET Q=0
 920 LET R=0
 930 LET S=0
 940 LET T=0
 950 LET U=0
 960 RETURN 
1000 SAVE "1002%6"
1010 RUN