#DEFINE ResetEPLNetwork BIT150

PROGRAM

GOSUB EnableEPLNetwork : REM GO TO SUBROUTINE EnableEPLNetwork

END

'SUBROUTINE OF EnableEPLNetwork
_EnableEPLNetwork

INH 16648  : REM CHECK FOR CONTROLLER TO ACKNOWLEDGE EPL CARD

IF (NOT Bit16649) THEN EPLC ON : REM IF EPL NETWORK NOT OPERATIONAL, THEN START EPLC NETWORK 

DWL 0.2

WHILE (BIT 16640) : REM INFINITE LOOP THAT WAITS TO EPL NETWORK TO START  
WEND

IF (BIT 16649) THEN PRINT "EPL NETWORK OPERATIONAL" : REM IF NETwoRK OPERATIONAL, PRINT MESSAGE TO SCREEN
 
'IF THE NETWORK IS NOT OPERATIONAL AT
'THIS POINT THEN TRY TO RESET IT

'IF NETWORK IS NOT OPERATIONAL, PRINT MESSAGE TO SCREEN
IF (BIT 16650) THEN PRINT "EPL NETWORK START FAILED, GOING TO RESET NETWORK"

IF (NOT BIT 16649)  
    EPLC OFF : REM RESET EPL NETWORK
    SET ResetEPLNetwork : REM SET RESET EPL NETWORK LATCHED BIT
    INH -16657 : REM INHIBIT PROGRAM UNTIL EPL NETWORK RESETS 
    EPLC ON : REM START EPL NETWORK AGAIN
    INH -16656 : REM INHIBIT PROGRAM UNTIL START EPL NETWORK HAS FINISHED
ENDIF

'CHECK IF EPL NETWORK IS STILL NOT OPERATIONAL 
'AND ALREADY RESET NETWORK 

IF ((NOT BIT 16649) AND (ResetEPLNetwork)) 
PRINT "EPL network problem occurred."
ENDIF 

ENDP