> SSDtoDSD 1.11  Convert disk images 8 From 0:0..0:79,1:0..1:79 to 0:0..0:9,1:0..1:9,etc. ) v1.10 - does whole tracks at a time ' v1.11 - initial try at 80+ tracks ș "OS_GetEnv" A$ ,A$=A$,1+A$," ",1+A$," ",1+A$," ")))) 0A%=A$+" "," "):in$=A$,A%-1):out$=A$,A%+1)  out$="":in$="" in$="" :"Input file: "in$ " out$="":"Output file: "out$ 5same%=: out$="":out$=".DSS":same%=  Close: : ,$:  mem% 10*256 in%=(in$) out%=(out$) ș "Hourglass_On" tracks%=(#in% 5120)  track%=0   side%=0   sector%=0 2 ș "Hourglass_Percentage",100*#in% #in% / #out%=(sector%+side%*10+track%*20)*256 8 track%<80:#in% =(sector%+track%*10+side%*800)*256 @ track%>79:#in% =(800+(track%-80)*20+side%*10+sector%)*256 + 13;side%;":";track%;":";sector%;  FOR byte%=0 TO 256*10-1 - IF NOT EOF#in%:mem%?byte%=BGET#in%  NEXT byte% (ș "OS_GBPB",4,in%,mem%,256*10,#in% ! FOR byte%=0 TO 256*10-1 " BPUT#out%,mem%?byte% # NEXT byte% $*ș "OS_GBPB",2,out%,mem%,256*10,#out% % side%=side%+1 & side%>1 #in% ' track%=track%+1 ( track%>=tracks% )#out%:out%=0 *#in%:in%=0 + ,ș "Hourglass_Off" -: same%:"Copy "+out$+" "+in$+" ~A~CDF~L~N~P~Q~RS~T~V" . /: 0 Close 1ș "Hourglass_Smash" 2#in%=in%: in%:A%=in%:in%=0:#A% 3(out%=out%: out%:A%=out%:out%=0:#A% 4