I'm having trouble understanding how to use the dates.sbr.
MAP1 ADATE,S,8 ! MM/DD/YY format
MAP1 XDATE ! Separated format (3 to 7 bytes)
MAP2 MONTH,B,1
MAP2 DAY,B,1
MAP2 YEAR,B,1
MAP2 DOW,B,1 ! 1=Monday..7=Sunday (optional)
MAP2 YWEEK,B,1 ! Week of year (1-52) (optional)
MAP2 MWEEK,B,1 ! Week of month (1-5) (optional)
MAP2 MDAYS,B,1 ! Days in month (1-31) (optional)
MAP1 IDATE,B,4 ! Internal true Julian
MAP1 BDATE,B,3 ! AlphaBASE (same as 3 byte XDATE)
MAP1 CDATE,B,2 ! Century Julian (days since 1/1/1900)
MAP1 JDATE,B,2 ! Yearly Julian (days since start of yr)
MAP1 FDATE,F,6 ! Special case (0=today on input)
XCALL DATES, 1, RESULT, DATE1, DATE2
PRINT TAB(04,1);ADATE, XDATE,MONTH,DAY,YEAR,DOW
PRINT TAB(10,1);RESULT, DATE1, DATE2
XCALL MESAG,"",1


Thanks, Stephen