$ open/read 0 vid.lis
$ open/write 1 wsx.lis
$	cnt = 0
$ loop:
$	read/error=done 0 line
$	cnt = cnt + 1
$	file = f$element(2,"/",line)
$	file = f$element(0,".",file)
$	if f$search("''file'.html") .eqs. "" then write 1 "''file'.html"
$	goto loop
$ done:
$	sh sym cnt
$	close 0
$	close 1