> HdrList ' List entries in Acorn file header : (3 ctrl% 31,name% 15,mem% 255:X%=ctrl%:Y%=X%256 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"; "-"; ȍ" ";"BASIC 65Turbo65x2 68xx CPU4 CPU5 CPU6 PDP11 Z80 32000 CPU10 80x86 CPU12 ARM CPU14 CPU15",(rtype%15)*7+1,7) num%=1:ptr%=mem%+9: , ptr%>rcopy%+mem%:"Copyright:";:num%=3  num%=1:"Title:";  num%=2:"Version:"; A$=str(ptr%):14);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%)