tb1/tb1_dos/lev2file.pas
2012-12-18 21:34:48 -05:00

25 lines
548 B
ObjectPascal

var background:array[0..11,0..100] of byte;
i,j:integer;
f:text;
begin
for i:=0 to 11 do
for j:=0 to 100 do
background[i,j]:=0;
assign(f,'level2.tbx');
rewrite(f);
for j:=0 to 100 do begin
for i:=0 to 10 do write(f,background[i,j],' ');
writeln(f,background[11,j]);
end;
close(f);
assign(f,'level2.tbx');
reset(f);
for j:=0 to 100 do
for i:=0 to 10 do read(f,background[i,j]);
close(f);
for j:=0 to 100 do for i:=0 to 10 do write(background[i,j],' ');
end.