home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / cribbage.lbr / CRIBBAGE.CZM / CRIBBAGE.COM (.txt)
Encoding:
Turbo Pascal Compiled 8bit CP/M-80 COM  |  1993-10-26  |  20.0 KB  |  103 lines
  1. Copyright (C) 1984 BORLAND Inc
  2. KayproDelete2/920/92P
  3. ^#V#N#F
  4. s#r#q#p
  5.     #^#V
  6. 9^#Vh&
  7. |/g}/o#
  8. T]=o`9y
  9. T9^K#
  10. 8/<oz
  11. T9^K#
  12. oGOW_g
  13. `1pF,
  14. w###6
  15. ##N#F*
  16. Nw#Fw
  17. q#p#6
  18. #w#w#w
  19. TRUEFALSE
  20.     N#F#s#r
  21. N#F#^#V
  22. " C}=(
  23. F+N+++V+^
  24. q#p##
  25. User break
  26. Run-time
  27.  error 
  28. , PC=
  29. Program aborted
  30. You've pegged *
  31.  points.
  32. I've pegged *
  33.  points.
  34. .Suits = S,H,D,C (Spades,Hearts,Diamonds,Clubs)
  35. 7Ranks = A,2,3,4,5,6,7,8,9,T,J,Q,K  (Ace is A, 10 is T!)
  36. 5Example: 8D (eight of Diamonds) or TH (ten of Hearts)
  37. 'Try again from the start.  Which card? 
  38. What?!  No such card exists.
  39. Which card? 
  40. There is more than one *
  41. Please be more specific:  
  42. Throw which card? [ 
  43. Play which card? [ 
  44. Sorry, that's more than 31
  45. I get a point for His Nibs!
  46. YOU get a point for His Nibs!!
  47. You played a 
  48. You got *s
  49.  points
  50.  for *
  51.     I play a 
  52. I got *s
  53.  points
  54.  for *
  55.     Total is *
  56. You got a point for last card.
  57. I got a point for last card.
  58. :Unless there's a bug in my program, you should have taken *
  59.  points!
  60. I get *
  61. , regardless!
  62. <PRESS ANY KEY TO CONTINUE>
  63. It's my crib.
  64. It's your crib.
  65. Cut which card [1-40] ? 
  66. The UPCARD is 
  67. YOUR HAND --- [ 
  68.  ]  [ 
  69. MY HAND ----- [ 
  70.  ]  [ 
  71. CRIB -------- [ 
  72.  ]  [ 
  73.     I've got *G
  74.  points in my hand
  75. I have *C
  76.  points in my crib
  77. How many points do you have? 
  78.     I've got *G
  79.  in my hand
  80. YOUR HAND --- [ 
  81.  ]  [ 
  82. MY HAND ----- [ 
  83.  ]  [ 
  84. How many points in YOUR hand? 
  85. CRIB -------- [ 
  86.  ]  [ 
  87. How much in the crib? 
  88. G:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  89. G::       W E L C O M E   TO  K I D D I E   K R I B B A G E !         ::
  90. G::                                                                   ::
  91. G:: Adapted from "Cribbage" in APPLE PASCAL GAMES, by Douglas Hergert ::
  92. G:: and Joseph T. Kalash, pages 301-349.  Sybex, 1981.                ::
  93. G::                                                                   ::
  94. G:: TURBO Pascal 2.0, Copyright 1983 by Borland Intl.    1/17/84  DCO ::
  95. G:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  96. >It's you against me, kid!  Whoever pegs 121 points first wins!
  97. < PRESS ANY KEY TO BEGIN >
  98. %Ho Ho!!  I peg out and win this game!
  99. 2You pegged out and won the game!  Congratulations!
  100. Do you want another game? 
  101. OK, see you later!
  102. another game? 
  103.