C CLRSCN C C MICHAEL BOORSTEIN C C MARCH 11,1978 C C SUBROUTINE CLRSCN IMPLICIT INTEGER(A-Z) BYTE ESC,H,J DATA ESC,H,J/"33,'H','J'/ C C BEGIN C TYPE 100,ESC,H,ESC,J 100 FORMAT(X,4A1) RETURN END