C CURSOR HOME SUBROUTINE SUBROUTINE HOME 10 IF(ITTOUR("233).NE.0)GO TO 10 20 IF(ITTOUR("110).NE.0)GO TO 20 RETURN END C ERASE EOL/EOS SUBROUTINE SUBROUTINE ERASE(K) 10 IF(ITTOUR("233).NE.0)GO TO 10 20 IF(ITTOUR(K).NE.0)GO TO 20 RETURN END C CURSOR POSITIONING SUBROUTINE SUBROUTINE CURFOR(COL,LIN) LOGICAL*1 C1,L1,COL,LIN C1=COL+32 L1=LIN+32 10 IF(ITTOUR("233).NE.0)GO TO 10 20 IF(ITTOUR("131).NE.0)GO TO 20 30 IF(ITTOUR(L1).NE.0)GO TO 30 40 IF(ITTOUR(C1).NE.0)GO TO 40 RETURN END