'****************************************************************************
'
'   FileCopy direkt in PowerBASIC 3.0/3.2

'   entwickelt von / developed by   :  Thomas Gohel
'                           Fido    :  Thomas Gohel@2:2410/330.1
'                           InterNet:  author@pbsound.snafu.de
'                           Homepage:  http://www.snafu.de/~pbsound/
'
'****************************************************************************


CLS
BCopy("C:\COMMAND.COM"),("C:\TEMP\COMMAND.COM")
PRINT "Fertig"

FUNCTION BCopy(Quelldatei$, ZielDatei$)
        PRINT "Kopiere: "; Quelldatei$; "  nach  ";Zieldatei$
        Zeiger& = 0
        QuellHandle% = FREEFILE
        OPEN QuellDatei$ FOR BINARY AS QuellHandle%
	ZielHandle% = FREEFILE
	OPEN ZielDatei$ FOR BINARY AS ZielHandle%
	DO WHILE NOT EOF(QuellHandle%)
	    GET$ QuellHandle%, 512, Copy$
	    PUT$ Zielhandle%, Copy$
            LOCATE ,1: PRINT "Status:";Zeiger&; "Bytes wurden bereits kopiert";
            Zeiger& = Zeiger& + 512
	LOOP
        PRINT
	CLOSE QuellHandle%
	CLOSE ZielHandle%
END FUNCTION