Listing of file='ONE-ARM' on disk='vmedia/more_games.wvd.zip'
# Sector 929, program filename = 'ONE-ARM'
0010 REM *ONE-ARM*
: LOAD DC T#6,"GAMES"
0020 PRINT HEX(03)
0030 PRINT ,"ONE - ARMED BANDIT"
0040 PRINT
0050 PRINT " YOU CAN BET ANY AMOUNT UP TO YOUR BALANCE. TO BET"
0060 PRINT "TYPE THE DOLLAR AMOUNT AND RETURN."
0070 PRINT
0080 PRINT "WHEN YOUR BALANCE REACHES ZERO, THE GAME IS OVER..."
0090 PRINT "OR ENTER '0' TO QUIT ANY TIME. GOOD LUCK..."
0100 S=INT(30+15*RND(1))
0110 PRINT
0120 PRINT "YOUR STARTING BALANCE IS $";S
0130 PRINT
0140 PRINT "HOW MANY DOLLARS DO YOU WANT TO PUT IN ON YOUR 1ST PLAY"
0150 INPUT Z
0160 PRINT TAB(62)
0170 PRINT HEX(0C)
0180 IF Z<0 THEN 200
0190 IF Z=0 THEN 1010
: IF Z<S+1 THEN 230
0200 PRINT "...ILLEGAL PLAY ..... TRY AGAIN"
0210 PRINT HEX(0C0C202020202020080808080808);
0220 GOTO 150
0230 PRINT HEX(03)
0240 PRINT HEX(0A0A0A0A0A);TAB(5);"+++++++++++++++++++++++++++++++++++++++++++
+++++++++++"
0250 FOR K=1TO 7
0260 PRINT TAB(5);"I I I I"
0270 NEXT K
0280 PRINT TAB(5);"++++++++++++++++++++++++++++++++++++++++++++++++++++++"
0290 DIM R(3),T(3),P(3,6)
0300 DIM A$(6,5)9
0310 RESTORE
0320 FOR I=1 TO 3
: FOR J=1 TO 6
0330 READ P(I,J)
0340 NEXT J
: NEXT I
: E4=0
0350 FOR I=1 TO 6
0360 FOR J=1 TO 5
0370 READ A$(I,J)
0380 NEXT J
0390 NEXT I
0400 FOR I=1 TO 3
0410 R(I)=RND(1)
0420 FOR J=1 TO 6
: T(I)=J
0430 IF R(I)<P(I,J) THEN 450
0440 NEXT J
0450 NEXT I
0460 FOR I=1 TO 3
0470 GOSUB '248 (7,6+17*(I-1),0)
0480 W=T(I)
0490 FOR J=1TO 5
0500 GOSUB '248 (6+J,6+19*(I-1),0)
0510 PRINT HEX(202020202020202020202020080808080808080808080808);
0520 PRINT A$(W,J)
0530 NEXT J
0540 NEXT I
0550 PRINT HEX(01)
0560 D=100*T(1)+10*T(2)+T(3)
0570 IF D=221 THEN 660
: IF D=223 THEN 660
0580 IF D=224 THEN 660
: IF D=225 THEN 670
0590 IF D=226 THEN 680
: IF D=333 THEN 700
0600 IF D=444 THEN 710
: IF D=555 THEN 720
0610 IF D=336 THEN 730
: IF D=446 THEN 740
0620 IF D=556 THEN 750
: IF D=666 THEN 760
0630 D=0
0640 PRINT "... A LOSER";
0650 GOTO 800
0660 D=2*Z
0670 D=4*Z
: GOTO 800
0680 D=6*Z
: GOTO 800
0690 D=8*Z
: GOTO 800
0700 D=10*Z
: GOTO 800
0710 D=12*Z
: GOTO 800
0720 D=14*Z
: GOTO 800
0730 D=16*Z
: GOTO 800
0740 D=18*Z
: GOTO 800
0750 D=20*Z
: GOTO 800
0760 D=INT(200+400*RND(0))
0770 PRINT HEX(01)
0780 PRINT "YOU HAVE HIT THE JACKPOT OF $";D
0790 PRINT
: E4=1
0800 S=S+D-Z
0810 IF S>0 THEN 840
: PRINT
0820 PRINT HEX(01)
0830 PRINT "YOU HAVE RUN OUT OF MONEY....";TAB(62)
: GOTO 970
0840 IF D=0 THEN 860
: IF E4=1 THEN 860
0850 PRINT HEX(01);"... YOU WIN $";D;
0860 PRINT TAB(35);"BALANCE =$";S
0870 PRINT TAB(25)
0880 PRINT HEX(0C)
0890 INPUT "AMOUNT",Z
0900 IF Z<0 THEN 920
0910 IF Z=0 THEN 1010
: IF Z<S+1 THEN 950
0920 PRINT "... ILLEGAL PLAY...TRY AGAIN"
0930 PRINT HEX(0C0C2020202020202020202008080808080808080808);
0940 GOTO 890
0950 PRINT TAB(62)
: GOTO 400
0960 PRINT
0970 PRINT "THE GAME IS OVER..BETTER LUCK NEXT TIME."
: GOTO 1010
0980 DATA 0.00,0.40,0.65,0.83,0.94,1.00
0990 DATA 0.10,0.45,0.65,0.80,0.90,1.00
1000 DATA 0.30,0.30,0.50,0.70,0.82,1.00
1010 GOSUB '248 (12,0,0)
1020 GOTO 1130
1030 DATA " * *"," * *"," *"," * *"," * *"
1040 DATA " *****"," * *"," * *"," * *"," *****"
1050 DATA " *"," "," * *"," "," * *"
1060 DATA " *"," * *"," * *"," * *"," *"
1070 DATA " "," "," *****"," "," "
1080 DATA " *"," *"," *"," *"," *"
1090 DEFFN'248(Q6,Q7,Q8)
: IF Q8<1THEN 1100
: GOSUB 1100
: SELECT PRINT 205
: Q6$=" "
: PRINT STR(Q6$,Q7+1)
: IF Q8<2THEN 1100
: FOR W0=2TO Q8
: PRINT HEX(0A);STR(Q6$,1)
: NEXT W0
1100 SELECT PRINT 405
: PRINT HEX(01)
: IF Q7<1THEN 1110
: FOR W0=1TO Q7
: PRINT HEX(09)
: NEXT W0
1110 IF Q6<1THEN 1120
: FOR W0=1TO Q6
: PRINT HEX(0A)
: NEXT W0
1120 SELECT PRINT 005
: RETURN
1130 REM '