> ListMDR 1.00 : seclen%=543 ( secbuf% seclen%-1 2: <$ :CloseAll:" at line ";: F: P"Microdrive file: "in$ Z2in%=(in$): in%=0:"File '"in$"' not found": d) "Filename Ty Len Start Extr Line" n ptr%=0: x) A%=0 seclen%-1:secbuf%?A%=#in%: V secbuf%?16=0 ((secbuf%?18 secbuf%?15) 2)=2 (secbuf%!17 &FFFF)<>0:Disp  IF secbuf%?16=0:PROCDisp  #in% #in%+543>#in% #in%  : Disp &secbuf%?29=13: $(secbuf%+19);" "; ((secbuf%?15 4)=0: "Print file": g h0(secbuf%?30,2)" "h0(secbuf%!31,4)" "h0(secbuf%!33,4)" "h0(secbuf%!35,4)" "h0(secbuf%!37,4)  :  CloseAll #in%=in%: in%:A%=in%:in%=0:#A%  : "$ h0(A%,N%)="0000000"+~A%,N%) ,7 dmp(A%,N%): B%=A% A%+N%-1: h0(?B%,2);::="" 6I str(A%,N%): B%=A% A%+N%-1:A%=?B% 127: A%=127 A%<32:A%="." @ A%::=""