Dim IsReady As String

IsReady = AskTextQuestion("Ready to measure surface (y/n)?")

If IsReady = "y" Then
	If IsSuchSignal (22) Then
		DoSpinStop()
		
		'	Set mm.
		
		code "G21"

		'	Set Z to zero.
		
		Message("Setting Z to zero...")

		DoButton( 24 )
		Call SetDRO( 2, 0)


		'	Plunge until plate detected.
		
		Message("Finding surface plate...")

		code "G31 Z-99 F80"
		
		While IsMoving()
		Wend

		'	Surface is 2mm below the top of the alignment plate.
		
		Dim Zsurface As Double
		
		Zsurface = GetDRO(2) - 15.45

		Message("Surface = " & Zsurface)
		
		code "G0 Z0"
		
		While IsMoving()
		Wend

		' DoButton( 24 )
		
		Call SetToolZ(Abs(Zsurface))
	End If
End If