&ACCESS RVP2
&REL 2499
&PARAM DISKPATH = KRC:\R1\Program\BV90
DEF BV90_PutBoxA( )
;FOLD INI
;FOLD BASISTECH INI
GLOBAL INTERRUPT DECL 3 WHEN $STOPMESS==TRUE DO IR_STOPM ( )
INTERRUPT ON 3
BAS (#INITMOV,0 )
;ENDFOLD (BASISTECH INI)
;FOLD USER INI
;Make your modifications here
;ENDFOLD (USER INI)
;ENDFOLD (INI)
;FOLD BV90_PUTA
IF 0 > 1 THEN
;FOLD LIN BV90_PutA Vel=0.05 m/s CPDAT24 Tool[1]:sj15 Base[0];%{PE}%R 8.3.48,%MKUKATPBASIS,%CMOVE,%VLIN,%P 1:LIN, 2:BV90_PutA, 3:, 5:0.05, 7:CPDAT24
$BWDSTART=FALSE
LDAT_ACT=LCPDAT24
FDAT_ACT=FBV90_PutA
BAS(#CP_PARAMS,0.05)
LIN XBV90_PutA
;ENDFOLD
ENDIF
;ENDFOLD
;#END_HEADER
;FOLD PTP BV90_PutA10 Vel=100 % PDAT1 Tool[1]:sj15 Base[0];%{PE}%R 8.3.48,%MKUKATPBASIS,%CMOVE,%VPTP,%P 1:PTP, 2:BV90_PutA10, 3:, 5:100, 7:PDAT1
$BWDSTART=FALSE
PDAT_ACT=PPDAT1
FDAT_ACT=FBV90_PutA10
BAS(#PTP_PARAMS,100)
PTP XBV90_PutA10
;ENDFOLD
AREA_REQ (5)
;Mark1
;FOLD LIN BV90_PutA20 Vel=2 m/s CPDAT2 Tool[1]:sj15 Base[0];%{PE}%R 8.3.48,%MKUKATPBASIS,%CMOVE,%VLIN,%P 1:LIN, 2:BV90_PutA20, 3:, 5:2, 7:CPDAT2
$BWDSTART=FALSE
LDAT_ACT=LCPDAT2
FDAT_ACT=FBV90_PutA20
BAS(#CP_PARAMS,2)
LIN XBV90_PutA20
;ENDFOLD
TOOL_REQ (8)
;Mark2
;FOLD LIN BV90_PutA30 Vel=2 m/s CPDAT3 Tool[1]:sj15 Base[0];%{PE}%R 8.3.48,%MKUKATPBASIS,%CMOVE,%VLIN,%P 1:LIN, 2:BV90_PutA30, 3:, 5:2, 7:CPDAT3
$BWDSTART=FALSE
LDAT_ACT=LCPDAT3
FDAT_ACT=FBV90_PutA30
BAS(#CP_PARAMS,2)
LIN XBV90_PutA30
;ENDFOLD
TOOL_REQ (9)
CONTINUE
TOOL12_OFFSET_REQ=TRUE
WAIT FOR TOOL12_OFFSET_REQ_OK
CONTINUE
TOOL12_OFFSET_REQ=FALSE
pick_SELECT(1,1)
;FOLD PTP BV90_PutA40 Vel=100 % PDAT14 Tool[1]:sj15 Base[0];%{PE}%R 8.3.48,%MKUKATPBASIS,%CMOVE,%VPTP,%P 1:PTP, 2:BV90_PutA40, 3:, 5:100, 7:PDAT14
$BWDSTART=FALSE
PDAT_ACT=PPDAT14
FDAT_ACT=FBV90_PutA40
BAS(#PTP_PARAMS,100)
PTP XBV90_PutA40
;ENDFOLD
VLV_CHK_ENABLE=TRUE
PCHK_ENABLE=TRUE
GRP_VLV_CLS (1,0,0,0)
WAIT FOR VACUUM_CLOSE1
VLV_CHK_ENABLE=TRUE
PCHK_ENABLE=TRUE
GRP_VLV_OPN (1,0,0,0)
;Xoffset1=1
XBV90_PutA50 = XBV90_PutA
XBV90_PutA50.X = XBV90_PutA.X+Xoffset1
XBV90_PutA50.Y = XBV90_PutA.Y+Yoffset1
XBV90_PutA50.A = XBV90_PutA.A+Rzoffset1
XBV90_PutA50.z = XBV90_PutA.Z+360
;FOLD LIN BV90_PutA50 Vel=2 m/s CPDAT1 Tool[1]:sj15 Base[0];%{PE}%R 8.3.48,%MKUKATPBASIS,%CMOVE,%VLIN,%P 1:LIN, 2:BV90_PutA50, 3:, 5:2, 7:CPDAT1
$BWDSTART=FALSE
LDAT_ACT=LCPDAT1
FDAT_ACT=FBV90_PutA50
BAS(#CP_PARAMS,2)
LIN XBV90_PutA50
;ENDFOLD
XBV90_PutA60 = XBV90_PutA
XBV90_PutA60.X = XBV90_PutA.X+Xoffset1
XBV90_PutA60.Y = XBV90_PutA.Y+Yoffset1
XBV90_PutA60.A = XBV90_PutA.A+Rzoffset1
XBV90_PutA60.Z = XBV90_PutA.Z+150
;FOLD LIN BV90_PutA60 Vel=2 m/s CPDAT22 Tool[1]:sj15 Base[0];%{PE}%R 8.3.48,%MKUKATPBASIS,%CMOVE,%VLIN,%P 1:LIN, 2:BV90_PutA60, 3:, 5:2, 7:CPDAT22
$BWDSTART=FALSE
LDAT_ACT=LCPDAT22
FDAT_ACT=FBV90_PutA60
BAS(#CP_PARAMS,2)
LIN XBV90_PutA60
;ENDFOLD
XBV90_PutA1 = XBV90_PutA
XBV90_PutA1.X = XBV90_PutA.X+Xoffset1
XBV90_PutA1.Y = XBV90_PutA.Y+Yoffset1
XBV90_PutA1.A = XBV90_PutA.A+Rzoffset1
;FOLD LIN BV90_PutA1 Vel=0.03 m/s CPDAT24 Tool[1]:sj15 Base[0];%{PE}%R 8.3.48,%MKUKATPBASIS,%CMOVE,%VLIN,%P 1:LIN, 2:BV90_PutA1, 3:, 5:0.03, 7:CPDAT24
$BWDSTART=FALSE
LDAT_ACT=LCPDAT24
FDAT_ACT=FBV90_PutA1
BAS(#CP_PARAMS,0.03)
LIN XBV90_PutA1
;ENDFOLD
VAC_CHK_ENABLE=TRUE
GRIP_VAC (1,0,0,0,#VAC_BLOW)
GRIP_VAC (1,0,0,0,#VAC_OFF)
oldspeed=$OV_PRO
$OV_PRO=100
XBV90_PutA80 = XBV90_PutA
XBV90_PutA80.X = XBV90_PutA.X+Xoffset1
XBV90_PutA80.Y = XBV90_PutA.Y+Yoffset1
XBV90_PutA80.A = XBV90_PutA.A+Rzoffset1
XBV90_PutA80.z = XBV90_PutA.Z+50
;FOLD LIN BV90_PutA80 Vel=2 m/s CPDAT23 Tool[1]:sj15 Base[0];%{PE}%R 8.3.48,%MKUKATPBASIS,%CMOVE,%VLIN,%P 1:LIN, 2:BV90_PutA80, 3:, 5:2, 7:CPDAT23
$BWDSTART=FALSE
LDAT_ACT=LCPDAT23
FDAT_ACT=FBV90_PutA80
BAS(#CP_PARAMS,2)
LIN XBV90_PutA80
;ENDFOLD
XBV90_PutA90 = XBV90_PutA
XBV90_PutA90.X = XBV90_PutA.X+Xoffset1
XBV90_PutA90.Y = XBV90_PutA.Y+Yoffset1
XBV90_PutA90.A = XBV90_PutA.A+Rzoffset1
XBV90_PutA90.z = XBV90_PutA.Z+400
;FOLD PTP BV90_PutA90 Vel=100 % PDAT3 Tool[1]:sj15 Base[0];%{PE}%R 8.3.48,%MKUKATPBASIS,%CMOVE,%VPTP,%P 1:PTP, 2:BV90_PutA90, 3:, 5:100, 7:PDAT3
$BWDSTART=FALSE
PDAT_ACT=PPDAT3
FDAT_ACT=FBV90_PutA90
BAS(#PTP_PARAMS,100)
PTP XBV90_PutA90
;ENDFOLD
GO_sucker1=0
VLV_CHK_ENABLE=TRUE
PCHK_ENABLE=TRUE
GRP_VLV_CLS (1,0,0,0)
;FOLD PTP BV90_PutA100 Vel=100 % PDAT4 Tool[1]:sj15 Base[0];%{PE}%R 8.3.48,%MKUKATPBASIS,%CMOVE,%VPTP,%P 1:PTP, 2:BV90_PutA100, 3:, 5:100, 7:PDAT4
$BWDSTART=FALSE
PDAT_ACT=PPDAT4
FDAT_ACT=FBV90_PutA100
BAS(#PTP_PARAMS,100)
PTP XBV90_PutA100
;ENDFOLD
AREA_REL (5)
JOB_READY (5)
Xoffset1=0
Yoffset1=0
Rzoffset1=0
END