d $! DO	CLEAR
È $!		Clear the screens of all terminals except OPA0
,$!
$! note.. uses SCI_COM:LOCATE.COM .. see INFO LOCATE
ô$!	for an example of this file.
X$!
¼$!-end.of.info-
 $!
„$ open/read term SCI_COM:LOCATE.COM
è$ read term line
L$ read term line
°$
$nxtterm:
x$ read/err=fini term line
Ü$  if("''f$extract(0,2,line)'".nes."TT") then goto nxtterm
@$
¤$ open/write/err=nxtterm tt 'f$extract(0,4,line)':
$ write sys$output "Clear ",line
l$ nline = 25
Ð$
4$nxtline:
˜$ write tt " "
ü$ nline = nline-1
`	$ if(nline.ge.0 ) then goto nxtline
Ä	$ close tt
(
$ goto nxtterm
Œ
$
ð
$fini:
T$ close term