copy.label:
print cls$;" C O P Y   -  Kopierprogramm "
print
print fisp$; : input " Quellfile: ";quellfile$
print
print fisp$; : input " Zielfile:  ";zielfile$
print
quellfile$=ucase$(quellfile$) : zielfile$=ucase$(zielfile$)
qsize=size(quellfile$) : zsize=size(zielfile$)
if zsize<>0 then jerr$="FE" : goto error.label:
open quellfile$ AS 1
create zielfile$ AS 2
if end #1 then copy.eof:
g%=get(1)
for copyby=1 to (qsize*1024)
f%=g%
g%=get(1)
if not eof% then put 2,f%
next
copy.eof:
eof%=TRUE%
close 1,2
goto menu:
for copyby=1 to (qsize*1024)
f%=g%
g%=get(1)
if not eof% then put 2,f%
next
copy.eof:
eof%=TR