language: COBOL 85 (tinycobol-0.65.9)
date: 99 days 6 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

        IDENTIFICATION DIVISION.
        PROGRAM-ID. SAMPLE.
 
        ENVIRONMENT DIVISION.
 
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        77 n PIC Z9 .
 
        PROCEDURE DIVISION.
                ACCEPT n
                PERFORM UNTIL n = 42
                        DISPLAY n
                        ACCEPT n
                END-PERFORM.
                STOP RUN.