home *** CD-ROM | disk | FTP | other *** search
/ 1,000 Games / Disc2.iso / CARD / CARDWS17 / INC / STACK.CDH < prev    next >
Encoding:
Text File  |  1994-02-06  |  584 b   |  32 lines
  1. #ifndef cwsstack
  2. #define cwsstack
  3.  
  4. stack procedure MoveFirstFrom(c1 : card; src : stack) is
  5. var i : integer;
  6. begin
  7.   i:=1;
  8.   while i<=src! do
  9.     if (src[i] mod 13)=c1 then 
  10.       begin
  11.       Move src[i] to [!+1];
  12.       Turn [!] side up;
  13.       Draw src;
  14.       break;
  15.       end
  16.     else i:=i+1;
  17. end;
  18.  
  19. stack procedure MoveAllFrom(c1 : card; src : stack) is
  20. var i,j : integer;
  21. begin
  22.   i:=1;
  23.   j:=!+1;
  24.   while i<=src! do
  25.     if (src[i] mod 13)=c1 then 
  26.       Move src[i] to [!+1]
  27.     else i:=i+1;
  28.   if j<=! then Turn [j..!] side up;
  29.   Draw src;
  30. end;
  31.  
  32. #endif