C MODULE: GETCRD C C AUTHOR: MICHAEL BOORSTEIN C C DATE: 11-MAR-78 C C COMMENTS: C C THIS ROUTINE GETS THE MODEL CARD DEFINED IN CARDS.MAC, AND REPLACES C ALL OF THE X'S WITH THE CHARACTER IN WHAT, AND PUTS THE WHOLE C THING IN FULL C C SUBROUTINE GETCRD(WHAT,SUIT,FULL) IMPLICIT INTEGER(A-Z) BYTE WHAT,SUIT,FULL(11,13),C,D,H,S,X BYTE CLUBS,DIMOND,HEARTS,SPADES COMMON/CLUBS/CLUBS(11,13) COMMON/DIMOND/DIMOND(11,13) COMMON/HEARTS/HEARTS(11,13) COMMON/SPADES/SPADES(11,13) DATA X/'X'/ DATA C,D,H,S/'C','D','H','S'/ C C BEGIN EXECUTABLE CODE C CALL CARDS IF(SUIT.EQ.C)GOTO 10 IF(SUIT.EQ.D)GOTO 30 IF(SUIT.EQ.H)GOTO 50 GOTO 70 C C CLUBS C 10 DO 20 J=1,13 DO 20 I=1,11 FULL(I,J)=CLUBS(I,J) 20 IF(FULL(I,J).EQ.X)FULL(I,J)=WHAT RETURN C C DIMOND C 30 DO 40 J=1,13 DO 40 I=1,11 FULL(I,J)=DIMOND(I,J) 40 IF(FULL(I,J).EQ.X)FULL(I,J)=WHAT RETURN C C HEARTS C 50 DO 60 J=1,13 DO 60 I=1,11 FULL(I,J)=HEARTS(I,J) 60 IF(FULL(I,J).EQ.X)FULL(I,J)=WHAT RETURN C C SPADES C 70 DO 80 J=1,13 DO 80 I=1,11 FULL(I,J)=SPADES(I,J) 80 IF(FULL(I,J).EQ.X)FULL(I,J)=WHAT RETURN END