PROG001

       IDENTIFICATION DIVISION.
       PROGRAM-ID. PROG001.
       AUTHOR.     PEDRO.
      *
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
           DECIMAL-POINT IS COMMA.
      *
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 ENCERRAR PIC X(1).
       77 COR PIC X(10).
       SCREEN SECTION.
       01 TELA.
        05 BLANK SCREEN.
        05 LINE 01 COLUMN 29 VALUE "UNIMONTE - SANTOS".
        05 LINE 02 COLUMN 31 VALUE "LOJA DE CDs".
        05 LINE 06 COLUMN 23 VALUE "Digite a cor.......:".
        05 LINE 08 COLUMN 23 VALUE "Valor..............:".
        05 LINE 10 COLUMN 23 VALUE "Mensagem...........:".
        05 LINE 13 COLUMN 50 VALUE "Encerrar(S/N)......:".
      *
       PROCEDURE DIVISION.
       010-INICIO.
           DISPLAY TELA.
           ACCEPT (06, 44) COR.
           IF COR = 'VERDE' OR 'Verde' OR 'verde'
            DISPLAY (08, 44)  "10,00"
           ELSE
            IF COR = 'AZUL' OR 'Azul' OR 'azul'
             DISPLAY (08, 44) "20,00"
            ELSE
             IF COR = 'AMARELO' OR 'Amarelo' OR 'amarelo'
              DISPLAY (08, 44) "30,00"
             ELSE
              IF COR = 'VERMELHO' OR 'Vermelho' OR 'vermelho'
               DISPLAY (08, 44) "40,00"
              ELSE
               DISPLAY (10, 44) "COR INVALIDA".
           ACCEPT (13, 71) ENCERRAR.
           IF ENCERRAR = 'N' OR 'n'
            GO TO 010-INICIO.
       090-FIM.
       STOPRUN.