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
\n1400 GOTO 10
\n1410 CLEAR
\n1420 SAVE "1032%5"
\n1430 RUN
