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

Remove INITIALIZE statements for ANSI-74 conformance.

This commit is contained in:
Quinn Evans 2015-09-27 22:07:06 -06:00
parent 7479e181e9
commit 09ad07405a
4 changed files with 19 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
IRC-MSG.COB
View File

@ -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

6
PRINTCNF.COB
View File

@ -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.

6
WOPO-CNF.COB
View File

@ -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
View File

@ -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