XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Editor programmieren
declare ebox&,datei$,zeile$
cls
ClearList
datei$ = LoadFile$(Textdatei wählen,Programme|*.EXE;*.PRF;*.INC;*.PH;*.PROFAN;*.TXT)

if datei$ =

    end

endif

ClearList
assign #1,datei$
reset #1

whilenot eof(#1)

    input #1,zeile$
    Addstring zeile$

endwhile

close #1
ebox& = EditBox(Demo-Code,1)

if %Button = 1

    Messagebox(Die Datei
    + lower$(datei$) +
    könnte jetzt gespeichert werden!,I N F O,4160)

endif

end