(DEFPROP FEDF
 (FEDF READFILELINE FED)
VALUE)

(DEFPROP READFILELINE
 (LAMBDA NIL
  (PROG	(L C)
	(COND ((ATOM (ERRSET (INC T NIL) NIL)) (RETURN (QUOTE EOF))))
   A	(SETQ C (ERRSET (READCH) NIL))
	(COND ((ATOM C) (COND ((NULL L) (RETURN (QUOTE EOF))) (T (RETURN L))))
	      ((EQ (CAR C) (QUOTE /
)) (ERRSET (TYI) T) (INC NIL NIL) (RETURN L))
	      (T (SETQ L (NCONC L C))))
	(GO A)))
EXPR)

(DEFPROP FED
 (LAMBDA NIL
  (PROG	(LINE C)
	(SETQ LINE (READFILELINE))
	(COND ((EQ LINE (QUOTE EOF)) (RETURN NIL)))
	(OUTPUT NIL NIL)
	(MAPC (FUNCTION PRINC) LINE)
	(TERPRI)
	(OUTC T NIL)
	(COND ((NULL LINE) (TERPRI)))
   B	(SETQ C (TYI))
	(COND (NIL))))
EXPR)