C TRACK C C MICHAEL BOORSTEIN C C C MARCH 13,1978 C SUBROUTINE TRACK(WHAT,SUIT,LOW,HIGH,NUMCRD) IMPLICIT INTEGER(A-Z) BYTE ESC,Y,LINE,COLUMN,WHAT,SUIT,K DATA ESC,Y,K/"33,'Y','K'/ C C BEGIN C LINE="40+18 IF(NUMCRD.NE.0)GOTO 10 COLUMN="40 TYPE 100,ESC,Y,LINE,COLUMN,ESC,K LINE=LINE+1 TYPE 100,ESC,Y,LINE,COLUMN,ESC,K 100 FORMAT(X,6A1) RETURN C C TRACK IT C C 10 COLUMN="40+((NUMCRD-1)*3) TYPE 200,ESC,Y,LINE,COLUMN,ESC,K,ESC,Y,LINE,COLUMN,WHAT,SUIT 200 FORMAT(X,12A1) LINE=LINE+1 COLUMN="40 IF(LOW.EQ.HIGH)GOTO 20 TYPE 300,ESC,Y,LINE,COLUMN,ESC,K,ESC,Y,LINE,COLUMN,HIGH,LOW 300 FORMAT(X,10A1,' TOTAL=',I2,' OR ',I2) RETURN 20 TYPE 400,ESC,Y,LINE,COLUMN,ESC,K,ESC,Y,LINE,COLUMN,HIGH 400 FORMAT(X,10A1,' TOTAL=',I2) RETURN END