REPEAT                     Repeat/Until Condition                     pp 61


 Define:  Repeat until a Boolean condition becomes True.

 Purpose: Provide indeterminate looping.

 Notes:   Repeat will always execute at least once.

          The expression controlling the repetition must be of type
          Boolean.  The sequence of statements between the reserved words
          Repeat and Until is executed repeatedly until the
          controlling expression becomes True.


 ----------------------------------------------------------------------------


 Usage:
       VAR
          Answer : Char;

       BEGIN
          Repeat
            WriteLn ('Enter Y/N');            { Write request to user     }
            ReadLn  (Answer);                 { Get user input            }
            Until   (Answer) in ['Y','N'];    { Loop until True condition }
       END.