proc main
   string sStartDate = "11/12/02"      ;Starting date
   string sEndDate = "11/15/02"        ;Ending date
   string sTime = "11:00:00AM"         ;Time unimportant, just need a value for strsltime command
   long lDate                          ;Long value containing time value
   string sDate                        ;String containing computed date

   strsltime sStartDate sTime lDate    ;Create a time value based on start date and time
   strreplace sStartDate "/" ""        ;Remove all slashes from start date
   strreplace sEndDate "/" ""          ;Remove all slashed from end date
   transmit sStartDate                 ;Transmit start date
   transmit "^M"                       ;Transmit carriage return

   while 1
      lDate = lDate + 84600            ;Compute time value for next day
      ltimestrs lDate sDate sTime      ;Convert time value to date and time
      strreplace sDate "/" ""          ;Remove slashes from date
      transmit sDate                   ;Transmit computed date
      transmit "^M"                    ;Transmit carriage return
      if strcmp sDate sEndDate         ;If computed date equals end date
         exitwhile                     ;Exit while loop
      endif
   endwhile
endproc