I am looking for a way for Renegade to reject a new-user signing on inputting    
   an invalid birthday (like anything past the current year minus 18 or    
   something)   
      
   In the Renegade source code, the following routine gets the date from the   
   caller:   
      
   procedure doage;   
   var   
     s:astr;   
     q:boolean;   
   begin   
     if (how = 1) and (IEMSIRec.bdate <> '') then   
       begin   
         buf := IEMSIRec.bdate;   
         IEMSIRec.bdate := '';   
       end;   
     print('Enter date of birth (mm/dd/yyyy). This will be used only in');   
     print('conjunction with a password reset if its forgotten.');   
     prt(':');   
     if how=3 then q:=TRUE else q:=FALSE;   
     UserColor(3); inputformatted(s,'##/##/####',q);   
     if (s <> '') then   
       begin   
         if (how = 2) then   
           sysoplog('Changed birthdate from '+pd2date(user.birthdate)+' to '+s);   
         user.birthdate := date2pd(s);   
       end;   
     done1:=TRUE;   
    end;   
      
   Do the new versions above Y2KA2 address this or can someone tell me what I    
   need to add/change?   
      
   I do not want to change the inputformatted function since it may "break" other   
   things here.   
      
   Nick   
      
   --- Renegade vY2Ka2   
    * Origin: darkrealms.ca (1:229/426)