ф > TapeToDisk : dest$="DISK" (*зђ<&E00:с"Must run in I/O processor":а 2max%=“-’-400:Ю mem% max% <х:*TAPE F(in%=Ћ(""):len%=0:ld%=!&3BE:ex%=!&3C2 P.?&3BE=13:fn$=$&3B2+Ѕ0:fn$=Аfn$,§fn$,Ѕ0)-1) Zсfn$,~ld%,~ex%; d(хз¬Е#in%:mem%?len%=љ#in%:len%=len%+1 n*эЕ#in%„len%>max%:Щ#in%:с~len%;:я dest$ x%A%=Бfn$,2,1)=".":fn$=Аfn$,7-2*A%) ‚eзlen%