home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / ADPro251-3.DMS / ADPro251-3.adf / FREDScripts.lha / FREDFunctions / GetAFloat < prev    next >
Encoding:
Text File  |  1994-01-31  |  1.3 KB  |  71 lines
  1. /*
  2. ** GetAFloat
  3. **
  4. ** $VER: GetAFloat 1.1.0 (5.11.93)
  5. **
  6. ** This ARexx script contains a function which asks the user to enter
  7. ** a floating point number.
  8. **
  9. ** INPUTS
  10. **    Title -- text shown to the user asking for a value.
  11. **    DefaultVal -- default value.
  12. **    MinVal -- minimum value allowed.
  13. **    MaxVal -- maximum value allowed.
  14. **    IsRequired -- TRUE, if the value is required; FALSE, otherwise.
  15. **
  16. ** RETURN
  17. **    EnteredVal -- the entered value, or "CANCEL" if aborted.
  18. **
  19. ** This script should work with current versions of ARexx.
  20. **
  21. ** Copyright © 1992-1993 ASDG, Incorporated
  22. ** All Rights Reserved
  23. */
  24.  
  25.  
  26. ADDRESS "ADPro"
  27. OPTIONS RESULTS
  28.  
  29. NL = '0A'X
  30. SQ = '27'X
  31. DQ = '22'X
  32. TRUE  = 1
  33. FALSE = 0
  34.  
  35. PARSE ARG Arguments
  36. PARSE VAR Arguments '"'Title'"' DefaultVal MinVal MaxVal IsRequired
  37.  
  38. Title = DQ || Title || DQ
  39.  
  40. continue = TRUE
  41. DO WHILE (continue = TRUE)
  42.     ADPRO_TO_FRONT
  43.  
  44.     GETFLOAT Title DefaultVal MinVal MaxVal
  45.     EnteredVal = ADPRO_RESULT
  46.  
  47.     IF (RC ~= 0) THEN DO
  48.         IF (IsRequired = TRUE) THEN DO
  49.             ADPRO_TO_FRONT
  50.  
  51.             OKAYN '"GetAFloat"' '"This value is required."' '"Retry|Cancel"'
  52.             IF (RC = 0) THEN DO
  53.                 EnteredVal = "CANCEL"
  54.                 continue = FALSE
  55.             END
  56.         END
  57.         ELSE DO
  58.             EnteredVal = "CANCEL"
  59.             continue = FALSE
  60.         END
  61.     END
  62.     ELSE
  63.         continue = FALSE
  64. END
  65.  
  66. SCREEN_TO_FRONT "FRED"
  67.  
  68. RETURN EnteredVal
  69.  
  70. EXIT 0
  71.