/* This scripts checks if the user's name */
/* is correct */

Arg NodeNumber Name

Options Results

PRINT

NameFile = 'ENV:Name_'NodeNumber

IF ~OPEN(GoodName,NameFile, "r") THEN EXIT

RealName = READLN(GoodName)
IF (Name = RealName) THEN EXIT

PRINT 'WARNING!!!! Your name has not been reset...'
PRINT
PRINT 'If a 'Name' exists, then his record will be corrupted'
PRINT 'if you logoff now.'
PRINT
PRINT 'Please contact the sysop'
GetCharacter
EXIT