d $! DO	NLINE Filename {ALL .or. Number}
È $!		Show the Top part of a file
,$!
$!	In no second parameter is input, then the file is shown till
ô$! an "end.of. info".
X$!
¼$!	If the second parameter is "ALL" then the total file is shown.
 $!
„$!	If the second parameter is a Number, then that number of lines
è$! is shown.
L$!
°$! end.of.info
$
x$ on error then goto err
Ü$ on control then goto err
@$ open/read file 'p1
¤$ if(p2.eqs."ALL" ) then goto all
$ if(p2.nes."" ) then goto num
l$
Ð$infagn:
4$ read/end=eof file line
˜$ if( 'f$locate("END.OF.INFO",line).ne.'f$length(line)) then goto eof
ü$ if( 'f$locate("end.of.info",line).ne.'f$length(line)) then goto eof
`	$
Ä	$write sys$output line
(
$ goto infagn
Œ
$
ð
$all:
T$ read/end=eof file line
¸$ write sys$output line
$ goto all
€$
ä$num:
H$
¬$ numlin = 0
$ crtflg = p2
t$ if( p2.lt.0 ) then p2 = -p2
Ø$
<$numagn:
 $ read/end=eof file line
$ write sys$output line
h$ numlin = numlin+1
Ì$ if(numlin.lt.p2) then goto numagn
0$
”$ if( crtflg.ge.0 ) then goto eof
ø$  numlin = 0
\$  inquire xxx "_stop"
À$  if( .not. xxx ) then goto numagn
$$
ˆ$
ì$eof:
P$close file
´$ exit
$
|$err:
à$ close file
D$ exit(2)