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