SUBROUTINE VTELIN(IARG,LINE) C C FUNCTION: ERASE ALL OR PART OF A LINE DEPENDING ON THE VALUE OF C IARG: C IARG FUNCTION C 0 ERASE FORM THE ACTIVE POSTION TO THE C END OF THE LINE, INCLUSIVE C 1 ERASE FROM START OF THE LINE TO THE C ACTIVE POSITION, INCLUSIVE C 2 ERASE ALL OF THE LINE INCLUSIVE C C NOTE: 1) THE ARGUMENT LINE (INDICATING THE LINE TO BE CLEARED) IS VALID C ONLY FOR IARG=2, THE CURSOR WILL REMAIN IN THE ORIGINAL C POSITION C 2) THE ROUTINE WILL EFFECT THE LINE THAT THE CURSOR IS ON WHEN C THE VTELIN CALL WAS MADE FOR IARG OF 0 OR 1. C BYTE CHAR(5) DATA CHAR/27,'[',0,'K',0/ IF ((IARG.LT.0) .OR. (IARG.GT.2))RETURN IF (IARG .EQ. 2)GOTO 100 CHAR(3)=IARG+"60 CALL OUTSTR(CHAR) RETURN 100 CALL VTGCUR(IROW,ICOL) CALL VTMCUR(LINE,1) CHAR(3)='2' CALL OUTSTR(CHAR) CALL VTMCUR(IROW,ICOL) RETURN END SUBROUTINE VT52 C C THE PURPOSE OF THE IS ROUTINE IS TO PUT THE SCOPE IN VT52 MODE C BYTE CHAR(6) DATA CHAR/27,'[','?','2','l',0/ CALL OUTSTR(CHAR) RETURN END SUBROUTINE VT100 C C SET THE SCOPE IN VT100 ANSI MODE C BYTE CHAR(4) DATA CHAR/27,'<',0,0/ CALL OUTSTR(CHAR) RETURN END