C MODULE: PNTCRD C C AUTHOR: MICHAEL BOORSTEIN C C DATE: 11-MAR-78 C C COMMENTS: C C THIS MODULE PRINTS OUT THE CARD IN FULL IN THE CORRECT PLACE. C C SUBROUTINE PNTCRD(WHAT,SUIT,NUM) IMPLICIT INTEGER(A-Z) BYTE Y,WHAT,SUIT,CARD(11,13) BYTE COLUMN,LINE BYTE ESC DATA ESC,Y/"33,'Y'/ C C BEGIN EXECUTABLE CODE C CALL GETCRD(WHAT,SUIT,CARD) C C NOW PRINT OUT THE CARD COLUMN=((NUM-1)*8)+"40 C DO 10 ROW=1,13 LINE=ROW-1+"40 TYPE 200,ESC,Y,LINE,COLUMN,(CARD(I,ROW),I=1,11) 200 FORMAT(X,4A1,11A1) 10 CONTINUE RETURN END