calibShocks.m

function calibShocks( options )

markerStart     = 250;
markerStop      = 252;

dummymode = 0;
for i=1:length(options)
    switch options{i}
        case 'dummymodeLpt'
           dummymode = 1;
    end
end

%% init LPT port
if dummymode
    [ status, LPT ]     = initlpt('dummy');
else
    [ status, LPT ]     = initlpt();
end
if status ~= 0; return; end

%% PTB functions
ListenChar(-1); %makes it so characters typed don?t show up in the command window
KbName('UnifyKeyNames'); %used for cross-platform compatibility of keynaming
spaceKey    = KbName('Space');
qKey        = KbName('q');
% get the index for the main keyboard in the lab
% KbPointer = GetKeyboardIndices('Dell Dell Wired Multimedia Keyboard');
KbQueueCreate(); %creates cue using defaults
KbQueueStart();  %starts the cue
WaitSecs(.5);
KbQueueCheck();
KbQueueFlush();

% marker to segment biopac
LPT.sendMarker(markerStart);

fprintf('Press space to apply stimulus.\n');
fprintf('Press q to exit.\n');

shocking = 1;
while shocking
    
    KbStrokeWait();
    [ keyIsDown, ~, keyCode ] = KbQueueCheck();
    keyCode = find(keyCode, 1);
    if keyIsDown
        if keyCode == spaceKey
            LPT.sendShock();
            fprintf('Stimulus\n');
            WaitSecs(.1);
        elseif keyCode == qKey
            shocking = 0;
            fprintf('Bye\n');
            WaitSecs(.5);
        end
    end
    KbQueueFlush();
    
end

KbQueueStop();
% marker to segment biopac
LPT.sendMarker(markerStop);
cleanup('LPT', LPT);

end