unit OpnSdk;
interface
uses SDKkrnl;
Procedure OpenF(fl:string;var sdk:TSDK);
Procedure WriteF(fl:string;var sdk:TSDK);

Implementation
 Var f:text;
     i,j,h:byte;

Procedure OpenF(fl:string;var sdk:TSDK);
var c:char;
Begin
Assign(f,fl);reset(f);
i:=1;
repeat
 j:=1;
  Repeat
  if eoln(f) then readln(f) else begin
    read(f,c);
   h:=ChrHex(c);
   if h<>0 then begin
     SDK.at(j,i,h);
     sdk.val[j,i]:=2;
   end;
   inc(j);                       end;
  until (j=nn+1)or eoln(f);
   inc(i);
 until eof(f)or(i=nn+1);
close(f);
end;

Procedure WriteF(fl:string;var sdk:TSDK);
begin
 Assign(f,fl);rewrite(f);
 for i:= 1 to nn do begin
  for j:=1 to nn do write(f,HexChr(Sdk.GetXY(j,i)));
  writeln(f);
 end;
 close(f);
end;
end.