       IDENTIFICATION DIVISION.
       PROGRAM-ID. test1.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 PRICE PICTURE 9999.
       01 RESULT PICTURE 999.
       01 TOPPING PICTURE XXXXXXXXXX.
       PROCEDURE DIVISION.
       MAIN.
       	MOVE 700 TO PRICE.
      	ACCEPT TOPPING FROM SYSIN.
      *	DISPLAY TOPPING.
      	IF TOPPING(1:1) = 'o' THEN
      		ADD 100 TO PRICE
      	END-IF.
      	IF TOPPING(2:1) = 'o' THEN
      		ADD 100 TO PRICE
      	END-IF.
      	IF TOPPING(3:1) = 'o' THEN
      		ADD 100 TO PRICE
      	END-IF.
      	IF PRICE=1000 THEN
      		DISPLAY 1000
      	ELSE 
      		MOVE PRICE TO RESULT
      	END-IF.
      	DISPLAY RESULT UPON SYSOUT.
      	STOP RUN.