function draft(varargin)

myFull = 'move.out';
yourFull = 'move.in';
if nargin == 2
   myFull = varargin{1};
   yourFull = varargin{2};
end
[myFolder myFile myExt] = fileparts(myFull);
[yourFolder yourFile yourExt] = fileparts(yourFull);

myBack = [myFull, '.bak'];

if exist(myFull)
   if exist(myBack)
      fprintf('Deleting %s and backing up %s.\n', myBack, myFull)
      delete(myBack)
   end
   copyfile(myFull, myBack)
end

fidOut = fopen(myFull,'w');
fprintf(fidOut, 'Hello');
fclose(fidOut);

while exist(yourFull) ~= 2
   pause(2)
   disp('Waiting for opponent to appear.')
end

hello = false;
while ~hello
   disp('Waiting for opponent to say Hello.')
   fidIn = fopen(yourFull);
   yourBuff = fgetl(fidIn);
   fclose(fidIn);
   hello = strcmp(yourBuff, 'Hello');
   pause(2)
end

myDir = dir(myFull);
yourDir = dir(yourFull);
myTime = datevec(myDir.date)
yourTime = datevec(yourDir.date)

myFirstLess = find(myTime < yourTime, 1);
yourFirstLess = find(yourTime < myTime, 1);
IgoFirst = myFirstLess < yourFirstLess;
if IgoFirst
   disp('I will go first')
else
   disp('You will go first')
end

