ф > MkCData >ф 12/08/1992 JGH: Create C data structure from binary data : (A$=¤_OS_GetEnv:in%=0:out%=0 2Aз A$="":и"Input file: "f1$:и"Output file: "f2$:A$=f1$+" "+f2$ <;з © A$<2:… 220,"Syntax: MkCData ( )":а 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; ‚byte%=љ#in% ЊХ#out%,—"0":Х#out%,—"x" –Х#out%,— Г~(byte%Ѓ16) Х#out%,— Г~(byte%Ђ15) ЄХ#out%,—",":Х#out%,—" " ґ9x%=x%+1:з x%>7 x%=0:Х#out%,10:Х#out%,—" ":Х#out%,—" " ѕ э Е#in%:с ИХ#out%,—"}" ТЩ#out%:out%=0 ЬЩ#in%:in%=0 жа р: ъЭт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$," ")))) ‹ ="" я