home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug003.ark / ACE.BAS next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.8 KB  |  88 lines
  1. 100 PRINT "THIS IS ACEY-DUCEY"
  2. 110 PRINT
  3.     INPUT "HOW MUCH MONEY DO YOU HAVE (THE BANK WILL TAKE UP TO $1000)";Q
  4.     RANDOMIZE
  5. 160 LET N=100
  6. 190 PRINT "YOU NOW HAVE ";Q;"DOLLARS."
  7. 195 PRINT
  8. 200 GOTO 260
  9. 210 LET Q=Q+M
  10. 220 GOTO 190
  11. 240 LET Q=Q-M
  12. 250 GOTO 190
  13. 260 PRINT "HERE ARE YOUR NEXT TWO CARDS..."
  14. 270 LET A=INT(14*RND)+2
  15. 280 IF A<2 THEN 270
  16. 290 IF A>14 THEN 270
  17. 300 LET B=INT(14*RND)+2
  18. 310 IF B<2 THEN 300
  19. 320 IF B>14 THEN 300
  20. 330 IF A>=B THEN 270
  21. 350 IF A<11 THEN 400
  22. 360 IF A=11 THEN 420
  23. 370 IF A=12 THEN 440
  24. 380 IF A=13 THEN 460
  25. 390 IF A=14 THEN 480
  26. 400 PRINT A
  27. 410 GOTO 500
  28. 420 PRINT "JACK"
  29. 430 GOTO 500
  30. 440 PRINT "QUEEN"
  31. 450 GOTO 500
  32. 460 PRINT "KING"
  33. 470 GOTO 500
  34. 480 PRINT "ACE"
  35. 500 IF B<11 THEN 550
  36. 510 IF B=11 THEN 570
  37. 520 IF B=12 THEN 590
  38. 530 IF B=13 THEN 610
  39. 540 IF B=14 THEN 630
  40. 550 PRINT B
  41. 560 GOTO 650
  42. 570 PRINT "JACK"
  43. 580 GOTO 650
  44. 590 PRINT "QUEEN"
  45. 600 GOTO 650
  46. 610 PRINT "KING"
  47. 620 GOTO 650
  48. 630 PRINT "ACE"
  49. 650 PRINT
  50. 660 INPUT "WHAT IS YOUR BET";M
  51. 670 IF M<>0 THEN 680
  52. 675 PRINT "CHICKEN!!":PRINT
  53. 677 GOTO 260
  54. 680 IF M<=Q THEN 730
  55. 690 PRINT "BET TOO MUCH"
  56. 700 PRINT "YOU HAVE ONLY";Q;"DOLLARS TO BET."
  57. 710 GOTO 650
  58. 730 LET C=INT(14*RND)+2
  59. 740 IF C<2 THEN 730
  60. 750 IF C>14 THEN 730
  61. 760 IF C<11 THEN 810
  62. 770 IF C=11 THEN 830
  63. 780 IF C=12 THEN 850
  64. 790 IF C=13 THEN 870
  65. 800 IF C=14 THEN 890
  66. 810 PRINT C
  67. 820 GOTO 910
  68. 830 PRINT "JACK"
  69. 840 GOTO 910
  70. 850 PRINT "QUEEN"
  71. 860 GOTO 910
  72. 870 PRINT "KING"
  73. 880 GOTO 910
  74. 890 PRINT "ACE"
  75. 910 IF C>A THEN 930
  76. 920 GOTO 970
  77. 930 IF C>=B THEN 970
  78. 950 PRINT "YOU WIN !!!"
  79. 960 GOTO 210
  80. 970 PRINT "SORRY,YOU LOSE."
  81. 980 IF M<Q THEN 240
  82. 1000 PRINT
  83. 1010 PRINT "BLEW YOUR WAD."
  84. 1020 INPUT "TRY AGAIN (1 OR 0)";A
  85. 1030 IF A=1 THEN 110
  86. 1040 PRINT:PRINT "O.K. HOPE YOU HAD FUN!!"
  87. 1050 END
  88.