IDENTIFICATION DIVISION.  PROGRAM-ID. GC33ZKE.  AUTHOR. GGGGEO2.
DATA DIVISION.  WORKING-STORAGE SECTION. 01 A1.  02 E1 PIC X(1).
02 E2 PIC X(1). 02 E3 PIC X(1).  02 E4 PIC X(1). 02 E5 PIC X(4).
02 E6 PIC X(1). 01 D1.  02 F1 PIC 9.  02  F2 PIC 9. 02 F3 PIC 9.
01  C1.  02 B1 PIC 9.  02 B2 PIC 9.  02  B3 PIC 9.  02 B4 PIC 9.
02 B5 PIC 9. 02 B6 PIC 9. 02 B7 PIC 9. 02 B8 PIC 9. 02 B9 PIC 9.
02 B0 PIC 9.  PROCEDURE DIVISION.  10000-MAIN-PARA.  DISPLAY "".
MOVE "NEW LINE." TO A1.  ACCEPT D1. DIVIDE F1 INTO F1 GIVING B4.
MOVE F1 TO B9.  SUBTRACT  F2 FROM F3 GIVING B6.  MOVE  F1 TO B9.
ADD  B4 TO B9 GIVING B3 B5.  SUBTRACT  B4, B3 FROM B6 GIVING B2.
MULTIPLY B6 BY B9 GIVING B0. ADD B3 TO B9 GIVING B7. DISPLAY "".
MULTIPLY B3 BY B9 GIVING B1 B8. ADD B4 TO B8. MULTIPLY B3 BY B5.
DISPLAY  E4 E1 E4 E4 B6 B2 E4 B4 B0 E6 B3 B1 B5 E4 E4 E4 E4  E4.
DISPLAY  E4 E3 E4 B2 B8 B7 E4 B4 B8 E6 B8 B4 B1 E4 E4. STOP RUN.