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 
