### Appears on

Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.

### 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