prep ftp1s,,e,n
imp11 ftp1s#p
link11
ftp1s#rel
i77perm
.stack 1000
.streams 1
.name ftps
.end
ftp1y
list ftp1y,.fep72
alist11 ftp1s#p/.lp23