Work in progress. And aren't we all.
*----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7--|-+----8
IDENTIFICATION DIVISION.
PROGRAM-ID. VOID-SCREAMS-BACK-RADIO
AUTHOR. MUHD
DATE-WRITTEN. AUGUST 2025
*******************************************************************
* REMARKS: *
* THIS IS NOT A PROGRAM. *
*******************************************************************
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
*WEB ADDRESS FIELDS
01 WS-PROTOCOL PIC X(8) VALUE 'https://'.
01 WS-HOME-ADDR-VSBR PIC X(15) VALUE 'VOIDSCREAMSBACK'.
01 WS-DOT PIC X VALUE '.'.
01 WS-HOST PIC X(13) VALUE 'NEOCITIES.ORG'.
01 WS-FSLASH PIC X VALUE '/'.
01 WS-BLOG-ADDR-VSBR PIC X(9) VALUE 'VSBR_BLOG'.
01 WS-ERRO-ADDR-VSBR PIC X(9) VALUE 'NOT_FOUND'.
01 WS-LIBRARY-VSBR PIC X(15) VALUE 'LIBRARY_CATALOG'.
01 WS-IPOD-VSBR PIC X(11) VALUE 'SUFFLE_IPOD'.
01 WS-SCREAM-ADDR-VSBR PIC X(11) VALUE 'SCREAM_SPOT'.
*WEB ADDRESS RECIEVING FIELD
01 WS-LINK-ADDRESS PIC X(60).
PROCEDURE DIVISION.
ENTRY 'VOID-SCREAMS-BACK-RADIO'.
PERFORM 0100-ACCESS-LIBRARY-CATALOG THRU 0100-EXIT.
PERFORM 0200-SHUFFLE-IPOD THRU 0200-EXIT.
PERFORM 0300-SCREAM-INTO-THE-VOID THRU 0300-EXIT.
PERFORM 0400-SAYNG-THE-QUIET-PRT-ALOUD THRU 0400-EXIT.
PERFORM 9999-GET-LOST THRU 9999-EXIT.
MOVE ZERO TO RETURN-CODE.
GOBACK.
*/\/\/\/\/\/\/\/\/\/\/\/\/ END OF MAIN LINE \/\/\/\/\/\/\/\/\/\/\/\/*
0100-ACCESS-LIBRARY-CATALOG
INITIALIZE WS-LINK-ADDRESS.
STRING WS-PROTOCOL
WS-HOME-ADDR-VSBR
WS-DOT
WS-HOST
WS-FSLASH
WS-LIBRARY-VSBR
DELIMITED BY SIZE INTO WS-LINK-ADDRESS
END-STRING.
*==> GOING NOWHERE FAST. IT'S A LONG LIST.
CALL 'LINK' USING WS-LINK-ADDRESS.
0100-EXIT.
EXIT.
0200-SHUFFLE-IPOD.
INITIALIZE WS-LINK-ADDRESS.
STRING WS-PROTOCOL
WS-HOME-ADDR-VSBR
WS-DOT
WS-HOST
WS-FSLASH
WS-IPOD-ADDR-VSBR
DELIMITED BY SIZE INTO WS-LINK-ADDRESS
END-STRING.
*==> FUNCTION NOT YET AVAILABLE
CALL 'LINK' USING WS-LINK-ADDRESS.
0200-EXIT.
EXIT.
0300-SCREAM-INTO-THE-VOID.
INITIALIZE WS-LINK-ADDRESS.
STRING WS-PROTOCOL
WS-HOME-ADDR-VSBR
WS-DOT
WS-HOST
WS-FSLASH
WS-SCREAM-ADDR-VSBR
DELIMITED BY SIZE INTO WS-LINK-ADDRESS
END-STRING.
*==> FUNCTION NOT YET AVAILABLE DIGITALLY BUT
*==> FEEL FREE TO SCREAM IN ANALOG
CALL 'LINK' USING WS-LINK-ADDRESS.
0300-EXIT.
EXIT.
0400-SAYNG-THE-QUIET-PRT-ALOUD.
INITIALIZE WS-LINK-ADDRESS.
STRING WS-PROTOCOL
WS-HOME-ADDR-VSBR
WS-DOT
WS-HOST
WS-FSLASH
WS-BLOG-ADDR-VSBR
DELIMITED BY SIZE INTO WS-LINK-ADDRESS
END-STRING.
*==> NOT APPROPRATE FOR THE SOCIALS
CALL 'LINK' USING WS-LINK-ADDRESS.
0400-EXIT.
EXIT.
9999-GET-LOST.
INITIALIZE WS-LINK-ADDRESS.
STRING WS-PROTOCOL
WS-HOME-ADDR-VSBR
WS-DOT
WS-HOST
WS-FSLASH
WS-ERRO-ADDR-VSBR
DELIMITED BY SIZE INTO WS-LINK-ADDRESS
END-STRING.
*==> 404?
CALL 'LINK' USING WS-LINK-ADDRESS.
9999-EXIT.
EXIT.
