Avoid endless loops. Really, we were using the same variable for two

$

$	old_f :=

$ loop_certs:

$	c := NO

$	verify := NO

$	more := YES

$	certs :=

$ loop_certs2:

$	f = f$search("[-.certs]*.pem")

$	if f .nes. "" .and. f .nes. old_f

$	then

$	    certs = certs + " [-.certs]" + f$parse(f,,,"NAME") + ".pem"

$	    c := YES

$	    verify := YES

$	    if f$length(certs) .lt. 180 then goto loop_certs2

$	else

$	    more := NO

$	endif

$	certs = certs - " "

$

$	if c

$	then

$	    mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'

$	    goto loop_certs

$	endif

$	if verify then mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'

$	if more then goto loop_certs

$

$	delete certs.tmp;*