> Find(C) / Find additional ROM headers in ROM images : (5 ctrl% 31,name% 31,mem% &3FFF:X%=ctrl%:Y%=X%256 2 :" at line ";: <(in%=0:out%=0:Scan("",1):Scan("",2) F P: ZScan(p$,find%) d num%,idx%,f$,type% n x f$=gbpb8(idx%):idx%=X%!9  f$<>"":Object f$=""  : Dir I find%=2:"Dir "+f$:Scan(p$+"."+f$,1):Scan(p$+"."+f$,2):"Dir ^":  : Object &type%=file(f$,5): type%=2:Dir:  find%=2:  X%!10>&4000: # f$,5)="index" f$,1)="_":  "Load "+f$+" "+~mem%  A%=0 X%!10-1  copy%=mem%?(A%+7) "( !(mem%+A%+copy%)=&29432800:list , A% 6 @: J list T! (mem%!(A%+9) &80808080): ^ mem%?(A%+9)<33: hAp$,2);".",p$<>"");f$;(30-f$-p$);~A%+&8000;": ";:B%=A%+9 r1: mem%?B%:B%=B%+1:mem%?B%<32 mem%?B%>126 |: : 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%