Slot Machine

Gallery

Source Code

  10 LET E=2
  20 LET F=3
  30 LET M=E-E
  40 RAND 
  50 LET D=RND*E
  60 IF D>=F-E THEN PRINT AT 12,8;"TRY YOUR LUCK"
  70 IF D<F-E THEN   PRINT AT 12,8;" *YOU LOST* "
  80 LET D=20
  90 PRINT AT 13,9;"NOW AT $";M
 100 PRINT AT 14,8;"PLAY $1 TO $5"
 110 INPUT B
 120 IF B<F-E OR B>E+F THEN GOTO 110
 130 PRINT AT 9,22;"% "
 140 PRINT AT 3,22;"\ :"
 150 PRINT AT 4,22;"\ :"
 160 PRINT AT 5,22;"% "
 170 PRINT AT 6,22;"% "
 180 PRINT AT 8,22;"% "
 190 PRINT AT 7,21;"% % "
 200 PRINT AT 3,10;"% % % %$%$%$% % % "
 210 PRINT AT 4,10;"% % % % % % % % % "
 220 PRINT AT 5,9;"% % % % % % % % % % % "
 230 PRINT AT 6,8;"% % % % % % % % % % % % % "
 240 PRINT AT 7,8;"% % % % % % % % % % % % % "
 250 PRINT AT 8,8;"% % % % % % % % % % % % % "
 260 PRINT AT 9,8;"% \''\''\''% \''\''\''% \''\''\''% "
 270 PRINT AT 10,8;"%    %    %    % "
 280 PRINT AT 11,8;"% \..\..\..% \..\..\..% \..\..\..% "
 290 PRINT AT 12,8;"             "
 300 PRINT AT 13,8;"             "
 310 PRINT AT 14,8;"             "
 320 PRINT AT 10,10;
 330 GOSUB 500
 340 LET X=A
 350 PRINT TAB 14;
 360 GOSUB 500
 370 LET Y=A
 380 PRINT TAB 18;
 390 GOSUB 500
 400 LET Z=A
 410 LET M=M-B
 420 IF X<>F THEN IF X<=Y OR X<=Z THEN GOTO 40
 430 GOSUB 550
 440 LET C=E
 450 IF Y=F THEN LET C=E+F
 460 IF X=Y AND X=Z THEN LET C=D
 470 LET M=M+C*B
 480 PRINT C*B
 490 GOTO 80
 500 LET A=INT (RND*(E*F))
 510 FOR Z=E-E TO 65
 520 NEXT Z
 530 PRINT CHR$ (128+A*E);
 540 RETURN 
 550 PRINT AT 6,11;"       "
 560 PRINT AT 6,11;"YOU WIN" 
 570 LET P=0
 580 GOSUB 670
 590 PRINT AT 6,11;"%Y%O%U% %W%I%N"
 600 GOSUB 670
 610 PRINT AT 6,11;"YOU WIN"
 620 PRINT AT 7,13;"   "
 630 PRINT AT 7,13;"$";
 640 LET P=P+1
 650 IF P=6 THEN RETURN 
 660 GOTO 590
 670 LET T=0
 680 LET T=T+1
 690 IF T=3 THEN RETURN 
 700 GOTO 680
 710 CLEAR 
 720 SAVE "1027%8"
 730 RUN