d$! DO LINK {prog,,,} $! Appends the SCI library to the end of the LINK command. ,$! $! This adds the SCI_LIB:SCILIB/LIB to the end of a $! link command. X$! $! The contents of the DO LINK library can be found by: $! $! $ DO LINK $! L$! -end.of.info- $! $ scilib := 'f$logical("SCI_LIB") x$ if( p1.nes."" ) then goto doit $ @$ write sys$output "" $ write sys$output "The following DO LINK subroutines are available: " $ write sys$output "" $ write sys$output scilib," ","''f$time()" -$ write sys$output "" l$ lib 'scilib'SCILIB/list=liblist.vx/name $ assign/user nl: sys$output 4$ edit liblist.vx k/2 d1!10 ` $ $ assign/user nl: sys$output ( $ do sort liblist.vx liblist.vx 1 100 $ open/read liblist liblist.vx $ on control then goto fini T $ outl := "" $  $ $ again: $ read/end=fini liblist line H $ if( line.eqs."" ) then goto again $ if( 'f$locate("* MODULE",line).ne.'f$length(line)) then goto again $ if( 'f$length(outl)+'f$length(line).lt.79 ) then goto notout t$ write sys$output outl $ outl := "" <$ $notout: $ outl := 'outl''line' h$ goto again $ 0$fini: $ write sys$output outl $ close liblist \$ delete liblist.vx;* $ exit $$doit: $ link 'P1''P2''P3''P4''P5''P6','scilib'SCILIB/LIB