C DELX.FTN C C A SUBROUTINE TO MOVE THE CURSOR REQUIRED SPACES TO THE LEFT OR C RIGHT. C SUBROUTINE DELX(I) IF(I.EQ.0)GO TO 200 IF(I.LT.0)GO TO 150 100 CALL RITE ! MOVE CURSOR TO RIGHT I=I-1 IF(I.GT.0)GO TO 100 GO TO 200 150 CALL LEFT I=I+1 IF(I.LT.0)GO TO 150 200 RETURN END C C C SUBROUTINE DELY(I) IF(I.EQ.0)GO TO 200 IF(I.LT.0)GO TO 150 100 CALL CDN ! MOVE DOWN ONE AS Y INCREASES I=I-1 IF(I.GT.0)GO TO 100 GO TO 200 150 CALL CUP ! MOVE UP ONE I=I+1 IF(I.LT.0)GO TO 150 200 RETURN END