Slot Machine

Gallery

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