| CARVIEW |
Select Language
HTTP/2 200
date: Sun, 12 Oct 2025 03:45:32 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=d9c9ab090026f4e75834cf954c5b38dbb08319ca80ec48261c325dbb47667effa%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22Ah7Sie-zsaaJehhTaEoB_CbEBwcTBLnK%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d39ae24fa4c1bf-BLR
PROG001 - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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.
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐MAKE $500 IN 15 MIN⭐⭐
Java | 13 sec ago | 0.10 KB
-
⭐⭐⭐Instant Profit Method⭐⭐
Java | 38 sec ago | 0.10 KB
-
⭐⭐⭐Make $15OO in 2O minutesV G⭐⭐
Java | 49 sec ago | 0.10 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ G
JavaScript | 58 sec ago | 0.25 KB
-
⭐⭐⭐Crypto Accounts⭐⭐
Java | 1 min ago | 0.10 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ X
JavaScript | 1 min ago | 0.25 KB
-
⭐⭐⭐Make $1500 in 20 minutes⭐⭐
Java | 1 min ago | 0.10 KB
-
⭐✅ Swapzone Glitch ✅ Working ⭐⭐ X
JavaScript | 1 min ago | 0.25 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
