Search

Dorothy Parker



Thursday, February 21st, 2008

A Telephone Call (2008 edition)


   function onIdle;

   global selfesteem address

   at_wits_end = -1; deluded = 0; elated = 1;
   state = deluded;
   while state == deluded;
     pause(rand(1)*600);
     state = at_wits_end;
     for i = 0:5:500,
       disp(num2str(i));
       m = getmessages;
       if ~isempty(find(m.sender==address)),
         state = elated;
         break;
       end;
       qualms = rand(1);
       if qualms < i/1000,
         state = deluded;
         break;
       end;
     end;
   end;

   sendmail(address,';)');

   selfesteem = selfesteem + state;