Sub Main() ' ------------------------------------------------------------------------------- ' TPS 26.06.2021 ' do a referece ' new version with OEM Led's ' ------------------------------------------------------------------------------- 'quit if file is loaded If IsLoading() Then GoTo Ende End If Message ("Automatische Referenzfahrt") 'Z referenzieren Message ("Z-axis reference") DoOemButton(1024) 'Ref Z Sleep(500) While GetOemLed(809) = true Sleep(200) If GetOemLed(800) Then Sleep(500) Message"error while referencing" End End If Wend Sleep(500) 'wait Message (" ") 'clear status line Sleep(200) 'wait Exit Sub '-------------------------------------------------------------------------------- Ende: End Sub