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
001600     DISPLAY "INPUT QUANTITY:"
001700     ACCEPT QTY
001800
001900     DISPLAY "INPUT UNIT PRICE:"
002000     ACCEPT UNIT-PRICE
002100
002200     COMPUTE SUBTOTAL = QTY * UNIT-PRICE
002300     COMPUTE TAX = SUBTOTAL * 0.1
002400     COMPUTE TOTAL = SUBTOTAL + TAX
002500
002600     DISPLAY "ITEM    : " ITEM-NAME
002700     DISPLAY "SUBTOTAL: " SUBTOTAL
002800     DISPLAY "TAX     : " TAX
002900     DISPLAY "TOTAL   : " TOTAL
003000
003100     STOP RUN.