/*  Program: proghist.p
 *  Descrip: Display program history.
 *  Author : dps
 *  Date   : 09/05/97
 *
 *   /* typical program usage */
 *      DO ON F12 ANYWHERE:
 *          RUN proghist.p.
 *      END.
 *
 */

DEF VAR i AS INTEGER INITIAL 3 NO-UNDO.

REPEAT WHILE PROGRAM-NAME(i) <> ? AND i < 15:
    DISPLAY
        i - 2               FORMAT ">9"
        PROGRAM-NAME(i)    FORMAT "x(31)"
        WITH 12 DOWN FRAME debug ROW 5 CENTERED OVERLAY NO-LABELS NO-ATTR
             TITLE " PROGRAM HISTORY - F4 TO EXIT ".
    DOWN WITH FRAME debug.
    i = i + 1.
END.
  
DO WHILE KEYFUNCTION(LASTKEY) <> "END-ERROR":
    READKEY.
END.
    
READKEY PAUSE 0.
HIDE FRAME debug.

/* end of module */