XProfan

Déclarer OrtName$,Fueller$,CompSize!,MaxSize&,GBytes!,Buff#,DAL&
Cls
Localiser 2,2
Imprimer MBytes (Enter = 64 MB): ;
Contribution MaxSize&
Localiser 3,2
Imprimer Dateiname (Enter = C:Temp.fll): ;
Contribution OrtName$
Localiser 4,2
Imprimer Fuellzeichen  (Enter = Chr$(0)): ;
Contribution Fueller$
Localiser 5,2
Imprimer Fuelldatei im Anschlu�	 l”schen? ([J]a / [N]un): ;

Tandis que 1

    WaitKey

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

        Imprimer oui
        DAL& = 1
        Pause

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

        Imprimer non
        DAL& = 0
        Pause

    ElseIf (%Key = 27)

        Imprimer Abbruch
        Sleep 2000
        Cls
        Fin

    EndIf

Endwhile

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

WhileLoop 0,16384

    String Buff#,&Boucle = 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
Localiser 2,2
Imprimer ( Geschrieben:  + Str$(Int(GBytes! / 1024)) +  kB)
Localiser 3,2
Imprimer ( FileSize   :  + Str$(Int(FileSize(OrtName$) / 1024)) +  kB)

Si DAL&

    Assign #1,OrtName$
    Effacer #1
    Assign #1,

EndIf

Fin