home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / ADPro251-3.DMS / ADPro251-3.adf / FREDScripts.lha / FREDFunctions / .GetModeID next >
Encoding:
Text File  |  1994-01-31  |  939 b   |  51 lines
  1. /*
  2. ** GetModeID
  3. **
  4. ** $VER: GetModeID 1.0.0 (11.01.94)
  5. **
  6. ** This ARexx script contains a function which return with screen mode info
  7. ** for use  with ADPro REXX commands that require screen mode info (Like
  8. ** GET_SCREEN_MODE or SET_ADPRO_MODE.
  9. **
  10. ** The user will have to PARSE the ModeInfo variable to get the data.
  11. **
  12. ** INPUTS
  13. **    User selection of a listed screen mode.
  14. **
  15. ** RETURN
  16. **    ModeInfo or "" if aborted
  17. **
  18. ** This script should work with current versions of ARexx.
  19. **
  20. ** This script requires ADPro v2.5.0 (or higher).
  21. **
  22. ** Copyright © 1992-1993 ASDG, Incorporated
  23. ** All Rights Reserved
  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. /*
  36. ** Get a screen mode requestor
  37. */
  38.  
  39. ADPRO_TO_FRONT
  40.  
  41. GET_SCREEN_MODE '"Select a screen mode."' Amiga "XXX" 640 200 4
  42. ModeInfo = ADPRO_RESULT
  43. IF (RC ~= 0) THEN DO
  44.     ADPRO_TO_FRONT
  45.     OKAY1 "Could not get screen modes."
  46.     EXIT 10
  47. END
  48.  
  49. RETURN ModeInfo
  50.  
  51.