XProfan

(c) Frank Abbing
Declare fuellbyte&,bereich#,laenge&
DEF FillMemory(3) !"KERNEL32","RtlFillMemory"
Cls
Let laenge&=5000000   Größe des Bereichs
Let fuellbyte&=123    zu füllendes Byte (0-255)
Dim bereich#,laenge&
FillMemory(bereich#,laenge&,fuellbyte&)
Print "Fertig!"
Print Str$(laenge&);" mal wurde der Wert ";Str$(fuellbyte&)
Print "in einen Speicherbereich geschrieben..."
WaitInput
Dispose bereich#