PROCtest_err() count:=0; reg1:=1/ginput1; TPWrite "finish"; ERROR IF ERRNO=ERR_DIVZERO THEN IF count<3 THEN count:=count+1; waittime 1; TPWrite "retry "Num:=count; RETRY; ELSE TPWrite "retry more than 3"; TRYNEXT; ENDIF ENDIF ENDPROC
********************************