proc sd()
socketclose socket1;
w;
socketcreate socket1;
w;
socketconnect socket1,"192.168.0.1",2000;
socketsend socket1\data:=az;
w;
set do24;
socketreceive socke1\data:=js\time:=1;
reset do24;
endproc
proc tjz()
socketclose socket1;
w;
socketcreate socket1;
w;
socketconnect socket1,"192.168.0.1",2000;
endproc
proc pz(num a)
if a=1 then
fz 0;
reg1:=2;
p 170;
j 1;
movel reltool(dw{4,1},0,0,0\rz:=0),v1000,fine,tool0;
movel reltool(dw{4,2},0,0,0\rz:=180),v1000,fine,tool0;
endif
if a=2 then
fz 1;
reg1:=2;
p 170;
j 1;
movel reltool(dw{4,1},0,0,0\rz:=0),v1000,fine,tool0;
movel reltool(dw{4,2},0,0,0\rz:=180),v1000,fine,tool0;
endif
if a=3 then
fz 0;
reg1:=1;
p 170;
j 1;
movel reltool(dw{4,1},0,0,0\rz:=0),v1000,fine,tool0;
movel reltool(dw{4,2},0,0,0\rz:=-80),v1000,fine,tool0;
endif
if a=4 then
fz 0;
reg1:=1;
p 170;
j 1;
movel reltool(dw{4,1},0,0,0\rz:=0),v1000,fine,tool0;
movel reltool(dw{4,2},0,0,0\rz:=80),v1000,fine,tool0;
endif
if a=5 then
fz 1;
reg1:=1;
p 170;
j 1;
movel reltool(dw{4,1},0,0,0\rz:=0),v1000,fine,tool0;
movel reltool(dw{4,2},0,0,0\rz:=-80),v1000,fine,tool0;
endif
if a=6 then
fz 1;
reg1:=1;
p 170;
j 1;
movel reltool(dw{4,1},0,0,0\rz:=0),v1000,fine,tool0;
movel reltool(dw{4,2},0,0,0\rz:=80),v1000,fine,tool0;
endif
pz1:
socketclose socket1;
w;
socketcreate socket1;
w;
socketconnect socket1,"192.168.0.12",1400;
if reg1=1 then
socketsnd socket1\str:="s 1";
w;
socketsnd socket1\str:="m";
w;
socketreceive socket1\str:=string1;
w;
flag1:=strtoval(strpart(string1,7,5),qa{3});
if a=5 then
if qa{3}=1 then
qa{15}:=1;
else
qa{15}:=2;
endif
endif
endif
if reg1=2 then
socketsnd socket1\str:="s 2";
w;
socketsnd socket1\str:="m";
w;
socketreceive socket1\str:=string1;
w;
flag1:=strtoval(strpart(string1,7,2),qa{4});
rwm:=strpart(string1,9,qa{4});
if qa{4}=-1 goto pz1;
flag1:=strtoval(strpart(rwm,qa{4},1),qa{5});
endif
movel reltool(dw{4,1},0,0,0\rz:=0),v1000,fine,tool0;
j 1;
sd;
tjz;
endproc
proc fszf()
for i from 1 to 6 do
az{400+i}:=i;
endfor
for i from 1 to qa{4} do
string1:=strpart(rwm,i,1);
az{70+i}:=strtobyte(string1\char);
az{100+az{400+az{400}*10+i}:=strtobyte(string1\char);
endfor
sd;
endif
proc zx()
for i from 1 to qa{4}/2 do
flag1:=strtoval(strpart(rwm,i*2,1),reg3);
callbyvar strpart(rwm,i*2-1,1),reg3;
endfor
endproc