XPost: finet.unet   
   From: grazynsk@petex.com.pl   
      
   Tristan Beeline napisał(a):   
   > I'm sooo lonely, I need to write myself an artificial boyfriend.   
   >   
   > Can I do this in Pascal ?   
      
   YES:   
      
   program MyDear;   
   { (C) A.Grazynski PhD }   
   const   
      ShyQuest = 'Make love?';   
   var   
      S: String;   
      PatienceCounter, PatienceResource: integer;   
      MinimumPatience = 10; {25 in Eastern Europe}   
   begin   
      PatienceResource := Random(1000) + MinimumPatience;   
      PatienceCounter := 0;   
      repeat   
        Write('?');Readln(S);   
        if S <> '' then   
        begin   
          if S = ShyQuest   
          then   
            RunError(69);  { Termination }   
      
          Inc(PatienceCounter);   
          if S[Length(S)] = '?'   
          then   
            Writeln('Yes, my dear.')   
          else   
            Writeln('Really?')   
        end;   
      until PatienceCounter > PatienceResource;   
      
      Writeln('Co to hell!');   
      
      { Another Termination }   
      
   end.   
      
   { ... and no other terminations! }   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)