IDENTIFICATION DIVISION.
PROGRAM-ID. SERVER-DRONE.
ENVIRONMENT DIVISION.
MCD-RESTAURANT.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MONEY PIC 9(4)V99
PROCEDURE DIVISION.
PERFORM UNTIL END-OF-SHIFT
DISPLAY "MAY I TAKE YOUR ORDER?"
ACCEPT CUSTOMER-ORDER
PERFORM GET-CUSTOMER-ORDER
DISPLAY "THAT WILL BE",TOTAL-AMOUNT," PLEASE"
ACCEPT MONEY
SUBTRACT TOTAL-AMOUNT FROM MONEY GIVING CHANGE.
PERFORM GIVE-CHANGE-TO-CUSTOMER
PERFORM HAND-CUSTOMER-TRAY
DISPLAY "THANK YOU FOR VISITING MCD. ENJOY YOUR MEAL"
END-PERFORM
PERFORM GO-HOME
STOP RUN.
