prep fep_ftp1s,ftp1s#imp,r,e,i,clean
dimp11 ftp1s#imp
link11 /ftp1s
ftp1s
.stack 1400
.streams 1
.name ftps
.stackseg 6
.end
ftp1s
destroy ftp1ey
rename ftp1s#abs,ftp1ey