!	REDLNK.COM
!
SET TT NOQUIET
R LIBR
SRC:IOLIB=SRC:READW,WRITW,CRTFIL
^C
R LINK
SRC:REDUCE,REDUCE=SRC:REDUCE,IOLIB,F4ROOT,GENLIB/C
!SRC:CRTSTY,HDCHG/O:1/C
SRC:F4ADMN/O:1/C
SRC:SAVOP/O:1
^C