home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1996 December / PCO1296.ISO / filesbbs / os2 / gtirc104.arj / MAKEICON.CMD < prev    next >
Encoding:
Text File  |  1995-11-26  |  1.6 KB  |  40 lines
  1. /*********************************************************************/
  2. /* 06/14/95  Create GammaTech IRC Program Object on Desktop          */
  3. /*                                                                   */
  4. /* Copyright (C) GammaTech Inc. 1995            All Rights Reserved. */
  5. /*********************************************************************/
  6.  
  7. Trace 'O'
  8. Address CMD
  9. '@ECHO OFF'
  10.  
  11. /*********************************************************************/
  12. /* Initialization                                                    */
  13. /*********************************************************************/
  14. Call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  15. Call sysloadfuncs
  16. exename = "GTIRC"
  17.  
  18. /*********************************************************************/
  19. /* Get the installation drive and path                               */
  20. /*********************************************************************/
  21. Say "Please enter the drive and path of the IRC directory."
  22. Say "Example C:\GTIRC"
  23. Parse Upper Pull instpath
  24.  
  25. rc = SysFileTree(instpath||'\'exename'.*', 'find', 'F')
  26. If find.0 <> 0 then do
  27.    Call SysCreateObject 'WPProgram',exename,'<WP_DESKTOP>','OBJECTID=<GT_'exename'>;EXENAME='instpath'\'exename'.EXE;PROGTYPE=PM;STARTUPDIR='instpath,'R'
  28. End
  29.  
  30. Else do
  31.    Say "The Drive:\Path is incorrect."
  32. End
  33.  
  34. /*********************************************************************/
  35. /* Exit Program                                                      */
  36. /*********************************************************************/
  37. Endit:
  38. Exit 0
  39.  
  40.