mirror of https://github.com/deater/tb1.git
25 lines
548 B
ObjectPascal
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. |