WOPO/IRC-MSG.COB

       IDENTIFICATION DIVISION.
       PROGRAM-ID. "IRC-MSG".

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WORK PIC X(480).
       01 MSG-POINTER PIC 9(3).

       LINKAGE SECTION.
       01 BUFFER.
           03 MSG-LENGTH PIC 9(3).
           03 MSG-BODY PIC X(512).
           03 MSG-BODY-1 REDEFINES MSG-BODY PIC X.
               88 HAS-PREFIX VALUE ";".
       01 IRC-MESSAGE.
           03 PREFIX.
               05 NICK PIC X(16).
               05 IDENT PIC X(16).
               05 HOST PIC X(64).
           03 COMMAND PIC X(16).
           03 PARAMETERS.
               05 TARGET PIC X(50).
               05 REST PIC X(480).
               05 REST-PREFIX REDEFINES REST PIC X.
                   88 REST-PARAM VALUE ";".

       PROCEDURE DIVISION USING BUFFER, IRC-MESSAGE.
           MOVE SPACES TO IRC-MESSAGE.
           MOVE SPACES TO WORK.
           MOVE 1 TO MSG-POINTER.
           IF HAS-PREFIX THEN
               PERFORM WITH-PREFIX
           ELSE
               MOVE 1 TO MSG-POINTER.
           UNSTRING MSG-BODY,
               DELIMITED BY SPACES,
               INTO COMMAND, TARGET
               WITH POINTER MSG-POINTER.
           UNSTRING MSG-BODY,
               INTO REST,
               WITH POINTER MSG-POINTER.
           IF REST-PARAM THEN
               MOVE REST TO WORK
               MOVE 2 TO MSG-POINTER
               UNSTRING WORK
                        INTO REST
                        WITH POINTER MSG-POINTER.

       WITH-PREFIX.
           MOVE 2 TO MSG-POINTER.
           UNSTRING MSG-BODY,
                    DELIMITED BY SPACES,
                    INTO WORK,
                    WITH POINTER MSG-POINTER.
           UNSTRING WORK,
                    DELIMITED BY "!" OR "@",
                    INTO NICK,
                    IDENT,
                    HOST.