Void Screams Back Radio

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                             *
       ******************************************************************* 
   
        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  LIBRARY-ADDR-VSBR  PIC X(15) VALUE 
                                                 'LIBRARY_CATALOG'.
                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-LIBRARY-CATALOG 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-LIBRARY-CATALOG
        
            SET LIBRARY-ADDR-VSBR TO TRUE.
            
       *==> FOLDERS STARTING WITH NUMBERS, THE LETTER A AND THE LETTER B 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.