d$! $ INFO {ALL .or. Topic {ALL .or. Subtopic...}} $! Shows INFOrmation about SCI services and other topics. ,$! $! $ INFO Gives a list of the SCI help type information $! $ INFO service Gives the first lines of an SCI service to aid X$! in its use, the service can be used by: $! $ DO service. $! $ INFO subr Gives the first lines of an SCI subroutine $! the subroutine is included in a LINK by: $! $ DO LINK ... L$! $ INFO service .or. subr ALL Gives the entire file for the $! service or subroutine $! $ INFO topic {subtopic...} Gives the SCI INFOrmation about x$! other topics. $! @$! note.. To copy My_file to Yours, enter: INFO/OUT=Yours My_file ALL $!-end.of.info- $!Uses NLINE l$! $! info topic N gives n lines of information 4$! $ $ if( p1.eqs."" ) then goto hlpfun ` $ $ if( p1.nes."ALL" ) then goto part ( $ write sys$output "" $ write sys$output "Command procedures: " $ write sys$output "" T $ @SCI_COM:SOME @SCI_COM:NLINE SCI_COM:*.com 2 NO $ write sys$output ""  $ write sys$output "Programs: " $ write sys$output "" $ @SCI_COM:SOME @SCI_COM:NLINE SCI_EXE:*.for 2 NO H $ write sys$output "" $ write sys$output "DO LINK FORTRAN subroutines: " $ write sys$output "" t$ @SCI_COM:SOME @SCI_COM:NLINE SCI_LIB:*.for 2 NO $!write sys$output "" <$!write sys$output "DO LINK MACRO subroutines: " $!write sys$output "" $!@SCI_COM:SOME @SCI_COM:NLINE SCI_LIB:*.mar 2 NO h$ exit $ 0$part: $ fst := 'f$extract(0,1,p2) $ if( fst.ges."0" .and. fst.les."9" ) then goto comman \$ if( p2.nes."" .and. p2.nes."ALL" ) then goto hlpfun $ $$comman: $ name := SCI_COM:'p1.com $ open/read/error=soupro utemp 'name P$ close utemp $ goto prtit $ |$soupro: $ name := SCI_EXE:'p1.for D$ open/read/error=libfun utemp 'name $ close utemp $ goto prtit p$ $ 8$libfun: $ $ name := SCI_LIB:'p1.for d$ open/read/error=hlpfun utemp 'name $ close utemp ,$ goto prtit $ $hlpfun: $ define/user sys$help 'f$logical("SCI_INF") X$ HELP 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' $ exit $ $prtit: $ write sys$output " ",name L$ @SCI_COM:NLINE 'name 'p2