home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / install / reqtools / rexxreqtools / examples / buffered.rexx next >
OS/2 REXX Batch file  |  1994-10-19  |  1KB  |  29 lines
  1. /* Buffered.rexx
  2.  * Demonstrates buffered filerequesters
  3.  *
  4.  * NOTE: `,' is a continuation character for statements that must be entered
  5.  *       on several source lines!!
  6.  */
  7.  
  8. NL = '0a'x
  9.  
  10. call addlib("rexxreqtools.library", 0, -30, 0)
  11.  
  12. call rtezrequest("This is an example of" || NL ||,
  13.                  "buffered filerequesters.", "Show me")
  14.  
  15. call rtfilerequest(, , "Pick a file", , "rtfi_buffer = true")
  16.  
  17. call rtezrequest("If we now use the filerequester" || NL ||,
  18.                  "again it will have remembered" || NL ||,
  19.                  "the last directories contents.", "Show me more")
  20.  
  21. call rtfilerequest(, , "Pick another file")
  22.  
  23. if ~rtezrequest("Now, if you started this script from a Shell and if you" || NL ||,
  24.                 "start this script again from the same Shell, the file-" || NL ||,
  25.                 "requester will remember the last directories contents" || NL ||,
  26.                 "inbetween executions of this script.",,
  27.                 "I'll try it|I just tried it") then
  28.   call rtfreefilebuffer()
  29.