DeActivateSignal(OUTPUT5)
sleep(1000)
Spin = GetRPM()

 If Spin < 450 Then
   Call gear
   End If

 If Spin > 451 Then
   Call gear1
   End If


Sub gear
   
   pulley = getOemdro(56)
 If pulley = 1 Then
   Call lowgear
   End If
 If pulley = 2 Then
   Call gearchange
   End If
   End Sub

Sub gear1
   
   pulley = getOemdro(56)
 If pulley = 2 Then
   Call Highgear
   End If
 If pulley = 1 Then
   Call gearchange1
   End If
   End Sub

Sub gearchange

  doOEMBUTTON(1001)
  setpulley (1)
  Dim Msg, Style, Title, Help, Ctxt, Response,MyString
Msg = "Please Change To Low Gear " 
Style = vbYesNo + vbCritical + vbDefaultButton2   ' Define buttons 
Style = 0 + 48 + 0   ' Define buttons. 
Title = "Gear Change Requested"   ' Define title 
Help = "DEMO.HLP"   ' Define Help file 
Ctxt = 1000   ' Define topic       
 'context.        
 ' Display message. 
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
 If Response = vbOk Then   ' User chose Ok    
MyString = "Ok"   ' Perform some action 
End If

  Call Lowgear
  End Sub
   
Sub gearchange1

  doOEMBUTTON(1001)
  setpulley (2)
   Dim Msg, Style, Title, Help, Ctxt, Response,MyString
Msg = "Please Change To High Gear " 
Style = vbYesNo + vbCritical + vbDefaultButton2   ' Define buttons 
Style = 0 + 48 + 0   ' Define buttons. 
Title = "Gear Change Requested"   ' Define title 
Help = "DEMO.HLP"   ' Define Help file 
Ctxt = 1000   ' Define topic       
 'context.        
 ' Display message. 
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
 If Response = vbOk Then   ' User chose Ok    
MyString = "Ok"   ' Perform some action 
End If

  Call Highgear
  End Sub


Sub LowGear
 
   DoSpinCCW()
   Message "Low gear active"
   
 End Sub

Sub Highgear

   DoSpinCW()
   Message "High gear active"
  End Sub