> SSDtoDSD 1.13  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 2' v1.11 - initial try at 80+ tracks () -spt -[0|1] -v":exit(0) n7same%=:spt%=10:vb%=: ctrl% 31:X%=ctrl%:Y%=X%256 xBA$="":"Input file: "in$:"Output file: "out$:A$=in$+" "+out$ 0A%=A$+" "," "):in$=A$,A%-1):out$=A$,A%+1) &A%=out$+" "," "):out$=out$,A%-1) .A%=A$," -s"):A%:spt%=A$,A$," ",A%+1)) >vb%=A$," -v")<>0:s0%=-(A$," -1")<>0):s1%=-(A$," -0")=0) out$=""out$="""""":same%= )same%:os%=6:out$="/ssd" )same%:os%=8:out$="$temp$/scrap.ssd" _same%:os%=32: B% 255:ș "ExpandEnvironmentStrings","%TMP%",B%,255:out$=$$B%+"\scrap.ssd" / Close_All:Hour_Glass(-3):::exit() :in%=(in$):in%=0:"File '"in$"' not found":exit(214) /tracks%=((#in%+(256*spt%-1)) (256*spt%)) =s0%=1:tracks%=tracks%-80 s0%=0:tracks%>80:tracks%=80 Itracks%<1 #in%<256:#in%:in%=0:"Input file too short":exit(200) Gout%=(out$):out%=0:"Can't open '"out$"'.":#in%:in%=0:exit(192) : / mem% spt%*256-1:side%=s0%:Hour_Glass(-1) ":track%=0 ,':Hour_Glass(100*track% tracks%) 6%vb%:13;side%;":";track%;":00"; @=tracks% #in%:side%=side%+1 ^side%>s1% #in% h4#out%:out%=0:#in%:in%=0:Hour_Glass(-2):vb%: r8os%<32:"SetType "+out$+" "+~(&B22-&4AC*(spt%=16)) |Csame%:"Copy "+out$+" "+in$+" ~A~CDF~L~N~P~Q~RS~T~V",os%<>32)  exit(0) : Close_All "in%=in%:in%:A%=in%:in%=0:#A% 'out%=out%:out%:A%=out%:out%=0:#A%  : #gbpb(A%,chn%,addr%,num%,ptr%) =?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:os%<32: &FFD1: A%=1A%=3:#?X%=X%!9 5:A%=1A%=2:#?X%,?X%!1 A%=3A%=4:?X%!1=#?X% 4X%!1=X%!1+1:X%!5=X%!5-1:(#?X% A%>2)X%!5<1: : Hour_Glass(A%):os%<>6: A%=-1:ș"Hourglass_On": A%=-2:ș"Hourglass_Off": & A%=-3:ș"Hourglass_Smash": 0 ș "Hourglass_Percentage",A% : D: N:ݤOS_GetEnv:A$,A%,X%,Y%:X%=1:os%=((&FFF4)&FF00)256 XMos%>31:>&FFFFF:X%256:ș"GetModuleFileName",0,X%,255:run$=$$X%:=@cmd$ b\A%=(>&FFFF)&900:?(P-3):A%=((>&9FFF)A%)((&1400-)(A%=0))A%=((A%-&500)&200)&FFF liA$=$(-&E00+A%):A%=0:run$=A$:ș16A$,,A%:ș72,"",A%:A$=A$,1+A$+" "," ",1+A$," "))):A$=0:A$=run$ v*Y%=-10:A$=" "+A$:A$=A$,2):A$<>32 5Y%:A$=34:A%=A$,"""",2)+1 Y%:A%=A$+" "," ") CY%:run$=A$,1-(A$=34),A%-1+2*(A$=34)):run$<>"":A$=A$,A%+1)  :=A$ : 0exit(A%):"FX1,"+(A%255):>&FFFFF:Ș A% os%<6: *Quit  : Win_TextIO ,ș"GetStdHandle",-10@hfile%(1):*INPUT 1 -ș"GetStdHandle",-11@hfile%(2):*OUTPUT 2 #ș"SetConsoleMode",@hfile%(1),0