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