XProfan

Declarar OrtName$,Fueller$,CompSize!,MaxSize&,GBytes!,Buff#,DAL&
Cls
Localizar 2,2
Imprimir MBytes (Enter = 64 MB): ;
Entrada MaxSize&
Localizar 3,2
Imprimir Dateiname (Enter = C:Temp.fll): ;
Entrada OrtName$
Localizar 4,2
Imprimir Fuellzeichen  (Enter = Chr$(0)): ;
Entrada Fueller$
Localizar 5,2
Imprimir Fuelldatei en el Anschlu�	 l”schen? ([J]a / [N]una): ;

Mientras que 1

    WaitKey

    If ((%Key = 74) | (%Key = 106))

        Imprimir Sí
        DAL& = 1
        Romper

    ElseIf ((%Key = 78) | (%Key = 110))

        Imprimir Nein
        DAL& = 0
        Romper

    ElseIf (%Key = 27)

        Imprimir Abbruch
        Sleep 2000
        Cls
        End

    EndIf

EndWhile

Sleep 1000
Case ((MaxSize& < 1) | (MaxSize& > 2046)): MaxSize& = 64
Case ((Len(OrtName$) < 4) | (Len(OrtName$) > 260)): OrtName$ = C:Temp.fll
Case (Len(Fueller$) < 1): Fueller$ = Chr$(0)
Case (Len(Fueller$) > 1): Fueller$ = Left$(Fueller$,1)
CompSize! = (MaxSize& * 1048576)
Cls
Sleep 100
Localizar 2,2
Imprimir Starte...
Sleep 100
Dim Buff#,16386

WhileLoop 0,16384

    String Buff#,&Loop = Fueller$

EndWhile

Asignar #1,OrtName$
OpenRW #1

Sinestar encargado (GBytes! > (CompSize! - 16380))

    BlockWrite #1,Buff#,0,16384
    GBytes! = (GBytes! + 16384)

EndWhile

CloseRW #1
Asignar #1,
Disponer Buff#
Cls
Localizar 2,2
Imprimir ( Geschrieben:  + Str$(Int(GBytes! / 1024)) +  kB)
Localizar 3,2
Imprimir ( FileSize   :  + Str$(Int(FileSize(OrtName$) / 1024)) +  kB)

If DAL&

    Asignar #1,OrtName$
    Borrar #1
    Asignar #1,

EndIf

End