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 A HEADER COMMENT. I'D TELL YOU *
* WHAT I'M DOING HERE BUT I DON'T *
* REALLY KNOW MYSELF. SO GOOD LUCK OUT *
* THERE STARDUST *
*******************************************************************
* NOTE: CURRENT FUNCTIONALITY INCLUDES THE LIBRARY CATALOG (IN
* PROGRESS) AND BLOG/READING ROOM.
* FUTURE PLANNED FUNCTIONS HAVE NO ETA AT THIS TIME BUT ARE
* DOCUMENTED TO REMIND ME THAT I WANT TO DO THEM EVENTUALLY.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-LINK-GROUP.
03 WS-PROTOCOL PIC X(8) VALUE 'https://'.
03 WS-HOME-ADDR-VSBR PIC X(15) VALUE 'VOIDSCREAMSBACK'.
03 WS-DOT PIC X VALUE '.'.
03 WS-HOST PIC X(13) VALUE 'NEOCITIES.ORG'.
03 WS-FSLASH PIC X VALUE '/'.
03 WS-TARGET PIC X(15).
88 ERRO-ADDR-VSBR PIC X(9) VALUE 'NOT_FOUND'.
88 MUSIC-ADDR-VSBR PIC X(15) VALUE
'MUSIC_ROOM'.
88 IPOD-ADDR-VSBR PIC X(11) VALUE 'SUFFLE_IPOD'.
88 SCREAM-ADDR-VSBR PIC X(11) VALUE 'SCREAM_SPOT'.
88 BLOG-VSBR PIC X(9) VALUE 'BLOG_VSBR'.
PROCEDURE DIVISION.
ENTRY 'VOID-SCREAMS-BACK-RADIO'.
PERFORM 0100-ACCESS-MUSIC-ROOM THRU 0100-EXIT.
PERFORM 0200-SHUFFLE-IPOD THRU 0200-EXIT.
PERFORM 0300-SCREAM-INTO-THE-VOID THRU 0300-EXIT.
PERFORM 0400-ACCESS-BLOG THRU 0400-EXIT.
PERFORM 9999-GET-LOST THRU 9999-EXIT.
MOVE ZERO TO RETURN-CODE.
GOBACK.
*/\/\/\/\/\/\/\/\/\/\/\/\/ END OF MAIN LINE \/\/\/\/\/\/\/\/\/\/\/\/*
0100-ACCESS-MUSIC-ROOM
SET MUSIC-ADDR-VSBR TO TRUE.
*==> FOLDERS STARTING WITH NUMBERS AND LETTERS A - D ARE UP.
*==> PAGE LAYOUT AND SUCH STILL BEING TWEAKED THO
CALL 'LINK' USING WS-LINK-GROUP.
0100-EXIT.
EXIT.
0200-SHUFFLE-IPOD.
SET IPOD-ADDR-VSBR TO TRUE.
*==> FUNCTION NOT YET AVAILABLE
CALL 'LINK' USING WS-LINK-GROUP.
0200-EXIT.
EXIT.
0300-SCREAM-INTO-THE-VOID.
SET SCREAM-ADDR-VSBR TO TRUE.
*==> FUNCTION NOT YET AVAILABLE IN DIGITAL BUT
*==> FEEL FREE TO SCREAM IN ANALOG
CALL 'LINK' USING USING WS-LINK-GROUP.
0300-EXIT.
EXIT.
0300-ACCESS-BLOG
SET BLOG-VSBR TO TRUE.
*==> THE READING ROOM
CALL 'LINK' USING USING WS-LINK-GROUP.
0400-EXIT.
EXIT.
9999-GET-LOST.
SET ERRO-ADDR-VSBR TO TRUE
*==> 404?
CALL 'LINK' USING USING WS-LINK-GROUP.
9999-EXIT.
EXIT.
