home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / schemos2.zip / objects / mkscheme.cmd < prev    next >
OS/2 REXX Batch file  |  1995-03-13  |  1KB  |  34 lines
  1. /* REXX - DeskMan/2 generated this file */
  2. /* version: 1 rel. 51                    */
  3. /* (C) Copyright 1993-1994                        */ 
  4. /*            Development Technologies, Inc. and  */   
  5. /*            Gregory Czaja                       */   
  6. /*            All Rights Reserved                 */
  7.  
  8. Call RxFuncAdd 'SysLoadFuncs','REXXUTIL','SysLoadFuncs';
  9. Call SysLoadFuncs; 
  10.  
  11. Say 'Please enter the option for restoring objects!';
  12. Say 'Enter R - for Replace, U - for Update, S - for Skip';
  13. Say '      if an object already exists.';
  14. Say 'Enter blank if you want to keep the option specified on Save!';
  15. reply=Translate(SysGetKey()); 
  16. If reply='S' Then reply='F';  
  17. Say ''; 
  18. /*+#+#+DMan/2: object end ! (don't remove!)*/
  19.  
  20. /*-#-#-DMan/2: this entry for: Scheme, generated on 1995/03/13 at 19:31:44 */
  21. If reply<>'R' & reply<>'U' & reply<>'F' Then reply='UpdateIfExists';
  22. rc=SysCreateObject("WPProgram","Scheme","<Scheme>",,
  23. "HELPPANEL=4083;"||,
  24. "DEFAULTVIEW=RUNNING;"||,
  25. "NOPRINT=YES;"||,
  26. "EXENAME=SCHEME.EXE;"||,
  27. "PROGTYPE=PM;"||,
  28. "ICONFILE=Scheme.ICO;"||,
  29. "", reply); 
  30.  
  31. If rc<>1 Then Say "Object: Scheme could not be created/updated !"; 
  32. /*+#+#+DMan/2: object end ! (don't remove !)*/
  33.  
  34.