
PAUS100
#300=TS(0)
#301=TAIM
#302=#301-#300+8

#311=#302-1
#312=#302-2
#313=#302-3
#314=#302-4
#315=#302-5
#316=#302-6
#317=#302-7
#319=#302-9
#320=#302-10
#321=#302-11
#322=#302-12
#323=#302-13
#324=#302-14
#325=#302-15

#303=0
#304=0


G00
MOVE(G90,F6000,X0,Z0)


STATUSINFO(Turret Release Braker!)
WAT+X05
OUT-M59
PAUS50
STATUSINFO(Turret Rotate & Select Tool!)
OUTPY18RY19
MODWAT4
MAXWAT500
WAT-X05
IF(+X05)THEN
OUT-Y18-Y19
OUT-M59
MSG(Turret cannot unlock!)
ERREXIT
ENDIF

IF(+Y18)THEN
#303=1
ENDIF

IF(+Y19)THEN
#304=1
ENDIF

IF(-#311)THEN
WAT-X4
ENDIF
IF(-#312)THEN
WAT-X4
WAT+X4
WAT-X4
ENDIF
IF(-#313)THEN
WAT-X4
WAT+X4
WAT-X4
WAT+X4
WAT-X4
ENDIF
IF(-#314)THEN
WAT-X4
WAT+X4
WAT-X4
WAT+X4
WAT-X4
WAT+X4
WAT-X4
ENDIF
IF(-#315)THEN
WAT-X4
WAT+X4
WAT-X4
WAT+X4
WAT-X4
ENDIF
IF(-#316)THEN
WAT-X4
WAT+X4
WAT-X4
ENDIF
IF(-#317)THEN
WAT-X4
ENDIF
IF(-#319)THEN
WAT-X4
ENDIF
IF(-#320)THEN
WAT-X4
WAT+X4
WAT-X4
ENDIF
IF(-#321)THEN
WAT-X4
WAT+X4
WAT-X4
WAT+X4
WAT-X4
ENDIF
IF(-#322)THEN
WAT-X4
WAT+X4
WAT-X4
WAT+X4
WAT-X4
WAT+X4
WAT-X4
ENDIF
IF(-#323)THEN
WAT-X4
WAT+X4
WAT-X4
WAT+X4
WAT-X4
ENDIF
IF(-#324)THEN
WAT-X4
WAT+X4
WAT-X4
ENDIF
IF(-#325)THEN
WAT-X4
ENDIF

STATUSINFO(Turret Release Index!)
OUT+M63
WAT+X06
OUT-Y18-Y19
PAUS50
IF(+#303)THEN
OUT+Y19
ENDIF
IF(+#304)THEN
OUT+Y18
ENDIF
WAT+X05
OUT+M59
OUT-Y18-Y19
WAT-X06
OUT-M63
WAT+X04
CASET1+X00-X01-X02-X03
CASET2-X00+X01-X02-X03
CASET3+X00+X01-X02-X03
CASET4-X00-X01+X02-X03
CASET5+X00-X01+X02-X03
CASET6-X00+X01+X02-X03
CASET7+X00+X01+X02-X03
CASET8-X00-X01-X02+X03
TS(0)=TAIM
CURTS=TAIM
STATUSINFO(Tool Change is Finished!)
PAUS30
DISP
RETURN