COBOL: Multiplication

000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID.  MULTIPLICATION.
000300* EXAMPLE PROGRAM USING ACCEPT, DISPLAY AND MULTIPLY TO
000400* GET TWO SINGLE DIGIT NUMBERS FROM THE USER AND MULTIPLY THEM TOGETHER
000500 DATA DIVISION.
000600 WORKING-STORAGE SECTION.
000700 01  NUM1                                PIC 9  VALUE ZEROS.
000800 01  NUM2                                PIC 9  VALUE ZEROS.
000900 01  RESULT                              PIC 99 VALUE ZEROS.
001000 PROCEDURE DIVISION.
001100     DISPLAY "ENTER FIRST NUMBER  (1 DIGIT) : " WITH NO ADVANCING.
001200     ACCEPT NUM1.
001300     DISPLAY "ENTER SECOND NUMBER (1 DIGIT) : " WITH NO ADVANCING.
001400     ACCEPT NUM2.
001500     MULTIPLY NUM1 BY NUM2 GIVING RESULT.
001600     DISPLAY "RESULT IS = ", RESULT.
001700     STOP RUN.