$inizio:
$	if p1 .eqs. "" then inquire p1 "  Nome del File "
$	if p1 .eqs. "" then goto inizio
$	l=f$locate(".",p1)
$	if l.eq.f$length(p1) then p1:='p1'.bit
$	if f$extract(l,4,p1).eqs.".BIT" then goto stampa
$	write sys$output "          Il file non e' di tipo .BIT !"
$	write sys$output "          Sei certo di volerlo stampare ?  [si]"
$	inquire yes      "                                           [no=def.] "
$	if yes .eqs. "SI" then goto stampa
$	p1=""
$	goto inizio
$stampa:
$	print/queue=lca0/notify 'p1' 'p2' 'p3' 'p4'
$	show queue lca0/all