.; 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 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 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.