Tektronix Binary File Loader

function loadTEKbinary(filenamestr)
	string filenamestr
	variable fileref
	if (strlen(filenamestr))
		Open  /R /T=".isf" fileref as filenamestr
	else
		Open  /R /T=".isf" fileref
	endif
	if (!(strlen(S_filename)))
		print "Cancelled"
		return 0
	endif
//	string shortname = S_filename[StrSearchBack(S_filename, ":") + 1, strlen(S_filename) - 5]
	string shortname = S_filename[strsearch(S_filename, ":",Inf,1) + 1, strlen(S_filename) - 5]
	string preamble,curvestring
	FreadLine /N=8 fileref, preamble
	if (!stringmatch(preamble, ":WFMPRE:" ))
		print "Missing preamble"
	endif
	FreadLine /T=":" fileref, preamble
//	print preamble
//	The Tek form preamble can be used as a keyword string list with list separator ";" and keyseparator " "
	
	variable delx,ptoff,xzero,ymult,yoff,yzero,sizeitemsnum,numbytes,byteorder,bytetype
	variable numitems
	
	delx = NumberByKey("XINCR", preamble," ",";")
	ptoff = NumberByKey("PT_OFF", preamble," ",";")
	xzero = NumberByKey("XZERO", preamble," ",";")
	
	ymult = NumberByKey("YMULT", preamble," ",";")
	yoff = NumberByKey("YOFF", preamble," ",";")
	yzero = NumberByKey("YZERO", preamble," ",";")
	FreadLine /N=7 fileref, curvestring
	if (!stringmatch(curvestring, "CURVE #" ))
		print "Missing Binary Start String, 'CURVE #'"
		return 0
	endif
	FreadLine /N = 1 fileref, curvestring
	sizeitemsnum = str2num(curvestring)
	FreadLine /N = (sizeitemsnum) fileref, curvestring
	numbytes = str2num(curvestring)
	
	
	strswitch(StringByKey("BYT_OR", preamble," ",";"))	
		case "MSB":		// execute if case matches expression
			byteorder = 2
			break						// exit from switch
		case "LSB":		// execute if case matches expression
			byteorder = 3
			break
	endswitch
	
	switch(NumberByKey("BYT_NR", preamble," ",";"))	
		case 1:		// execute if case matches expression
			bytetype = 1
			numitems = numbytes
//			make /o /b /n = (numbytes) intwave
			break						// exit from switch
		case 2:		// execute if case matches expression
			bytetype = 2 
			numitems = numbytes / 2
//			make /o /i /n = (numbytes / 2) intwave
			break
	endswitch
	
	make /o /d /n = (numitems) $shortname
	wave thewave = $shortname
	
	if (stringmatch(StringByKey("BN_FMT", preamble," ",";"),"RI"))
		Fbinread /B=(byteorder) /F=(bytetype) fileref, thewave
	else
		Fbinread /B=(byteorder) /F=(bytetype) /U fileref, thewave
	endif
	
	thewave = (thewave - yoff) * ymult + yzero
	
	SetScale d, -10, 10, StringByKey("YUNIT",preamble," ",";") thewave
	SetScale /P x, (xzero - ptoff *delx), delx, StringByKey("XUNIT",preamble," ",";") thewave
//	SetScale /P x, ptoff, delx, "" thewave
	
	Note /K thewave, StringByKey("WFID",preamble," ",";")
	
	close fileref
	return 1
	
end