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