Slot Machine

Gallery

Source Code

   1 PRINT AT 0,14;"SLOT MACHINE"
   5 LET E=2
  10 LET F=3
  15 LET M=E-E
  20 RAND 
  25 LET D=RND*E
  30 IF D>=F-E THEN PRINT "TRY YOUR LUCK"
  35 IF D<F-E THEN PRINT "PAY ME TO WIN"
  40 LET D=20
  45 PRINT "NOW AT $";M
  50 PRINT "PLAY $1 TO $5"
  60 INPUT B
  70 IF B<F-E OR B>E+F THEN GOTO D*F
  80 PRINT AT E-E,E-E;"% \''\''\''% \''\''\''% \''\''\''% "
  90 PRINT "%    %    %    % "
 100 PRINT "% \..\..\..% \..\..\..% \..\..\..% "
 110 PRINT "             "
 120 PRINT "             "
 130 PRINT "             "
 140 PRINT AT F-E,E;
 150 GOSUB D*D
 160 LET X=A
 170 PRINT TAB E*F;
 180 GOSUB D*D
 190 LET Y=A
 200 PRINT TAB D/E;
 210 GOSUB D*D
 220 LET Z=A
 230 PRINT AT F,E-E;
 240 LET M=M-B
 250 IF X<>F THEN IF X<>Y OR X<>Z THEN GOTO D
 260 PRINT "YOU WIN $";
 270 LET C=E
 280 IF Y=F THEN LET C=E+F
 290 IF X=Y AND X=Z THEN LET C=D
 300 LET M=M+C*B
 310 PRINT C*B
 320 GOTO D+D
 400 LET A=INT (RND*(E*F))
 410 FOR Z=E-E TO 15
 420 NEXT Z
 430 PRINT CHR$ (128+A*E);
 440 RETURN 
 450 SAVE "1015%2"
 460 RUN