Category : Communication (modem) tools and utilities
Archive   : FIDOT892.ZIP
Filename : LOGIN.SCR

;
;LOGIN.SCR: Main user login function. Returns 1 if
;login was successful.
;
input: minput "Enter your name please: "
output "\r\n"
if "" input ;ignore blank lines
message "&s attempting to login" ;local status...

search: fread ;read one record (&1...&10)
jerror not-found ;oops, end of file...
if "&1" pwd ;if it matches go check password
jmp search

pwd: &a= 3 ;try up to three times
message "Password entry"
pwd1: minput "Enter your password: " ;get the password,
output "\r\n"
if "&2" done ;if it matches, fine,
output "Wrong!\r\n" ;else complain
djnz pwd1 ;try again

wrong_password:
output "Sorry, please contact the system operator.\r\n\r\n"
return 0

not-found:
output "Sorry, you do not have access to this system.\r\n\r\n"
return 0

done: &r= &1 ;remember user name
output "\r\n"
return 1 ;success!