Content
Image Gallery
Super Slot-O
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
People
No people associated with this content.