;  Die Funktion listet eine Ascii Datei am Schirm.
;  Aufruf:  (fprint "Dateiname.ext")
         
(defun fprint (s / c i)
   (setq i (open s "r"))               ; Datei fuer lesen oeffnen
   (if i
      (progn
         (while (setq c (read-line i)) ; eine Zeile aus der Datei lesen
            (princ c)                  ; und am Schirm anzeigen
            (princ "\n")
         )
         (close i)                     ; Datei schliesen
      )
      (princ (strcat "Kann Datei nicht oeffnen  " s))
   )
   (princ)
)