PDP-10 Archive: update/ftnosr/fdbm6.for from CFS_TSU04_19910205

Trailing-Edge - PDP-10 Archives - CFS_TSU04_19910205_1of1 - update/ftnosr/fdbm6.for

There are 3 other files named fdbm6.for in the archive. Click here to see a list.

C COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1982, 1987
C ALL RIGHTS RESERVED.
C 
C THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
C ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE AND WITH THE
C INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY  OTHER
C COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
C OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF THE  SOFTWARE  IS  HEREBY
C TRANSFERRED.
C 
C THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT  NOTICE
C AND  SHOULD  NOT  BE  CONSTRUED  AS A COMMITMENT BY DIGITAL EQUIPMENT
C CORPORATION.
C 
C DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY  OF  ITS
C SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

	OPEN(UNIT=1,MODE='IMAGE',ACCESS='SEQIN',FILE='DBMSF.REL')
	OPEN(UNIT=20,MODE='IMAGE',ACCESS='SEQOUT',FILE='DBMSF.REL')
100	READ(1,END=200)J
C	CHANGE "FUNCT%" TO "FUNCT."
	IF ((J.AND."037777777777).EQ."014636533027)
     1	J=(J.AND."740000000000)+"014636533025
C	CHANGE SBIND TO %SBIND
	IF ((J.AND."037777777777).EQ."00436201216)
     1  J=(J.AND."740000000000)+"036240501216
	WRITE(20)J
	GOTO 100
200	CLOSE(UNIT=20)
	END