EXTERN COM_SENT(INT, INT, INT, INT)
EXTERN COM_WAIT(INT, INT, INT, INT)


; TÜR ZU
CMD_TUR_ZU

; +++ START - REINIGUNG
COM_SENT(0,1,0,0)

; ROHTEIL AUS INLAY HOLEN - HOME POSITION FAHREN
INLAY_TAKE

; WARTE - BIS MASCHINE GEREINIGT WURDE 
COM_WAIT(0,0,0,1)
COM_RESET

; SCHRAUBSTOCK AUF

; TÜR AUF
CMD_TUR_AUF

; ROHTEIL IN DMU LEGEN
DMU_PUT

; SCHRAUBSTOCK ZU

; TUR ZU
CMD_TUR_ZU

; +++ START - BEARBEITEN AUFSPANNUNG1
COM_SENT(0, 0, 0, 1)

; WARTE - BIS TEIL BEARBEITET IST
WHILE NOT (($A_IN[1]==0) AND ($A_IN[2]==0) AND ($A_IN[3]==1))
ENDWHILE
G4 F1
COM_RESET
CMD_GREIFER_OFFSET

; TÜR AUF
CMD_TUR_AUF

; TEIL AUS DMU HOLEN
DMU_TAKE

; TEIL INS INLAY LEGEN
INLAY_PUT

; RESETTE R VARIABLE
COM_RESET_R

M17