Date   : Tue, 12 Feb 2008 11:00:49 +0000
From   : robert@... (Rob)
Subject: Fwd: Text screen?

On 12/02/2008, Fragula <fragula@...> wrote:
> Could have been worse!
>
> Could have been COBOL
>
> :-O
>

PROGRAM MLIST1
DATA DIVISION

77 RANTDT        PIC 9(6) COMP
77 CURDAT       PIC 9(6) COMP
77 LASTDAT      PIC 9(6) COMP

PROCEDURE DIVISION

LOOP.
    CALL TIME$ USING CURDAT
    SUBTRACT LASTDAT FROM CURDAT GIVING RANTDT
    IF RANTDT GREATER THAN 30
        DISPLAY "Reply-To: time again.."
    ENDIF
   GOTO LOOP

ENDPROG

I think that'll work...  Might need some work on the headers,
Sorry my (BOS) COBOL is a little rusty, it being about four years
since I did any, and ten since I was doing it for a living...

(And sorry about any layout weirdness - hard to to tabulated indents
in the  proportional font gmail gives me..)