home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 25 Icons / 25-Icons.zip / crossptr.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1996-03-03  |  2KB  |  63 lines
  1. /* Cross Pointer Installation Program
  2. Copyright 1996 Creative Systems P.O. Box 241111 Anchorage, AK 99524-1111
  3. 74127.2657@compuserve.com */
  4.  
  5. options etmode
  6. options exmode
  7. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  8. call SysLoadFuncs
  9.  
  10. /* Determine Boot Drive */
  11. bootdrive = Substr(Translate(Value('PATH',,'OS2ENVIRONMENT')),Pos('\OS2\SYSTEM',Translate(Value('PATH',,'OS2ENVIRONMENT')))-2,2)
  12.  
  13. /* Build Destination Directory */
  14. Directory = bootdrive"\OS2\POINTERS\WHTCROSS"
  15.  
  16. /* Create The Target Directory if Necessary */
  17. Result = SysFileTree( Directory, 'Dirs', 'D' )
  18. If Dirs.0 = 0 Then
  19.   Do
  20.   Result = SysMkDir( Directory )
  21.   if Result <> 0 Then
  22.     Do
  23.     Say 'ERROR: Unable to create the' Directory 'directory.'
  24.     Exit
  25.     End
  26.   End
  27.  
  28. /* Copy Files */
  29. Say 'Installing new pointers. . .'
  30. 'COPY *.PTR' Directory
  31.  
  32. /* Give Instructions on How to Load Pointers */
  33. Call Syscls
  34. Say 'The pointer files have been installed. Now you just need to load them.'
  35. Say 'Here''s how:'
  36. Say
  37. Say '1. Enter the System Setup. (In the OS/2 System Folder)'
  38. Say '2. Select the Mouse icon, and then choose the "Pointers" tab.'
  39. Say '3. Choose "Load Set..." and select "WHTCROSS"'
  40. Say ' '
  41. Say 'Hit ENTER to continue once you''re done. . .'
  42. PULL
  43.  
  44. /* Engage in Shameless Self-Promotion */
  45. Call Syscls
  46. Say 'Your new Cross pointers are now installed!'
  47. Say ' '
  48. Say 'They are provided free-of-charge  from Creative Systems,  the foremost'
  49. Say 'developer of Bible Software for OS/2. Please take the time to download'
  50. Say 'the WordWise Daily Scripture Calendar for OS/2,  with built-in support'
  51. Say 'for over 30 versions of the Bible, and the CODEX Bible Concordance for'
  52. Say 'OS/2.  Both programs may be found at most any OS/2 software site (such'
  53. Say 'as  ftp-os2.nmsu.edu) as ww_os215.zip and bible_09.zip,  respectively.'
  54. Say 
  55. Say 'If you have questions,  or would like to be added  to the mailing list'
  56. Say 'for the  OS/2 Bible  Software newsletter,  just send a note to me  (J.'
  57. Say 'Brandon Barnes) at 74127.2657@compuserve.com.'
  58. Say
  59. Say 'God Bless.'
  60. Say
  61. Say '(Hit ENTER to exit)'
  62. PULL
  63. Exit