home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / MISCBAS.ZIP / ACYDUCY.ASC < prev    next >
Encoding:
Text File  |  1987-01-11  |  2.3 KB  |  95 lines
  1.  
  2. 1 REM      A C E Y - D U C E Y       V2.1 JOHN COVINGTON 8/9/76 
  3. 10 OUT 2,26
  4. 101 PRINT "ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNER"
  5. 102 PRINT "THE DEALER (COMPUTER) DEALS TWO CARDS FACE UP "
  6. 105 PRINT"YOU MUST DECIDE IF YOU THINK THE NEXT CARD THAT"
  7. 108 PRINT"THE DEALER GIVES YOU WILL FALL BETWEEN THE TWO"
  8. 110 PRINT"CARDS SHOWING."
  9. 111 PRINT:PRINT"YOU CAN BET ANYTHING FROM  $00.00 UP TO"
  10. 112 PRINT"YOUR TOTAL BANKROLL."
  11. 114 PRINT:PRINT:PRINT"GOOD LUCK!!"
  12. 160 N=100:Q=100
  13. 190 PRINT "YOU NOW HAVE HAVE "Q" DOLLARS."
  14. 195 PRINT 
  15. 200 GOTO 260
  16. 210 LETQ=Q+M
  17. 220 GOTO 190
  18. 240 Q=Q-M
  19. 250 GOTO 190
  20. 260 PRINT "HERE ARE YOUR NEXT TWO CARDS....."
  21. 270 LET A=INT((12)*RND(1)+2)
  22. 280 IF A<2 THEN 270
  23. 290 IF A>14 THEN 270
  24. 300 LET B=INT((12)*RND(1)+2)
  25. 310 IF B<2 THEN 300
  26. 320 IF B>14 THEN 300
  27. 330 IFA>=B THEN 270
  28. 350 IF A>11 THEN 400
  29. 360 IF A=11 THEN 420
  30. 370 IF A=12 THEN 440
  31. 380 IF A=13 THEN 460
  32. 390 IF A=14 THEN 480
  33. 400 PRINT A
  34. 410 GOTO 500
  35. 420 PRINT "JACK"
  36. 430 GOTO 500
  37. 440 PRINT "QUEEN"
  38. 450 GOTO 500
  39. 460 PRINT "KING"
  40. 470 GOTO 500
  41. 480 PRINT "ACE"
  42. 500 IF B<11 THEN 550
  43. 510 IF B=11 THEN 570
  44. 520 IF B=12 THEN 590
  45. 530 IF B=13 THEN 610
  46. 540 IF B=14 THEN 630
  47. 550 PRINT B
  48. 560 GOTO 650
  49. 570 PRINT "JACK"
  50. 580 GOTO 650
  51. 590 PRINT "QUEEN"
  52. 600 GOTO 650
  53. 610 PRINT "KING"
  54. 620 GOTO 650
  55. 630 PRINT "ACE"
  56. 650 PRINT 
  57. 660 INPUT"WHAT IS YOUR BET";M
  58. 670 IF M<>0 THEN 680
  59. 675 PRINT 
  60. 677 GOTO 260
  61. 680 IF M<=Q THEN 730
  62. 690 PRINT "SORRY, MY FRIEND, BUT YOU BET TOO MUCH."
  63. 700 PRINT "YOU HAVE ONLY ";Q;"DOLLARS TO BET "
  64. 710 GOTO 650
  65. 730 LET C=INT((12)*RND(1)+2)
  66. 740 IF C<2 THEN 730
  67. 750 IF C>14 THEN 730
  68. 760 IF C<11 THEN 810
  69. 770 IF C=11 THEN 830
  70. 780 IF C=12 THEN 850
  71. 790 IF C=13 THEN 870
  72. 800 IF C=14 THEN 890
  73. 810 PRINT C
  74. 820 GOTO 910
  75. 830 PRINT "JACK"
  76. 840 GOTO 910
  77. 850 PRINT "QUEEN"
  78. 860 GOTO 910
  79. 870 PRINT "KING"
  80. 880 GOTO 910
  81. 890 PRINT "ACE"
  82. 910 IF C>A THEN 930
  83. 920 GOTO 970
  84. 930 IF C>=B THEN 970
  85. 950 PRINT "YOU WIN !!!!!!!!!!"
  86. 960 GOTO 210
  87. 970 PRINT "HA HA HA YOU LOSE "
  88. 980 IF M<Q THEN 240
  89. 1000 PRINT 
  90. 1010 PRINT "SORRY, FRIEND, BUT YOU BLEW YOUR WAD !!!!"
  91. 1020 INPUT "TRY AGAIN(YES OR NO)";A$
  92. 1030 IF A$="YES" THEN 160
  93. 1040 PRINT :PRINT"O K  HOPE YOU HAD FUN!!!!!"
  94. 1050 END
  95.