home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / FileMover / MAXT21.LHA / rexx / GETSTRING.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-09-28  |  1.1 KB  |  76 lines
  1. /* ------------------------------------------------------------------
  2.  *
  3.  * MaxonTOOLS ARexx-Script
  4.  *
  5.  * name: GETSTRING.rexx
  6.  * date: 28.09.1994
  7.  * auth: Klaus-D. Sommer
  8.  *
  9.  * © 1994 MAXON Computer GmbH
  10.  *
  11.  * ------------------------------------------------------------------
  12.  */
  13.  
  14. OPTIONS RESULTS
  15. ADDRESS MT_REXX
  16.  
  17. TestVar = "H"
  18.  
  19. SAY 'GETSTRING mit allen Parametern...'
  20.  
  21. 'GETSTRING VAR=TestVar TEXT="Bitte geben Sie hier was ein" BUTTON="OK|Mal sehen|Brechen" DEFAULT="Vorgabetext"'
  22.  
  23. ok = RESULT
  24.  
  25. SAY 'RESULT  :' ok
  26. SAY 'Rückgabe:' TestVar
  27.  
  28.  
  29.  
  30.  
  31.  
  32. SAY 'GETSTRING ohne Gadgets...'
  33.  
  34. 'GETSTRING VAR=TestVar TEXT="Bitte geben Sie hier was ein" DEFAULT="Vorgabetext"'
  35.  
  36. ok = RESULT
  37.  
  38. SAY 'RESULT  :' ok
  39. SAY 'Rückgabe:' TestVar
  40.  
  41.  
  42.  
  43.  
  44. SAY 'GETSTRING ohne Body-Text...'
  45.  
  46. 'GETSTRING VAR=TestVar BUTTON="OK|Mal sehen|Brechen" DEFAULT="Vorgabetext"'
  47.  
  48. ok = RESULT
  49.  
  50. SAY 'RESULT  :' ok
  51. SAY 'Rückgabe:' TestVar
  52.  
  53.  
  54.  
  55.  
  56. SAY 'GETSTRING ohne Default...'
  57.  
  58. 'GETSTRING VAR=TestVar TEXT="Bitte geben Sie hier was ein" BUTTON="OK|Mal sehen|Brechen"'
  59.  
  60. ok = RESULT
  61.  
  62. SAY 'RESULT  :' ok
  63. SAY 'Rückgabe:' TestVar
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.