BOX.pas
program ex;
uses graph,crt,wincrt,windows;
label 1,2;
type kn=record
x,y:integer;
end;
var a,a1,a2:array[1..100,1..100]of char;
m,n,i,j,top:integer;
ch:char;
st,st1:string;
man:kn;
f:text;
s1,s2:integer;
t1,t2,t3,t4,t11,t12,t13,t14:word;
box:array[1..100]of kn;
errcode,gd,gm,k,z:integer;
procedure man1(x,y:integer);
var i,j:integer;
begin
setcolor(green);
for i:=x to x+30 do
line(i,y,i,y+30);
setcolor(red);
line(x+10,y,x+20,y);
line(x+10,y,x+5,y+10);
line(x+20,y,x+25,y+10);
line(x,y+10,x,y+20);
line(x+29,y+10,x+29,y+20);
for i:=13 to 17 do
line(x+i,y,x+i,y+10);
for i:=10 to 20 do
line(x,y+i,x+29,y+i);
circle(x+5,y+25,3);
circle(x+25,y+25,3);
end;
procedure x_ground(x,y:integer);
var i,j:integer;
begin
setcolor(green);
for i:=x to x+30 do
line(i,y,i,y+30);
setcolor(13);
for i:=x+13 to x+17 do
line(i,y+13,i,y+17);
circle(x+15,y+15,5);
end;
procedure x_box(x,y:integer);
var i,j:integer;
begin
setcolor(13);
for i:=x to x+30 do
line(i,y,i,30+y);
setcolor(red);
line(x,y,x,30+y);
line(x,30+y,30+x,30+y);
line(30+x,30+y,30+x,y);
line(30+x,y,x,y);
line(x,y+6,x+30,y+6);
line(x,y+24,x+30,y+24);
line(x+6,y+6,x+6,y+24);
line(x+24,y+6,x+24,y+24);
line(x+6,y+9,x+24,y+9);
line(x+6,y+12,x+24,y+12);
line(x+6,y+15,x+24,y+15);
line(x+6,y+18,x+24,y+18);
line(x+6,y+21,x+24,y+21);
circle(x+3,y+3,1);
circle(x+27,y+27,1);
circle(x+27,y+3,1);
circle(x+3,y+27,1);
end;
procedure ground(x,y:integer);
var i,j:integer;
begin
setcolor(green);
for i:=x to x+30 do
line(i,y,i,y+30);