home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / rmd200.exe / INSTALL.BTM (.txt) next >
4DOS Compressed Batch-To-Memory File  |  1994-02-01  |  4KB  |  225 lines
  1. @*setdos /i+echo
  2. @*echo off
  3.  
  4. *setdos /i+setlocal
  5. *SETLOCAL
  6.  
  7. *setdos /i+unalias
  8. *unalias * 
  9.  
  10. setdos /i+alias
  11. setdos /i+set
  12. setdos /i+iff
  13. setdos /i+do
  14. setdos /i+quit
  15. setdos /i+text
  16. setdos /i+rem
  17.  
  18. alias gd=mkdir /s
  19. alias #=rem
  20.  
  21. set version=2.00
  22.  
  23. # ########## START ###########
  24.  
  25. on break (echo Installation terminated^quit)
  26.  
  27. CLS
  28.  
  29. text
  30.  
  31.                           THANK YOU FOR TRYING
  32.  
  33. endtext
  34. echo                             RMD version %version
  35. text
  36.  
  37.                        (C) 1994, Richard F. Schaaf
  38.  
  39.  
  40.  
  41.     This program is freely distributable provided that all files in
  42.     this archive are distributed together. Please keep in mind that the
  43.     author is the exclusive copyright holder. You may use this program
  44.     as you seem fit but you are not allowed to make modifications to it
  45.     without the explicit consent from the author.
  46.  
  47.     The author cannot be held responsible for damage (including lost
  48.     files) incurred, either direct or indirect, by using this program.
  49.     The author also does not guarantee the program will work as indicated
  50.     in the documentation although every effort has been made to make sure
  51.     it does. If you find an instance where it does not work as documented,
  52.     please report it to the author at the address stated in "rmd.doc".
  53.  
  54.     Press any key to start the installation program.
  55. endtext
  56.  
  57. inkey %%tmp
  58.  
  59. set continue=Y
  60.  
  61. iff "%@UPPER[%@SUBSTR[%COMSPEC,7,-8]]"="4DOS.COM" then
  62.     set directory=%@LOWER[%@PATH[%COMSPEC]]
  63. else
  64.     set directory=c:\4dos\
  65. endiff
  66.  
  67. set install86=N
  68. set install286=N
  69. set install386=N
  70. set installdocs=Y
  71.  
  72. iff "%_cpu"="86" .or. "%_cpu"="186" .or. "%_cpu"="200" then
  73.     set cpu=86
  74. endiff
  75. iff "%_cpu"="286" then
  76.     set cpu=286
  77. endiff
  78. iff "%_cpu" GE "386" then
  79.     set cpu=386
  80. endiff
  81. set install%cpu=Y
  82.  
  83. do while "%continue"="Y"
  84.     set change=N
  85.     do while "%change"="N"
  86.         cls
  87.         echo Please enter the destination directory:
  88.         input /E %%directory
  89.  
  90.         iff "%@SUBSTR[%directory,0,-1]" NE "\" then
  91.             set directory=%directory\
  92.         endiff
  93.  
  94.         iff not isdir %directory then
  95.             set fname=%@SUBSTR[%directory,0,%@EVAL[%@LEN[%directory]-1]]
  96.             iff exist  then
  97.                 beep
  98.                 echo %fname is a file!
  99.                 echo Press any key to re-enter
  100.                 inkey %%dummy
  101.             else
  102.                 inkey /K"yn" Directory %directory does not exist. Create? [YN] %%change
  103.                 set change=%@UPPER[%change]
  104.                 iff "%@UPPER[%change]"="Y" then
  105.                     md /s %directory
  106.                 endiff
  107.             endiff
  108.         else
  109.             set change=Y
  110.         endiff
  111.     enddo
  112.  
  113.     set selection=1
  114.  
  115.     do while "%selection" GE "1" .and. "%selection" LE "4" then
  116.         cls
  117.         text
  118. Please indicate which versions of rmd you want to be installed:
  119.  
  120.         endtext
  121.         echos `1. [`
  122.         iff "%install86"="Y" then
  123.             echos X
  124.         else
  125.             echos ` `
  126.         endiff
  127.         echo ] rmd86        (8088/8086/80186/V20/V30)
  128.         echos `2. [`
  129.         iff "%install286"="Y" then
  130.             echos X
  131.         else
  132.             echos ` `
  133.         endiff
  134.         echo ] rmd286       (80286)
  135.         echos `3. [`
  136.         iff "%install386"="Y" then
  137.             echos X
  138.         else
  139.             echos ` `
  140.         endiff
  141.         echo ] rmd386       (80386/80486/80586)
  142.         echos `4. [`
  143.         iff "%installdocs"="Y" then
  144.             echos X
  145.         else
  146.             echos ` `
  147.         endiff
  148.         echo ] documentation
  149.         text
  150.  
  151.         endtext
  152.         inkey /K"1234DI" Enter Selection: 1, 2, 3, 4, D=change dir, I=Install %%selection
  153.  
  154.         set selection=%@UPPER[%selection]
  155.  
  156.         set continue=N
  157.  
  158.         iff "%selection"="1" then
  159.             set install86=Y
  160.             set install286=N
  161.             set install386=N
  162.         endiff
  163.         iff "%selection"="2" then
  164.             set install86=N
  165.             set install286=Y
  166.             set install386=N
  167.         endiff
  168.         iff "%selection"="3" then
  169.             set install86=N
  170.             set install286=N
  171.             set install386=Y
  172.         endiff
  173.         iff "%selection"="4" then
  174.             iff "%installdocs"="Y" then
  175.                 set installdocs=N
  176.             else
  177.                 set installdocs=Y
  178.             endiff
  179.         endiff
  180.         iff "%selection"="D" then
  181.             set continue=Y
  182.         endiff
  183.         iff "%selection"="I" then
  184.             iff "%[install%cpu]"="N" then
  185.                 echo rmd may not work on your computer if you don't install rmd%cpu
  186.                 inkey /K"yn" Select it? [YN] %%select
  187.                 iff "%@UPPER[%select]"="Y" then 
  188.                     set install86=N
  189.                     set install286=N
  190.                     set install386=N
  191.                     set install%cpu=Y
  192.                     set selection=1
  193.                 endiff
  194.             endiff
  195.         endiff
  196.     enddo
  197. enddo
  198.  
  199. copy rmd_inst.1 %directory%rmd.btm
  200. iff "%installdocs"="Y" then
  201.     copy rmd.doc %directory%rmd.doc
  202. endiff
  203. iff "%install86"="Y" then
  204.     copy rmd_inst.2 %directory%rmd_c.com
  205. endiff
  206. iff "%install286"="Y" then
  207.     copy rmd_inst.3 %directory%rmd_c.com
  208. endiff
  209. iff "%install386"="Y" then
  210.     copy rmd_inst.4 %directory%rmd_c.com
  211. endiff
  212.  
  213. cls
  214.  
  215. text
  216.  
  217.                       Installation finished.
  218.  
  219.  
  220. endtext
  221. echo Please make sure that "%@SUBSTR[%directory,0,%@EVAL[%@LEN[%directory]-1]]" is in your path
  222. echo or define an alias "rmd=%directory%rmd.btm"
  223.  
  224.  
  225.