$ maxtries = 60
$ if p1 .nes. "" then maxtries = 'p1'
$
$ delay := 0:01:00
$ if p2 .nes. "" then delay = p2
$
$ tries = 0
$
$ try:
$	define/user sys$output nl:
$	define/user sys$error nl:
$	all term$pdp11 pdp11
$	if $severity then exit 1
$	deassign sys$output
$	deassign sys$error
$
$	tries = tries + 1
$	if tries .ge. maxtries then goto timeout
$
$	write sys$output "Waiting for PDP-11 link ..."
$	wait 'delay'
$	goto try
$
$ timeout:
$	write sys$output "Maximum number of tries exceeded"
$	exit 3