| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 20:32:48 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=318ed66325904e1a637b0fee75c046e184f18c0e3c1de9c1bf669ced60327c58a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22WhOJh-Lv4TX8m983kamKNXK8xx_U-YLA%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d120fb09a51712-BLR
LA - PERTEMUAN 4 - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- IDENTIFICATION DIVISION.
- PROGRAM-ID. TULIS.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT MHS ASSIGN TO DISK
- ORGANIZATION IS LINE SEQUENTIAL
- FILE STATUS IS ERR.
- DATA DIVISION.
- FILE SECTION.
- FD MHS
- LABEL RECORD IS STANDARD
- VALUE OF FILE-ID IS 'DATA.TXT'
- DATA RECORD IS RECMHS.
- 01 RECMHS.
- 02 NAMA PIC X(25).
- 02 NPM PIC X(8).
- WORKING-STORAGE SECTION.
- 77 ERR PIC X(2).
- 01 ISI-LAGI PIC X.
- 88 LAGI VALUE 'Y', 'y'.
- 88 TIDAK VALUE 'T', 't'.
- SCREEN SECTION.
- 01 HAPUS-LAYAR.
- 02 BLANK SCREEN.
- 01 ISI-DATA.
- 02 LINE 3 COLUMN 5 'NAMA : ' HIGHLIGHT.
- 02 COLUMN PLUS 1 PIC X(25) TO NAMA.
- 02 LINE 4 COLUMN 5 'NPM : ' HIGHLIGHT.
- 02 COLUMN PLUS 1 PIC X(8) TO NPM.
- PROCEDURE DIVISION.
- BUKA-FILE.
- OPEN OUTPUT MHS.
- MULAI.
- DISPLAY HAPUS-LAYAR
- DISPLAY ISI-DATA
- ACCEPT ISI-DATA.
- WRITE RECMHS
- DISPLAY(10, 5) 'ADA DATA LAGI (Y/T) ? '
- ACCEPT( , ) ISI-LAGI.
- IF LAGI GO TO MULAI.
- SELESAI.
- CLOS MHS.
- STOP RUN.
Advertisement
Add Comment
Please, Sign In to add comment
-
📌 Swapzone +37% glitch ⭐ V
JavaScript | 7 sec ago | 0.25 KB
-
⭐⭐⭐GMAIL Logs (2FA disabled)⭐⭐
Java | 9 sec ago | 0.10 KB
-
📝 Crypto Swap Glitch ✅ Working
JavaScript | 12 sec ago | 0.24 KB
-
✅⭐ Make huge profits on trading ⭐⭐ O
JavaScript | 16 sec ago | 0.25 KB
-
⭐⭐⭐MAKE $9OO INSTANTLY D A⭐⭐
Java | 19 sec ago | 0.10 KB
-
⭐⭐⭐Profit Method⭐⭐
Java | 19 sec ago | 0.10 KB
-
⭐⭐⭐MAKE $9OO INSTANTLY D M⭐⭐
Java | 20 sec ago | 0.10 KB
-
📝 EASY MONEY GUIDE ✅ Working
JavaScript | 22 sec ago | 0.24 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
