100 PRINT "ONE ARM BANDIT" 102 PRINT 104 GO TO 130 106 RANDOMIZE 108 LET Q=INT(711*RND(0)+1) 110 PRINT 112 DATA 43 114 READ Q9 116 LET U=INT(Q+Q9) 118 LET V=RND(0) 120 LET S=50 122 PRINT "YOU ARE GIVEN $50 TO PLAY WITH, GOOD LUCK." 124 PRINT 126 GO TO 150 128 PRINT 130 PRINT "EACH PLAY YOU CAN PUT ANY AMOUNT OF SILVER DOLLARS INTO" 132 PRINT "THE MACHINE, UP TO THE BALANCE YOU HAVE, BY TYPING IN" 134 PRINT "THE QUANTITY OF DOLLARS." 136 PRINT 138 PRINT "YOU 'PULL DOWN THE HANDLE' BY DEPRESSING THE 'RETURN' KEY." 140 PRINT 142 PRINT "WHEN YOUR BALANCE REACHES ZERO, THE GAME IS OVER....." 144 PRINT "OR TYPE A ZERO ('0') TO QUIT AT ANY TIME." 146 PRINT 148 GO TO 106 150 PRINT "HOW MANY DOLLARS DO YOU WANT TO PUT IN ON YOUR FIRST PLAY"; 152 INPUT Z 154 IF Z=INT(Z) THEN 162 156 PRINT 158 PRINT "NO FRACTIONAL DOLLARS ALLOWED AT THIS CASINO!" 160 GO TO 168 162 IF Z<=0 THEN 172 164 IF Z0 THEN 336 332 PRINT "...YOU HAVE RUN OUT OF MONEY..." 334 GO TO 368 336 IF D=0 THEN 342 338 IF E4=1 THEN 342 340 PRINT "YOU WIN: $";D;" "; 342 PRINT "BALANCE: $";S;"NEXT WAGER"; 344 INPUT Z 346 IF Z=INT(Z) THEN 354 348 PRINT 350 PRINT "NO FRACTIONAL DOLLARS ALLOWED AT THIS CASINO!" 352 GO TO 360 354 IF Z<=0 THEN 380 356 IF Z