это начало вашей программы, но добавлена метка begin
DEF palete( )
begin:
DECL POS PICKPOS [3,3]
DECL POS PREPOS [3,3]
DECL INT ROW,COL
DECL REAL DX,DY,DZ
DX=-80.0
далее конец программы, но добавлены команды wait for $in [1] и goto begin
SLIN PREPOS[ROW,COL]
PAL_1_1()
ENDFOR
ENDFOR
wait for $in [1]
goto begin
END
|