15 lines
270 B
Plaintext
15 lines
270 B
Plaintext
|
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
|