home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / pibterm / pibt41s3.arc / READNUMB.MOD < prev   
Text File  |  1988-02-06  |  1KB  |  49 lines
  1. (*----------------------------------------------------------------------*)
  2. (*              Read_Number --- Read in a number                        *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. FUNCTION Read_Number(      Old_Number: LongInt;
  6.                            Use_Old   : BOOLEAN;
  7.                        VAR Number    : LongInt ) : BOOLEAN;
  8.  
  9. VAR
  10.    S     : AnyStr;
  11.    I     : INTEGER;
  12.    Ch    : CHAR;
  13.    X     : INTEGER;
  14.    Y     : INTEGER;
  15.    LIval : LONGINT;
  16.  
  17. BEGIN (* Read_Number *)
  18.  
  19.    IF Use_Old THEN
  20.       STR( Old_Number , S )
  21.    ELSE
  22.       S := '';
  23.  
  24.    X  := WhereX;
  25.    Y  := WhereY;
  26.  
  27.    Ch := Edit_String( S, 255, X, X, Y, 20, FALSE, 0 );
  28.  
  29.    IF ( Ch <> CHR( ESC ) ) THEN
  30.       BEGIN
  31.          S := LTrim( Trim( S ) );
  32.          VAL( S, LIval, I );
  33.       END
  34.    ELSE
  35.      I := 1;
  36.  
  37.    IF ( I = 0 ) THEN
  38.       BEGIN
  39.          Number      := LIval;
  40.          Read_Number := TRUE;
  41.       END
  42.    ELSE
  43.       BEGIN
  44.          Number      := Old_Number;
  45.          Read_Number := FALSE;
  46.       END;
  47.  
  48. END   (* Read_Number *);
  49.