> DSDtoDSS 1.13  Convert disk images 8 From 0:0..0:9,1:0..1:9,etc. to 0:0..0:79,1:0..1:79 () v1.10 - does whole tracks at a time 2' v1.11 - initial try at 80+ tracks () -spt -[0|1|2] -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%=0:s1%=1 Ds2%=(A$," -2")<>0)1:s1%=(A$," -0")=0)1:s0%=(A$," -1")<>0)1 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" 0 Close_All:Hour_Glass(-3):::exit() :in%=(in$):in%=0:"File '"in$"' not found":exit(214) 3tracks%=((#in%+(256*2*spt%-1)) (256*2*spt%)) Qext%=out$+1:os%>31:A%=ext%::A%=A%-1:out$,A%,1)="." A%<0:A%>=0:ext%=A%  openout : - mem% 256*spt%:side%=s0%:Hour_Glass(-1) "3:track%=0:s2%:side%=1:#out%:out%=0:openout ,':Hour_Glass(100*track% tracks%) 6%vb%:13;side%;":";track%;":00"; @;gbpb(3,in%, mem%,256*spt%,((track%*2+side%)*spt%)*256) J=tracks% #in%:side%=side%+1 ^side%>s1% 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) :  openout 4s2%:out$=out$,ext%-1)+side%+out$,ext%+side%) Hout%=(out$):out%=0:'"Can't open '"out$"'.":#in%:in%=0:exit(192)  : 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% &6X%!1=X%!1+1:X%!5=X%!5-1:(#?X% A%>2) X%!5<1: 0: :Hour_Glass(A%):os%<>6: DA%=-1:ș"Hourglass_On": NA%=-2:ș"Hourglass_Off": X A%=-3:ș"Hourglass_Smash": bș"Hourglass_Percentage",A% l v: :ݤOS_GetEnv:A$,A%,X%,Y%:X%=1:os%=((&FFF4)&FF00)256 Mos%>31:>&FFFFF:X%256:ș"GetModuleFileName",0,X%,255:run$=$$X%:=@cmd$ \A%=(>&FFFF)&900:?(P-3):A%=((>&9FFF)A%)((&1400-)(A%=0))A%=((A%-&500)&200)&FFF iA$=$(-&E00+A%):A%=0:run$=A$:ș16A$,,A%:ș72,"",A%:A$=A$,1+A$+" "," ",1+A$," "))):A$=0:A$=run$ *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 *