1 PRINT "ONE ARM BANDIT"
2 PRINT
3 GOTO 20
4 PRINT"WHAT IS YOUR LUCKY NUMBER TODAY, BETWEEN 1 AND 711";
5 INPUT Q
6 IF Q<1 THEN 2
7 IF Q>711 THEN 2
8 PRINT
9 DATA 43
10 READ Q9
11 LET U=INT(Q+Q9)
12 FOR I=1 TO U
13 LET V=RND(I)
14 NEXT I
15 LET S=INT(30+15*V)
16 PRINT"GOOD. YOUR STARTING BALANCE IS $";S
17 PRINT
18 GOTO 30
19 PRINT
20 PRINT"EACH PLAY YOU CAN PUT ANY AMOUNT OF SILVER DOLLARS INTO"
21 PRINT"THE MACHINE, UP TO THE BALANCE YOU HAVE, BY TYPING IN"
22 PRINT"THE QUANTITY OF DOLLARS."
23 PRINT
24 PRINT"YOU 'PULL DOWN THE HANDLE' BY DEPRESSING THE 'RETURN' KEY."
25 PRINT
26 PRINT"WHEN YOUR BALANCE REACHES ZERO, THE GAME IS OVER....."
27 PRINT"OR TYPE A ZERO ('0') TO QUIT AT ANY TIME. GOOD LUCK..."
28 PRINT
29 GOTO 4
30 PRINT"HOW MANY DOLLARS DO YOU WANT TO PUT IN ON YOUR FIRST PLAY";
31 INPUT Z
32 IF Z=INT(Z) THEN 36
33 PRINT
34 PRINT"NO FRACTIONAL DOLLARS ALLOWED AT THIS CASINO!"
35 GOTO 39
36 IF Z=0 THEN 41
37 IF Z<S+1 THEN 44
38 PRINT
39 PRINT "...ILLEGAL PLAY....TRY AGAIN....WHAT'S YOUR PLEASURE";
40 GOTO 31
41 PRINT
42 PRINT"...SO SOON! ...YOU HAVEN'T YET GIVEN IT A WHIRL!"
43 GOTO 147
44 PRINT
45 DIM R(3),T(3),P(3,6)
46 FOR I=1 TO 3
47 FOR J=1 TO 6
48 READ P(I,J)
49 NEXT J
50 NEXT I
51 LET E4=0
52 FOR I=1 TO 3
53 LET R=RND(I)
54 FOR J=1 TO 6
55 LET T(I)=J
56 IF R<P(I,J) THEN 58
57 NEXT J
58 NEXT I
59 FOR I=1 TO 3
60 LET W=T(I)
61 IF W=1 THEN 67
62 IF W=2 THEN 69
63 IF W=3 THEN 71
64 IF W=4 THEN 73
65 IF W=5 THEN 75
66 IF W=6 THEN 77
67 PRINT"LEMON   ";
68 GOTO 79
69 PRINT"CHERRY  ";
70 GOTO 79
71 PRINT"ORANGE  ";
72 GOTO 79
73 PRINT"PLUM    ";
74 GOTO 79
75 PRINT"BELL    ";
76 GOTO 79
77 PRINT"LIBERTY ";
78 GOTO 79
79 NEXT I
80 LET D=100*T(1)+10*T(2)+T(3)
81 IF D=221 THEN 96
82 IF D=223 THEN 96
83 IF D=224 THEN 96
84 IF D=225 THEN 97
85 IF D=226 THEN 99
86 IF D=333 THEN 103
87 IF D=444 THEN 105
88 IF D=555 THEN 107
89 IF D=336 THEN 109
90 IF D=446 THEN 111
91 IF D=556 THEN 113
92 IF D=666 THEN 115
93 LET D=0
94 PRINT "...A LOSER      ";
95 GOTO 119
96 LET D=2*Z
97 LET D=4*Z
98 GOTO 119
99 LET D=6*Z
100 GOTO 119
101 LET D=8*Z
102 GOTO 119
103 LET D=10*Z
104 GOTO 119
105 LET D=12*Z
106 GOTO 119
107 LET D=14*Z
108 GOTO 119
109 LET D=16*Z
110 GOTO 119
111 LET D=18*Z
112 GOTO 119
113 LET D=20*Z
114 GOTO 119
115 LET D=INT(200+400*RND(T(2)))
116 PRINT "...YOU HIT THE JACKPOT OF $";D
117 PRINT
118 LET E4=1
119 LET S=S+D-Z
120 IF S>0 THEN 123
121 PRINT "...YOU HAVE RUN OUT OF MONEY..."
122 GOTO 139
123 IF D=0 THEN 126
124 IF E4=1 THEN 126
125 PRINT "YOU WIN: $";D;"  ";
126 PRINT "BALANCE: $";S;"NEXT WAGER";
127 INPUT Z
128 IF Z=INT(Z) THEN 132
129 PRINT
130 PRINT"NO FRACTIONAL DOLLARS ALLOWED AT THIS CASINO!"
131 GOTO 135
132 IF Z=0 THEN 145
133 IF Z<S+1 THEN 137
134 PRINT
135 PRINT "...ILLEGAL PLAY....TRY AGAIN....WHAT'S YOUR PLEASURE";
136 GOTO 127
137 PRINT
138 GOTO 52
139 PRINT
140 PRINT"THE GAME IS OVER...BETTER LUCK NEXT TIME."
141 GO TO 147
142 DATA 0.00, 0.40, 0.65, 0.83, 0.94, 1.00
143 DATA 0.10, 0.45, 0.65, 0.80, 0.90, 1.00
144 DATA 0.30, 0.30, 0.50, 0.70, 0.82, 1.00
145 PRINT
146 PRINT "...SO SOON! ANYWAY, IT WAS FUN, WASN'T IT?"
147 END
  