! SHARED.COM	NAB	20-Oct-88/08-May-89.
!
!	Build and execute the SHARED.FOR source file under F77.
!
DATE
TIME
!
DISPLAY		<Compile.>
RUN	SY:F77
INITF,INITF=INITF/S/W
SHARED,SHARED=SHARED/S/W
^C
DEL	INITF.LST
DEL	SHARED.LST
!
DISPLAY		<Link.>
RUN	SY:LINK
INITF,INITF=INITF,SY:TSXLIB,F77OTS/G
SHARED,SHARED=SHARED,SY:TSXLIB,F77OTS/G
^C
DEL	INITF.OBJ
DEL	SHARED.OBJ
!
DISPLAY		<Set the memory allocation.>
RUN	SY:SETSIZ	INITF/D:4
RUN	SY:SETSIZ	INITF
RUN	SY:SETSIZ	SHARED/D:4
RUN	SY:SETSIZ	SHARED
!
DISPLAY		<Execute.>
RUN	INITF
RUN	SHARED
DEL	INITF.(MAP,SAV)
DEL	SHARED.(DAT,MAP,SAV)
!
TIME
!
!	End of file, SHARED.COM.