procedure getPWS(var ok:boolean; var tries:integer);
var phone,pw,s:astr;
begin
   ok := true;
   echo := false;
   //commandline('User: '+thisUser.name+' Pass: '+thisUser.pw);
   sprompt(strings^.enterPW);
   inputL(pw,20);
   pw := strAllCaps(pw);
   if pw <> thisUser.pw then begin
      sprint(strings^.wrongPassword);
      inc(tries);
      if (tries>=status^.maxlogontries) then begin
         sprint(strings^.hack);
         hangup:=TRUE;
      end;
      echo := true;
      ok := False;
      exit;
   end;