home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 439.lha / RexxIntuition / Scripts / Input.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1990-11-13  |  782 b   |  28 lines
  1. /* Example of INPUT() */
  2.  
  3. /* Get a FileIO structure */
  4. fileio=GetFIO()
  5. IF fileio == '' | fileio == 0 THEN SAY 'FileIO allocation error'
  6.  
  7. /* Open a window on WB. Let it be the default IDCMP. */
  8. wind=GetWindow('Using Input()',,,,,,,,,)
  9. IF wind == '' | wind == 0 THEN SAY 'Window open error'
  10.  
  11. /* Get the user's input via the title bar. Allow 8 characters. Initial the */
  12. /* input to "Jeff", and the prompt is "What is your name?" */
  13. response=Input(wind,fileio,8,'What is your name? >','Jeff')
  14.  
  15. IF response > '' THEN DO
  16. /* OK. The user didn't type an empty string or press ESC */
  17. err=Text(response,wind,10,20)
  18. END
  19.  
  20. /* Free the FileIO */
  21. response=EndFIO(fileio)
  22.  
  23. /* Wait for ANY IDCMP */
  24. spec=WaitMsg(wind)
  25.  
  26. /* Close the window, thus freeing any resources for it. */
  27. err=EndWindow(wind)
  28.