OPEN 'PT' TO PT ELSE ABORT
OPEN 'CM' TO CM ELSE ABORT
PORT=@USERNO
USER=@LOGNAME
ACCOUNT=@WHO
READ PT.DATA FROM PT,PORT ELSE ABORT
USERID=PT.DATA<1>
READ CMREC FROM CM,USERID ELSE ABORT
IF CMREC<14>=ACCOUNT THEN
  CHAIN "LOGOUT"
END ELSE
  CHAIN "LOGTO MASTER"
END
STOP