### Appears on

Assembled by Tim Ward from many sources. Contains programs 10294-10335.

### Source Code

5 LET X=0 6 PRINT AT 9,4;"\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':" 7 PRINT AT 10,4;"\: \ :" 8 PRINT AT 11,4;"\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:" 10 LET A=INT (RND*20)+1 20 LET B=INT (RND*20)+1 30 LET C=INT (RND*20)+1 40 IF C<11 THEN PRINT AT 10,19;" LEMON " 50 IF C>10 AND C<16 THEN PRINT AT 10,19;"ORANGE " 60 IF C>17 THEN PRINT AT 10,19;" PLUM " 70 IF C=16 THEN PRINT AT 10,19;" " 80 IF C=17 THEN PRINT AT 10,19;" BELL " 90 IF B<10 THEN PRINT AT 10,12;" BELL " 100 IF B>15 THEN PRINT AT 10,12;"CHERRY " 110 IF B=15 THEN PRINT AT 10,12;" " 120 IF B=14 THEN PRINT AT 10,12;"ORANGE " 130 IF B=13 THEN PRINT AT 10,12;" PLUM " 140 IF B<13 AND B>9 THEN PRINT AT 10,12;" " 150 IF A<7 THEN PRINT AT 10,5;"ORANGE " 160 IF A>15 THEN PRINT AT 10,5;" " 170 IF A<15 AND A>10 THEN PRINT AT 10,5;" PLUM " 180 IF A<11 AND A>7 THEN PRINT AT 10,5;"CHERRY " 190 IF A=15 THEN PRINT AT 10,5;" " 200 IF A=7 THEN PRINT AT 10,5;" BELL " 205 LET P=0 210 IF C=16 AND B=15 AND A=15 THEN LET P=200 220 IF C=16 AND B<13 AND B>9 AND A>15 THEN LET P=100 230 IF C=16 AND B<10 AND A=7 THEN LET P=18 240 IF C=16 AND B=13 AND A<15 THEN LET P=18 250 IF C=16 AND B=14 AND A<7 THEN LET P=10 260 IF A<11 AND A>7 THEN LET P=2 270 IF A<11 AND A>7 AND B>15 THEN LET P=5 280 IF A<7 AND B=14 AND C>10 AND C<16 THEN LET P=10 290 IF A<15 AND B=13 AND C>17 AND A>10 THEN LET P=14 300 IF A=7 AND B<10 AND C=17 THEN LET P=18 310 PRINT AT 14,7;"PAYOFF IS ";P;" COINS " 320 LET X=X+P-1 330 PRINT AT 18,7;"WINNINGS ";X;" " 350 PAUSE 4E4 1400 GOTO 10 1410 CLEAR 1420 SAVE "1032%5" 1430 RUN