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.