| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 20:10: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=707de75786c2f26a2c28f8446e8bd6982f240813522fb94903232bb0c29205eda%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22Kf_J6jLvMTeVLK2IDGkbpAmgCNbKfUP5%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d100617ab0c1b8-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
-
📌 Swapzone +37% glitch
JavaScript | 3 sec ago | 0.24 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ X
JavaScript | 7 sec ago | 0.25 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ P
JavaScript | 8 sec ago | 0.25 KB
-
📝 Exchange profit method
JavaScript | 12 sec ago | 0.24 KB
-
📌 Swapzone +37% glitch ⭐ O
JavaScript | 16 sec ago | 0.25 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ G
JavaScript | 17 sec ago | 0.25 KB
-
⭐ Free Crypto Method ⭐
JavaScript | 21 sec ago | 0.24 KB
-
✅⭐ Make huge profits on trading ⭐⭐ 5
JavaScript | 25 sec 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
