XProfan

Declare OrtName$,Fueller$,CompSize!,MaxSize&,GBytes!,Buff#,DAL&
Cls
Locate 2,2
Print MBytes (Enter = 64 MB): ;
Input MaxSize&
Locate 3,2
Print Dateiname (Enter = C:Temp.fll): ;
Input OrtName$
Locate 4,2
Print Fuellzeichen  (Enter = Chr$(0)): ;
Input Fueller$
Locate 5,2
Print Fuelldatei in the CONNECTION�	 l”schen? ([J]a / [n]one): ;

While 1

    WaitKey

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

        Print Yes
        DAL& = 1
        Break

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

        Print No
        DAL& = 0
        Break

    ElseIf (%Key = 27)

        Print discontinue
        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
Locate 2,2
Print Starte...
Sleep 100
Dim Buff#,16386

WhileLoop 0,16384

    String Buff#,&Loop = Fueller$

EndWhile

Assign #1,OrtName$
OpenRW #1

WhileNot (GBytes! > (CompSize! - 16380))

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

EndWhile

CloseRW #1
Assign #1,
Dispose Buff#
Cls
Locate 2,2
Print ( written:  + Str $(Int(GBytes! / 1024)) +  kB)
Locate 3,2
Print ( FileSize   :  + Str $(Int(FileSize(OrtName$) / 1024)) +  kB)

If DAL&

    Assign #1,OrtName$
    Erase #1
    Assign #1,

EndIf

End