'Texteditor COLOR 15, 1 CLS 'Eingabe des Dateinamens PRINT "Gib den Namen der Datei ein!" PRINT "Vorsicht: Falls eine Datei mit demselben Namen bereits vorhanden ist," PRINT "wird sie berschrieben!" COLOR 14 LINE INPUT Datei$ CLS COLOR 15 PRINT "Jetzt Text eingeben! Um das Programm zu beenden, Leerzeile eingeben." COLOR 14 'Eingabe des Texts OPEN Datei$ FOR OUTPUT AS 1 DO LINE INPUT Zeile$ PRINT #1, Zeile$ LOOP UNTIL Zeile$ = "" CLOSE 1