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

Replaced accidental tabs with spaces in WOPO.COB

This commit is contained in:
Quinn Evans 2015-10-01 00:26:19 -06:00
parent ad88c521c1
commit 0c253dc34c
1 changed files with 25 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
WOPO.COB
View File

@ -44,9 +44,9 @@
05 IDENT PIC X(16). 05 IDENT PIC X(16).
05 HOST PIC X(64). 05 HOST PIC X(64).
03 COMMAND PIC X(16). 03 COMMAND PIC X(16).
88 PING VALUE "PING". 88 PING VALUE "PING".
88 PRIVMSG VALUE "PRIVMSG". 88 PRIVMSG VALUE "PRIVMSG".
88 NOTICE VALUE "NOTICE". 88 NOTICE VALUE "NOTICE".
03 PARAMETERS. 03 PARAMETERS.
05 TARGET PIC X(50). 05 TARGET PIC X(50).
05 REST PIC X(480). 05 REST PIC X(480).
@ -56,7 +56,7 @@
03 WORK-PREFIX REDEFINES WORK PIC X. 03 WORK-PREFIX REDEFINES WORK PIC X.
88 IS-COMMAND VALUE "$". 88 IS-COMMAND VALUE "$".
03 PARAM PIC X(480) OCCURS 5 TIMES. 03 PARAM PIC X(480) OCCURS 5 TIMES.
03 REG PIC X(480) OCCURS 5 TIMES. 03 REG PIC X(480) OCCURS 5 TIMES.
01 BF-I-O. 01 BF-I-O.
03 BF-INPUT PIC X(512) 03 BF-INPUT PIC X(512)
@ -102,20 +102,20 @@
PERFORM SEND-LINE. PERFORM SEND-LINE.
MOVE "NICK" TO CONFIG-KEY. MOVE "NICK" TO CONFIG-KEY.
PERFORM READ-CONFIG-ENTRY. PERFORM READ-CONFIG-ENTRY.
MOVE CONFIG-VALUE TO WOPO-NICK. MOVE CONFIG-VALUE TO WOPO-NICK.
MOVE 1 TO MSG-LENGTH. MOVE 1 TO MSG-LENGTH.
MOVE SPACES TO MSG-BODY. MOVE SPACES TO MSG-BODY.
STRING "NICK" STRING "NICK"
INTO MSG-BODY INTO MSG-BODY
WITH POINTER MSG-LENGTH. WITH POINTER MSG-LENGTH.
ADD 1 TO MSG-LENGTH. ADD 1 TO MSG-LENGTH.
STRING WOPO-NICK DELIMITED BY SPACE, STRING WOPO-NICK DELIMITED BY SPACE,
INTO MSG-BODY INTO MSG-BODY
WITH POINTER MSG-LENGTH. WITH POINTER MSG-LENGTH.
PERFORM SEND-LINE. PERFORM SEND-LINE.
MOVE 1 TO MSG-LENGTH. MOVE 1 TO MSG-LENGTH.
MOVE SPACES TO MSG-BODY. MOVE SPACES TO MSG-BODY.
STRING "USER" STRING "USER"
INTO MSG-BODY INTO MSG-BODY
WITH POINTER MSG-LENGTH. WITH POINTER MSG-LENGTH.
ADD 1 TO MSG-LENGTH. ADD 1 TO MSG-LENGTH.
@ -151,7 +151,7 @@
CHANNEL-NAME DELIMITED BY SPACES, CHANNEL-NAME DELIMITED BY SPACES,
INTO MSG-BODY INTO MSG-BODY
WITH POINTER MSG-LENGTH WITH POINTER MSG-LENGTH
PERFORM SEND-LINE. PERFORM SEND-LINE.
READ-CONFIG-ENTRY. READ-CONFIG-ENTRY.
READ CONFIG RECORD READ CONFIG RECORD
@ -159,7 +159,7 @@
DISPLAY CONFIG-KEY DISPLAY CONFIG-KEY
GO TO DIE. GO TO DIE.
SEND-LINE. SEND-LINE.
CALL "CHANNEL-SEND". CALL "CHANNEL-SEND".
IF NOT SUCCESS THEN DISPLAY MSG-BODY IF NOT SUCCESS THEN DISPLAY MSG-BODY
GO TO DIE. GO TO DIE.
@ -186,10 +186,10 @@
D DISPLAY "ENTERED VALIDATE-USER". D DISPLAY "ENTERED VALIDATE-USER".
MOVE NICK TO USER-NAME. MOVE NICK TO USER-NAME.
READ USERS RECORD READ USERS RECORD
INVALID KEY MOVE 0 TO USER-LEVEL. INVALID KEY MOVE 0 TO USER-LEVEL.
D DISPLAY "SUPPOSED USER LEVEL ", USER-LEVEL. D DISPLAY "SUPPOSED USER LEVEL ", USER-LEVEL.
IF USER-LEVEL IS GREATER THAN 0 THEN IF USER-LEVEL IS GREATER THAN 0 THEN
MOVE SPACES TO MSG-BODY MOVE SPACES TO MSG-BODY
MOVE 1 TO MSG-LENGTH MOVE 1 TO MSG-LENGTH
STRING "PRIVMSG NICKSERV ;ACC" STRING "PRIVMSG NICKSERV ;ACC"
INTO MSG-BODY INTO MSG-BODY
@ -225,9 +225,9 @@
ELSE IF PRIVMSG THEN ELSE IF PRIVMSG THEN
D DISPLAY "PROCESSING PRIVMSG" D DISPLAY "PROCESSING PRIVMSG"
PERFORM HANDLE-MESSAGE PERFORM HANDLE-MESSAGE
ELSE IF NOTICE THEN ELSE IF NOTICE THEN
D DISPLAY "PROCESSING NOTICE" D DISPLAY "PROCESSING NOTICE"
PERFORM HANDLE-MESSAGE. PERFORM HANDLE-MESSAGE.
*THE REPLY FUNCTIONS NEED NICK, COMMAND, AND TARGET PRESERVED. *THE REPLY FUNCTIONS NEED NICK, COMMAND, AND TARGET PRESERVED.
BEGIN-REPLY. BEGIN-REPLY.
@ -250,10 +250,10 @@
INTO MSG-BODY INTO MSG-BODY
WITH POINTER MSG-LENGTH. WITH POINTER MSG-LENGTH.
IF TARGET IS NOT EQUAL TO WOPO-NICK THEN IF TARGET IS NOT EQUAL TO WOPO-NICK THEN
STRING NICK DELIMITED BY SPACES STRING NICK DELIMITED BY SPACES
". " DELIMITED BY SIZE ". " DELIMITED BY SIZE
INTO MSG-BODY INTO MSG-BODY
WITH POINTER MSG-LENGTH. WITH POINTER MSG-LENGTH.
REPLY-ACK. REPLY-ACK.
PERFORM BEGIN-REPLY. PERFORM BEGIN-REPLY.
@ -263,7 +263,9 @@
PERFORM SEND-LINE. PERFORM SEND-LINE.
PONG. PONG.
STRING "PONG" MOVE SPACES TO MSG-BODY.
MOVE 1 TO MSG-LENGTH.
STRING "PONG"
INTO MSG-BODY INTO MSG-BODY
WITH POINTER MSG-LENGTH. WITH POINTER MSG-LENGTH.
PERFORM SEND-LINE. PERFORM SEND-LINE.
@ -414,7 +416,7 @@
IF USER-LEVEL IS EQUAL TO 99 THEN IF USER-LEVEL IS EQUAL TO 99 THEN
MOVE REG(2) TO USER-LEVEL MOVE REG(2) TO USER-LEVEL
REWRITE USER-RECORD REWRITE USER-RECORD
INVALID KEY WRITE USER-RECORD. INVALID KEY WRITE USER-RECORD.
READ USERS RECORD READ USERS RECORD
INVALID KEY MOVE 0 TO USER-LEVEL. INVALID KEY MOVE 0 TO USER-LEVEL.
* RESTORE NICK AND TARGET, THEN REPLY. * RESTORE NICK AND TARGET, THEN REPLY.
@ -464,8 +466,8 @@
ELSE ELSE
MOVE 1 TO MSG-LENGTH MOVE 1 TO MSG-LENGTH
UNSTRING REST DELIMITED BY SPACE UNSTRING REST DELIMITED BY SPACE
INTO PARAM(1) INTO PARAM(1)
WITH POINTER MSG-LENGTH WITH POINTER MSG-LENGTH
UNSTRING REST UNSTRING REST
INTO REG(1) INTO REG(1)
WITH POINTER MSG-LENGTH WITH POINTER MSG-LENGTH
@ -505,8 +507,7 @@
IF REG(1) IS EQUAL TO SPACES THEN IF REG(1) IS EQUAL TO SPACES THEN
MOVE 999 TO MAYBE-CYCLE-LIMIT MOVE 999 TO MAYBE-CYCLE-LIMIT
ELSE ELSE
UNSTRING REG(1) INTO UNSTRING REG(1) INTO MAYBE-CYCLE-LIMIT.
MAYBE-CYCLE-LIMIT.
D DISPLAY "CYCLE LIMIT. ", CYCLE-LIMIT. D DISPLAY "CYCLE LIMIT. ", CYCLE-LIMIT.
* RESTORE NICK AND TARGET, THEN REPLY. * RESTORE NICK AND TARGET, THEN REPLY.
MOVE REG(2) TO NICK MOVE REG(2) TO NICK