neue Folder LAYOUT MENU und MODULE dazu

2025-04-14 16:56:58 +02:00
parent e6e1705f0d
commit 35f7b2d75e
935 changed files with 803964 additions and 0 deletions
@@ -0,0 +1,18 @@
+;  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)
+)
+