.; This command file runs under DCL
.ask yn Do you want to update the source file
.iff yn .goto 100$
.testfile sy:brudir.ftn;1
.if <filerr> ne 1 .goto 998$
.ifnins ...slp ins $slp
slp @brudir.slp
.100$:
.ask yn Do you want to purge the fortran files (delete original)
.ift yn purge brudir.ftn
.ifnins ...pip ins $pip
DEL BRUDIR.LST;*,BRUDIR.OBJ;*
.ifnins ...f77 ins $f77
FOR/F77 BRUDIR/LIS
.if <exstat> ne 1 .goto 999$
delete brudir.tsk;*,brudir.map;*
.ifnins ...tkb ins $tkb
LINK/CODE:FPP BRUDIR
.exit
.999$:
; ......Error in assembly.....
.exit
.998$:
; The orginial file does not exist. You must load the file from the Spring
;	1982 RSX SIG Tape. into this directory.
