shitty for.loop scripT

IDENTIFICATION DIVISION.
PROGRAM-ID.     SHITTYSCRIPT.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. RM-COBOL.
OBJECT-COMPUTER. RM-COBOL.

DATA DIVISION.
FILE SECTION.

PROCEDURE DIVISION.

MAIN-LOGIC SECTION.
BEGIN.
    DISPLAY NIGGA-1
    DISPLAY FUNCTION UPPER-CASE(NIGGA-1)
    DISPLAY FUNCTION LOWER-CASE(NIGGA-1)
    MOVE FUNCTION UPPER-CASE(NIGGA-1) TO NIGGA-2
    DISPLAY NIGGA-2

    DISPLAY " " LINE 1 POSITION 1 ERASE EOS.
    DISPLAY "I'm the nigga. EEEEEEEEEEEEEEEEEE  " LINE 15 POSITION 10.
   A-PARA.
   PERFORM B-PARA VARYING WS-A FROM 1 BY 1 UNTIL WS-A=5
   STOP RUN.

   A-PARA.
   DISPLAY 'IN A-PARA'
   GO TO B-PARA.

   B-PARA.
   DISPLAY 'IN B-PARA '.
   GO TO C-PARA D-PARA DEPENDING ON WS-A.

   C-PARA.
   DISPLAY 'IN C-PARA '.

   D-PARA.
   DISPLAY 'IN D-PARA '.
   STOP RUN.
EXIT.