function[n,Ch]=readfilename(file);
% Read file number as tektronix file name format  "1'Z'_Ch'n'.wfm"
Z=double(file);
n=(Z(2)-48)*100+(Z(3)-48)*10+(Z(4)-48);
Ch=Z(8)-48;
