5 PRINT CHR$(27);"[H";CHR$(27);"[2J" 10 PRINT TAB(26);"ACEY DUCEY CARD GAME" 20 PRINT TAB(29);"BY BILL PALMBY" 25 PRINT 30 PRINT"ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNER " 40 PRINT"THE DEALER (COMPUTER) DEALS TWO CARDS FACE UP" 50 PRINT"YOU HAVE AN OPTION TO BET OR NOT BET DEPENDING" 60 PRINT"ON WHETHER OR NOT YOU FEEL THE CARD WILL HAVE" 70 PRINT"A VALUE BETWEEN THE FIRST TWO." 80 PRINT"IF YOU DO NOT WANT TO BET, INPUT A 0" 90 PRINT 100 LET N=100 110 LET Q=100 120 PRINT "YOU NOW HAVE ";Q;" DOLLARS." 130 PRINT 140 GOTO 260 210 LET Q=Q+M 220 GOTO 120 240 LET Q=Q-M 250 GOTO 120 260 PRINT"HERE ARE YOUR NEXT TWO CARDS: " 270 LET A=INT(14*RND)+2 280 IF A<2 GOTO 270 290 IF A>14 GOTO 270 300 LET B=INT(14*RND)+2 310 IF B<2 GOTO 300 320 IF B>14 GOTO 300 330 IF A>=B GOTO 270 350 IF A<11 GOTO 400 360 IF A=11 GOTO 420 370 IF A=12 GOTO 440 380 IF A=13 GOTO 460 390 IF A=14 GOTO 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" 500 IF B<11 GOTO 550 510 IF B=11 GOTO 570 520 IF B=12 GOTO 590 530 IF B=13 GOTO 610 540 IF B=14 GOTO 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" 640 PRINT 650 PRINT 660 INPUT"WHAT IS YOUR BET"M 670 IF M<>0 GOTO 680 675 PRINT"CHICKEN!!" 676 PRINT 677 GOTO 260 680 IF M<=Q GOTO 730 690 PRINT"SORRY, MY FRIEND, BUT YOU BET TOO MUCH." 700 PRINT"YOU HAVE ONLY ";Q;" DOLLARS TO BET." 710 GOTO 650 730 LET C=INT(14*RND)+2 740 IF C<2 GOTO 730 750 IF C>14 GOTO 730 760 IF C<11 GOTO 810 770 IF C=11 GOTO 830 780 IF C=12 GOTO 850 790 IF C=13 GOTO 870 800 IF C=14 GOTO 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" 900 PRINT 910 IF C>A GOTO 930 920 GOTO 970 930 IF C>=B GOTO 970 950 PRINT"YOU WIN!!!" 960 GOTO 210 970 PRINT"SORRY, YOU LOSE" 980 IF M