% Sub-Program: MOUSKBR MOUSe and KeyBoaRd InPut for Program DEPINTL Su/14/2/1999
imshow(input2)
hold on
truesize
switch fveper
case 1 % enter individual points & extrapolate 
   %
case 2 %  
   fdata=menu('enter data: ','ASCII text file','keyboard/mouse','both ASCII w,g.. yr(1) k/B');
	switch fdata
	case 1 % ASCII memory
      ipvar=zeros(1,5);
   	ifdnam=[ifname '.dat']
      ipvar = dlmread(ifdnam, ';') % enter data wth ifname of tif image
      wr=round(ipvar(1));
      gr=round(ipvar(2));
      yr(1)=round(ipvar(3));
      mp=ipvar(4);      
      frmula=round(ipvar(5));
	case 2 % keyboard
      wr=input('integer input wr = ') % enter new values for processing image
      gr=input('integer input gr = ')
      mp=input('no. of electrode periods = ')
      frmula=input('1 elctrd -> gap OR 2 gap -> elctrd = ');
      % program IMAGMOUS
   	[xi,yi] = ginput(1);
      plot(xi,yi,'c+','EraseMode','none')
      xr(1)=xi;
      yr(1)=yi;
	case 3 % ASCII memeory
		ipvar=zeros(1,5);
   	ifdnam=[ifname '.dat']
      ipvar = dlmread(ifdnam, ';') % enter data wth ifname of tif image
      wr=round(ipvar(1));
      gr=round(ipvar(2));
      % yr(1)=round(ipvar(3));
      mp=ipvar(4);      
      frmula=round(ipvar(5));
      % program IMAGMOUS
   	[xi,yi] = ginput(1);
      plot(xi,yi,'c+','EraseMode','none')
      xr(1)=xi;
      yr(1)=yi;
	end   % end switch fdata
	% remaining variables contain data to keep program 'happy'
		w=wr;
      g=gr;
      wgr=wr+gr
		wg=wgr;
		mp1=mp+1;
      if frmula == 1
         yr(2)=yr(1)+g;
      else %if frmula == 2
         yr(2)=yr(1)+w;
      end
         y(1)=yr(1);
         y(2)=yr(2);
         x=1;
	vwgset = 3
end % end fveper switch