Listing of file='32B' on disk='vmedia/glbr_22.wvd.zip'
# Sector 700, program filename = '32B' 0001 X=1 0120 PRINT ,"***ONE-ARMED BANDIT***" 0130 PRINT : GOTO 300 0260 S=INT(30+15*RND(X)) 0270 PRINT "YOUR STARTING BALANCE IS $";S 0280 GOTO 400 : PRINT 0300 PRINT "EACH PLAY YOU CAN PUT ANY AMOUNT OF SILVER DOLLARS" 0310 PRINT "INTO THE MACHINE UP TO THE BALANCE YOU HAVE BY TYPING" 0320 PRINT "IN THE QUANTITY OF DOLLARS." : PRINT 0340 PRINT "YOU 'PULL DOWN THE HANDLE' BY DEPRESSING THE RETURN KEY." 0350 PRINT 0360 PRINT "WHEN YOUR BALANCE REACHES ZERO, THE GAME IS OVER..." 0370 PRINT "OR ENTER '0' TO QUIT ANY TIME. GOOD LUCK..." 0380 GOTO 260 0400 PRINT "HOW MANY DOLLARS DO YOU WANT TO PUT IN ON YOUR 1ST PLAY"; 0410 INPUT Z 0420 IF Z=0 THEN 440 : IF Z<S+1 THEN 470 0440 PRINT : PRINT "...ILLEGAL PLAY...TRY AGAIN"; 0460 GOTO 410 0470 PRINT 0480 DIM R(3),T(3),P(3,6) 0490 FOR I=1 TO 3 : FOR J=1 TO 6 0510 READ P(I,J) 0520 NEXT J : NEXT I : E4=0 0550 FOR I=1 TO 3 0560 R(I)=RND(1) 0570 FOR J=1 TO 6 : T(I)=J 0590 IF R(I)<P(I,J) THEN 610 0600 NEXT J 0610 NEXT I 0620 FOR I=1 TO 3 0625 PRINT TAB((I-1)*8); 0630 W=T(I) 0640 IF W=1 THEN 700 : IF W=2 THEN 720 0660 IF W=3 THEN 740 : IF W=4 THEN 760 0680 IF W=5 THEN 780 : IF W=6 THEN 800 0700 PRINT "LEMON"; : GOTO 820 0720 PRINT "CHERRY"; : GOTO 820 0740 PRINT "ORANGE"; : GOTO 820 0760 PRINT "PLUM"; : GOTO 820 0780 PRINT "BELL"; : GOTO 820 0800 PRINT "LIBERTY"; 0820 NEXT I 0830 D=100*T(1)+10*T(2)+T(3) 0840 IF D=221 THEN 990 : IF D=223 THEN 990 0860 IF D=224 THEN 990 : IF D=225 THEN 1010 0880 IF D=226 THEN 1030 : IF D=333 THEN 1070 0900 IF D=444 THEN 1090 : IF D=555 THEN 1110 0920 IF D=336 THEN 1130 : IF D=446 THEN 1150 0940 IF D=556 THEN 1170 : IF D=666 THEN 1190 0960 D=0 0970 PRINT TAB(24);"...A LOSER"; : GOTO 1230 0990 D=2*Z 1010 D=4*Z : GOTO 1230 1030 D=6*Z : GOTO 1230 1050 D=8*Z : GOTO 1230 1070 D=10*Z : GOTO 1230 1090 D=12*Z : GOTO 1230 1110 D=14*Z : GOTO 1230 1130 D=16*Z : GOTO 1230 1150 D=18*Z : GOTO 1230 1170 D=20*Z : GOTO 1230 1190 D=INT(200+400*RND(0)) 1200 PRINT "YOU HAVE HIT THE JACKPOT OF $";D 1210 PRINT : E4=1 1230 S=S+D-Z 1240 IF S>0 THEN 1280 : PRINT 1260 PRINT "YOU HAVE RUN OUT OF MONEY....." : GOTO 1420 1280 IF D=0 THEN 1310 : IF E4=1 THEN 1310 1300 PRINT TAB(24);"...YOU WIN $";D; 1310 PRINT TAB(44);"BALANCE=$";S;" AMOUNT"; 1320 INPUT Z 1330 IF Z=0 THEN 1360 : IF Z<S+1 THEN 1390 1360 PRINT 1370 PRINT "...ILLEGAL PLAY...TRY AGAIN"; : GOTO 1320 1390 PRINT 1400 GOTO 550 1410 PRINT 1420 PRINT "THE GAME IS OVER..BETTER LUCK NEXT TIME." : GOTO 1470 1440 DATA 0.00,0.40,0.65,0.83,0.94,1.00 1450 DATA 0.10,0.45,0.65,0.80,0.90,1.00 1460 DATA 0.30,0.30,0.50,0.70,0.82,1.00 1470 PRINT : PRINT : PRINT : END 1500 END