!	EXPLNK.COM
!
SET TT NOQUIET
R FORTRA
SRC:EXPAND=SRC:EXPAND/E
^C
R LINK
SRC:EXP,EXP=SRC:EXPAND,F4ROOT,GENLIB/C
SRC:READW,WRITW,CRTFIL,CRTSTY,FIXSV0/O:1/C
SRC:F4ADMN/O:1/C
SRC:SAVOP/O:1
^C