d$! DO {time} {service} $! Provides access to DO command procedures and programs. ,$! $! The options are: $! X$! DO To show this page. $! DO {time} serv. To use a service. $! $! The usage of the optional {time} parameter and how to define $! the "DO" commands so that they can be executed without preceeding L$! them with DO is discussed in INFO DO. $! $! x$! To get information about any service or DO library function $! @$! Enter: $ INFO topic {subtopic...} $! $!-end.of.info- l$ $ if( p1 .nes."" ) then goto vaxit 4$ $infoall: $ DO nline SCI_COM:DO.com ` $ write sys$output "" $ write sys$output "The following services are available: " ( $ write sys$output "" $ DO dir SCI_COM:*.com . $ write sys$output "" T $ write sys$output "The following programs are available: " $ write sys$output ""  $ DO dir SCI_EXE:*.for . $ DO link $ exit H $ $vaxit: $ fst := 'f$extract(0,1,p1) t$ if( fst.nes."." ) then goto notmin $ p1 := 'f$extract( 1,100, p1 ) <$ goto yescyc $ $notmin: h$ if( fst.lts."0" .or. fst.gts."9") then goto notime $ 0$yescyc: $ write sys$output "HJ" $ on control then goto respri \$ $DOloop: $ on control then exit $$ if( fst.nes."." ) then write sys$output "H" $ if( fst.eqs."." ) then write sys$output "HJ" $ DO 'p2 'p3 'p4 'p5 'p6 'p7 P$ write sys$output "J" $ if( p1.ge.60 ) then goto min $ wait 00:00:'p1 |$ goto DOloop $ D$min: $ imin = p1/60 $ wait 00:'imin':00 p$ write sys$output "" $ goto DOloop 8$ $respri: $ set process/priority=4 d$ exit $ ,$notime: $ prog := 'p1 $ if( fst.nes."$" .and. fst.nes."@" ) then goto notdcl X'prog 'p2 'p3 'p4 'p5 'p6 'p7 'p8 $ exit $ $notdcl: $ open/read/error=exeit DOTEM SCI_COM:'prog.com L$ close DOTEM $ $!- command file to be '@'ed x$ $ @SCI_COM:'prog' 'p2 'p3 'p4 'p5 'p6 'p7 'p8 @$ exit $  $!- program to be 'run' l $ $exeit: 4!$ vaxprog := $SCI_EXE:'prog !$ assign/user tt: sys$input !$ vaxprog 'p2 'p3 'p4 'p5 'p6 'p7 'p8 `"$ exit "$