home *** CD-ROM | disk | FTP | other *** search
/ The Complete Encyclopedia of Games 3 / GAMES1000V3_d2.iso / card / cardws17 / inc / sequence.cdh < prev    next >
Text File  |  1994-02-06  |  308b  |  20 lines
  1. #ifndef cwssequence
  2. #define cwssequence
  3.  
  4. #include 'predicate.cdh'
  5.  
  6. stack predicate KingToAceSuit? is
  7. var i : integer;
  8. begin
  9.   if !<13 then return FALSE;
  10.   i:=13;
  11.   while i>1 do
  12.     begin
  13.     if not FollowSuit?([i-1],[i]) then return FALSE;
  14.     i:=i-1;
  15.     end;
  16.   return TRUE;
  17. end;
  18.  
  19. #endif
  20.