1:
　2:
　3:
　4:
　5:
　6:
　7:
　8:
　9:
 10:
 11:
 12:
 13:
 14:
 15:
 16:
 17:
 18:
 19:
 20:
 21:
 22:
 23:
 24:
 25:
 26:
 27:
 28:
 29:

 IDENTIFICATION DIVISION.
     PROGRAM-ID.  DToB.

 ENVIRONMENT DIVISION.

 DATA DIVISION.
 WORKING-STORAGE SECTION.
*宣言
 01  I           PIC 99.
 01  JYU         PIC 9(5).
 01  NISINS.
         02  NISIN OCCURS 16 PIC 9.

 PROCEDURE DIVISION.
*　　入力
     DISPLAY "10進数を入力：" WITH NO ADVANCING.
     ACCEPT JYU.

*　　変換
     PERFORM VARYING I FROM 1 BY 1 UNTIL I > 16
         DIVIDE JYU BY 2 GIVING JYU REMAINDER NISIN(I)
     END-PERFORM.

*　　出力
     PERFORM VARYING I FROM 16 BY -1 UNTIL I <= 0
         DISPLAY NISIN(I) WITH NO ADVANCING
     END-PERFORM.

     STOP RUN.