IDENTIFICATION DIVISION.
PROGRAM-ID. HAL9000.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 USER-INPUT PIC A(50).
01 RESPONSE PIC A(80).
01 HAL-NAME PIC A(8) VALUE "HAL 9000".
01 HAL-GREETING PIC A(50) VALUE "Good evening, Dave.".
01 HAL-QUESTION PIC A(60) VALUE
"What are you doing, Dave?".
01 HAL-RESPONSE PIC A(80) VALUE
"I'm sorry, Dave. I'm afraid I can't do that.".
PROCEDURE DIVISION.
DISPLAY "System: " HAL-NAME
DISPLAY HAL-GREETING
DISPLAY HAL-QUESTION
ACCEPT USER-INPUT
DISPLAY "You said: " USER-INPUT
DISPLAY HAL-RESPONSE
STOP RUN.
Tim Bouma
npub1q6…nx7d5
2025-03-28 19:36:27
Author Public Key
npub1q6mcr8tlr3l4gus3sfnw6772s7zae6hqncmw5wj27ejud5wcxf7q0nx7d5Published at
2025-03-28 19:36:27Event JSON
{
"id": "21c88638d659cb57c1b7af62d50797850ba43dbaa928330a0fcc57471ed4df06",
"pubkey": "06b7819d7f1c7f5472118266ed7bca8785dceae09e36ea3a4af665c6d1d8327c",
"created_at": 1743190587,
"kind": 1,
"tags": [],
"content": "IDENTIFICATION DIVISION.\n PROGRAM-ID. HAL9000.\n\n ENVIRONMENT DIVISION.\n\n DATA DIVISION.\n WORKING-STORAGE SECTION.\n 01 USER-INPUT PIC A(50).\n 01 RESPONSE PIC A(80).\n 01 HAL-NAME PIC A(8) VALUE \"HAL 9000\".\n 01 HAL-GREETING PIC A(50) VALUE \"Good evening, Dave.\".\n 01 HAL-QUESTION PIC A(60) VALUE \n \"What are you doing, Dave?\".\n 01 HAL-RESPONSE PIC A(80) VALUE \n \"I'm sorry, Dave. I'm afraid I can't do that.\".\n\n PROCEDURE DIVISION.\n DISPLAY \"System: \" HAL-NAME\n DISPLAY HAL-GREETING\n DISPLAY HAL-QUESTION\n ACCEPT USER-INPUT\n\n DISPLAY \"You said: \" USER-INPUT\n DISPLAY HAL-RESPONSE\n\n STOP RUN.",
"sig": "af4af31881509ad54ca42ebdbaebec69036c7a38f58c5d53264f61e9b15e3fbf497861ed631666e7eb1606f2fbab4aee27e576c71714f9a846aad13df65eaecd"
}