C HOSTOT C C WRITTEN BY MICHAEL BOORSTEIN C C MARCH 11,1978 C C SUBROUTINE HOSTOT(TOTAL) IMPLICIT INTEGER(A-Z) BYTE ESC,Y,LINE,COLUMN DATA ESC,Y/"33,'Y'/ C C BEGIN C LINE="40+18 COLUMN="40+58 TYPE 100,ESC,Y,LINE,COLUMN,TOTAL 100 FORMAT(X,4A1,'DEALER TOTAL=',I2) RETURN END