C MODULE: WCHCRD C C AUTHOR: MICHAEL BOORSTEIN C C DATE: 11-MAR-78 C C COMMENTS: C C THIS ROUTINE TAKES VAL, AND FIGURES OUT WHICH CARD IT WAS, AND RETURNS C IT IN WHAT, AND SUIT C SUBROUTINE WCHCRD(WHAT,SUIT,VAL) IMPLICIT INTEGER(A-Z) BYTE DIFTYP(4),DIFVAL(13) BYTE WHAT,SUIT DATA DIFTYP/'C','D','H','S'/ DATA DIFVAL/'A','2','3','4','5','6','7','8','9','T','J','Q','K'/ C C BEGIN EXECUTABLE CODE C TEMP=(VAL-1)/13 SUIT=DIFTYP(TEMP+1) WHAT=DIFVAL(VAL-(TEMP*13)) RETURN END