ô > TapeToDisk : *ç<&E00:ñ"Must run in I/O processor":à (max%=“-’-400:Þ mem% max% 2 õ:*TAPE <(in%=Ž(""):len%=0:ld%=!&3BE:ex%=!&3C2 F.?&3BE=13:fn$=$&3B2+½0:fn$=Àfn$,§fn$,½0)-1) Pñfn$,~ld%,~ex%; Z(õç¬Å#in%:mem%?len%=š#in%:len%=len%+1 d(ýÅ#in%„len%>max%:Ù#in%:ñ~len%;:*DISK n%A%=Áfn$,2,1)=".":fn$=Àfn$,7-2*A%) xeçlen%