d $!{DO}	RNO {in_file {out_file}}
È $!		Executes RUNOFF on a file to produced justified text.
,$!
$!	The RUNOFF program takes an input file and produces an output that
ô$! is justified, pagenated, etc. The commands to the RUNOFF program are
X$! available for those qho want to use it.
¼$! This comman procedure requests an input and output file, if not given
 $! in the command, and the passes them to the RUNOFF program.
„$!
è$! It is relatively easy to use a subset of the commands. The suggested
L$! memo header is:
°$!
$!		 .PS 60,80;.P 10,1,5;.AP;.RM 70
x$!
Ü$!-end.of.info-
@$
¤$ if( p2.nes."" .or. p1.eqs."" ) then goto reqfil
$	len = 'f$locate(".",p1)
l$	p2 := 'f$extract( 0, len, p1 )
Ð$reqfil:
4$ if( p1 .eqs. "" ) then inquire p1 input {.   }
˜$ if( p2 .eqs. "" ) then inquire p2 output{.lis}
ü$ if( 'f$locate(".",p1).eq.'f$length(p1) ) then p1 := 'p1.
`	$ if( 'f$locate(".",p2).eq.'f$length(p2) ) then p2 := 'p2.lis
Ä	$
(
$ mcr rno 'p2'/-sp/ul:s='p1'