INTEGER FUNCTION GETLIN(LINE, F)
      INTEGER LINE(132), C, GETCH
      INTEGER F
      GETLIN = 0
23000 IF(.NOT.(GETCH(C, F) .NE. 10003))GOTO 23002
      IF(.NOT.(C .EQ. 0))GOTO 23003
      GOTO 23002
23003 CONTINUE
      IF(.NOT.(GETLIN .LT. 132 - 1))GOTO 23005
      GETLIN = GETLIN + 1
      LINE(GETLIN) = C
23005 CONTINUE
      IF(.NOT.(C .EQ. 10 .OR. C .EQ. 12))GOTO 23007
      GOTO 23002
23007 CONTINUE
23001 GOTO 23000
23002 CONTINUE
      LINE(GETLIN+1) = 10002
      IF(.NOT.(GETLIN .EQ. 0 .AND. C .EQ. 10003))GOTO 23009
      GETLIN = 10003
23009 CONTINUE
      RETURN
      END