C POSCK.FTN C C A SUBROUTINE TO MAKE SURE THE CURSOR IS IN A VALID POSITION IN C THE PROGRAM LABIN C SUBROUTINE POSCK(OLDX,OLDY,X,Y, NLIST) INTEGER LENGTH(9) ! LENGTH OF EACH LINE INTEGER MINX(2) ! MINIMUM X FOR EACH LINE TYPE INTEGER LTYPE ! LINE TYPE (1 OR 2) INTEGER OLDX,OLDY,X,Y,MAXY DATA MINX/5,30/ DATA LENGTH/70,5,2,2,1,1,1,1,1/ MAXY=NLIST+5 IF(MAXY.GT.9)MAXY=9 IF(Y.LT.1)Y=1 IF(Y.GT.MAXY)Y=MAXY LTYPE=1 ! DEFAULT LINE TYPE IF(Y.GT.1)LTYPE=2 IF(X.LT.MINX(LTYPE))X=MINX(LTYPE) J=MINX(LTYPE)+LENGTH(Y)-1 ! MAX X POSITION IF(X.GT.J)X=J CALL DELX(X-OLDX) CALL DELY(Y-OLDY) RETURN END