blob: a756c0f8d2fda9fc71b52593a4b7943e21b7e4ff (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
IDENTIFICATION DIVISION.
PROGRAM-ID. XXX.
*>
*> See ../README.md
*>
*>
*> Run as: cobc -xF -o ch-2.o ch-2.cb; ./ch-2.o
*>
PROCEDURE DIVISION.
DISPLAY "a8 c7 e6 c5 b3 c1 a2 c3 b1 a3 c4 b2".
STOP RUN.
|