.ENABLE SUBSTITUTION .SETS MCR "" .IF NE "MCR" .SETS MCR "MCR " .SETS UIC .IFDF .IF NE "[]" .SETS UIC !Named directory ; ; BRUDIR.CMD ; Build BRUDIR, the BRU-Tape directory task ; .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 'mcr'slp @brudir.slp .; .100$: .ask yn Do you want to purge the fortran files (delete original) .ifnins ...pip ins $pip .ift yn 'mcr'PIP brudir.ftn/PU/NM 'mcr'PIP BRUDIR.LST;*/de/nm,BRUDIR.OBJ;* .ifnins ...f77 ins $f77 'mcr'F77 BRUDIR=brudir .if ne 1 .goto 999$ 'mcr'PIP brudir.tsk;*/DE/NM,brudir.map;* .ifnins ...tkb ins $tkb .OPEN BRUDIRBLD.CMD .DATA BRUDIR/FP/ID=BRUDIR,LB:[1,1]F77FCS/LB .DATA / .DATA TASK=...BRD .DATA // .CLOSE 'mcr'TKB @BURDIRBLD .IF = 'mcr'PIP BRUDIR.OBJ;*/DE,BRUDIRBLD.CMD;* .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.