/* rexx */                                                                      
/*-------------------------------------------------------------------*/         
/*                                                                   */         
/*                        REXX Exec : ZELLER                         */         
/*                                                                   */         
/*  Description :                                                    */         
/*                                                                   */         
/*  Created on : 12 Dec 2010                                         */         
/*  Created by : KEVIN FERGUSON                                      */         
/*             : Userid(MIT001)                                      */         
/*             : using ABBYDALE.PROD.REXX(ZELLER)                    */         
/*                                                                   */         
/*  Called by :                                                      */         
/*                                                                   */         
/*  Calls :                                                          */         
/*                                                                   */         
/*  Change Activity :                                                */         
/*                                                                   */         
/*                ©Copyright of Abbydale Systems LLC.                */         
/*                                                                   */         
/*-------------------------------------------------------------------*/         
day.0 = Saturday                                                                
day.1 = Sunday                                                                  
day.2 = Monday                                                                  
day.3 = Tuesday                                                                 
day.4 = Wednesday                                                               
day.5 = Thursday                                                                
day.6 = Friday                                                                  
mon.1 = January                                                                 
mon.2 = February                                                                
mon.3 = March                                                                   
mon.4 = April                                                                   
mon.5 = May                                                                     
mon.6 = June                                                                    
mon.7 = July                                                                    
mon.8 = August                                                                  
mon.9 = September                                                               
mon.10 = October                                                                
mon.11 = November                                                               
mon.12 = December                                                               
dd = 99                    /* set dummy day     */                              
mm = 99                    /* set dummy month   */                              
do until dd < 31                                                                
   Say Day?                /* Ask for day       */                              
   Pull dd                                                                      
end                                                                             
do until mm < 13                                                                
   Say Month "(1 - 12)"    /* Ask for month     */                              
   Pull mm                                                                      
end                                                                             
Say Year (yyyy)            /* Ask for year      */                              
Pull yy                                                                         
monmon = mm                                                                     
temp1 = ((mm+1)*26)%10                                                          
temp2 = yy%4                                                                    
temp3 = 6*(yy%100)                                                              
temp4 = yy%400                                                                  
temp1 = dd+temp1+temp2+temp3+temp4+yy                                           
if yy <  1751 then do                                                           
  temp1 = temp1 + 11                                                            
end                                                                             
if yy =  1752 then do                                                           
  if mm <= 3 then do                                                            
     if mm = 3 then do                                                          
        if dd <= 24 then do                                                     
           temp1 = temp1 - 11                                                   
        end                                                                     
     end                                                                        
     temp1 = temp1 + 11                                                         
  end                                                                           
end                                                                             
temp4 = temp1%7                                                                 
temp2 = temp4*7                                                                 
temp3 = temp1-temp2                                                             
say day.temp3 dd mon.monmon yy                                                  
exit                                                                            
/*-------------------------------------------------------------------*/         
/*                           End of ZELLER                           */         
/*-------------------------------------------------------------------*/