diff --git a/src/bulletin.for b/src/bulletin.for
index 3c598b438edeb5dedace9cd397eaf53106119dbb..6bc56f6863029adc95643cf6da0d54b5a8def462 100644
--- a/src/bulletin.for
+++ b/src/bulletin.for
@@ -7,13 +7,13 @@ C Programmer: Mark R. London
C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
INCLUDE '($RMSDEF)'
@@ -661,11 +661,11 @@ C
COMMON /LAST_RECORD_WRITTEN/ OCOUNT
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
CHARACTER INEXDATE*11,INEXTIME*11
CHARACTER*(LINE_LENGTH) INDESCRIP
@@ -1155,9 +1155,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
PARAMETER BRDCST_LIMIT = 82*12 + 2
CHARACTER*(BRDCST_LIMIT) BMESSAGE
@@ -1232,7 +1232,7 @@ C
COMMON /BULLPAR/ BULL_PARAMETER,LEN_P
CHARACTER*64 BULL_PARAMETER
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
IF (BULL_POINT.EQ.0) THEN ! If no bulletin has been read
WRITE(6,'('' ERROR: You have not read any message.'')')
@@ -1330,9 +1330,9 @@ C
INCLUDE '($PRVDEF)'
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
IF (NEEDPRIV(1).EQ.0.AND.NEEDPRIV(2).EQ.0) THEN
CALL OPEN_BULLUSER_SHARED ! Get BULLUSER.DAT file
diff --git a/src/bulletin0.for b/src/bulletin0.for
index 506fad3569cdc3eb1d5d071896b03cc7b4d4e59e..1dba5c5682ce0a162eedac3765acffabaa11f89f 100644
--- a/src/bulletin0.for
+++ b/src/bulletin0.for
@@ -8,7 +8,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
INCLUDE '($BRKDEF)'
@@ -95,7 +95,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
EXTERNAL CLI$_ABSENT
@@ -174,11 +174,11 @@ C
COMMON /DECNET/ DECNET_PROC,ERROR_UNIT
LOGICAL DECNET_PROC
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -349,7 +349,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
COMMON /POINT/ BULL_POINT
@@ -456,11 +456,11 @@ C FUNCTION: Display directory of messages.
C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
COMMON /PAGE/ PAGE_LENGTH,PAGE_WIDTH,PAGING
LOGICAL PAGING
@@ -735,9 +735,9 @@ C
COMMON /BULLPAR/ BULL_PARAMETER,LEN_P
CHARACTER*64 BULL_PARAMETER
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
EXTERNAL CLI$_ABSENT
@@ -858,11 +858,11 @@ C FUNCTION: Alerts user of new messages upon logging in.
C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
COMMON /READIT/ READIT
diff --git a/src/bulletin1.for b/src/bulletin1.for
index fc51748c334e75ea131e679b184e6df48e1242f6..d3c1509855c2c5f54720164c84285878a4cc110a 100644
--- a/src/bulletin1.for
+++ b/src/bulletin1.for
@@ -19,7 +19,7 @@ C
CHARACTER*64 MAIL_SUBJECT
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
EXTERNAL CLI$_ABSENT
@@ -169,11 +169,11 @@ C
COMMON /BULLPAR/ BULL_PARAMETER,LEN_P
CHARACTER*64 BULL_PARAMETER
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
INCLUDE '($SSDEF)'
@@ -337,13 +337,13 @@ C
COMMON /COMMAND_LINE/ INCMD
CHARACTER*132 INCMD
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
EXTERNAL CLI$_ABSENT
@@ -677,9 +677,9 @@ C
INCLUDE '($SJCDEF)'
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
COMMON /POINT/ BULL_POINT
@@ -856,11 +856,11 @@ C
COMMON /POINT/ BULL_POINT
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
COMMON /READIT/ READIT
@@ -1243,9 +1243,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
OPEN(UNIT=3,FILE='SYS$LOGIN:BULL.SCR',IOSTAT=IER,
& RECL=LINE_LENGTH,STATUS='NEW',CARRIAGECONTROL='LIST')
@@ -1305,11 +1305,11 @@ C
COMMON /BULLPAR/ BULL_PARAMETER,LEN_P
CHARACTER*64 BULL_PARAMETER
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
COMMON /SYSTEM_FOLDERS/ SYSTEM_FLAG(FLONG),DUMMY(2)
@@ -1533,9 +1533,9 @@ C FUNCTION: Sets default expiration date.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
CHARACTER EXPIRE*3
diff --git a/src/bulletin2.for b/src/bulletin2.for
index 5a10bc73349c92b4e4742ca0b2c3ddf4ad050da1..b2cc0d20da589421f4c47c8245fa820b3e40708b 100644
--- a/src/bulletin2.for
+++ b/src/bulletin2.for
@@ -12,11 +12,11 @@ C FUNCTION: Set username for BBOARD for selected folder.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
INCLUDE '($UAIDEF)'
@@ -161,9 +161,9 @@ C FUNCTION: Set SYSTEM specification for selected folder.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
IF (FOLDER_NUMBER.EQ.0) THEN
WRITE (6,'('' ERROR: Cannot modify GENERAL folder.'')')
@@ -194,9 +194,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -355,13 +355,13 @@ C FUNCTION: Set or reset remote node specification for selected folder.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
EXTERNAL CLI$_ABSENT
@@ -514,9 +514,9 @@ C
COMMON /COMMAND_LINE/ INCMD
CHARACTER*132 INCMD
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
CHARACTER FROM_TEST*5,INFROM*(LINE_LENGTH)
@@ -733,11 +733,11 @@ C
COMMON /LAST_RECORD_WRITTEN/ OCOUNT
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
CHARACTER INEXDATE*11,INEXTIME*11
CHARACTER INDESCRIP*(LINE_LENGTH),INFROM*(LINE_LENGTH)
@@ -1176,7 +1176,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
EXTERNAL CLI$_ABSENT
@@ -1250,7 +1250,7 @@ C FUNCTION: Search for bulletin with specified string
C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
CHARACTER*132 SEARCH_STRING,SAVE_STRING
DATA SEARCH_STRING /' '/, SEARCH_LEN /1/
@@ -1398,11 +1398,11 @@ C
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
EXTERNAL CLI$_ABSENT
diff --git a/src/bulletin3.for b/src/bulletin3.for
index b5932971e5774546213b5a54e7b81a0afd0ddd43..4276137c746667f7e3ed607bd9978846179bd98b 100644
--- a/src/bulletin3.for
+++ b/src/bulletin3.for
@@ -14,11 +14,11 @@ C NOTE: Assumes directory file is already opened.
C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -166,9 +166,9 @@ C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
INCLUDE '($PRVDEF)'
@@ -256,11 +256,11 @@ C
COMMON /POINT/ BULL_POINT
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
INTEGER DIR_BTIM(2)
@@ -313,11 +313,11 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
CHARACTER*23 EXPDAT
CHARACTER*23 TODAY
@@ -520,7 +520,7 @@ C
INCLUDE '($PRVDEF)'
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
COMMON /REALPROC/ REALPROCPRIV(2)
@@ -675,11 +675,11 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
COMMON /BCP/ BULLCP
LOGICAL BULLCP
@@ -777,7 +777,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -816,7 +816,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
INTEGER SHUTDOWN_BTIM(FLONG)
@@ -875,7 +875,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
INTEGER SHUTDOWN_BTIM(FLONG)
@@ -995,11 +995,11 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
COMMON /SHUTDOWN/ NODE_NUMBER,NODE_AREA
COMMON /SHUTDOWN/ SHUTDOWN_FLAG(FLONG)
@@ -1052,13 +1052,13 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
INCLUDE '($RMSDEF)'
@@ -1370,7 +1370,7 @@ C
INCLUDE '($PRCDEF)'
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
COMMON /PRIVILEGES/ PROCPRIV(2),NEEDPRIV(2)
@@ -1479,7 +1479,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
COMMON /KNOWN_FOLDERS/ FOLDER_Q1,NUM_FOLDERS
DATA FOLDER_Q1/0/
@@ -1566,7 +1566,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
diff --git a/src/bulletin4.for b/src/bulletin4.for
index d86064c6a56b0eaae1ce2df588fd0bbe994e2292..8ecd91399ba61880b21be6b7f2ca7eb44dc1d811 100644
--- a/src/bulletin4.for
+++ b/src/bulletin4.for
@@ -135,7 +135,7 @@ C if it creates empty space for new user.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
CHARACTER*12 LOGIN_USER
@@ -182,7 +182,7 @@ C FUNCTION: Removes all entries in user file of usesr that no longer exist
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
CHARACTER TODAY*23
@@ -262,7 +262,7 @@ C
COMMON /LAST_RECORD_WRITTEN/ OCOUNT
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
IF (REMOTE_SET) THEN
WRITE (REMOTE_UNIT,'(A)',IOSTAT=IER) 2
@@ -396,7 +396,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
IF (ILEN.GT.LINE_LENGTH) THEN ! First read?
IBLOCK = SBLOCK ! Initialize pointers.
@@ -445,7 +445,7 @@ C increment the record counter.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -537,7 +537,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
INCLUDE '($RMSDEF)'
@@ -595,9 +595,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
IF (NBULL.GT.0) THEN
CALL READDIR(0,IER)
@@ -1141,9 +1141,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
INCLUDE '($PRVDEF)'
@@ -1203,7 +1203,7 @@ C
INCLUDE '($PRVDEF)'
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
COMMON /PRIVILEGES/ PROCPRIV(2),NEEDPRIV(2)
@@ -1319,9 +1319,9 @@ C NOTE: The ID must be in the RIGHTS data base.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
CHARACTER ACLENT*255,ID*(*),ACCESS*(*)
@@ -1391,9 +1391,9 @@ C NOTE: The ID must be in the RIGHTS data base.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
CHARACTER ACLENT*255,ID*(*),ACCESS*(*)
@@ -1443,13 +1443,13 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
DATA REMOTE_SET /.FALSE./
diff --git a/src/bulletin5.for b/src/bulletin5.for
index 212e3fac4a5fd79386ae3f3f373e13cd93eff64f..ad737d6d3bf3ed045951743e4d32e18979158eeb 100644
--- a/src/bulletin5.for
+++ b/src/bulletin5.for
@@ -12,9 +12,9 @@ C FUNCTION: Sets flag defaults for specified folder
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
COMMON /COMMAND_LINE/ INCMD
CHARACTER*132 INCMD
@@ -110,13 +110,13 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -246,13 +246,13 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
INCLUDE '($RMSDEF)'
INCLUDE '($SSDEF)'
@@ -556,13 +556,13 @@ C
COMMON /COMMAND_SWITCHES/ REVERSE_SWITCH,SEPARATE
CHARACTER*1 SEPARATE
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
CHARACTER*12 FOLDER_BBOARD_SAVE,FOLDER_OWNER_SAVE
CHARACTER*25 FOLDER_SAVE
@@ -661,9 +661,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
IF (FOLDER_NUMBER.LT.0) RETURN
@@ -700,13 +700,13 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -877,11 +877,11 @@ C FUNCTION: Display all FOLDER entries.
C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
COMMON /PAGE/ PAGE_LENGTH,PAGE_WIDTH,PAGING
LOGICAL PAGING
@@ -1005,11 +1005,11 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
INCLUDE '($SSDEF)'
@@ -1322,7 +1322,7 @@ C
CHARACTER*(*) KEY_NAME
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
ENTRY WRITE_FOLDER_FILE(IER)
@@ -1405,7 +1405,7 @@ C
CHARACTER*(*) KEY_NAME
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
CHARACTER*12 SAVE_USERNAME
@@ -1475,7 +1475,7 @@ C general bulletins continually for a certain amount of days.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
COMMON /BULLPAR/ BULL_PARAMETER,LEN_P
CHARACTER*64 BULL_PARAMETER
@@ -1522,7 +1522,7 @@ C FUNCTION: Enables or disables bulletin display at login.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
CHARACTER TODAY*23
diff --git a/src/bulletin6.for b/src/bulletin6.for
index f567bff536561e1efa99528d4dfac04bc521caec..d99d7e02088de039f8884865ae2a88f224258480 100644
--- a/src/bulletin6.for
+++ b/src/bulletin6.for
@@ -72,13 +72,13 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
INCLUDE '($FORIOSDEF)'
@@ -301,13 +301,13 @@ C
INCLUDE '($FORIOSDEF)'
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
COMMON /POINT/ BULL_POINT
@@ -518,11 +518,11 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
CHARACTER BUFFER*115
@@ -607,11 +607,11 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
CHARACTER*81 BUFFER
@@ -695,11 +695,11 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
CHARACTER*80 BUFFER,NEW_FILE
@@ -783,11 +783,11 @@ C FUNCTION: Converts bulletin folder file to new format.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
INCLUDE '($SSDEF)'
@@ -913,9 +913,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
CHARACTER BUFFER*74,NEW_FILE*80
@@ -1046,9 +1046,9 @@ C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
COMMON /PROMPT/ COMMAND_PROMPT
CHARACTER*39 COMMAND_PROMPT
@@ -1163,7 +1163,7 @@ C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -1206,7 +1206,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
CHARACTER*23 DATETIME
@@ -1234,7 +1234,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
CHARACTER*23 DATETIME
@@ -1275,7 +1275,7 @@ C
COMMON /DIR_POSITION/ DIR_NUM
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
CONV = .TRUE.
@@ -1339,7 +1339,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
CALL SYS_BINTIM(NEWEST_EXDATE//' '//NEWEST_EXTIME,NEWEST_EXBTIM)
@@ -1356,7 +1356,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
CALL SYS_BINTIM(EXDATE//' '//EXTIME,EX_BTIM)
@@ -1382,7 +1382,7 @@ C ACLENT - String which will be large enough to hold ACL information.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
INCLUDE '($ACLDEF)'
@@ -1464,9 +1464,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
OPEN (UNIT=10,FILE=BULLINF_FILE,STATUS='OLD',
& ACCESS='KEYED',RECORDTYPE='FIXED',
diff --git a/src/bulletin7.for b/src/bulletin7.for
index 398456d0ba9e7d769840fa51e64f588a7ba043f1..e143d3f435a27af748eee2dc96a12bfd0c2113d2 100644
--- a/src/bulletin7.for
+++ b/src/bulletin7.for
@@ -13,11 +13,11 @@ C or added.
C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
INCLUDE '($BRKDEF)'
@@ -182,9 +182,9 @@ C FUNCTION: Enters a new directory entry in the directory file.
C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -626,11 +626,11 @@ C If 3, modify BRIEF_FLAG, 4, modify NOTIFY_FLAG
C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
DIMENSION FLAGS(FLONG,4)
EQUIVALENCE (NEW_FLAG(1),FLAGS(1,1))
@@ -741,11 +741,11 @@ C FUNCTION: Sets version number.
C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
DIMENSION FLAGS(FLONG,4)
EQUIVALENCE (NEW_FLAG(1),FLAGS(1,1))
@@ -1007,11 +1007,11 @@ C FUNCTION: Searches for empty space in bulletin file and deletes it.
C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
CHARACTER FILENAME*132,BUFFER*128
@@ -1185,9 +1185,9 @@ C was abnormally terminated.
C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
CHARACTER*(DIR_RECORD_LENGTH) BULLDIR_ENTRY_SAVE
@@ -1300,11 +1300,11 @@ C FUNCTION: Show user flags.
C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
C
C Find user entry in BULLUSER.DAT to obtain flags.
@@ -1430,7 +1430,7 @@ C FUNCTION: Opens the file in SYS$LOGIN which contains user information.
C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
COMMON /USERINFO/ USERINFO_READ
DATA USERINFO_READ /.FALSE./
@@ -1497,7 +1497,7 @@ C
COMMON /USERINFO/ USERINFO_READ
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
IF (.NOT.USERINFO_READ) RETURN
@@ -1547,9 +1547,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
COMMON /READIT/ READIT
@@ -1748,7 +1748,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
WRITE (6,'('' ERROR: Connection to remote folder disconnected.'')')
diff --git a/src/bulletin8.for b/src/bulletin8.for
index 7d2c223645046a3490a1e905412dce84b0254c79..dba2cf0195fe2a7a51be372e9aa8085fdfdba0b5 100644
--- a/src/bulletin8.for
+++ b/src/bulletin8.for
@@ -146,7 +146,7 @@ C CALL SET_TIMER('02')
INCLUDE '($MSGDEF)'
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
PARAMETER MAXLINK = 10
@@ -770,13 +770,13 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
PARAMETER MAXLINK = 10
@@ -1267,11 +1267,11 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
PARAMETER MAXLINK = 10
@@ -1324,7 +1324,7 @@ C
COMMON /PRIVILEGES/ PROCPRIV(2),NEEDPRIV(2)
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
IF ((PROCPRIV(1).AND.NEEDPRIV(1)).EQ.0.AND.
& (PROCPRIV(2).AND.NEEDPRIV(2)).EQ.0) THEN
diff --git a/src/bulletin9.for b/src/bulletin9.for
index ecabd14594cb4f1753e6befe8f1c5d766067d17b..c0575a3b8a85f4587a10fde7b1598a5a72a5abca 100644
--- a/src/bulletin9.for
+++ b/src/bulletin9.for
@@ -13,9 +13,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
COMMON /NODE_INFO/ NODES,LOCAL_NODE_FOUND,NODE_NUM,
& NODE_ERROR,POINT_NODE
@@ -113,11 +113,11 @@ C FUNCTION: Sets or clears specified flag for folder
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
CHARACTER*(*) FLAGNAME
@@ -157,11 +157,11 @@ C FUNCTION: Sets folder expiration limit.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
IF (LIMIT.LT.0) THEN
WRITE (6,'('' ERROR: Invalid expiration length specified.'')')
@@ -191,9 +191,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
CHARACTER*(DIR_RECORD_LENGTH) BULLDIR_ENTRY_SAVE
@@ -707,7 +707,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
COMMON /TAGS/ BULL_TAG,READ_TAG
DATA BULL_TAG /.FALSE./,READ_TAG /.FALSE./
@@ -779,9 +779,9 @@ C
INCLUDE '($FORIOSDEF)'
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
CHARACTER*12 TAG_KEY
@@ -809,9 +809,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
CHARACTER*12 TAG_KEY
@@ -845,7 +845,7 @@ C
INCLUDE '($FORIOSDEF)'
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
COMMON /TAGS/ BULL_TAG,READ_TAG
@@ -889,7 +889,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
COMMON /TAGS/ BULL_TAG,READ_TAG
@@ -958,7 +958,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
COMMON /TAGS/ BULL_TAG,READ_TAG
@@ -1056,10 +1056,10 @@ C Brian Nelson, Brian@uoft02.bitnet (or .ccnet, node 8.2)
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
- INCLUDE 'BULLFILES.INC'
- INCLUDE 'BULLFOLDER.INC'
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulldir.inc
+ INCLUDE 'bullfiles.inc
+ INCLUDE 'bullfolder.inc
+ INCLUDE 'bulluser.inc
COMMON /POINT/ BULL_POINT
@@ -1175,9 +1175,9 @@ C FUNCTION: Shows information for specified users.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc
DIMENSION NOLOGIN_BTIM(2)
@@ -1264,11 +1264,11 @@ C False if folder not found.
C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
COMMON /BCP/ BULLCP
LOGICAL BULLCP
@@ -1403,9 +1403,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
COMMON /MAIL_PROTOCOL/ PROTOCOL,LPRO
CHARACTER*12 PROTOCOL
@@ -1568,9 +1568,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
COMMON /DIGEST/ LDESCR,FIRST_BREAK
@@ -1642,7 +1642,7 @@ C
COMMON /MAIL_PROTOCOL/ PROTOCOL,LPRO
CHARACTER*12 PROTOCOL
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
CHARACTER*(*) IFROM
@@ -1748,7 +1748,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc
CHARACTER*(*) INDESCRIP
@@ -1793,7 +1793,7 @@ C
CHARACTER*(*) BUFFER
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc
IF (.NOT.BTEST(FOLDER_FLAG,4).OR.TRIM(BUFFER).EQ.0) THEN
! If STRIP not set for folder or empty line