PROC Main:
IF Mains%:=1
PRINT "Mains Power Detected"
ELSE
PRINT "No Mains Power"
ENDIF
GET
ENDP

PROC Mains%:
LOCAL Esup%(3)
CALL($118e,ADDR(Esup%(1)))
RETURN Esup%(3)
ENDP