ф > MkCData 8ф 12/08/1992 JGH: Convert a file to C data structure : (A$=¤_OS_GetEnv:in%=0:out%=0 2Aз A$="":и"Input file: "f1$:и"Output file: "f2$:A$=f1$+" "+f2$ <7з © A$<2:… 220,"Syntax: MkCData [infile outfile]":а F'I%=§A$," "):f1$=АA$,I%):f2$=БA$,I%) Pо … ц:тClose:с ћ:а Z+in%=Ћ(f1$):з in%=0 с"Can't open ";f1$:а d3out%=®(f2$):з out%=0 с"Can't open ";f2$:Щ#in%:а nХ#out%,—"{" xХ#out%,—" " ‚x%=0 Њх –с;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% ъ Щ#in% а : #ЭтClose:з in%:A%=in%:in%=0:Щ#A% "з out%:A%=out%:out%=0:Щ#A% ,б 6: @`Э¤_OS_GetEnv:з“>&FFFF:зђ<&FFFF:И™"OS_GetEnv"ёA$:=БA$,1+§A$," ",1+§A$," ",1+§A$," ")))) ‹ ="" я