integer function getlin(line, f)
character*(*) line
integer f
character c, getch
integer*2 pos
pos = 0
23000 if(.not.(getch(c,f).ne.char(-1)))goto 23002
if(.not.(pos .lt. len(line)))goto 23003
pos = pos + 1
line(pos:pos) = c
23003 continue
if(.not.(c .eq. '\n'))goto 23005
goto 23002
23005 continue
goto 23000
23002 continue
if(.not.(pos .eq. 0 .and. c .eq. char(-1)))goto 23007
pos = ichar(char(-1))
23007 continue
getlin = (pos)
return
end