000100*A---B--+----2----+----3----+----4----+----5----+----6----+----7-
000200 ID DIVISION.
000300 PROGRAM-ID. SCREEN1.
000400 AUTHOR. CHANJIN CHUNG.
000500 DATA DIVISION.
000600 WORKING-STORAGE SECTION.
000700 01  CYYDDD.
000800     03 CYY       PIC     99.
000900     03 CDDD      PIC     999.
001000 01  BYYDDD.
001100     03 BYY       PIC     99.
001200     03 BDDD      PIC     999.
001300 01  DAYSLIVED    PIC     9(5).
001400 01  FLAG         PIC     X     VALUE 'C'.
001500 SCREEN SECTION.
001600 01 FORM-SCREEN BACKGROUND IS BLUE FOREGROUND IS WHITE.
001700    05 BLANK SCREEN.
001800    05 'TODAY IS ' LINE 7 COLUMN 2 HIGHLIGHT.
001900    05 LINE 7 COLUMN 11 PIC 99999 FROM CYYDDD HIGHLIGHT.
002000    05 'ENTER YOUR DOB IN YYDDD FORMAT: ' LINE 9 COLUMN 2.
002100 01 INPUT-SCREEN.
002200    05 LINE 9 COLUMN 34 PIC 99999 TO BYYDDD AUTO.
002300 01 OUTPUT-SCREEN.
002400    05 'YOU HAVE LIVED' LINE 11 COLUMN 2.
002500    05 LINE 11 COLUMN 17 PIC ZZ,ZZZ FROM DAYSLIVED HIGHLIGHT.
002600    05 'DAYS.' LINE 11 COLUMN 24.
002700 01 END-SCREEN.
002800    05 LINE 24 COLUMN 2 VALUE
002900       'PRESS <Enter> TO CONTINUE OR "Q" TO END'.
003000
003100 PROCEDURE DIVISION.
003200 MAIN-PARA.
003300     PERFORM UNTIL FLAG = 'Q' OR 'q'
003400       ACCEPT CYYDDD FROM DAY
003500       DISPLAY FORM-SCREEN
003600       ACCEPT  INPUT-SCREEN
003700       COMPUTE DAYSLIVED = (CYY - BYY) * 365 + CDDD - BDDD
003800       DISPLAY OUTPUT-SCREEN
003900       DISPLAY END-SCREEN
004000       ACCEPT FLAG LINE 24 COLUMN 47 PROMPT ' ' REVERSED
004100     END-PERFORM.
004200     STOP RUN.