Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
IDENTIFICATION DIVISION.
PROGRAM-ID. CounterProgram.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 COUNT PIC 9(4) VALUE 0.
01 IS-DARK PIC X VALUE 'N'.
PROCEDURE DIVISION.
DISPLAY 'Counter: ' COUNT
DISPLAY 'Theme: ' IS-DARK
ADD 1 TO COUNT
DISPLAY 'Counter: ' COUNT
MOVE 'Y' TO IS-DARK
DISPLAY 'Theme: ' IS-DARK
SUBTRACT 1 FROM COUNT
DISPLAY 'Counter: ' COUNT
MOVE 0 TO COUNT
DISPLAY 'Counter: ' COUNT
STOP RUN.Coding works best on desktop or with an external keyboard.