27 lines
467 B
ObjectPascal
27 lines
467 B
ObjectPascal
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.
|