NOTE - DRIVER program for date calculation
SET TALK OFF
DO CALJUL
INPUT 'Enter interval in days between dates' TO DELTA
?
?
INPUT 'Enter number of times you want iterval' TO TOT
* - initialize counter
INPUT 'Do you want output to printer? (Y/N)' TO ANSWER
STORE 1 TO CNT
IF ANSWER
  SET PRINT ON
  ? '   START DATE = '
  ?? DATE
  SET PRINT OFF
ELSE
  ? '   START DATE = '
  ?? DATE
ENDIF
DO WHILE CNT<=TOT
   *  - increment date
   STORE X+DELTA TO X
   DO JULCAL
   STORE 1+CNT TO CNT
LOOP
ENDDO