uplime/WOPO
uplime
/
WOPO
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Converted tabs to spaces some more! Whoo!

This commit is contained in:
Quinn Evans 2015-10-01 00:40:59 -06:00
parent d50717767c
commit 7ae57c76c0
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
IRC-MSG.COB
View File

@ -9,7 +9,7 @@
LINKAGE SECTION.
01 BUFFER.
03 MSG-LENGTH PIC 9(3).
03 MSG-BODY PIC X(512).
03 MSG-BODY PIC X(512).
03 MSG-BODY-1 REDEFINES MSG-BODY PIC X.
88 HAS-PREFIX VALUE ";".
01 IRC-MESSAGE.
@ -21,13 +21,13 @@
03 PARAMETERS.
05 TARGET PIC X(50).
05 REST PIC X(480).
05 REST-PREFIX REDEFINES REST PIC X.
88 REST-PARAM VALUE ";".
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.
MOVE SPACES TO WORK.
MOVE 1 TO MSG-POINTER.
IF HAS-PREFIX THEN
PERFORM WITH-PREFIX
ELSE
@ -39,21 +39,21 @@
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.
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.
DELIMITED BY SPACES,
INTO WORK,
WITH POINTER MSG-POINTER.
UNSTRING WORK,
DELIMITED BY "!" OR "@",
INTO NICK,
IDENT,
HOST.
DELIMITED BY "!" OR "@",
INTO NICK,
IDENT,
HOST.