C GTNEXT C C MICHAEL BOORSTEIN C C DATE MARCH 11,1978 C C SUBROUTINE GTNEXT(WORTH,WHAT,SUIT) IMPLICIT INTEGER(A-Z) DIMENSION DIFVAL(13) BYTE WHAT,SUIT COMMON/DECK/DECK(52) COMMON/NUMLFT/NUMLFT COMMON/CARD/CARD DATA DIFVAL/1,2,3,4,5,6,7,8,9,10,10,10,10/ C C BEGIN C 10 CARD=CARD+1 NUMLFT=NUMLFT-1 CALL WCHCRD(WHAT,SUIT,DECK(CARD)) TEMP=(DECK(CARD)-1)/13 WORTH=DIFVAL(DECK(CARD)-(TEMP*13)) RETURN END