ñ "Read dodgy disk" #è "File to copy from to @: "in$ 5è "Buffer size (1024): "size%:çsize%=0:size%=1024 (6è "Number of tries (5): "tries%:çtries%=0:tries%=5 2: <0out$=in$:õA%=§out$,"."):çA%:out$=Áout$,A%+1) F ýA%=0 P,in%=Ž(in$):çin%=0:ñ"'"in$"' not found":à Zext%=¢#in%:out%=®(out$) d%Þ mem% size%-1:ptr%=0:try%=tries% n î … òerr xõ ‚&Ï#in%=ptr%:Ï#out%=ptr%:try%=try%-1 Œñ ½13;ptr%1024;"K"; –1ã A%=0 ¸ size%-1:ç ¬Å#in%:mem%?A%=š#in%:í ‹ í  8ã A%=0 ¸ size%-1:ç ptr%+A%