> FUNCTION line_input$(channel&,ignore!)                  ! 1.1 010503
  ' --------------------
  ' Hole Zeile aus Datei
  ' --------------------
  '
  LOCAL q$,zeile$,size&
  '
  IF NOT @eof(channel&)
    LINE INPUT #channel&;q$
    zeile$=q$
    ' Max. Rckgabegr”že: 32765 Zeichen (0-128 254er Bl”cke)
    size&=128
    ' Zeile zu lang (genau 254 Zeichen)
    WHILE LEN(q$)=254
      EXIT IF @eof(channel&)
      IF size&=FALSE
        EXIT IF ignore!=FALSE
        RELSEEK #channel&,-1
        LINE INPUT #channel&,q$
      ELSE
        RELSEEK #channel&,-1
        LINE INPUT #channel&,q$
        zeile$=zeile$+q$
        DEC size&
      ENDIF
    WEND
  ENDIF
  '
  RETURN zeile$
ENDFUNC

> FUNCTION eof(channel&)
  $F%
  RETURN (LOC(#channel&)>=LOF(#channel&))
ENDFUNC