INSTALL @lib$ + "DATELIB"
      DIM B% 8
      TestDate%=FN_today
      REPEAT
        $B%=FN_date$(TestDate%, "yyyyMMdd")
        FOR I%=0 TO 3
          IF ?(B% + I%) <> ?(B% + 7 - I%) EXIT FOR
        NEXT
        IF I%=4 PRINT FN_date$(TestDate%, "yyyy-MM-dd")
        TestDate%+=1
      UNTIL VPOS=15
      END