Directory of image this file is from
This file as a plain text file

100 PRINT"THIS DEMONSTRATION SIMULATES A SLOT MACHINE ---"
110 PRINT"THE ONE-ARMED BANDIT."
130 PRINT
140 PRINT
150 PRINT"EACH PLAY YOU CAN PUT ANY AMOUNT OF SILVER DOLLARS INTO"
160 PRINT"THE MACHINE, UP TO THE BALANCE YOU HAVE, BY TYPING IN"
170 PRINT"THE QUANTITY OF DOLLARS."
180 PRINT
190 PRINT"YOU 	PULL DOWN THE HANDLE	 BY DEPRESSING THE 	RETURN	 KEY."
200 PRINT
210 PRINT"WHEN YOUR BALANCE REACHES ZERO, THE GAME IS OVER....."
220 PRINT
230 LET S=INT(30+15*RND(0))
240 PRINT "YOUR STARTING BALANCE IS $";S
250 PRINT"HOW MANY DOLLARS DO YOU WANT TO PUT IN ON YOUR FIRST PLAY";
260 INPUT Z
270 IF Z<1 THEN 290
280 IF Z<S+1 THEN 320
290 PRINT
300 PRINT "...ILLEGAL PLAY....TRY AGAIN";
310 GOTO 260
320 PRINT
330 DIM R(3),T(3),P(3,6)
340 FOR I=1 TO 3
350 FOR J=1 TO 6
360 READ P(I,J)
370 NEXT J
380 NEXT I
390 LET E4=0
400 FOR I=1 TO 3
410 LET R=RND(0)
420 FOR J=1 TO 6
430 LET T(I)=J
440 IF R<P(I,J) THEN 460
450 NEXT J
460 NEXT I
470 FOR I=1 TO 3
480 LET W=T(I)
490 IF W=1 THEN 550
500 IF W=2 THEN 570
510 IF W=3 THEN 590
520 IF W=4 THEN 610
530 IF W=5 THEN 630
540 IF W=6 THEN 650
550 PRINT"LEMON   ";
560 GOTO 670
570 PRINT"CHERRY  ";
580 GOTO 670
590 PRINT"ORANGE  ";
600 GOTO 670
610 PRINT"PLUM    ";
620 GOTO 670
630 PRINT"BELL    ";
640 GOTO 670
650 PRINT"LIBERTY ";
660 GOTO 670
670 NEXT I
680 LET D=100*T(1)+10*T(2)+T(3)
690 IF D=221 THEN 840
700 IF D=223 THEN 840
710 IF D=224 THEN 840
720 IF D=225 THEN 850
730 IF D=226 THEN 870
740 IF D=333 THEN 910
750 IF D=444 THEN 930
760 IF D=555 THEN 950
770 IF D=336 THEN 970
780 IF D=446 THEN 990
790 IF D=556 THEN 1010
800 IF D=666 THEN 1030
810 LET D=0
820 PRINT "...A LOSER      ";
830 GOTO 1070
840 LET D=2*Z
850 LET D=4*Z
860 GOTO 1070
870 LET D=6*Z
880 GOTO 1070
890 LET D=8*Z
900 GOTO 1070
910 LET D=10*Z
920 GOTO 1070
930 LET D=12*Z
940 GOTO 1070
950 LET D=14*Z
960 GOTO 1070
970 LET D=16*Z
980 GOTO 1070
990 LET D=18*Z
1000 GOTO 1070
1010 LET D=20*Z
1020 GOTO 1070
1030 LET D=INT(200+400*RND(0))
1040 PRINT "...YOU HIT THE JACKPOT OF $";D
1050 PRINT
1060 LET E4=1
1070 LET S=S+D-Z
1080 IF S>0 THEN 1120
1090 PRINT
1100 PRINT "SORRY ABOUT THAT --- YOU HAVE RUN OUT OF MONEY..."
1110 GOTO 1260
1120 IF D=0 THEN 1150
1130 IF E4=1 THEN 1150
1140 PRINT "YOU WIN: $";D;
1150 PRINT "BALANCE: $";S;"AGAIN";
1160 INPUT Z
1170 IF Z<1 THEN 1200
1180 IF Z=999 THEN 1250
1190 IF Z<S+1 THEN 1230
1200 PRINT
1210 PRINT "...ILLEGAL PLAY....TRY AGAIN";
1220 GOTO 1160
1230 PRINT
1240 GOTO 400
1250 PRINT
1260 PRINT"THE GAME IS OVER --- BETTER LUCK NEXT TIME."
1270 GOTO1310
1280 DATA 0.00, 0.40, 0.65, 0.83, 0.94, 1.00
1290 DATA 0.10, 0.45, 0.65, 0.80, 0.90, 1.00
1300 DATA 0.30, 0.30, 0.50, 0.70, 0.82, 1.00
1310 PRINT
1320 PRINT
1330 PRINT
1340 CHAIN "DEMON "
1350 END