> GetDEFB  Extract DEFBs/etc. data : ("Input file: "in$ 2"Output file: "out$ <.in%=(in$): in%=0:"Can't open '"in$"'": F)max%=--256: mem% max%-1:addr%=mem% P ZA$=uc(rd(in%)) dA%=A$,"DEFB") n A%=0:A%=A$,"EQUB") x A%=0:A%=A$,"BYTE")  A%=0:A%=A$,"FCB")  A%=0:A%=A$,"DB")  A%:A$=A$,A%):byte  #in% max%<1  #in%:"File truncated" #in%:in%=0 ) "SAVE "+out$+" "+~mem%+" "+~addr%  : byte *A%=A$," "): A%=0:A%=A$,9): A%=0: A$=A$,A%)+",": %:A$=A$,2): A$,1)<>" ":n%= A$ . A$,2)="0X":n%=("&"+A$,3,2)):A$=A$,5) U A$,1)="%":n%=0:A$=A$,2)::n%=n%*2+A$,1):A$=A$,2): (( A$,1)) -2)<>"0" ?addr%=n%:addr%=addr%+1 "* A$,1)=" "::A$=A$,2): A$,1)<>" " , A$,1)=",":A$=A$,2) 6 A$="" @ J: T9ݤrd(i%):A%,B%,A$::A%=#i%:A%<>10A%<>13:A$=A$+A% ^GA%=10A%=13#i%:#i%:B%=#i%:A%=B%(B%<>13B%<>10):#i%=#i%-1 h=A$ rݤuc(A$): B$:A$="":="" |5B$=B$+(A$((A$<"@")&DF)):A$=A$,2):A$="":=B$