pipera.label:
print cls$;" P I P E R A   -  kopiert und l|scht die Quelldatei "
print
print fisp$; : input " LW:Quellfile: ";quellfile$
print
print fisp$; : input " LW: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 pipera.eof:
g%=get(1)
for copyby=1 to (qsize*1024)
f%=g%
g%=get(1)
if not eof% then put 2,f%
next
pipera.eof:
eof%=TRUE%
close 2
delete 1
goto menu:
=1 to (qsize*1024)
f%=g%
g%=get(1)
if not eof% then p