ф > MkDEFB :ф 12/08/1992 JGH: Make assembler data from binary file : (4A$=¤_OS_GetEnv:in%=0:out%=0:def$="DEFB":eol$=Ѕ10 2Aз A$="":и"Input file: "f1$:и"Output file: "f2$:A$=f1$+" "+f2$ <6з © A$<2:с "Syntax: MkDEFB ( )":а F'I%=§A$," "):f1$=АA$,I%):f2$=БA$,I%) Pо … ц:тClose:с ћ:а Z+in%=Ћ(f1$):з in%=0 с"Can't open ";f1$:а d9out%=®(f2$):з out%=0 с"Can't save ";f2$:Щ#in%:in%=0:а n Х#out%,—"{":Х#out%,—" ":x%=0 x!х:с;100*Џ#in%Ѓ ў#in%;"%";Ѕ13; ‚з x%=0:тwr(out%,def$) Њз x%>0:тwr(out%,",") –тwr(out%,Гљ#in%) &x%=x%+1:з x%>7:x%=0:тwr(out%,eol$) Є!э Е#in%:с:з x%:тwr(out%,eol$) ґЩ#out%:out%=0 ѕЩ#in%:in%=0 Иа Т: ЬЭтwr(o%,A$):з A$="":б ж хХ#o%,—A$:A$=БA$,2):эA$="":б р: ъЭтClose з out%:A%=out%:out%=0:Щ#A% з in%:A%=in%:in%=0:Щ#A% б ": ,`Э¤_OS_GetEnv:з“>&FFFF:зђ<&FFFF:И™"OS_GetEnv"ёA$:=БA$,1+§A$," ",1+§A$," ",1+§A$," ")))) ‹ ="" я