> ROMHdrs ' List entries in Acorn file header : (5 ctrl% 31,mem% 255:X%=ctrl%:Y%=X%256:name%=mem% 27idx%=0::f$=gbpb8(idx%):idx%=X%!9: f$<>"":Object < f$="": F: P Object Z file(f$,5)<>1: din%=(f$): in%=0: n'gbpb(3,in%,mem%,256,0):#in%:in%=0 xrtype%=mem%?6:rcopy%=mem%?7  mem%!rcopy%<>&29432800: "File:";14);f$ ("Type:";14);"&";h0(rtype%,2);" ";  rtype%128:"S"; "-";  rtype%64 :"L"; "-";  rtype%32 :"R"; "-";  rtype%16 :"E"; "-"; o" ";"BASICTurbo65x2 68xx CPU4 CPU5 CPU6 PDP11Z80 32000CPU1080x86CPU12ARM CPU14CPU15",(rtype%15)*5+1,5) num%=1:ptr%=mem%+9: , ptr%>rcopy%+mem%:"Copyright:";:num%=3  num%=1:"Title:";  num%=2:"Version:"; A$=str(ptr%):14);s(A$) 'ptr%=ptr%+1:ptr%?-1=0:num%=num%+1  ptr%>rcopy%+mem%+1  (rtype%&60)<>&60:: "count%=1:rtype%=rtype%15 ," rtype%=7 rtype%=9:count%=2 6 num%=1 count% @ num%=1:"Reload:"; J num%=2:"Entry offset:"; T&14);"&";h0(!ptr%,8):ptr%=ptr%+4 ^ num% h: r: |Bݤfile(A$,A%):$name%=A$:?X%=name%:X%?1=name%256:=(&FFDD)&FF 3gbpb(A%,ch%,X%!1,X%!5,X%!9):?X%=ch%: &FFD1: Eݤgbpb8(ptr%):X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:&FFD1:X%!5=1:="" 7A%=name%+1:A%!(A%?-1)=&D20:A%?($A%," ")-1)=13:=$A% ݤstr(A%):?A%<32:="" *A$=""::A$=A$+?A%:A%=A%+1:?A%<32:=A$ #ݤh0(A%,N%)="0000000"+~A%,N%) /ݤs(A$):A$,1)=" ":A$=A$,2):A$,1)<>" " +A$,1)=" ":A$=A$,A$-1):A$,1)<>" " =A$