ô > ROMToDisk : src$="ROM" (dest$="DISK" 2+ç <&E00:ñ"Must run in I/O processor":à <%max%=“-’-400:Þ mem% max%:last$="" F õ:ÿ src$ Põ Zin%=Ž(""):òfn dç last$<>"":Ù#in% ný last$="" „ fn$=last$ xin%=Ž(""):òfn ‚len%=0:ld%=!&3BE:ex%=!&3C2 Œñ fn$,~ld%,~ex%; –+õ ç ¬ Å#in%:mem%?len%=š#in%:len%=len%+1  -ý Å#in% „ len%>max%:Ù#in%:ñ~len%;:ÿ dest$ ª%A%=Áfn$,2,1)=".":fn$=Àfn$,7-2*A%) ´fç len%