PROGRAM FOR SCREEN SECTION:
identification division.
program- id.
environment division.
data division.
working-storage section.
01 a pic 9(2) value 0.
01 b pic 9(2) value 0.
01 c pic 9(3) value 123.
screen section.
01 b-screen.
02 blank screen.
01 screen1.
02 line 3 column 5 pic 9(2) to a auto bell.
02 line 5 column 5 pic 9(2) to b auto bell.
01 screen2.
02 line 7 column 5 pic 9(2) from a blink reverse-video.
02 line 9 column 5 pic 9(2) from b highlight blink.
procedure division.
p0.
display b-screen.
p1.
display screen1.
accept screen1.
display screen2.
compute c = a + b.
display " ".
display " c = " c.
display "Using exhibit".
exhibit c.
stop run.