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.