Read_Real


Purpose   Provides single line input of a number of type real.

Decln.    Read_Real(X,Y,L:byte;Prompt:strScreen;Box:byte;Var
          Rvar:real;Min,Max:real);

Remarks   X, Y are the coordinates of the first character of the prompt or
          the first character of the input field if the prompt is null.
          L is the length of the input line.
          Prompt is an optional prompt. The prompt is normally displayed to
          the left of the input field. If the prompt begins with a carat
          '' and the box border is on, the prompt is drawn in the upper
          box border. If the prompt begins with an underscore '_' and the
          box border is on, the prompt is drawn in the lower box border.
          Set the prompt to a null '' if no prompt is required.
          Box is a box code. The codes are the same as for the Box
          procedure in FastTTT5. To suppress the box, use a code of zero.
          Rvar is the real variable that will be updated with the user's
          input.
          Min, Max are the minimum and maximum acceptable values for
          automatic range checking. Set the values to 0 to accept any real
          value.

          The user will only be able to input number characters, and the
          value will be automatically validated to ensure it lies within
          the Min, Max range.

          The display characteristics of the input line are contained in
          the global variable RTTT.

          The global variable R_Char is updated with the last character
          pressed by the user. This can be checked to see how the user
          terminated input, e.g. Esc, Up Arrow, etc.

Example

VAR
  R: REAL;
BEGIN
    READ_REAL(1,10,9,'TICKET PRICE',1,R,0,1199.99);
END;