code:

---

 IF exist ("%systemdrive%\emran.txt")
       ?"It's there..."
       $file = "%systemdrive%\emran.txt"
       IF Open(1, $file) = 0
             $x = ReadLine(1)
             ;WHILE @ERROR = 0
             ? "Line read: [" + $x + "]"
             ;$x = ReadLine(1)
             ? "Currentdate: [" + @date + "]"
             ;LOOP
             Close (1)
       ELSE
             BEEP
             ? "Config file not opened, error code: [" + @error + "]"
       ENDIF

       ?"prefunction"

       $daysbetween=DateMath(@date,-7)

       ? "DaysBetween=" +$daysbetween

       ;if over 90 days run
       ;endif

 ELSE

;($begin)
;
;                       tue 21-may-2002 09:28:45       (kix 4.10 vs 3.04e)
;
;Informative KIXSTRIP:      input=27 output=27 skip=0
;
;Warning     KIXSTRIP:    1 error in block structure. missing statement(s).
;                           - do:until                 [0:0]
;                           - for|each:in|to:step|next [0|0:0|0:0|0]
;                           - function:endfunction     [0:0]
;                   -ERROR- - if:else:endif            [2:2:1]

;                           - select:case:endselect    [0:0:0]
;                           - while:loop               [0:0]
;Warning     KIXSTRIP: some lines contains errors or possible errors.
;Informative KIXSTRIP:    2 block_structures found.
;Informative KIXSTRIP:   no UDF's found.
;Informative KIXSTRIP:   no labels found.
;Summary     KIXSTRIP:      BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;
;($end)

---