Count = 0
Stillgoing = 1
 
 
 While Stillgoing
 
 For part = 1 To 10
 
 Stillgoing = Not GetOEMLed(800)
 
 Code "(Number is "&count &")"
 
 Count = count +1
 
 Sleep(1000)
 
 If count = 9999 Then count =0
 
 Next part
 
 Wend
 
 
 Code "(Reset pressed)"
 
 
 
 End