diff --git a/.gitignore b/.gitignore
index 1371077b64aa10aa53d11017918304850b9a59b2..9e7bbfef63cf1e337bce111aa490f6884389cc76 100644
--- a/.gitignore
+++ b/.gitignore
@@ -5,3 +5,4 @@
*.exe
*.obj
*.lzh
+.*.swp
diff --git a/bulletin/Makefile b/bulletin/Makefile
index 608d1cfa3fb5e28bb1be4eb1081f0f1d1110a4d3..0ceace09064422734ef76bb4aef48f0566aa142f 100644
--- a/bulletin/Makefile
+++ b/bulletin/Makefile
@@ -1,6 +1,7 @@
# Makefile for BULLETIN
GFORTRAN=gfortran
+FFLAGS=-fdollar-ok -fdec -std=legacy -fcoarray=single
# TODO: find out what these flags mean for VMS Fortran:
# /Extend /NoList
@@ -20,47 +21,47 @@ bull.a: bulletin.o bulletin0.o bulletin1.o bulletin2.o \
bulletin.o: bulletin.for bullfiles.inc bulldir.inc bullfolder.inc \
bulluser.inc
- $(GFORTRAN) -c bulletin.for
+ $(GFORTRAN) $(FFLAGS) -c bulletin.for
bulletin0.o: bulletin0.for bulldir.inc bulluser.inc bullfolder.inc \
bullfiles.inc
- $(GFORTRAN) -c bulletin0.for
+ $(GFORTRAN) $(FFLAGS) -c bulletin0.for
bulletin1.o: bulletin1.for bulldir.inc bullfolder.inc bulluser.inc \
bullfiles.inc
- $(GFORTRAN) -c bulletin1.for
+ $(GFORTRAN) $(FFLAGS) -c bulletin1.for
bulletin2.o: bulletin2.for bulldir.inc bulluser.inc bullfolder.inc \
bullfiles.inc
- $(GFORTRAN) -c bulletin2.for
+ $(GFORTRAN) $(FFLAGS) -c bulletin2.for
bulletin3.o: bulletin3.for bulldir.inc bullfolder.inc bulluser.inc \
bullfiles.inc
- $(GFORTRAN) -c bulletin3.for
+ $(GFORTRAN) $(FFLAGS) -c bulletin3.for
bulletin4.o: bulletin4.for bullfolder.inc bulluser.inc bullfiles.inc \
bulldir.inc
- $(GFORTRAN) -c bulletin4.for
+ $(GFORTRAN) $(FFLAGS) -c bulletin4.for
bulletin5.o: bulletin5.for bulldir.inc bulluser.inc bullfolder.inc \
bullfiles.inc
- $(GFORTRAN) -c bulletin5.for
+ $(GFORTRAN) $(FFLAGS) -c bulletin5.for
bulletin6.o: bulletin6.for bulldir.inc bulluser.inc bullfolder.inc \
bullfiles.inc
- $(GFORTRAN) -c bulletin6.for
+ $(GFORTRAN) $(FFLAGS) -c bulletin6.for
bulletin7.o: bulletin7.for bulldir.inc bulluser.inc bullfolder.inc \
bullfiles.inc
- $(GFORTRAN) -c bulletin7.for
+ $(GFORTRAN) $(FFLAGS) -c bulletin7.for
bulletin8.o: bulletin8.for bulldir.inc bulluser.inc bullfolder.inc \
bullfiles.inc
- $(GFORTRAN) -c bulletin8.for
+ $(GFORTRAN) $(FFLAGS) -c bulletin8.for
bulletin9.o: bulletin9.for bulldir.inc bulluser.inc bullfolder.inc \
bullfiles.inc
- $(GFORTRAN) -c bulletin9.for
+ $(GFORTRAN) $(FFLAGS) -c bulletin9.for
Allmacs.o: Allmacs.mar
Macro /NoList Allmacs.Mar
diff --git a/bulletin/README.md b/bulletin/README.md
index 13d7b6632230b01af6f058ead2ae86c9a1b6a39b..675fa99138f7ed228d81a896f193f782b2ea13e7 100644
--- a/bulletin/README.md
+++ b/bulletin/README.md
@@ -3,3 +3,7 @@
This is the port of bulleting to Linux but using Fortran. It's
based on the decus/vax90b1 version. This is likely close to what
I used.
+
+## References
+
+ * https://simconglobal.com/vms.html
diff --git a/bulletin/bulletin.for b/bulletin/bulletin.for
index 01ad989a904409991d6c71ad06ccdd046c3c0fc0..dc94b92997ed3e2f57620c388276114e58dea40d 100644
--- a/bulletin/bulletin.for
+++ b/bulletin/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)'
@@ -666,11 +666,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
@@ -1131,9 +1131,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
@@ -1221,7 +1221,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.'')')
@@ -1319,9 +1319,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
@@ -1385,7 +1385,7 @@ C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
INCLUDE '($UAIDEF)'
@@ -1478,7 +1478,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
INCLUDE '($BRKDEF)'
@@ -1569,7 +1569,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
EXTERNAL CLI$_ABSENT
diff --git a/bulletin/bulletin0.for b/bulletin/bulletin0.for
index 51b0be0c009d012d4a2cccda5c717c74a9193edb..42fe05873911e5c0d0fac525c4b18144a2db27be 100644
--- a/bulletin/bulletin0.for
+++ b/bulletin/bulletin0.for
@@ -25,11 +25,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
@@ -199,7 +199,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
COMMON /POINT/ BULL_POINT
@@ -277,7 +277,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
COMMON /POINT/ BULL_POINT
@@ -327,11 +327,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
@@ -836,9 +836,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
@@ -966,11 +966,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/bulletin/bulletin1.for b/bulletin/bulletin1.for
index 20d3af8130299edb5149685bb7c15ab915384c76..c4d28f0136cf3a4764c797a77399d75be3b44aaa 100644
--- a/bulletin/bulletin1.for
+++ b/bulletin/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)'
@@ -369,13 +369,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
@@ -709,9 +709,9 @@ C
INCLUDE '($SJCDEF)'
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
COMMON /POINT/ BULL_POINT
@@ -884,11 +884,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
@@ -1283,9 +1283,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')
@@ -1345,11 +1345,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)
@@ -1571,9 +1571,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/bulletin/bulletin10.for b/bulletin/bulletin10.for
index 5cba6a940cf72729d1404220a356539e2bad6cda..8e796c57300a554afb94f48a3fbc7eb603122089 100644
--- a/bulletin/bulletin10.for
+++ b/bulletin/bulletin10.for
@@ -1,29 +1,3 @@
-From: ADVAX::"MRL@NERUS.PFC.MIT.EDU" " " 7-MAR-1991 13:06:15.96
-To: ARISIA::EVERHART
-CC:
-Subj: BULLETIN
-
-Received: by ADVAX.DECnet (utk-mail11 v1.5) ; Thu, 7 Mar 91 13:03:14 EST
-Received: from mcnc by ge-dab.GE.COM (5.61/GE-DAB 1.15) with UUCP
- id AA01068 for ; Thu, 7 Mar 91 11:34:18 -0500
-From: MRL@NERUS.PFC.MIT.EDU
-Received: from ALCVAX.PFC.MIT.EDU by mcnc.mcnc.org (5.59/MCNC/6-11-90)
- id AA03246; Thu, 7 Mar 91 10:14:22 -0500
- for ARISIA.DNET.ge.com!EVERHART
-Message-Id: <AC130FDBEAA9002B1A@NERUS.PFC.MIT.EDU>
-Date: Thu, 7 Mar 91 10:09 EST
-Subject: BULLETIN
-To: ARISIA::EVERHART
-X-Envelope-To: EVERHART@ARISIA.DNET.GE.COM
-X-Vms-To: IN%"EVERHART@ARISIA.DNET.GE.COM"
-
-Greetings:
- I've discovered a bug in BULLETIN10.FOR which affects the newsreader
-feature. It could result in file corruption when using NEWS in BULLETIN.
-Enclosed is the corrected BULLETIN10.FOR.
- MRL
-------------------------------------------------------------------------------
-
C
C BULLETIN10.FOR, Version 3/7/91
C Purpose: Bulletin board utility program.
@@ -147,7 +121,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
COMMON /POINT/ BULL_POINT
@@ -199,9 +173,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -244,9 +218,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
COMMON /BUFFER/ BUFFER,SB,EB
CHARACTER BUFFER*1280
@@ -498,7 +472,7 @@ C
1
IMPLICIT INTEGER (A-Z)U
,
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
COMMON /BUFFER/ BUFFER,SB,EBF
CHARACTER BUFFER*1280
@@ -540,7 +514,7 @@ C
L
IMPLICIT INTEGER (A-Z)
L
- INCLUDE 'BULLFOLDER.INC'M
+ INCLUDE 'bullfolder.inc'M
,
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
1
@@ -570,9 +544,9 @@ C
IMPLICIT INTEGER (A-Z)H
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
E
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
COMMON /READIT/ READIT
M
@@ -696,7 +670,7 @@ CM
1
IMPLICIT INTEGER (A-Z)R
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
C
INCLUDE '($RMSDEF)'
)
@@ -898,13 +872,13 @@ C
E
COMMON /NEWS_INIT/ END_READ
N
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
- INCLUDE 'BULLFOLDER.INC'D
+ INCLUDE 'bullfolder.inc'D
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
E
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc'
)
CHARACTER*12 FOLDER_BBOARD_SAVE,FOLDER_OWNER_SAVE
CHARACTER*25 FOLDER_SAVEU
@@ -1025,9 +999,9 @@ C
.
IMPLICIT INTEGER (A-Z)B
E
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
+
- INCLUDE 'BULLFOLDER.INC''
+ INCLUDE 'bullfolder.inc''
COMMON /COMMAND_LINE/ INCMD
CHARACTER*132 INCMD
@@ -1186,7 +1160,7 @@ C
Y
IMPLICIT INTEGER (A-Z)E
'
- INCLUDE 'BULLFOLDER.INC'D
+ INCLUDE 'bullfolder.inc'D
0
COMMON /BUFFER/ BUFFER,SB,EBE
CHARACTER BUFFER*1280
@@ -1283,7 +1257,7 @@ C
IMPLICIT INTEGER (A-Z)S
)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
D
COMMON /BUFFER/ BUFFER,SB,EB1
CHARACTER BUFFER*1280
@@ -1381,9 +1355,9 @@ C
N
INCLUDE 'BULLNEWS.INC'
D
- INCLUDE 'BULLFOLDER.INC'=
+ INCLUDE 'bullfolder.inc'=
)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
COMMON /BUFFER/ BUFFER,SB,EBE
CHARACTER BUFFER*1280
@@ -1562,7 +1536,7 @@ C
E
IMPLICIT INTEGER (A-Z)
$
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
COMMON /PATH/ PATHNAME,LPATHO
CHARACTER*132 PATHNAMEI
@@ -1590,7 +1564,7 @@ C
I
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'E
+ INCLUDE 'bullfolder.inc'E
COMMON /COMMAND_LINE/ INCMD
CHARACTER*132 INCMD
@@ -1731,7 +1705,7 @@ C
I
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'T
+ INCLUDE 'bullfolder.inc'T
E
READ (7,IOSTAT=IER,KEYEQ=1000,KEYID=1) NEWS_FOLDER_COMI
L
@@ -1760,9 +1734,9 @@ C
R
IMPLICIT INTEGER (A-Z))
G
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
- INCLUDE 'BULLFOLDER.INC's
+ INCLUDE 'bullfolder.inc's
/
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
S
@@ -1809,9 +1783,9 @@ C
)
IMPLICIT INTEGER (A-Z)I
D
- INCLUDE 'BULLUSER.INC'E
+ INCLUDE 'bulluser.inc'E
H
- INCLUDE 'BULLFOLDER.INC'N
+ INCLUDE 'bullfolder.inc'N
G
I = NEWS_FIND_SUBSCRIBE()
@@ -1841,9 +1815,9 @@ C
T
IMPLICIT INTEGER (A-Z)/
'
- INCLUDE 'BULLUSER.INC'Y
+ INCLUDE 'bulluser.inc'Y
1
- INCLUDE 'BULLFOLDER.INC'O
+ INCLUDE 'bullfolder.inc'O
R
I = NEWS_FIND_SUBSCRIBE()
O
@@ -1863,9 +1837,9 @@ C
G
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'E
+ INCLUDE 'bulluser.inc'E
I
- INCLUDE 'BULLFOLDER.INC'H
+ INCLUDE 'bullfolder.inc'H
I = NEWS_FIND_SUBSCRIBE()
z
@@ -1888,7 +1862,7 @@ C
(
IMPLICIT INTEGER (A-Z)U
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
U
IF (SUBNUM.EQ.0) THEN
COUNT = 00
@@ -1926,9 +1900,9 @@ C
IMPLICIT INTEGER (A-Z)P
O
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
- INCLUDE 'BULLUSER.INC'H
+ INCLUDE 'bulluser.inc'H
E
COMMON /READIT/ READITN
S
@@ -2020,7 +1994,7 @@ C
Q
IMPLICIT INTEGER (A-Z)
D
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
IF (NUMBER.GE.0.AND.NUMBER.LE.FOLDER_MAX) THEN.
TEST_SET_FLAG = TEST2(SET_FLAG,NUMBER)
@@ -2041,7 +2015,7 @@ C
I
IMPLICIT INTEGER (A-Z)=
- INCLUDE 'BULLUSER.INC'_
+ INCLUDE 'bulluser.inc'_
S
IF (NUMBER.GE.0.AND.NUMBER.LE.FOLDER_MAX) THENI
TEST_BRIEF_FLAG = TEST2(BRIEF_FLAG,NUMBER)
@@ -2061,9 +2035,9 @@ C
E
IMPLICIT INTEGER (A-Z)F
E
- INCLUDE 'BULLUSER.INC'E
+ INCLUDE 'bulluser.inc'E
- INCLUDE 'BULLFOLDER.INC'F
+ INCLUDE 'bullfolder.inc'F
E
I = 1
DO WHILE (LAST_NEWS_READ2(1,I).NE.NEWS_FOLDER_NUMBERD
@@ -2083,7 +2057,7 @@ C
C
IMPLICIT INTEGER (A-Z)N
T
- INCLUDE 'BULLUSER.INC')
+ INCLUDE 'bulluser.inc')
)
I = NEWS_FIND_SUBSCRIBE()
T
diff --git a/bulletin/bulletin2.for b/bulletin/bulletin2.for
index 189f9d6db7455ab13649544f8bd245f179df9dcb..8273d1ad4e690a5ff0cd45d886d3e9130f01a3b1 100644
--- a/bulletin/bulletin2.for
+++ b/bulletin/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
@@ -364,13 +364,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
@@ -523,9 +523,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)
@@ -751,11 +751,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)
@@ -1250,7 +1250,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
EXTERNAL CLI$_ABSENT
@@ -1369,7 +1369,7 @@ C FUNCTION: Search for bulletin with specified string
C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
CHARACTER*(*) SEARCH_STRING
@@ -1537,11 +1537,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/bulletin/bulletin3.for b/bulletin/bulletin3.for
index b67007bc9380b7f5944fa3a123e398689c1e0028..2e42eba80af60e5a9ef32add5d6def47af47488c 100644
--- a/bulletin/bulletin3.for
+++ b/bulletin/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
@@ -168,9 +168,9 @@ C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
INCLUDE '($PRVDEF)'
@@ -261,11 +261,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)
@@ -318,11 +318,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
@@ -464,7 +464,7 @@ C
INCLUDE '($SSDEF)'
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
COMMON /COMMAND_LINE/ INCMD
CHARACTER*132 INCMD
@@ -560,7 +560,7 @@ C
INCLUDE '($PRVDEF)'
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc'
COMMON /REALPROC/ REALPROCPRIV(2)
@@ -755,11 +755,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
@@ -859,7 +859,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -898,7 +898,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
INTEGER SHUTDOWN_BTIM(FLONG)
@@ -957,7 +957,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
INTEGER SHUTDOWN_BTIM(FLONG)
@@ -1077,11 +1077,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)
@@ -1134,13 +1134,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)'
@@ -1452,7 +1452,7 @@ C
INCLUDE '($PRCDEF)'
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc'
COMMON /PRIVILEGES/ PROCPRIV(2),NEEDPRIV(2)
@@ -1561,7 +1561,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
COMMON /KNOWN_FOLDERS/ FOLDER_Q1,NUM_FOLDERS
DATA FOLDER_Q1/0/
@@ -1652,7 +1652,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -1680,7 +1680,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -1713,9 +1713,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
COMMON /BULL_NOTIFY/ NOTIFY_REMOTE(FLONG)
diff --git a/bulletin/bulletin4.for b/bulletin/bulletin4.for
index 07d40c5240f015561f612fb48862390d2fcbfcde..ae5cdf50d6aef36f4ce194515440f89acc340f2f 100644
--- a/bulletin/bulletin4.for
+++ b/bulletin/bulletin4.for
@@ -135,7 +135,7 @@ C It creates empty space for new user.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
CHARACTER*12 LOGIN_USER
@@ -186,7 +186,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'
COMMON /BULL_NOTIFY/ NOTIFY_REMOTE(FLONG)
@@ -290,7 +290,7 @@ C
COMMON /LAST_RECORD_WRITTEN/ OCOUNT
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
IF (REMOTE_SET) THEN
WRITE (REMOTE_UNIT,'(A)',IOSTAT=IER) 2
@@ -424,7 +424,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
IF (ILEN.GT.LINE_LENGTH) THEN ! First read?
IBLOCK = SBLOCK ! Initialize pointers.
@@ -473,7 +473,7 @@ C increment the record counter.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -565,7 +565,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
INCLUDE '($RMSDEF)'
@@ -623,9 +623,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)
@@ -1166,9 +1166,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc'
INCLUDE '($PRVDEF)'
@@ -1228,7 +1228,7 @@ C
INCLUDE '($PRVDEF)'
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
COMMON /PRIVILEGES/ PROCPRIV(2),NEEDPRIV(2)
@@ -1344,9 +1344,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*(*)
@@ -1416,9 +1416,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*(*)
@@ -1468,13 +1468,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/bulletin/bulletin5.for b/bulletin/bulletin5.for
index 145e949ef81c60735b3b1a157337a4655e12c0c8..44a42d0b48f1742665ab063bfce5615c50c4c864 100644
--- a/bulletin/bulletin5.for
+++ b/bulletin/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
@@ -82,9 +82,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
COMMON /BULL_PERM/ SET_PERM_FLAG,BRIEF_PERM_FLAG,NOTIFY_PERM_FLAG
DIMENSION SET_PERM_FLAG(FLONG)
@@ -220,13 +220,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
@@ -354,13 +354,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)'
@@ -701,13 +701,13 @@ C
COMMON /READIT/ READIT
- 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
@@ -827,9 +827,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
IF (FOLDER_NUMBER.LT.0) RETURN
@@ -866,13 +866,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
@@ -1082,11 +1082,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
@@ -1222,11 +1222,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)'
@@ -1539,7 +1539,7 @@ C
CHARACTER*(*) KEY_NAME
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
ENTRY WRITE_FOLDER_FILE(IER)
@@ -1630,7 +1630,7 @@ C
CHARACTER*(*) KEY_NAME
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
CHARACTER*12 SAVE_USERNAME
@@ -1699,7 +1699,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
@@ -1747,7 +1747,7 @@ C the brief message continually until the new messages have been read.
C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
CALL OPEN_BULLUSER_SHARED
@@ -1775,7 +1775,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/bulletin/bulletin6.for b/bulletin/bulletin6.for
index 739cc473b2d16c883b973344c5f79b13df369528..dfa067930a535bc8888a5e1a198e509f83966fcd 100644
--- a/bulletin/bulletin6.for
+++ b/bulletin/bulletin6.for
@@ -66,13 +66,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)'
@@ -280,13 +280,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
@@ -482,11 +482,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
@@ -571,11 +571,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
@@ -659,11 +659,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
@@ -747,11 +747,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)'
@@ -877,9 +877,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFILES.INC'
+ INCLUDE 'bullfiles.inc'
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
CHARACTER BUFFER*74,NEW_FILE*80
@@ -901,7 +901,7 @@ C
IF ((RECL-28)/16.GT.FLONG) THEN
WRITE (6,'('' ERROR: Old data files have more folders'',
- & '' than was specified with BULLUSER.INC.'')')
+ & '' than was specified with bulluser.inc.'')')
WRITE (6,'('' Recompile with correct FOLDER_MAX.'')')
IER = LIB$RENAME_FILE(NEW_FILE,BULLUSER_FILE)
IF (USERNAME.EQ.'DECNET') THEN
@@ -1010,9 +1010,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
@@ -1120,14 +1120,14 @@ C FUNCTION: Finds the entry for the specified bulletin in the
C directory file corresponding to or later than the date specified.
C
C INPUTS:
-C MSG_KEY - Message key (passed via BULLDIR.INC common block).
+C MSG_KEY - Message key (passed via bulldir.inc common block).
C OUTPUTS:
C IER - If not 0, no entry found. Else contains message number.
C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -1169,7 +1169,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
CHARACTER*23 DATETIME
@@ -1197,7 +1197,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
CHARACTER*23 DATETIME
@@ -1238,7 +1238,7 @@ C
COMMON /DIR_POSITION/ DIR_NUM
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
CONV = .TRUE.
@@ -1302,7 +1302,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
CALL SYS_BINTIM(NEWEST_EXDATE//' '//NEWEST_EXTIME,NEWEST_EXBTIM)
@@ -1319,7 +1319,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
CALL SYS_BINTIM(EXDATE//' '//EXTIME,EX_BTIM)
@@ -1345,7 +1345,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)'
@@ -1454,9 +1454,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',
@@ -1467,7 +1467,7 @@ C
IF ((RECL-28)/16.GT.FLONG) THEN
WRITE (6,'('' ERROR: Old data files have more folders'',
- & '' than was specified with BULLUSER.INC.'')')
+ & '' than was specified with bulluser.inc.'')')
WRITE (6,'('' Recompile with correct FOLDER_MAX.'')')
IF (USERNAME.EQ.'DECNET') THEN
CALL SYS$DELPRC(,)
diff --git a/bulletin/bulletin7.for b/bulletin/bulletin7.for
index becab258c6f0b2c1dfd7fec1bb299f6ed36a429e..0332a7f96550e74b23086834f2c1c83771d4a044 100644
--- a/bulletin/bulletin7.for
+++ b/bulletin/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 '($SSDEF)'
@@ -108,11 +108,11 @@ C FUNCTION: Notify users with SET NOTIFY set of new message.
C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
INCLUDE '($BRKDEF)'
@@ -190,9 +190,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
@@ -634,11 +634,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'
COMMON /BULL_NOTIFY/ NOTIFY_REMOTE(FLONG)
@@ -743,11 +743,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))
@@ -972,11 +972,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
@@ -1150,9 +1150,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
@@ -1265,11 +1265,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.
@@ -1473,7 +1473,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,OLD_LAST_READ_BTIM(2,FOLDER_MAX)
COMMON /USERINFO/ OLD_LAST_SYS_BTIM(2,FOLDER_MAX)
@@ -1567,7 +1567,7 @@ C FUNCTION: Updates the latest message read times for each folder.
C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
COMMON /USERINFO/ USERINFO_READ,OLD_LAST_READ_BTIM(2,FOLDER_MAX)
COMMON /USERINFO/ OLD_LAST_SYS_BTIM(2,FOLDER_MAX)
@@ -1660,9 +1660,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
COMMON /READIT/ READIT
@@ -1848,9 +1848,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
COMMON /SAVE_FOLDERS/ SAVE_FOLDER_Q1,SAVE_FOLDER_NUM
DATA SAVE_FOLDER_Q1/0/,SAVE_FOLDER_NUM/0/
@@ -1914,7 +1914,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
WRITE (6,'('' ERROR: Connection to remote folder disconnected.'')')
diff --git a/bulletin/bulletin8.for b/bulletin/bulletin8.for
index 2a5d2150fea5f2a04f4e24c9fd691ab776deeab6..f619d9e5f82216f026b623a239339b2d49299f3e 100644
--- a/bulletin/bulletin8.for
+++ b/bulletin/bulletin8.for
@@ -157,7 +157,7 @@ C CALL SET_TIMER('02')
INCLUDE '($MSGDEF)'
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
PARAMETER MAXLINK = 10
@@ -781,13 +781,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
@@ -1306,11 +1306,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
@@ -1392,7 +1392,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/bulletin/bulletin9.for b/bulletin/bulletin9.for
index 874f5ea08bb0450790f677a28bc21ad8040d6815..28889864b1ae2e4f206a2de8988fba67de3ebf6c 100644
--- a/bulletin/bulletin9.for
+++ b/bulletin/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
@@ -80,11 +80,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
@@ -124,11 +124,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.'')')
@@ -158,9 +158,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
@@ -679,7 +679,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./
@@ -751,9 +751,9 @@ C
INCLUDE '($FORIOSDEF)'
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
CHARACTER*12 TAG_KEY
@@ -781,9 +781,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
CHARACTER*12 TAG_KEY
@@ -817,7 +817,7 @@ C
INCLUDE '($FORIOSDEF)'
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
COMMON /TAGS/ BULL_TAG,READ_TAG
@@ -861,7 +861,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLUSER.INC'
+ INCLUDE 'bulluser.inc'
COMMON /TAGS/ BULL_TAG,READ_TAG
@@ -930,7 +930,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
COMMON /TAGS/ BULL_TAG,READ_TAG
@@ -1049,10 +1049,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
@@ -1168,9 +1168,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)
@@ -1257,11 +1257,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
@@ -1413,9 +1413,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
@@ -1655,9 +1655,9 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
COMMON /DIGEST/ LDESCR,FIRST_BREAK
@@ -1750,7 +1750,7 @@ C
COMMON /MAIL_PROTOCOL/ PROTOCOL,LPRO
CHARACTER*12 PROTOCOL
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
CHARACTER*(*) IFROM
@@ -1856,7 +1856,7 @@ C
IMPLICIT INTEGER (A-Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
CHARACTER*(*) INDESCRIP
@@ -1901,9 +1901,9 @@ C IER - If true, line should be stripped. Else, end of header.
C
IMPLICIT INTEGER (A - Z)
- INCLUDE 'BULLDIR.INC'
+ INCLUDE 'bulldir.inc'
- INCLUDE 'BULLFOLDER.INC'
+ INCLUDE 'bullfolder.inc'
COMMON /DATE/ DATE_LINE
CHARACTER*(LINE_LENGTH) DATE_LINE