home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / propage4.0 / arexx / safeendedit.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-01-29  |  363 b   |  20 lines
  1. /*
  2.     The safe way to end edit mode
  3. */
  4.  
  5. if ~show(l, "rexxsupport.library") then
  6.     if ~addlib("rexxsupport.library", 0, -30) then
  7.     do
  8.         call ppm_Inform(1,"Please install the rexxsupport.library in your libs: directory before running this Genie.")
  9.         exit
  10.     end
  11.  
  12. call ppm_EndEdit()
  13.  
  14. do while word(ppm_GetState(), 1) = 3
  15.  
  16.     call delay(10)
  17.  
  18. end
  19.  
  20.