Pedr026

PROG001

May 27th, 2018
518
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. PROG001.
  3.        AUTHOR.     PEDRO.
  4.       *
  5.        ENVIRONMENT DIVISION.
  6.        CONFIGURATION SECTION.
  7.        SPECIAL-NAMES.
  8.            DECIMAL-POINT IS COMMA.
  9.       *
  10.        DATA DIVISION.
  11.        WORKING-STORAGE SECTION.
  12.        77 ENCERRAR PIC X(1).
  13.        77 COR PIC X(10).
  14.        SCREEN SECTION.
  15.        01 TELA.
  16.         05 BLANK SCREEN.
  17.         05 LINE 01 COLUMN 29 VALUE "UNIMONTE - SANTOS".
  18.         05 LINE 02 COLUMN 31 VALUE "LOJA DE CDs".
  19.         05 LINE 06 COLUMN 23 VALUE "Digite a cor.......:".
  20.         05 LINE 08 COLUMN 23 VALUE "Valor..............:".
  21.         05 LINE 10 COLUMN 23 VALUE "Mensagem...........:".
  22.         05 LINE 13 COLUMN 50 VALUE "Encerrar(S/N)......:".
  23.       *
  24.        PROCEDURE DIVISION.
  25.        010-INICIO.
  26.            DISPLAY TELA.
  27.            ACCEPT (06, 44) COR.
  28.            IF COR = 'VERDE' OR 'Verde' OR 'verde'
  29.             DISPLAY (08, 44)  "10,00"
  30.            ELSE
  31.             IF COR = 'AZUL' OR 'Azul' OR 'azul'
  32.              DISPLAY (08, 44) "20,00"
  33.             ELSE
  34.              IF COR = 'AMARELO' OR 'Amarelo' OR 'amarelo'
  35.               DISPLAY (08, 44) "30,00"
  36.              ELSE
  37.               IF COR = 'VERMELHO' OR 'Vermelho' OR 'vermelho'
  38.                DISPLAY (08, 44) "40,00"
  39.               ELSE
  40.                DISPLAY (10, 44) "COR INVALIDA".
  41.            ACCEPT (13, 71) ENCERRAR.
  42.            IF ENCERRAR = 'N' OR 'n'
  43.             GO TO 010-INICIO.
  44.        090-FIM.
  45.        STOPRUN.
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×