program unlock
  	use str_find_mod
	implicit none
	character:: mnem*12,invoke*200
	integer:: nel
        integer:: istat,vnumbr,mnet_disconnectf,mnet_connectf
	logical err,isshop
 	character*12:: name='ALL'
 
        call cesr_getarg(0,invoke)     !0 => whole line, get prog invocation
	call gen_connect(invoke,isshop)   !setup mpm to "shop" or "tunnel"
        name='ALL'    !
	do while (name(1:4).ne.'EXIT')
	 print *,' default mnemonic to unlock= ',trim(name)
	 call strget(' name (or ALL) (ctrl-z to quit)  ',name)
	 call str_upcase(name,name)
	 if(name(1:4).eq.'EXIT') goto 999
	 if(name(1:3).eq.'HEL') then
	  print *,' Tune plane analyzer is -> HP 3588 XTRA '
	  print *,' freq meter name is -> PHILIPS 6676 '
	  print *,' fluke dvm name is  -> FLUKE 8500A '
	  print *,' use the name "ALL" to unlock all '
	 elseif(name(1:3).eq.'ALL') then
	  call opener(1,'$CESR_CONFIG/gpib/unlock_lst.dat',err)
	  do while(.true.)
	   read(1,111,end=999) name
111	   format(1x,a)
	   nel=vnumbr(name)
           if(nel.gt.0) call vmpunlock(name,1,nel) 
	  enddo
	 else
	  nel=vnumbr(name)
          call vmpunlock(name,1,nel) 
	 endif
	enddo
999	continue
	istat=mnet_disconnectf()
	stop
	end program unlock