i=i+1
 
 message" Macro Running #"&i
 
 a=GetUserLed(2000)   
 
 If a = 0 Then 
   i=0 
   DoOemButton (1024)
   While IsMoving()
   Wend
   DoOemButton (1023)
   While IsMoving()
   Wend
   DoOemButton (1022)
   While IsMoving()
   
   DoOemButton (1026)
   While IsMoving()
   Wend
   
   DoOEMButton(133)
   DoOEMButton(134)
   DoOEMButton(135)

End If