FlasH

Rem ****** ******
Rem Flash
Rem ****** ******
Rem
Rem override for the joint
JOvrd 50
Rem
Rem variable(s) for sub *FlasH_2
Def Inte B2, fGo
Rem
Rem variable(s) for sub *FlasH
Def Inte M1
Rem
Rem initial values for sub *FlasH
M1% = 0
Rem
Rem initial values for sub *FlasH_2
B2% = 0
fGo% = 0
Rem
Rem ** task Flash begins…
Rem
*bgn
Rem
M_Out(12) = 1
Rem
Rem ****** ******
Rem Press GREEN button
Rem ****** ******
Rem
Wait M_In(3) = 1
M_Out(12) = 0
GoSub *FlasH
Dly 1
GoSub *FlasH_2
Rem
Rem
Dly 1
M_Out(12) = 0
Dly 1
Rem
GoTo *bgn
End
Rem *******************
Rem
Rem
Rem
Rem S U B R O U T I N E *FlasH_2
*FlasH_2
B2% = 0
fGo% = 0
While (fGo% <= 0)
Rem
Rem flash green light
If B2% = 1 Then
B2% = 0
M_Out(12) = 0
Else
B2% = 1
M_Out(12) = 1
EndIf
Rem
Rem check in button is pressed
If M_In(3) = 1 Then
fGo% = 1
EndIf
Dly 0.125
WEnd
M_Out(12) = 0
Return
Rem
Rem
Rem
Rem S U B R O U T I N E *FlasH
*FlasH
M_Out(12) = 0
Dly 0.125
M1%= -5
While (M1 >= -5) AND (M1 <= 5)
M_Out(12) = 1
Dly 0.125
M_Out(12) = 0
Dly 0.125
M1%=M1%+1
WEnd
Return