000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. RECEIPT.
000300 ENVIRONMENT DIVISION.
000400 DATA DIVISION.
000500 WORKING-STORAGE SECTION.
000600 01 ITEM-NAME      PIC X(20).
000700 01 QUANTITY       PIC 9(4).
000800 01 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     ACCEPT ITEM-NAME.
001400     ACCEPT QUANTITY.
001500     ACCEPT PRICE.

001600     COMPUTE SUBTOTAL = QUANTITY * PRICE.
001700     COMPUTE TAX = SUBTOTAL * 0.10.
001800     COMPUTE TOTAL = SUBTOTAL + TAX.

001900     DISPLAY "ITEM: " ITEM-NAME.
002000     DISPLAY "QUANTITY: " QUANTITY.
002100     DISPLAY "PRICE: " PRICE.
002200     DISPLAY "SUBTOTAL: " SUBTOTAL.
002300     DISPLAY "TAX: " TAX.
002400     DISPLAY "TOTAL: " TOTAL.

002500     STOP RUN.