CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 20:01:25 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=e3afdbd60d472ea6617f641ec65bc5e57666a895b019057ed0bc3e3c6270d361a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22Q2cdYMHicRuLQpul1SlAGMgA9DwoXePY%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d0f304ece120c5-BLR
Long Addition - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- IDENTIFICATION DIVISION.
- PROGRAM-ID. LONG-ADDITION.
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- DATA DIVISION.
- FILE SECTION.
- WORKING-STORAGE SECTION.
- 01 START-TIME PIC 9(10) COMP.
- 01 END-TIME PIC 9(10) COMP.
- 01 TIME-ELAPSED PIC 9(10) COMP.
- 01 NUM1 PIC 9(4) VALUE 2.
- 01 NUM2 PIC 9(4) VALUE 2.
- 01 RESULT PIC 9(4).
- 01 COUNTER PIC 9(10) VALUE ZERO.
- 01 MEMORY-LEAK PIC X(1000000).
- PROCEDURE DIVISION.
- BEGIN.
- PERFORM WITH TEST AFTER UNTIL COUNTER = 600000
- ADD 1 TO COUNTER
- MOVE SPACES TO MEMORY-LEAK
- CALL 'CBL_OC_TIME' USING BY CONTENT START-TIME
- CALL 'CBL_OC_TIME' USING BY CONTENT END-TIME
- COMPUTE TIME-ELAPSED = END-TIME - START-TIME
- IF TIME-ELAPSED < 600
- CONTINUE
- ELSE
- EXIT PERFORM
- END-PERFORM
- ADD NUM1 TO NUM2 GIVING RESULT
- DISPLAY "FINALLY, THE RESULT IS: " RESULT
- STOP RUN.
Advertisement
Add Comment
Please, Sign In to add comment
-
π Swapzone +37% glitch β O
JavaScript | 2 sec ago | 0.25 KB
-
π EASY MONEY GUIDE β
Working
JavaScript | 6 sec ago | 0.24 KB
-
ββ
Marketplace Glitch β
Working β
NEVER SEEN...
JavaScript | 7 sec ago | 0.25 KB
-
β
β Make huge profits on trading ββ 5
JavaScript | 11 sec ago | 0.25 KB
-
π ChangeNOW Exploit
JavaScript | 16 sec ago | 0.24 KB
-
ββ
Exploit 2500$ in 15 Minutesβββ P
JavaScript | 16 sec ago | 0.25 KB
-
ββ
Marketplace Glitch β
Working β
NEVER SEEN...
JavaScript | 19 sec ago | 0.25 KB
-
Free Crypto Method (NEVER SEEN BEFORE)ββ G
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