uses dos;

var f:file;

r:array[1..144] of byte;

res:word;

i:integer;

begin

assign(f,'bbs.ovr');

reset(f,1);

seek(f,filesize(f)-144);

blockread(f,r,144,res);

for i:=1 to 144 do write(chr(r[i]));

writeln;

writeln('143="'+chr(r[143])+'" (',r[143],')');

writeln('144="'+chr(r[144])+'" (',r[144],')');

write('143:'); readln(r[143]);

write('144:'); readln(r[144]);

seek(f,filesize(f)-144);

blockwrite(f,r,144,res);

close(f);

end.