TekStart()

% Start TekVISA for TDS5000/6000/7000/8000 ...
function [v] = TekStart()
r = 'GPIB8::1::INSTR';
bs = 100000;
t = 10;
v = visa('tek', r);
set(v, 'InputBufferSize', bs);
set(v, 'OutputBufferSize', bs);
set(v, 'Timeout', t);
fopen(v);
return;