2 DIM A$[4] 10 X=0 30 REM 31 REM 101 PRINT "ACEY-DUCEY IS PLAYED IN THE FOLLING MANNER" 102 PRINT "THE DEALER (COMPUTOR) DEALS TWO CARDS FACE UP" 103 PRINT "YOU HAVE THE OPTION TO BET OR NOT TO BET DEPENDING" 104 PRINT "ON WHETHER OR NOT YOU FEEL THE NEXT CARD WILL HAVE" 105 PRINT "A VALUE BETWEEN THE FIRST TWO CARDS" 106 PRINT "IF YOU DO NOT HAVE TO BET, INPUT A 0." 108 PRINT "YOU WILL GET SEVEN HANDS." 110 PRINT 160 N=100 163 Q=100 190 PRINT "YOU HAVE"Q"DOLLARS" 193 IF X=7 THEN 1040 195 PRINT 200 GOTO 260 210 Q=Q+M 220 GOTO 190 240 GOTO 190 260 PRINT "HERE ARE YOUR NEXT TWO CARDS" 270 A=INT(RND(0)*14)+2 280 IF A<2 THEN 270 290 IF A>14 THEN 270 300 B=INT(RND(0)*14)+2 310 IF B<2 THEN 300 320 IF B>14 THEN 300 330 IF A >= B THEN 270 340 IF A<11 THEN 400 350 IF A=11 THEN 420 360 IF A=12 THEN 440 380 IF A=13 THEN 460 390 IF A=14 THEN 480 400 PRINT A 410 GOTO 500 420 PRINT "JACK" 430 GOTO 500 440 PRINT "QUEEN" 450 GOTO 500 460 PRINT "KING" 470 GOTO 500 480 PRINT "ACE" 490 GOTO 500 500 IF B<11 THEN 550 510 IF B=11 THEN 570 520 IF B=12 THEN 590 530 IF B=13 THEN 610 540 IF B=14 THEN 630 550 PRINT B 560 GOTO 650 570 PRINT "JACK" 580 GOTO 650 590 PRINT "QUEEN" 600 GOTO 650 610 PRINT "KING" 620 GOTO 650 630 PRINT "ACE" 650 PRINT 655 PRINT "WHAT IS YOUR BET"; 660 INPUT M 665 X=X+1 670 IF M#0 THEN 680 675 PRINT "CHICKEN..." 676 PRINT 677 GOTO 260 680 IF M <= Q THEN 730 690 PRINT "SORRY,MY FREIND BUT YOU BET TO MUCH" 698 GOTO 655 699 IF Q <= 0 THEN 1010 700 PRINT "YOU HAVE";Q;"DOLLARS TO BET" 710 GOTO 650 730 C=INT(RND(0)*14)+2 740 IF C<2 THEN 730 750 IF C>14 THEN 730 760 IF C<11 THEN 810 770 IF C=11 THEN 830 780 IF C=12 THEN 850 790 IF C=13 THEN 870 800 IF C=14 THEN 890 810 PRINT C 820 GOTO 910 830 PRINT "JACK" 840 GOTO 910 850 PRINT "QUEEN" 860 GOTO 910 870 PRINT "KING" 880 GOTO 910 890 PRINT "ACE" 910 IF C>A THEN 930 920 GOTO 970 930 IF C>B THEN 970 950 PRINT "YOU WIN..." 960 GOTO 210 970 PRINT "SORRY , YOU LOSE" 978 Q=Q-M 980 IF Q>0 THEN 240 990 PRINT 1009 PRINT "YOU BLEW WHAT YOU HAD" 1010 DIM S$[4] 1020 REM prog del for carnvl 11/23/74 1030 GOTO 1050 1040 PRINT "AND YOU STARTED OFF WITH $100." 1050 PRINT "hope you had fun!!"'7'7 1080 END