Separate input and output buffers.
This commit is contained in:
parent
e49145cb03
commit
9b286fe420
224
WOPO.COB
224
WOPO.COB
|
@ -43,10 +43,17 @@
|
||||||
01 STATE PIC 9(2).
|
01 STATE PIC 9(2).
|
||||||
88 SUCCESS VALUE 0.
|
88 SUCCESS VALUE 0.
|
||||||
88 DONE VALUE 99.
|
88 DONE VALUE 99.
|
||||||
01 ASCII-MSG.
|
|
||||||
03 MSG-BODY PIC X(999).
|
01 IRC-I-O.
|
||||||
03 ASCII-TABLE.
|
03 INPUT-BUFFER.
|
||||||
05 ASCII-CELL PIC 999 OCCURS 999 TIMES.
|
05 MSG-BODY PIC X(999).
|
||||||
|
05 ASCII-TABLE.
|
||||||
|
07 ASCII-CELL PIC 999 OCCURS 999 TIMES.
|
||||||
|
03 OUTPUT-BUFFER.
|
||||||
|
05 MSG-BODY PIC X(999).
|
||||||
|
05 ASCII-TABLE.
|
||||||
|
07 ASCII-CELL PIC 999 OCCURS 999 TIMES.
|
||||||
|
|
||||||
01 WOPO.
|
01 WOPO.
|
||||||
03 WOPO-NICK PIC X(40).
|
03 WOPO-NICK PIC X(40).
|
||||||
03 REGISTER-FILE.
|
03 REGISTER-FILE.
|
||||||
|
@ -123,10 +130,11 @@
|
||||||
STRING
|
STRING
|
||||||
CONFIG-VALUE, DELIMITED BY SPACE,
|
CONFIG-VALUE, DELIMITED BY SPACE,
|
||||||
"$NUL$"
|
"$NUL$"
|
||||||
INTO MSG-BODY,
|
INTO MSG-BODY OF OUTPUT-BUFFER,
|
||||||
CALL "ENCODE-STRING" USING ASCII-MSG.
|
CALL "ENCODE-STRING" USING OUTPUT-BUFFER.
|
||||||
CALL "CHANNEL-OPEN" USING ASCII-TABLE, STATE.
|
CALL "CHANNEL-OPEN" USING ASCII-TABLE OF OUTPUT-BUFFER,
|
||||||
IF NOT SUCCESS THEN DISPLAY MSG-BODY
|
STATE.
|
||||||
|
IF NOT SUCCESS THEN DISPLAY MSG-BODY OF OUTPUT-BUFFER
|
||||||
GO TO DIE.
|
GO TO DIE.
|
||||||
MOVE "PASS" TO CONFIG-KEY.
|
MOVE "PASS" TO CONFIG-KEY.
|
||||||
READ CONFIG RECORD
|
READ CONFIG RECORD
|
||||||
|
@ -135,33 +143,33 @@
|
||||||
STRING "PASS " DELIMITED BY SIZE,
|
STRING "PASS " DELIMITED BY SIZE,
|
||||||
CONFIG-VALUE DELIMITED BY SPACE,
|
CONFIG-VALUE DELIMITED BY SPACE,
|
||||||
"$NUL$"
|
"$NUL$"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
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 SPACES TO MSG-BODY.
|
MOVE SPACES TO MSG-BODY OF OUTPUT-BUFFER.
|
||||||
STRING "NICK " DELIMITED BY SIZE,
|
STRING "NICK " DELIMITED BY SIZE,
|
||||||
WOPO-NICK DELIMITED BY SPACES,
|
WOPO-NICK DELIMITED BY SPACES,
|
||||||
"$NUL$"
|
"$NUL$"
|
||||||
INTO MSG-BODY.
|
INTO MSG-BODY OF OUTPUT-BUFFER.
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
MOVE SPACES TO MSG-BODY.
|
MOVE SPACES TO MSG-BODY OF OUTPUT-BUFFER.
|
||||||
MOVE 1 TO PTR(1).
|
MOVE 1 TO PTR(1).
|
||||||
STRING "USER " DELIMITED BY SIZE
|
STRING "USER " DELIMITED BY SIZE
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
MOVE "IDENT" TO CONFIG-KEY.
|
MOVE "IDENT" TO CONFIG-KEY.
|
||||||
PERFORM READ-CONFIG-ENTRY.
|
PERFORM READ-CONFIG-ENTRY.
|
||||||
STRING CONFIG-VALUE DELIMITED BY SPACE,
|
STRING CONFIG-VALUE DELIMITED BY SPACE,
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
ADD 1 TO PTR(1).
|
ADD 1 TO PTR(1).
|
||||||
MOVE "REAL-NAME" TO CONFIG-KEY.
|
MOVE "REAL-NAME" TO CONFIG-KEY.
|
||||||
PERFORM READ-CONFIG-ENTRY.
|
PERFORM READ-CONFIG-ENTRY.
|
||||||
STRING "BOGUS HOST $COLN$" DELIMITED BY SIZE,
|
STRING "BOGUS HOST $COLN$" DELIMITED BY SIZE,
|
||||||
CONFIG-VALUE DELIMITED BY " ",
|
CONFIG-VALUE DELIMITED BY " ",
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
OPEN INPUT CHANNELS.
|
OPEN INPUT CHANNELS.
|
||||||
|
@ -181,7 +189,7 @@
|
||||||
STRING "JOIN " DELIMITED BY SIZE,
|
STRING "JOIN " DELIMITED BY SIZE,
|
||||||
CHANNEL-NAME DELIMITED BY SPACES,
|
CHANNEL-NAME DELIMITED BY SPACES,
|
||||||
"$NUL$"
|
"$NUL$"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
||||||
READ-CONFIG-ENTRY.
|
READ-CONFIG-ENTRY.
|
||||||
|
@ -191,38 +199,41 @@
|
||||||
GO TO DIE.
|
GO TO DIE.
|
||||||
|
|
||||||
SEND-LINE.
|
SEND-LINE.
|
||||||
CALL "ENCODE-STRING" USING ASCII-MSG.
|
CALL "ENCODE-STRING" USING OUTPUT-BUFFER.
|
||||||
CALL "CHANNEL-SEND" USING ASCII-TABLE, STATE.
|
CALL "CHANNEL-SEND" USING ASCII-TABLE OF OUTPUT-BUFFER,
|
||||||
IF NOT SUCCESS THEN CALL "DECODE-STRING" USING ASCII-MSG
|
STATE.
|
||||||
DISPLAY MSG-BODY
|
IF NOT SUCCESS THEN CALL "DECODE-STRING" USING OUTPUT-BUFFER
|
||||||
|
DISPLAY MSG-BODY OF OUTPUT-BUFFER
|
||||||
GO TO DIE.
|
GO TO DIE.
|
||||||
|
|
||||||
RECEIVE-LINE.
|
RECEIVE-LINE.
|
||||||
CALL "CHANNEL-RECV" USING ASCII-TABLE, STATE.
|
CALL "CHANNEL-RECV" USING ASCII-TABLE OF INPUT-BUFFER,
|
||||||
|
STATE.
|
||||||
D DISPLAY "RECEIVED LINE FROM CHANNEL".
|
D DISPLAY "RECEIVED LINE FROM CHANNEL".
|
||||||
MOVE SPACES TO MSG-BODY.
|
MOVE SPACES TO MSG-BODY OF INPUT-BUFFER.
|
||||||
CALL "DECODE-STRING" USING ASCII-MSG.
|
CALL "DECODE-STRING" USING INPUT-BUFFER.
|
||||||
IF NOT SUCCESS THEN DISPLAY MSG-BODY
|
IF NOT SUCCESS THEN DISPLAY MSG-BODY OF INPUT-BUFFER
|
||||||
GO TO DIE.
|
GO TO DIE.
|
||||||
PERFORM GET-IRC-STATE.
|
PERFORM GET-IRC-STATE.
|
||||||
PERFORM GET-PARAMS.
|
PERFORM GET-PARAMS.
|
||||||
|
|
||||||
GET-IRC-STATE.
|
GET-IRC-STATE.
|
||||||
CALL "PARSE-IRC-MSG" USING MSG-BODY, IRC-PARAMS.
|
CALL "PARSE-IRC-MSG" USING MSG-BODY OF INPUT-BUFFER,
|
||||||
|
IRC-PARAMS.
|
||||||
IF GOT-PREFIX THEN
|
IF GOT-PREFIX THEN
|
||||||
MOVE MSG-SRC TO PTR(1)
|
MOVE MSG-SRC TO PTR(1)
|
||||||
UNSTRING MSG-BODY
|
UNSTRING MSG-BODY OF INPUT-BUFFER
|
||||||
DELIMITED BY "$EXC$" OR "$AT$" OR SPACES
|
DELIMITED BY "$EXC$" OR "$AT$" OR SPACES
|
||||||
INTO NICK
|
INTO NICK
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
MOVE COMMAND OF IRC-PARAMS TO PTR(1).
|
MOVE COMMAND OF IRC-PARAMS TO PTR(1).
|
||||||
UNSTRING MSG-BODY
|
UNSTRING MSG-BODY OF INPUT-BUFFER
|
||||||
DELIMITED BY SPACES
|
DELIMITED BY SPACES
|
||||||
INTO COMMAND OF IRC-STATE
|
INTO COMMAND OF IRC-STATE
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
IF NUM-PARAMS OF IRC-PARAMS IS NOT LESS THAN 1 THEN
|
IF NUM-PARAMS OF IRC-PARAMS IS NOT LESS THAN 1 THEN
|
||||||
MOVE PARAM OF IRC-PARAMS(1) TO PTR(1)
|
MOVE PARAM OF IRC-PARAMS(1) TO PTR(1)
|
||||||
UNSTRING MSG-BODY
|
UNSTRING MSG-BODY OF INPUT-BUFFER
|
||||||
DELIMITED BY SPACES
|
DELIMITED BY SPACES
|
||||||
INTO TARGET
|
INTO TARGET
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
|
@ -236,7 +247,7 @@
|
||||||
GET-PARAMS.
|
GET-PARAMS.
|
||||||
MOVE PARAM OF IRC-PARAMS(NUM-PARAMS OF IRC-PARAMS)
|
MOVE PARAM OF IRC-PARAMS(NUM-PARAMS OF IRC-PARAMS)
|
||||||
TO PTR(1).
|
TO PTR(1).
|
||||||
UNSTRING MSG-BODY DELIMITED BY "$NUL$"
|
UNSTRING MSG-BODY OF INPUT-BUFFER DELIMITED BY "$NUL$"
|
||||||
INTO R(1)
|
INTO R(1)
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
MOVE 1 TO PTR(1).
|
MOVE 1 TO PTR(1).
|
||||||
|
@ -261,20 +272,20 @@
|
||||||
MOVE SPACES TO PARAM OF WOPO(PTR(1)).
|
MOVE SPACES TO PARAM OF WOPO(PTR(1)).
|
||||||
|
|
||||||
PRESERVE-MESSAGE.
|
PRESERVE-MESSAGE.
|
||||||
MOVE MSG-BODY TO MSG-BODY-TMP.
|
MOVE MSG-BODY OF INPUT-BUFFER TO MSG-BODY-TMP.
|
||||||
|
|
||||||
RESTORE-MESSAGE.
|
RESTORE-MESSAGE.
|
||||||
MOVE MSG-BODY-TMP TO MSG-BODY.
|
MOVE MSG-BODY-TMP TO MSG-BODY OF INPUT-BUFFER.
|
||||||
|
|
||||||
VALIDATE-USER.
|
VALIDATE-USER.
|
||||||
D DISPLAY "ENTERED VALIDATE-USER".
|
D DISPLAY "ENTERED VALIDATE-USER".
|
||||||
PERFORM PRESERVE-MESSAGE.
|
PERFORM PRESERVE-MESSAGE.
|
||||||
MOVE NICK TO USER-NAME.
|
MOVE NICK TO USER-NAME.
|
||||||
MOVE SPACES TO MSG-BODY
|
MOVE SPACES TO MSG-BODY OF OUTPUT-BUFFER
|
||||||
STRING "PRIVMSG NICKSERV $COLN$ACC " DELIMITED BY SIZE
|
STRING "PRIVMSG NICKSERV $COLN$ACC " DELIMITED BY SIZE
|
||||||
NICK DELIMITED BY SPACE
|
NICK DELIMITED BY SPACE
|
||||||
" *$NUL$"
|
" *$NUL$"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
PERFORM SEND-LINE
|
PERFORM SEND-LINE
|
||||||
MOVE "NOTICE" TO WAITING-COMMAND
|
MOVE "NOTICE" TO WAITING-COMMAND
|
||||||
MOVE 0 TO STATE
|
MOVE 0 TO STATE
|
||||||
|
@ -317,40 +328,40 @@
|
||||||
|
|
||||||
*THE REPLY FUNCTIONS NEED NICK, COMMAND, AND TARGET PRESERVED.
|
*THE REPLY FUNCTIONS NEED NICK, COMMAND, AND TARGET PRESERVED.
|
||||||
BEGIN-REPLY.
|
BEGIN-REPLY.
|
||||||
MOVE SPACES TO MSG-BODY.
|
MOVE SPACES TO MSG-BODY OF OUTPUT-BUFFER.
|
||||||
MOVE 1 TO PTR(1).
|
MOVE 1 TO PTR(1).
|
||||||
STRING COMMAND OF IRC-STATE DELIMITED BY SPACES
|
STRING COMMAND OF IRC-STATE DELIMITED BY SPACES
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
ADD 1 TO PTR(1).
|
ADD 1 TO PTR(1).
|
||||||
IF TARGET IS EQUAL TO WOPO-NICK THEN
|
IF TARGET IS EQUAL TO WOPO-NICK THEN
|
||||||
STRING NICK DELIMITED BY SPACE
|
STRING NICK DELIMITED BY SPACE
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
ELSE
|
ELSE
|
||||||
STRING TARGET DELIMITED BY SPACE
|
STRING TARGET DELIMITED BY SPACE
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
STRING " $COLN$" DELIMITED BY SIZE
|
STRING " $COLN$" DELIMITED BY SIZE
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
|
|
||||||
BEGIN-STANDARD-REPLY.
|
BEGIN-STANDARD-REPLY.
|
||||||
PERFORM BEGIN-REPLY.
|
PERFORM BEGIN-REPLY.
|
||||||
STRING "$226$$128$$139$"
|
STRING "$226$$128$$139$"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
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 OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
|
|
||||||
REPLY-ACK.
|
REPLY-ACK.
|
||||||
PERFORM PRESERVE-MESSAGE.
|
PERFORM PRESERVE-MESSAGE.
|
||||||
PERFORM BEGIN-STANDARD-REPLY.
|
PERFORM BEGIN-STANDARD-REPLY.
|
||||||
STRING "OK.$NUL$"
|
STRING "OK.$NUL$"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
PERFORM RESTORE-MESSAGE.
|
PERFORM RESTORE-MESSAGE.
|
||||||
|
@ -358,38 +369,37 @@
|
||||||
REPLY-NAK.
|
REPLY-NAK.
|
||||||
PERFORM BEGIN-STANDARD-REPLY.
|
PERFORM BEGIN-STANDARD-REPLY.
|
||||||
STRING "ACCESS DENIED.$NUL$"
|
STRING "ACCESS DENIED.$NUL$"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
||||||
PONG.
|
PONG.
|
||||||
STRING "PONG$NUL$"
|
STRING "PONG$NUL$"
|
||||||
INTO MSG-BODY.
|
INTO MSG-BODY OF OUTPUT-BUFFER.
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
||||||
HANDLE-KICK.
|
HANDLE-KICK.
|
||||||
D DISPLAY "DETECTED KICK.".
|
D DISPLAY "DETECTED KICK.".
|
||||||
MOVE SPACES TO R(1).
|
MOVE SPACES TO R(1).
|
||||||
MOVE PARAM OF IRC-PARAMS(2) TO PTR(1).
|
MOVE PARAM OF IRC-PARAMS(2) TO PTR(1).
|
||||||
UNSTRING MSG-BODY DELIMITED BY SPACE
|
UNSTRING MSG-BODY OF INPUT-BUFFER DELIMITED BY SPACE
|
||||||
INTO R(1)
|
INTO R(1)
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
IF R(1) IS EQUAL TO WOPO-NICK THEN
|
IF R(1) IS EQUAL TO WOPO-NICK THEN
|
||||||
D DISPLAY "KICK WAS ME."
|
D DISPLAY "KICK WAS ME."
|
||||||
MOVE MSG-BODY TO MSG-BODY-TMP
|
MOVE SPACES TO MSG-BODY OF OUTPUT-BUFFER
|
||||||
MOVE SPACES TO MSG-BODY
|
|
||||||
STRING "JOIN " DELIMITED BY SIZE,
|
STRING "JOIN " DELIMITED BY SIZE,
|
||||||
TARGET DELIMITED BY SPACES
|
TARGET DELIMITED BY SPACES
|
||||||
"$NUL$"
|
"$NUL$"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
PERFORM SEND-LINE
|
PERFORM SEND-LINE
|
||||||
MOVE PARAM OF IRC-PARAMS(NUM-PARAMS OF IRC-PARAMS)
|
MOVE PARAM OF IRC-PARAMS(NUM-PARAMS OF IRC-PARAMS)
|
||||||
TO PTR(1)
|
TO PTR(1)
|
||||||
UNSTRING MSG-BODY-TMP
|
UNSTRING MSG-BODY OF INPUT-BUFFER
|
||||||
INTO R(1)
|
INTO R(1)
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
IF R(1) IS NOT EQUAL TO WOPO-NICK THEN
|
IF R(1) IS NOT EQUAL TO WOPO-NICK THEN
|
||||||
MOVE SPACES TO MSG-BODY
|
MOVE SPACES TO MSG-BODY OF OUTPUT-BUFFER
|
||||||
STRING "PRIVMSG " DELIMITED BY SIZE,
|
STRING "PRIVMSG " DELIMITED BY SIZE,
|
||||||
TARGET DELIMITED BY SPACES,
|
TARGET DELIMITED BY SPACES,
|
||||||
" $COLN$" DELIMITED BY SIZE,
|
" $COLN$" DELIMITED BY SIZE,
|
||||||
|
@ -397,7 +407,7 @@
|
||||||
". " DELIMITED BY SIZE,
|
". " DELIMITED BY SIZE,
|
||||||
R(1) DELIMITED BY "$NUL$",
|
R(1) DELIMITED BY "$NUL$",
|
||||||
"$NUL$"
|
"$NUL$"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
||||||
DDEBUG-PARAMS.
|
DDEBUG-PARAMS.
|
||||||
|
@ -466,7 +476,7 @@
|
||||||
STRING "$240$$159$$142$$135$ "
|
STRING "$240$$159$$142$$135$ "
|
||||||
- "GOD HELPS THOSE WHO HELP THEMSELVES, COMMIE. "
|
- "GOD HELPS THOSE WHO HELP THEMSELVES, COMMIE. "
|
||||||
- "$240$$159$$142$$134"
|
- "$240$$159$$142$$134"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
ELSE
|
ELSE
|
||||||
STRING "COMMANDS$COLN$ "
|
STRING "COMMANDS$COLN$ "
|
||||||
|
@ -475,7 +485,7 @@
|
||||||
- "$$LIST-USERS $$OP $$PART $$RELEVEL $$SHITFED "
|
- "$$LIST-USERS $$OP $$PART $$RELEVEL $$SHITFED "
|
||||||
- "$$SHOW-ESCAPES $$SOURCE $$STRESS $$VOICE "
|
- "$$SHOW-ESCAPES $$SOURCE $$STRESS $$VOICE "
|
||||||
- "$NUL$"
|
- "$NUL$"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
||||||
|
@ -483,14 +493,14 @@
|
||||||
PERFORM BEGIN-STANDARD-REPLY.
|
PERFORM BEGIN-STANDARD-REPLY.
|
||||||
STRING "$002$LEAVE MY CASE ALONE, "
|
STRING "$002$LEAVE MY CASE ALONE, "
|
||||||
- "$226$$156$$168$ASSHOL$LOWE$$226$$156$$168$."
|
- "$226$$156$$168$ASSHOL$LOWE$$226$$156$$168$."
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
||||||
HANDLE-SOURCE.
|
HANDLE-SOURCE.
|
||||||
PERFORM BEGIN-STANDARD-REPLY.
|
PERFORM BEGIN-STANDARD-REPLY.
|
||||||
STRING "HTTPS$COLN$//GITHUB.COM/HEDDWCH/WOPO"
|
STRING "HTTPS$COLN$//GITHUB.COM/HEDDWCH/WOPO"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
||||||
|
@ -498,7 +508,7 @@
|
||||||
PERFORM BEGIN-REPLY.
|
PERFORM BEGIN-REPLY.
|
||||||
STRING "$SOH$ACTION PUNCHES A "
|
STRING "$SOH$ACTION PUNCHES A "
|
||||||
- "$226$$156$$168$BABY$226$$156$$168$.$SOH$$NUL$"
|
- "$226$$156$$168$BABY$226$$156$$168$.$SOH$$NUL$"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
||||||
|
@ -511,7 +521,7 @@
|
||||||
STRING "$SOH$ACTION VIGOROUSLY LICKS " DELIMITED BY SIZE,
|
STRING "$SOH$ACTION VIGOROUSLY LICKS " DELIMITED BY SIZE,
|
||||||
R(1) DELIMITED BY SPACES,
|
R(1) DELIMITED BY SPACES,
|
||||||
".$SOH$$NUL$" DELIMITED BY SIZE
|
".$SOH$$NUL$" DELIMITED BY SIZE
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
||||||
|
@ -532,11 +542,11 @@
|
||||||
D DISPLAY "USER NAME. ", USER-NAME
|
D DISPLAY "USER NAME. ", USER-NAME
|
||||||
.
|
.
|
||||||
STRING USER-NAME
|
STRING USER-NAME
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
ADD WOPO-COUNTER TO PTR(1).
|
ADD WOPO-COUNTER TO PTR(1).
|
||||||
STRING USER-LEVEL
|
STRING USER-LEVEL
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
||||||
|
@ -545,7 +555,8 @@
|
||||||
OPEN INPUT USERS.
|
OPEN INPUT USERS.
|
||||||
MOVE 0 TO STATE.
|
MOVE 0 TO STATE.
|
||||||
PERFORM BEGIN-STANDARD-REPLY.
|
PERFORM BEGIN-STANDARD-REPLY.
|
||||||
STRING USERS-HEADER INTO MSG-BODY WITH POINTER PTR(1).
|
STRING USERS-HEADER INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
|
WITH POINTER PTR(1).
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
PERFORM LIST-USER-RECORD UNTIL DONE.
|
PERFORM LIST-USER-RECORD UNTIL DONE.
|
||||||
CLOSE USERS.
|
CLOSE USERS.
|
||||||
|
@ -564,11 +575,11 @@
|
||||||
IF NOT DONE THEN
|
IF NOT DONE THEN
|
||||||
PERFORM BEGIN-STANDARD-REPLY
|
PERFORM BEGIN-STANDARD-REPLY
|
||||||
STRING USER-NAME
|
STRING USER-NAME
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
ADD WOPO-COUNTER TO PTR(1)
|
ADD WOPO-COUNTER TO PTR(1)
|
||||||
STRING USER-LEVEL
|
STRING USER-LEVEL
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
||||||
|
@ -577,11 +588,11 @@
|
||||||
PERFORM VALIDATE-USER.
|
PERFORM VALIDATE-USER.
|
||||||
IF USER-LEVEL IS NOT LESS THAN 80 AND
|
IF USER-LEVEL IS NOT LESS THAN 80 AND
|
||||||
PARAM OF WOPO(2) IS NOT EQUAL TO "0" THEN
|
PARAM OF WOPO(2) IS NOT EQUAL TO "0" THEN
|
||||||
MOVE SPACES TO MSG-BODY
|
MOVE SPACES TO MSG-BODY OF OUTPUT-BUFFER
|
||||||
STRING "JOIN ", DELIMITED BY SIZE,
|
STRING "JOIN ", DELIMITED BY SIZE,
|
||||||
PARAM OF WOPO(2), DELIMITED BY SPACES,
|
PARAM OF WOPO(2), DELIMITED BY SPACES,
|
||||||
"$NUL$"
|
"$NUL$"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
PERFORM SEND-LINE
|
PERFORM SEND-LINE
|
||||||
ELSE
|
ELSE
|
||||||
PERFORM REPLY-NAK.
|
PERFORM REPLY-NAK.
|
||||||
|
@ -594,21 +605,22 @@
|
||||||
ELSE
|
ELSE
|
||||||
MOVE PARAM OF WOPO(2) TO R(1)
|
MOVE PARAM OF WOPO(2) TO R(1)
|
||||||
IF USER-LEVEL IS NOT LESS THAN 80 THEN
|
IF USER-LEVEL IS NOT LESS THAN 80 THEN
|
||||||
MOVE SPACES TO MSG-BODY
|
MOVE SPACES TO MSG-BODY OF OUTPUT-BUFFER
|
||||||
STRING "PART " DELIMITED BY SIZE,
|
STRING "PART " DELIMITED BY SIZE,
|
||||||
R(1) DELIMITED BY SPACES,
|
R(1) DELIMITED BY SPACES,
|
||||||
"$NUL$"
|
"$NUL$"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
PERFORM SEND-LINE
|
PERFORM SEND-LINE
|
||||||
ELSE
|
ELSE
|
||||||
PERFORM REPLY-NAK.
|
PERFORM REPLY-NAK.
|
||||||
|
|
||||||
STRING-LOWVS.
|
STRING-LOWVS.
|
||||||
STRING "$LOWV$" INTO MSG-BODY WITH POINTER PTR(1).
|
STRING "$LOWV$" INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
|
WITH POINTER PTR(1).
|
||||||
|
|
||||||
STRING-PARAMS.
|
STRING-PARAMS.
|
||||||
STRING PARAM OF WOPO(WOPO-COUNTER) DELIMITED BY SPACES
|
STRING PARAM OF WOPO(WOPO-COUNTER) DELIMITED BY SPACES
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
ADD 1 TO PTR(1).
|
ADD 1 TO PTR(1).
|
||||||
|
|
||||||
|
@ -619,12 +631,12 @@
|
||||||
MOVE NICK TO PARAM OF WOPO(2)
|
MOVE NICK TO PARAM OF WOPO(2)
|
||||||
MOVE 2 TO NUM-PARAMS OF WOPO.
|
MOVE 2 TO NUM-PARAMS OF WOPO.
|
||||||
IF USER-LEVEL IS NOT LESS THAN 60 THEN
|
IF USER-LEVEL IS NOT LESS THAN 60 THEN
|
||||||
MOVE SPACES TO MSG-BODY
|
MOVE SPACES TO MSG-BODY OF OUTPUT-BUFFER
|
||||||
MOVE 1 TO PTR(1)
|
MOVE 1 TO PTR(1)
|
||||||
STRING "MODE " DELIMITED BY SIZE,
|
STRING "MODE " DELIMITED BY SIZE,
|
||||||
TARGET DELIMITED BY SPACES,
|
TARGET DELIMITED BY SPACES,
|
||||||
" +" DELIMITED BY SIZE
|
" +" DELIMITED BY SIZE
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
PERFORM STRING-LOWVS
|
PERFORM STRING-LOWVS
|
||||||
VARYING WOPO-COUNTER
|
VARYING WOPO-COUNTER
|
||||||
|
@ -638,7 +650,7 @@
|
||||||
UNTIL WOPO-COUNTER IS GREATER THAN
|
UNTIL WOPO-COUNTER IS GREATER THAN
|
||||||
NUM-PARAMS OF WOPO
|
NUM-PARAMS OF WOPO
|
||||||
STRING "$NUL$"
|
STRING "$NUL$"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
PERFORM SEND-LINE
|
PERFORM SEND-LINE
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -651,12 +663,12 @@
|
||||||
MOVE NICK TO PARAM OF WOPO(2)
|
MOVE NICK TO PARAM OF WOPO(2)
|
||||||
MOVE 2 TO NUM-PARAMS OF WOPO.
|
MOVE 2 TO NUM-PARAMS OF WOPO.
|
||||||
IF USER-LEVEL IS NOT LESS THAN 60 THEN
|
IF USER-LEVEL IS NOT LESS THAN 60 THEN
|
||||||
MOVE SPACES TO MSG-BODY
|
MOVE SPACES TO MSG-BODY OF OUTPUT-BUFFER
|
||||||
MOVE 1 TO PTR(1)
|
MOVE 1 TO PTR(1)
|
||||||
STRING "MODE " DELIMITED BY SIZE,
|
STRING "MODE " DELIMITED BY SIZE,
|
||||||
TARGET DELIMITED BY SPACES,
|
TARGET DELIMITED BY SPACES,
|
||||||
" -" DELIMITED BY SIZE
|
" -" DELIMITED BY SIZE
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
PERFORM STRING-LOWVS
|
PERFORM STRING-LOWVS
|
||||||
VARYING WOPO-COUNTER
|
VARYING WOPO-COUNTER
|
||||||
|
@ -670,14 +682,15 @@
|
||||||
UNTIL WOPO-COUNTER IS GREATER THAN
|
UNTIL WOPO-COUNTER IS GREATER THAN
|
||||||
NUM-PARAMS OF WOPO
|
NUM-PARAMS OF WOPO
|
||||||
STRING "$NUL$"
|
STRING "$NUL$"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
PERFORM SEND-LINE
|
PERFORM SEND-LINE
|
||||||
ELSE
|
ELSE
|
||||||
PERFORM REPLY-NAK.
|
PERFORM REPLY-NAK.
|
||||||
|
|
||||||
STRING-LOWOS.
|
STRING-LOWOS.
|
||||||
STRING "$LOWO$" INTO MSG-BODY WITH POINTER PTR(1).
|
STRING "$LOWO$" INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
|
WITH POINTER PTR(1).
|
||||||
|
|
||||||
HANDLE-OP.
|
HANDLE-OP.
|
||||||
PERFORM REPLY-ACK.
|
PERFORM REPLY-ACK.
|
||||||
|
@ -686,12 +699,12 @@
|
||||||
MOVE NICK TO PARAM OF WOPO(2)
|
MOVE NICK TO PARAM OF WOPO(2)
|
||||||
MOVE 2 TO NUM-PARAMS OF WOPO.
|
MOVE 2 TO NUM-PARAMS OF WOPO.
|
||||||
IF USER-LEVEL IS NOT LESS THAN 70 THEN
|
IF USER-LEVEL IS NOT LESS THAN 70 THEN
|
||||||
MOVE SPACES TO MSG-BODY
|
MOVE SPACES TO MSG-BODY OF OUTPUT-BUFFER
|
||||||
MOVE 1 TO PTR(1)
|
MOVE 1 TO PTR(1)
|
||||||
STRING "MODE " DELIMITED BY SIZE,
|
STRING "MODE " DELIMITED BY SIZE,
|
||||||
TARGET DELIMITED BY SPACES,
|
TARGET DELIMITED BY SPACES,
|
||||||
" +" DELIMITED BY SIZE
|
" +" DELIMITED BY SIZE
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
PERFORM STRING-LOWOS
|
PERFORM STRING-LOWOS
|
||||||
VARYING WOPO-COUNTER
|
VARYING WOPO-COUNTER
|
||||||
|
@ -705,7 +718,7 @@
|
||||||
UNTIL WOPO-COUNTER IS GREATER THAN
|
UNTIL WOPO-COUNTER IS GREATER THAN
|
||||||
NUM-PARAMS OF WOPO
|
NUM-PARAMS OF WOPO
|
||||||
STRING "$NUL$"
|
STRING "$NUL$"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
PERFORM SEND-LINE
|
PERFORM SEND-LINE
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -718,12 +731,12 @@
|
||||||
MOVE NICK TO PARAM OF WOPO(2)
|
MOVE NICK TO PARAM OF WOPO(2)
|
||||||
MOVE 2 TO NUM-PARAMS OF WOPO.
|
MOVE 2 TO NUM-PARAMS OF WOPO.
|
||||||
IF USER-LEVEL IS NOT LESS THAN 70 THEN
|
IF USER-LEVEL IS NOT LESS THAN 70 THEN
|
||||||
MOVE SPACES TO MSG-BODY
|
MOVE SPACES TO MSG-BODY OF OUTPUT-BUFFER
|
||||||
MOVE 1 TO PTR(1)
|
MOVE 1 TO PTR(1)
|
||||||
STRING "MODE " DELIMITED BY SIZE,
|
STRING "MODE " DELIMITED BY SIZE,
|
||||||
TARGET DELIMITED BY SPACES,
|
TARGET DELIMITED BY SPACES,
|
||||||
" -" DELIMITED BY SIZE
|
" -" DELIMITED BY SIZE
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
PERFORM STRING-LOWOS
|
PERFORM STRING-LOWOS
|
||||||
VARYING WOPO-COUNTER
|
VARYING WOPO-COUNTER
|
||||||
|
@ -737,7 +750,7 @@
|
||||||
UNTIL WOPO-COUNTER IS GREATER THAN
|
UNTIL WOPO-COUNTER IS GREATER THAN
|
||||||
NUM-PARAMS OF WOPO
|
NUM-PARAMS OF WOPO
|
||||||
STRING "$NUL$"
|
STRING "$NUL$"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
PERFORM SEND-LINE
|
PERFORM SEND-LINE
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -750,10 +763,10 @@
|
||||||
INVALID KEY MOVE SPACES TO CONFIG-VALUE.
|
INVALID KEY MOVE SPACES TO CONFIG-VALUE.
|
||||||
PERFORM VALIDATE-USER.
|
PERFORM VALIDATE-USER.
|
||||||
IF USER-LEVEL IS NOT LESS THAN 90 THEN
|
IF USER-LEVEL IS NOT LESS THAN 90 THEN
|
||||||
MOVE SPACES TO MSG-BODY
|
MOVE SPACES TO MSG-BODY OF OUTPUT-BUFFER
|
||||||
STRING "QUIT $COLN$" DELIMITED BY SIZE,
|
STRING "QUIT $COLN$" DELIMITED BY SIZE,
|
||||||
CONFIG-VALUE,
|
CONFIG-VALUE,
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
PERFORM SEND-LINE
|
PERFORM SEND-LINE
|
||||||
GO TO QUIT
|
GO TO QUIT
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -775,10 +788,13 @@
|
||||||
ELSE
|
ELSE
|
||||||
PERFORM REPLY-NAK.
|
PERFORM REPLY-NAK.
|
||||||
PERFORM BEGIN-STANDARD-REPLY.
|
PERFORM BEGIN-STANDARD-REPLY.
|
||||||
STRING "SHOW-ESCAPES " INTO MSG-BODY WITH POINTER PTR(1).
|
STRING "SHOW-ESCAPES " INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
|
WITH POINTER PTR(1).
|
||||||
IF SHOULD-SHOW-ESCAPES THEN
|
IF SHOULD-SHOW-ESCAPES THEN
|
||||||
STRING "ON." INTO MSG-BODY WITH POINTER PTR(1)
|
STRING "ON." INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
ELSE STRING "OFF." INTO MSG-BODY WITH POINTER PTR(1).
|
WITH POINTER PTR(1)
|
||||||
|
ELSE STRING "OFF." INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
|
WITH POINTER PTR(1).
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
||||||
HANDLE-RELEVEL.
|
HANDLE-RELEVEL.
|
||||||
|
@ -799,7 +815,7 @@
|
||||||
INVALID KEY MOVE 0 TO USER-LEVEL.
|
INVALID KEY MOVE 0 TO USER-LEVEL.
|
||||||
PERFORM BEGIN-STANDARD-REPLY.
|
PERFORM BEGIN-STANDARD-REPLY.
|
||||||
STRING USER-RECORD
|
STRING USER-RECORD
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
||||||
|
@ -809,7 +825,7 @@
|
||||||
STRING "CODE. ",
|
STRING "CODE. ",
|
||||||
BF-CODE,
|
BF-CODE,
|
||||||
"$NUL$"
|
"$NUL$"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
D DISPLAY "BF-CODE. ", BF-CODE
|
D DISPLAY "BF-CODE. ", BF-CODE
|
||||||
PERFORM SEND-LINE
|
PERFORM SEND-LINE
|
||||||
|
@ -818,10 +834,10 @@
|
||||||
PERFORM VALIDATE-USER
|
PERFORM VALIDATE-USER
|
||||||
MOVE PARAM OF IRC-PARAMS(NUM-PARAMS OF IRC-PARAMS)
|
MOVE PARAM OF IRC-PARAMS(NUM-PARAMS OF IRC-PARAMS)
|
||||||
TO PTR(1)
|
TO PTR(1)
|
||||||
UNSTRING MSG-BODY DELIMITED BY SPACE
|
UNSTRING MSG-BODY OF INPUT-BUFFER DELIMITED BY SPACE
|
||||||
INTO R(1),
|
INTO R(1),
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
UNSTRING MSG-BODY
|
UNSTRING MSG-BODY OF INPUT-BUFFER
|
||||||
INTO R(1)
|
INTO R(1)
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
IF USER-LEVEL IS NOT LESS THAN 60 THEN
|
IF USER-LEVEL IS NOT LESS THAN 60 THEN
|
||||||
|
@ -834,20 +850,20 @@
|
||||||
PERFORM BEGIN-STANDARD-REPLY
|
PERFORM BEGIN-STANDARD-REPLY
|
||||||
STRING "INPUT. ",
|
STRING "INPUT. ",
|
||||||
BF-INPUT
|
BF-INPUT
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
D DISPLAY "INPUT. ", BF-INPUT
|
D DISPLAY "INPUT. ", BF-INPUT
|
||||||
D DISPLAY "MSG-BODY. ", MSG-BODY
|
D DISPLAY "MSG-BODY. ", MSG-BODY OF OUTPUT-BUFFER
|
||||||
PERFORM SEND-LINE
|
PERFORM SEND-LINE
|
||||||
ELSE
|
ELSE
|
||||||
PERFORM REPLY-ACK
|
PERFORM REPLY-ACK
|
||||||
PERFORM VALIDATE-USER
|
PERFORM VALIDATE-USER
|
||||||
MOVE PARAM OF IRC-PARAMS(NUM-PARAMS OF IRC-PARAMS)
|
MOVE PARAM OF IRC-PARAMS(NUM-PARAMS OF IRC-PARAMS)
|
||||||
TO PTR(1)
|
TO PTR(1)
|
||||||
UNSTRING MSG-BODY DELIMITED BY SPACE
|
UNSTRING MSG-BODY OF INPUT-BUFFER DELIMITED BY SPACE
|
||||||
INTO R(1),
|
INTO R(1),
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
UNSTRING MSG-BODY
|
UNSTRING MSG-BODY OF INPUT-BUFFER
|
||||||
INTO R(1)
|
INTO R(1)
|
||||||
WITH POINTER PTR(1)
|
WITH POINTER PTR(1)
|
||||||
IF USER-LEVEL IS NOT LESS THAN 50 THEN
|
IF USER-LEVEL IS NOT LESS THAN 50 THEN
|
||||||
|
@ -863,7 +879,7 @@
|
||||||
CALL "RE-ESCAPE" USING BF-OUTPUT, WOPO-COUNTER.
|
CALL "RE-ESCAPE" USING BF-OUTPUT, WOPO-COUNTER.
|
||||||
STRING "OUTPUT. " DELIMITED BY SIZE,
|
STRING "OUTPUT. " DELIMITED BY SIZE,
|
||||||
BF-OUTPUT DELIMITED BY "$NUL$"
|
BF-OUTPUT DELIMITED BY "$NUL$"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
D DISPLAY "SENDING LINE".
|
D DISPLAY "SENDING LINE".
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
@ -903,7 +919,7 @@
|
||||||
- "ACTUAL LIMIT WILL BE "
|
- "ACTUAL LIMIT WILL BE "
|
||||||
CYCLE-LIMIT
|
CYCLE-LIMIT
|
||||||
"."
|
"."
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY OF OUTPUT-BUFFER
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
||||||
|
@ -930,7 +946,7 @@
|
||||||
MOVE PARAM OF IRC-PARAMS(NUM-PARAMS OF IRC-PARAMS)
|
MOVE PARAM OF IRC-PARAMS(NUM-PARAMS OF IRC-PARAMS)
|
||||||
TO PTR(1).
|
TO PTR(1).
|
||||||
ADD 5 TO PTR(1)
|
ADD 5 TO PTR(1)
|
||||||
UNSTRING MSG-BODY DELIMITED BY "$NUL$"
|
UNSTRING MSG-BODY OF INPUT-BUFFER DELIMITED BY "$NUL$"
|
||||||
INTO R(1)
|
INTO R(1)
|
||||||
WITH POINTER PTR(1).
|
WITH POINTER PTR(1).
|
||||||
STRING "NOTICE " DELIMITED BY SIZE,
|
STRING "NOTICE " DELIMITED BY SIZE,
|
||||||
|
@ -938,8 +954,8 @@
|
||||||
" $COLN$$SOH$" DELIMITED BY SIZE,
|
" $COLN$$SOH$" DELIMITED BY SIZE,
|
||||||
R(1) DELIMITED BY "$SOH$",
|
R(1) DELIMITED BY "$SOH$",
|
||||||
"$SOH$$NUL$" DELIMITED BY SIZE
|
"$SOH$$NUL$" DELIMITED BY SIZE
|
||||||
INTO MSG-BODY.
|
INTO MSG-BODY OF OUTPUT-BUFFER.
|
||||||
D DISPLAY MSG-BODY.
|
D DISPLAY MSG-BODY OF OUTPUT-BUFFER.
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
||||||
HANDLE-VERSION.
|
HANDLE-VERSION.
|
||||||
|
@ -950,7 +966,7 @@
|
||||||
- "VERSION WHATEVER. RUNNING ON " DELIMITED BY SIZE
|
- "VERSION WHATEVER. RUNNING ON " DELIMITED BY SIZE
|
||||||
PLATFORM DELIMITED BY SPACES
|
PLATFORM DELIMITED BY SPACES
|
||||||
".$SOH$$NUL$" DELIMITED BY SIZE
|
".$SOH$$NUL$" DELIMITED BY SIZE
|
||||||
INTO MSG-BODY.
|
INTO MSG-BODY OF OUTPUT-BUFFER.
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
||||||
*HANDLE-TIME.
|
*HANDLE-TIME.
|
||||||
|
@ -960,7 +976,7 @@
|
||||||
* " $COLN$$SOH$TIME" DELIMITED BY SIZE,
|
* " $COLN$$SOH$TIME" DELIMITED BY SIZE,
|
||||||
* FORMATTED-TIME DELIMITED BY SIZE,
|
* FORMATTED-TIME DELIMITED BY SIZE,
|
||||||
* "$SOH$"
|
* "$SOH$"
|
||||||
* INTO MSG-BODY.
|
* INTO MSG-BODY OF OUTPUT-BUFFER.
|
||||||
* PERFORM SEND-LINE.
|
* PERFORM SEND-LINE.
|
||||||
|
|
||||||
QUIT.
|
QUIT.
|
||||||
|
|
Loading…
Reference in New Issue