readinsubjid.m

function [ status, subjectid ] = readinsubjid( )
%readinsubjid Summary of this function goes here
%   Detailed explanation goes here

prompt      = {'Enter participant number (starting from 1000)'};
dlg_title   = 'Welcome';
def         = {'1000'};
answer      = inputdlg(prompt, dlg_title, 1, def);

% Print to command line when cancel by user
% and exit 
if  isempty(answer)
    fprintf('Session cancelled by user\n')
    subjectid   = [];
    status      = 1;
else
     
    % read in subject id
    subjectid   = answer{1};
    % check whether entry is correct
    if ~(str2double(subjectid) >= 1000 && str2double(subjectid) <= 1999)
        status      = 1;
        subjectid   = [];
        fprintf('Wrong entry\n')
        fprintf('Subject number has to be between 1000 and 1999\n')
        return
    end
    status      = 0;
end
end