Mitsubishi Electric MELFA BFP-A3614 Manual page 118

(→ Continuation of program "11")
37 '----- Subroute -----
38 *INIT
39 Loadset 1,1
40 OAdl On
41 Servo On
42 Wait M_Svo=1
43 Pnow=P_Fbc
44 If Pnow.Z < P1.Z Then
45 Pnow.Z=P1.Z
46 Mvs Pnow
47 Pnow2=Align(Pnow)
48 Mvs Pnow2
49 Dly 0.2
50 EndIf
51 Mov P1
52 Dly 0.2
53 Return
54 '--------------------
-107-