GETUSER

INTEGER I
STRING X

;       FOR I = 1 TO 5

;       FOPEN 5,PPEPATH()+"BR.CFG",O_RD,S_DW

;       FGET 5,X
;       IF (U_SEC = X) GOTO END

;       NEXT


BROADCAST 1,10, STRING(U_NAME()) +" logged in node "+  STRING(PCBNODE())
LOG "BRLOGON [PPE] Registered Version 2.0",FALSE
IF (EXIST(PPEPATH()+"OPENING")) DISPFILE PPEPATH()+"OPENING",LANG+SEC+GRAPH

END

:END
        LOG "User By-Passed Due To Security Level Defined in BR.CFG!",FALSE
        IF (EXIST(PPEPATH()+"OPENING")) DISPFILE PPEPATH()+"OPENING",LANG+SEC+GRAPH
        END