> MDRDump 1.15  v1.15 Added -short option : (! :Close_All::exit(): 2Bseclen%=543: ctrl% 31,mem% seclen%-1:in%=0:X%=ctrl%:Y%=X%256 <%A$=OS_GetEnv:os%>31:Win_TextIO F.ro$="":A$="":"Input microdrive file: "A$ P2A%=A$+" "," "):A%:in$=A$,A%-1):A$=A$,A%+1) Z2A%=A$+" "," "):A%:ro$=A$,A%-1):A$=A$,A%+1) d?in$="-?":"Syntax: DumpMDR (-short)":exit(0): nin$="":exit(0): x: @in%=f_openin(in$): in%=0:"'"in$"' not found":exit(214): ptr%=0: 4gbpb(3,in%,mem%,seclen%,ptr%):ptr%=ptr%+seclen% B h0(mem%?00,2);" Sec=";h0(mem%?01,2);" "h0(mem%!02,4);" "; 2 str(mem%+04,10);" CRC=";h0(mem%?14,2);" "; M "Flg=";h0(mem%?15,2);" Rec=";h0(mem%?16,2);" Len="h0(mem%!17,4);" "; 2 str(mem%+19,10);" CRC=";h0(mem%?29,2);" "; I ro$="":'" Data:";dmp(mem%+30,30);" CRC=";h0(mem%?(seclen%-1),2);   #in% ptr%>#in% #in%:in%=0:exit(0): : #ݤh0(A%,N%)="0000000"+~A%,N%) 6ݤdmp(A%,N%): B%=A% A%+N%-1: h0(?B%,2);::="" Hݤstr(A%,N%): B%=A% A%+N%-1:A%=?B% 127: A%=127 A%<32:A%="."  A%::="" ": ,Close_All:*EXEC 6"in%=in%:in%:A%=in%:in%=0:#A% @ J: T!ݤf_openin(A$)=(f_name(A$)) ^Vݤf_name(A$):os%>31:A%,B%:B%=A%:A%=A$,"\",A%+1):A%=0:A$,".",B%)=0:A$=A$+"." h=A$ r: |#gbpb(A%,chn%,addr%,num%,ptr%) ??X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:<&FFFFF: &FFD1: A%=1A%=3:#?X%=X%!9 5:A%=1A%=2:#?X%,?X%!1 A%=3A%=4:?X%!1=#?X% 5X%!1=X%!1+1:X%!5=X%!5-1:(#?X% A%>2) X%!5<1: : BݤOS_GetEnv:A%,X%,Y%,P%,A$:X%=1:os%=((&FFF4)&FF00)256:X% d!=&D7C1C7C5:run$=ARGV$(0):ARGC:A%=1ARGC:A$=A$+ARGV$(A%)+" "::=A$,A$-1)!=&D7C1C7C5:="" _>&FFFFF:X%256:A$=@cmd$:ș"GetModuleFileName",0,X%,255:run$=$$X%:Y%=@lib$,@tmp$)=0:P%= ֍P%=0:>&FFFF:run$=$&8100:ș"OS_GetEnv"A$,,A%:ș"OS_WriteEnv","",A%:A$=A$,1+A$+" "," ",1+A$," "))):P%=:Y%=:A$," ")=0:A$=run$+" " P%=0:P%=X%:[OPT 0:NOP:]:P%=?X%:Y%=:P%=&EAP%=18:A$=$&600 P%=0:A$=$(-&300)P%=&A0:A$=$(^@%-256):Y%=?(-2)64P%=&90:A$=$&100:Y%=!&200 KA$=" "+A$:A$=A$,2):A$<>32:A$=34:A%=A$,"""",2)+1A%=A$+" "," ") (Y%:run$=A$,A%-1):A$=A$,A%+1):Y%=0 A$<>32:=A$ : &os(A$):A$=42:A$ A$<>"":A$  &: 0Fexit(A%):"FX1,"+(A%255):quit$=quit$:A$=quit$:quit$="":os(A$) :>&FFFFF:Ș A% D N: XWin_TextIO b0ș "GetStdHandle",-10 @hfile%(1):*INPUT 13 l1ș "GetStdHandle",-11 @hfile%(2):*OUTPUT 14 v&ș "SetConsoleMode",@hfile%(1),0: :