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