new
PREP ftppd_source,FTP#IMP,x,CLEAN,b
DIMP11 ftp#imp
LINK11 /FTP
FTP
.STACK 3000
.STREAMS 2
.NAME FTPQ
.stackseg 6
.END
FTP
destroy ftpqy
rename ftp#abs,ftpqy
old