home *** CD-ROM | disk | FTP | other *** search
/ 1,000 Games / Disc2.iso / CARD / CARDWS17 / INC / DECK.CDH next >
Encoding:
Text File  |  1994-02-06  |  252 b   |  17 lines
  1. #ifndef cwsdeck
  2. #define cwsdeck
  3.  
  4. stack procedure OneDeckDown is
  5. begin
  6.   Add Ace+Spade .. King+Diamond;
  7.   Turn [1..!] side down;
  8.   Shuffle;
  9. end;
  10.  
  11. stack procedure OneDeckUp is
  12. begin
  13.   Add Ace+Spade .. king+Diamond;
  14.   Shuffle;
  15. end;
  16.  
  17. #endif