Sub Main()

Dim DoorOpen
Dim DoorSafetyCycle
Dim t


If IsActive(Input1) Then
        setuserled(1113,1)   
      	DoorOpen = 1
	setuserled(1114,0)
	If isloading() = 0 Then
		If getled(4) = 1 Then
			DoOEMButton(1003)'Stops Program May need to change this to 1001 - Pause
		End If
		DoOEMButton(169)'Closes Current Program
	End If
	deactivatesignal(output1)
	deactivatesignal(output2)
	deactivatesignal(output3)
	deactivatesignal(output4)
	Message ("Door Open - PROGRAM ABORTED!!!")
End If


If Not IsActive(input1) Then
	If getuserled(1113) = 1 Then
	        setuserled(1114,0)
		DoorSafetyCycle = 1
		setuserled(1114,1)
		Message ("Re-Select Required Job")
		Message ("AKSYSTech.Abort")
		
		For t = 1 To 3                             
   		SetTimer( 1 ) 
   		While GetTimer(1) < .05                                              
   		Wend
 		Next t
		Message ("")
		setuserled(1113,0) 
	End If
End If 

If IsLoading()= 1  Then
 	If getuserled(1114) = 0 Then
 	    While IsLoading()= 1                                              
   		 Wend
                Message ("AKSYSTech.Abort")

        	Message ("Door Safety Cycle Not Completed!!!")'
	 	DoOEMButton(1003)'Stops Program
		DoOEMButton (169)'Closes Current Program
	End If
End If  

If getoemled(164) Then
        setuserled(1114,0)
        End If
        
If getoemled(165) Then
        setuserled(1114,0)
        End If



If  GetOEMLed(800)  Then
	setuserled(1111,0)
	setuserled(1112,0)
	setuserled(1113,0)
	setuserled(1114,0) 	
   	
End If          

End Sub
Main