AppendDir/w=Lof Assign=EofMkdir Close=ExistOpen In =Dev First$FieldOpen Out =Dev Next$=Fsel$Open Random =DfreeGetParent =Dir$Input#=Pof =Dir First$=Input$Print# =Dir Next$KillPut =Disc Info$LdirRename =DriveLdir/wSet Dir DirLine Input#Set Input