 
ф > ExtractIMD Iф Extract disk images from IMD image file, output as plain disk image : (
seq%=Ј 2: <г disk%=20 ё 20 F
п26,12 P&file1$="Utils.STDUTL"+¤d0(disk%,2) Zfile2$=file1$ d: nA%=§file2$,".") xSin$ ="ADFS::A5000.$.Holding.TorchUnix."+Аfile2$,A%-1)+"/zip"+Бfile2$,A%)+"/IMD" ‚Pout$="ADFS::A5000.$.Holding.TorchUnix."+file1$+А"/ssd",seq%)+А"/dsd",seq%=0) Њ9txt$="ADFS::A5000.$.Holding.TorchUnix."+file1$+"/txt" –9dir$="ADFS::A5000.$.Holding.TorchUnix."+Аfile2$,A%-1)  сin$ Є	сout$ ґ: ѕ%о … ц:тClose_All:с" at line ";ћ:а ИЮ secmap% 255 Тin%=Ћ(in$):зin%=0:а Ья"CDir "+dir$ жout%=®(out$) рheader$=ѕ#in% ъя"Spool "+txt$с"Header:  ";header$;¤lf;хA%=љ#in%:з A%=10:A%=љ#in%":з A%<>26:comment$=ЅA%+ѕ#in%:с"Comment: ";comment$;¤lf;,
эA%=266
*Spool@я"SetType "+txt$+" FFF"JхTmode%=љ#in%^cyl% =љ#in%hhead%=љ#in%rspt% =љ#in%|!ssz% =љ#in%:secsz%=2^(ssz%+7)†*г sec%=0 ё spt%-1:secmap%?sec%=љ#in%:нђKс"Cyl:";¤d0(cyl%,2);" Head:";head%;" Sectors:";spt%;" SecSize:";secsz%;љг sec%=0 ё spt%-1¤>  з seq%:П#out%=((head%*80+cyl%)*spt%+secmap%?sec%)*secsz%®>  зseq%=0:П#out%=((head%+cyl%*2)*spt%+secmap%?sec%)*secsz%ё  type%=љ#in%В  з (type%Ђ1)=1 ЊМ    г byte%=0 ё secsz%-1Ц      Х#out%,љ#in%а    н byte%к   Мф    з type% Њю      A%=љ#in%      г byte%=0 ё secsz%-1        Х#out%,A%      н byte%&	    Н0  Н:
н sec%DсN
эЕ#in%XЩ#out%:out%=0bя"SetType "+out$+" Data"lЩ#in%:in%=0vн disk%ЂаЉЭтClose_All”'in% =in% :зin% :A%=in% :in%=0 :Щ#A%ћ'out%=out%:зout%:A%=out%:out%=0:Щ#A%ЁбІ#Э¤h0(A%,N%)=В"0000000"+Г~A%,N%)ј#Э¤d0(A%,N%)=В"00000000"+ГA%,N%)Ж%Э¤lf:п10:я"FX3,16":п13:я"FX3":=""я