Remove INITIALIZE statements for ANSI-74 conformance.
This commit is contained in:
parent
7479e181e9
commit
09ad07405a
4 changed files with 19 additions and 17 deletions
|
@ -25,7 +25,9 @@
|
|||
88 REST-PARAM VALUE ":".
|
||||
|
||||
PROCEDURE DIVISION USING BUFFER, IRC-MESSAGE.
|
||||
INITIALIZE IRC-MESSAGE, WORK, MSG-POINTER.
|
||||
MOVE SPACES TO IRC-MESSAGE.
|
||||
MOVE SPACES TO WORK.
|
||||
MOVE 1 TO MSG-POINTER.
|
||||
IF HAS-PREFIX THEN
|
||||
PERFORM WITH-PREFIX
|
||||
ELSE
|
||||
|
|
|
@ -37,17 +37,17 @@
|
|||
DISPLAY "CONFIGURATION ENTRIES:"
|
||||
OPEN INPUT CONFIG.
|
||||
PERFORM PRINT-CONFIG-ENTRY UNTIL DONE.
|
||||
INITIALIZE STATE.
|
||||
MOVE 0 TO STATE.
|
||||
CLOSE CONFIG.
|
||||
DISPLAY "USER ENTRIES:"
|
||||
OPEN INPUT USERS.
|
||||
PERFORM PRINT-USER-ENTRY UNTIL DONE.
|
||||
INITIALIZE STATE.
|
||||
MOVE 0 TO STATE.
|
||||
CLOSE USERS.
|
||||
DISPLAY "CHANNEL ENTRIES:"
|
||||
OPEN INPUT CHANNELS.
|
||||
PERFORM PRINT-CHANNEL-ENTRY UNTIL DONE.
|
||||
INITIALIZE STATE.
|
||||
MOVE 0 TO STATE.
|
||||
CLOSE CHANNELS.
|
||||
EXIT PROGRAM.
|
||||
|
||||
|
|
|
@ -39,17 +39,17 @@
|
|||
DISPLAY "WRITING CONFIGURATION ENTRIES:".
|
||||
OPEN OUTPUT CONFIG.
|
||||
PERFORM WRITE-CONFIG-ENTRY UNTIL DONE.
|
||||
INITIALIZE STATE.
|
||||
MOVE 0 TO STATE.
|
||||
CLOSE CONFIG.
|
||||
DISPLAY "WRITING USER ENTRIES:"
|
||||
OPEN OUTPUT USERS.
|
||||
PERFORM WRITE-USER-ENTRY UNTIL DONE.
|
||||
INITIALIZE STATE.
|
||||
MOVE 0 TO STATE.
|
||||
CLOSE USERS.
|
||||
OPEN OUTPUT CHANNELS.
|
||||
DISPLAY "WRITING CHANNEL AUTOJOINS:"
|
||||
PERFORM WRITE-CHANNEL-ENTRY UNTIL DONE.
|
||||
INITIALIZE STATE.
|
||||
MOVE 0 TO STATE.
|
||||
CLOSE CHANNELS.
|
||||
CALL "PRINT-CONFIG".
|
||||
STOP RUN.
|
||||
|
|
20
WOPO.COB
20
WOPO.COB
|
@ -79,7 +79,7 @@
|
|||
READ CONFIG RECORD
|
||||
INVALID KEY MOVE SPACES TO CONFIG-VALUE.
|
||||
IF CONFIG-VALUE IS NOT EQUAL TO SPACES THEN
|
||||
INITIALIZE MSG-BODY
|
||||
MOVE SPACES TO MSG-BODY
|
||||
MOVE 1 TO MSG-LENGTH
|
||||
STRING "PASS " DELIMITED BY SIZE,
|
||||
CONFIG-VALUE DELIMITED BY SPACE,
|
||||
|
@ -90,7 +90,7 @@
|
|||
PERFORM READ-CONFIG-ENTRY.
|
||||
MOVE CONFIG-VALUE TO WOPO-NICK.
|
||||
MOVE 1 TO MSG-LENGTH.
|
||||
INITIALIZE MSG-BODY.
|
||||
MOVE SPACES TO MSG-BODY.
|
||||
STRING "NICK"
|
||||
INTO MSG-BODY
|
||||
WITH POINTER MSG-LENGTH.
|
||||
|
@ -100,7 +100,7 @@
|
|||
WITH POINTER MSG-LENGTH.
|
||||
PERFORM SEND-LINE.
|
||||
MOVE 1 TO MSG-LENGTH.
|
||||
INITIALIZE MSG-BODY.
|
||||
MOVE SPACES TO MSG-BODY.
|
||||
STRING "USER"
|
||||
INTO MSG-BODY
|
||||
WITH POINTER MSG-LENGTH.
|
||||
|
@ -151,7 +151,7 @@
|
|||
GO TO DIE.
|
||||
|
||||
RECEIVE-LINE.
|
||||
INITIALIZE MSG-BODY.
|
||||
MOVE SPACES TO MSG-BODY.
|
||||
CALL "CHANNEL-RECV".
|
||||
IF NOT SUCCESS THEN GO TO DIE.
|
||||
CALL "IRC-MSG" USING BUFFER, IRC-MESSAGE.
|
||||
|
@ -173,7 +173,7 @@
|
|||
READ USERS RECORD
|
||||
INVALID KEY MOVE 0 TO USER-LEVEL.
|
||||
IF USER-LEVEL IS GREATER THAN 0 THEN
|
||||
INITIALIZE MSG-BODY
|
||||
MOVE SPACES TO MSG-BODY.
|
||||
MOVE 1 TO MSG-LENGTH
|
||||
STRING "PRIVMSG NICKSERV :ACC"
|
||||
INTO MSG-BODY
|
||||
|
@ -195,7 +195,7 @@
|
|||
IF PARAM(3) IS NOT EQUAL TO "3" THEN
|
||||
MOVE 0 TO USER-LEVEL
|
||||
ELSE NEXT SENTENCE
|
||||
ELSE INITIALIZE COMMAND.
|
||||
ELSE MOVE SPACES TO COMMAND.
|
||||
|
||||
MAIN.
|
||||
PERFORM RECEIVE-LINE.
|
||||
|
@ -209,7 +209,7 @@
|
|||
|
||||
*THE REPLY FUNCTIONS NEED NICK, COMMAND, AND TARGET PRESERVED.
|
||||
BEGIN-REPLY.
|
||||
INITIALIZE MSG-BODY.
|
||||
MOVE SPACES TO MSG-BODY.
|
||||
MOVE 1 TO MSG-LENGTH.
|
||||
STRING COMMAND
|
||||
INTO MSG-BODY
|
||||
|
@ -301,7 +301,7 @@
|
|||
MOVE TARGET TO REG(4).
|
||||
PERFORM VALIDATE-USER.
|
||||
IF USER-LEVEL IS GREATER THAN 80 THEN
|
||||
INITIALIZE MSG-BODY
|
||||
MOVE SPACES TO MSG-BODY
|
||||
MOVE 1 TO MSG-LENGTH
|
||||
STRING "JOIN ", REG(1)
|
||||
INTO MSG-BODY
|
||||
|
@ -328,7 +328,7 @@
|
|||
MOVE REG(3) TO COMMAND
|
||||
MOVE REG(4) TO TARGET
|
||||
PERFORM REPLY-ACK
|
||||
INITIALIZE MSG-BODY
|
||||
MOVE SPACES TO MSG-BODY
|
||||
MOVE 1 TO MSG-LENGTH
|
||||
STRING "PART ", REG(1)
|
||||
INTO MSG-BODY
|
||||
|
@ -350,7 +350,7 @@
|
|||
MOVE REG(2) TO COMMAND
|
||||
MOVE REG(3) TO TARGET
|
||||
PERFORM REPLY-ACK
|
||||
INITIALIZE MSG-BODY
|
||||
MOVE SPACES TO MSG-BODY
|
||||
MOVE 1 TO MSG-LENGTH
|
||||
STRING "QUIT :", CONFIG-VALUE
|
||||
INTO MSG-BODY
|
||||
|
|
Loading…
Reference in a new issue