SUBROUTINE CLRSCR C*********************************************************************** C C Author: Nick Bourgeois Version: 90k13a C 9605 Giddings Ave. NE C Albuquerque, NM 87109 C (505) 828-9566 C C C Description: C C Deliver an escape sequence to clear the screen of a VT100 type C terminal. C C C Edit Record: C C 17-Oct-90: Original creation started. C 31-Oct-90: Original creation completed. C 13-Nov-90: Module taken from TAPEDR suite. C C C Calling sequence: C C CALL CLRSCR C C C Called By: C C SVSTDR C C C Routines Called: C C PRINT C C*********************************************************************** BYTE EscSeq(10) !Escape sequence, $<$[2J$[H. DATA EscSeq * /27,60, !Enter ANSI mode. * 27,91,50,74, !Erase entire screen. * 27,91,72, !Cursor home. * 0/ !Null byte termination. CALL PRINT (EscSeq) !Use SYSLIB because F77 can't ! handle escape sequences. RETURN END !CLRSCR.FOR.