000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. CASHREG.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 01 ITEM-NAME      PIC X(20).
000600 01 QUANTITY       PIC 9(4).
000700 01 UNIT-PRICE     PIC 9(6).
000800 01 SUBTOTAL       PIC 9(8).
000900 01 TAX            PIC 9(8).
001000 01 TOTAL-AMOUNT   PIC 9(8).
001100 PROCEDURE DIVISION.
001200     DISPLAY "INPUT ITEM NAME:"
001300     ACCEPT ITEM-NAME.
001400
001500     DISPLAY "INPUT QUANTITY:"
001600     ACCEPT QUANTITY.
001700
001800     DISPLAY "INPUT UNIT PRICE:"
001900     ACCEPT UNIT-PRICE.
002000
002100     COMPUTE SUBTOTAL = QUANTITY * UNIT-PRICE.
002200     COMPUTE TAX = SUBTOTAL * 0.10.
002300     COMPUTE TOTAL-AMOUNT = SUBTOTAL + TAX.
002400
002500     DISPLAY " ".
002600     DISPLAY "ITEM NAME  : " ITEM-NAME.
002700     DISPLAY "SUBTOTAL   : " SUBTOTAL.
002800     DISPLAY "TAX(10%)   : " TAX.
002900     DISPLAY "TOTAL      : " TOTAL-AMOUNT.
003000
003100     STOP RUN.