/* SystemPW by The Flash/Cb4! */

pass='PRIVATE'   /* yOUR sYSTEM pASSwORD */

Parse Arg node
Options results
nodeid="DREAMREXX"node
address value nodeid
signal on error
signal on ioerr
signal on syntax
wte=""
cls=""
count='1'
Transmit cls
newline
SendAny "Daydream:Data/SystemTXT.DAT"
Newline
MAIN:
if count<'4' then
do
Prompt 70 NORMAL wte"Logon : "
Cod=RESULT
code=upper(cod)
WriteLog "User typed at Front Door : "code
end
if code=pass then
do
Transmit cls
CALL OKEY
end
if count='4' then
do
Newline
call open file,"RAM:T/Security",'W'
call writeln file,"WRONG"
call close file
WriteLog "A User failed to Logon at the Front Door ;-)"
HANGUP
call NOCHECK
end
count=count+1
call MAIN
OKEY:
call open file,"RAM:T/Security",'W'
call writeln file,"RIGHT"
call close file
NOCHECK:
shutdown
exit
shutdown
ioerr:
error:
syntax:
shutdown
exit