Here is the code
Sub Main()
If (GetLed(13)) Then
Call SetOemDro (1100,0)
Exit Sub
End If
CodeSpeed = GetOemDro (817) 'Requested speed
TrueSpeed = GetOemDro (39) 'Speed of Spindle
Count = GetUserDro (1100) 'Get the count
If (Count<4) Then
Call SetVar (70+Count,TrueSpeed)
Count = Count+1
Call SetOemDro (1100,Count)
Else
Call SetOemDro(1100,0)
Avg=((GetVar(70)+GetVar(71)+GetVar(72)+GetVar(73))/4) 'Average Speed
Low=CodeSpeed*.9 'Fault Speed (10% less than commanded)
Call SetOemDro(1113,Avg)
Call SetOemDro(1114,Low)
If Avg<Low Then
Call DoOemButton(1003)
MsgBox ("Spindle Fault")
End If
End If
End Sub