C CLRFST C C MICHAEL BOORSTEIN C C DATE 13-MAR-78 C C SUBROUTINE CLRFST IMPLICIT INTEGER(A-Z) BYTE ESC,Y,LINE,COLUMN,K DATA ESC,Y,K/"33,'Y','K'/ C C BEGIN C LINE="40+12 COLUMN="40+58 DO 10 J=1,5 LINE=LINE+1 10 TYPE 100,ESC,Y,LINE,COLUMN,ESC,K 100 FORMAT(X,6A1) RETURN END