ô > DSDtoDSS 1.12 ô 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] -v":È˜ Z7same%=£:spt%=10:vb%=£:Þ ctrl% 31:X%=ctrl%:Y%=X%256 dCç A$="":è"Input file: "in$:è"Output file: "out$:A$=in$+" "+out$ n0A%=§A$+" "," "):in$=ÀA$,A%-1):out$=ÁA$,A%+1) x&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%=¹ ª"ços%=6:out$="/ssd" ´"ços%=8:out$="$temp$/scrap.ssd" ¾Xços%=32:Þ B% 255:È™ "ExpandEnvironmentStrings","%TMP%",B%,255:out$=$$B%+"\scrap.ssd" ÈÍ Ò2î … òClose_All:òHour_Glass(-3):î … ‡:… Ÿ,ö$:È˜ ÜÞ mem% 256*spt% æ2in%=Ž(in$):çin%=0:ñ"File '"in$"' not found":È˜ ð?out%=®(out$):çout%=0:ñ"Can't open '"out$"'.":Ù#in%:in%=0:È˜ úòHour_Glass(-1) 3tracks%=((¢#in%+(256*2*spt%-1)) (256*2*spt%)) side%=s0% õ "track%=0 ,õ 6 sector%=0 @!òHour_Glass(100*#in% ¢#in%) J.Ï#in% =((track%*2+side%)*spt%+sector%)*256 T/Ï#out%=((side%*80+track%)*spt%+sector%)*256 ^-ç vb%:ñ ½13;side%;":";track%;":";sector%; h%ògbpb(4,in%, mem%,256*spt%,#in%) r&ògbpb(2,out%,mem%,256*spt%,#out%) |track%=track%+1 †ý track%>=tracks% „ Å#in% side%=side%+1 šý side%>s1% „ Å#in% ¤Ù#out%:out%=0 ®Ù#in%:in%=0 ¸ç vb%:ñ ÂòHour_Glass(-2) Ì$ç os%<32:ÿ"SetType "+out$+" B22" ÖDç same%:ÿ"Copy "+out$+" "+in$+À" ~A~CDF~L~N~P~Q~RS~T~V",os%<>32) àÈ˜ ê: ôÝòClose_All þ"in%=in%:çin%:A%=in%:in%=0:Ù#A% 'out%=out%:çout%:A%=out%:out%=0:Ù#A% á : &#Ýògbpb(A%,chn%,addr%,num%,ptr%) 0=?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:ços%<32:Ö &FFD1:á :çA%=1„A%=3:Ï#?X%=X%!9 D5õ:çA%=1„A%=2:Õ#?X%,?X%!1 ‹ çA%=3„A%=4:?X%!1=š#?X% N7X%!1=X%!1+1:X%!5=X%!5-1:ý (Å#?X% € A%>2) „ X%!5<1:á X: bÝòHour_Glass(A%):ços%<>6:á lçA%=-1:È™"Hourglass_On":á vçA%=-2:È™"Hourglass_Off":á € çA%=-3:È™"Hourglass_Smash":á Š È™ "Hourglass_Percentage",A% ”á ž: ¨:Ý¤OS_GetEnv:êA$,A%:X%=1:os%=((º&FFF4)€&FF00)256:ÞX%-1 ²Jços%=32:ç>&FFFF:È™"GetModuleFileName",0,X%,255:A$=$$X%:run$=A$:=@cmd$ ¼ços%=32:A$=$&100 Æ{ç©A$=0:ç>&7FFF:run$=$&8100:È™"OS_GetEnv"¸A$,,A%:È™"OS_WriteEnv","",A%:A$=ÁA$,1+§A$+" "," ",1+§A$," "))):ç©A$=0:A$=run$ Ð2ç©A$=0:ç?(¸P-3):A$=$&600 ‹ ç©A$=0:A$=$(-&300) Ú7A%=§A$+" "," "):run$=ÀA$,A%-1):çrun$<>"":=ÁA$,A%+1) äbY%=X%256:A%=9:?X%=0:X%!1=X%+16:X%!16=0:Ö&FFD1:A%=X%+16:ç!A%€?A%+A%?2<>8:A%?(A%+1)=13:=$(A%+1) î="" ø: ÝòWin_TextIO /È™ "GetStdHandle",-10 ¸ @hfile%(1):*INPUT 1 0È™ "GetStdHandle",-11 ¸ @hfile%(2):*OUTPUT 2 $È™ "SetConsoleMode",@hfile%(1),0 *á ÿ