38S8 ...[??? DATECON SECT CENT FGN 7 DOC
 3942    [ MACRO FOR BINARY TO CHARACTER DATE CONVERSION 
 39HL    #MAC  DATECON   
 3=3=    #STR  EDATE,%A  
 3=GW    (   
 3?2G          LDX   0  %A                  [VERSION IF NOT TODAYS DATE WANTED   
 3?G6          SMO      FX2  
 3?^Q          STO   0  EXEC1
 3#FB          DOWN     DATECON,1
 3#^2    )   
 3*DL    #STR  EDATE,%A  
 3*Y=    #SKI
 3BCW    (   
 3BXG          LDX   1  FX1                 [VERSION IF TODAYS DATE WANTED   
 3CC6          LDX   2  FX2  
 3CWQ          LDX   0  FDATE
 3DBB          STO   0  ACOMMUNE1(2) 
 3DW2          LDX   0  FDATE+1  
 3F*L          STO   0  ACOMMUNE2(2) 
 3FT=    )   
 3G#W    #NOR