! PAT12.COM
! NAB/SLA/1736				23-AUG-79/27-AUG-79
! RT-11 SOFTWARE DISPATCH		AUGUST 1979
! FORTRAN IV/RT-11 V2.1			SEQ 14 M
! OTS
! CALL CLOSE (FORTRAN LIBRARY SUBROUTINE) -- PATCH 12.
ASS	RK0:	SYS:	! OPERATING SYSTEM
!	RK1:		! INVIOLATE -*- DO NOT USE -*-
ASS	RK2:	DST:	! FORTRAN BINARY DISTRIBUTION MEDIA
ASS	RK3:	PAT:	! PATCH FILE MEDIA
MACRO	PAT:PAT12
RUN	PAT
PAT:OTSCOM<DST:OTSCOM,SYS:PAT12
DEL/NOQ	SYS:PAT12.OBJ
! UPDATE THE FORTRAN LIBRARIES.
@DST:FORLIB.UPD
! TEST THE FORTRAN NHD LIBRARY.
SET	ERROR	ERROR
RUN	FORTRAN
PAT:PAT12A<PAT:PAT12A
PAT:PAT12B<PAT:PAT12B
^C
RUN	LINK
PAT:PAT12A<PAT:PAT12A,NHDLIB
PAT:PAT12B<PAT:PAT12B,NHDLIB
^C
RUN	PAT:PAT12A
DIR	SYS:FILE.DAT
DEL/NOQ	SYS:FILE.DAT
DEL/NOQ	PAT:PAT12A.(OBJ,SAV)
RUN	PAT:PAT12B
DIR	SYS:FILE.DAT
DEL/NOQ	SYS:FILE.DAT
DEL/NOQ	PAT:PAT12B.(OBJ,SAV)
! REPLACE THE FORTRAN LIBRARIES.
@DST:FORLIB.COP
COPY	PAT:OTSCOM.OBJ	DST:
SQU/NOQ	DST:
DEL/NOQ	PAT:*.OBJ
RUN	DUP
SYS:/S/X/Y
^C
! END OF FILE.
                                