C MODULE: CLRCRD C C AUTHOR: MICHAEL BOORSTEIN C C DATE: 11-MAR-78 C C COMMENTS: C C THIS ROUTINE CLEARS THE TOP 13 ROWS OF THE CRT C C SUBROUTINE CLRCRD IMPLICIT INTEGER(A-Z) BYTE ESC,K,Y,LINE,COLUMN DATA ESC,K,Y/"33,'K','Y'/ C C BEGIN EXECUTABLE CODE C COLUMN="40 DO 10 ROW=1,13 LINE=ROW-1+"40 10 TYPE 100,ESC,Y,LINE,COLUMN,ESC,K 100 FORMAT(X,6A1) RETURN END