home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / lan / tkncca12.zip / TREN120.DSK / unc.dsk / TRENA.IDP < prev    next >
Text File  |  1993-04-23  |  4KB  |  167 lines
  1. .*
  2. .*  IDP for PCMCIA Token-Ring Adapters
  3. .*
  4.  
  5. :install choose=none path='\'.
  6.  
  7. :help id='Remove IBM Token-Ring 16/4 Credit Card Enablers' langid=enu.
  8. Choose this install menu selection if you need previously
  9. installed enablers removed from your CONFIG.SYS.  These
  10. enablers will not be erased from your hard drive.
  11. :ehelp.
  12.  
  13. :msg sev=w type=yn.
  14. :msgtxt langid=enu.
  15. If previously installed enablers are found,
  16. this program will modify your CONFIG.SYS.
  17. Your old CONFIG.SYS will be saved
  18. as CONFIG.S01.
  19. Continue(Y/N)?
  20. :emsgtxt.
  21. :emsg.
  22.  
  23. .*  no, don't continue with enabler installation
  24. :if %r% = 0
  25.   :msg sev=i type=q.
  26.   :msgtxt langid=enu.
  27.   This program was terminated.  Press
  28.   ESC to return to the main menu.
  29.   :emsgtxt.
  30.   :emsg.
  31. :eif.
  32.  
  33. :copy fn='uinst.var' path='\' force=yes.
  34.  
  35. .*  look for installed point enablers
  36. :update fn='config.sys' path='\' rename='config.s01'.
  37. :txt find='device=c:\pointtr.sys' remove=check.
  38. :etxt.
  39. :eupdate.
  40. :if %r% = 1
  41.   :update fn='config.sys' path='\' rename='config.sys'.
  42.   :txt find='device=c:\toshtr.sys' remove=check.
  43.   :etxt.
  44.   :eupdate.
  45. :eif.
  46. :if %r% = 1
  47.   :update fn='config.sys' path='\' rename='config.sys'.
  48.   :txt find='device=c:\sharptr.sys' remove=check.
  49.   :etxt.
  50.   :eupdate.
  51. :eif.
  52.  
  53. .*  found a previously installed point enabler
  54. :if %r% = 0
  55.   :update fn='uinst.var' path='\' rename='uinst.var'.
  56.   :txt.
  57.   :li.FOUND
  58.   :etxt.
  59.   :eupdate.
  60.  
  61.   :msg sev=i type=yn.
  62.   :msgtxt langid=enu.
  63.   A point enabler was found in your
  64.   CONFIG.SYS.  Would you like it to be
  65.   removed?(Y/N)
  66.   :emsgtxt.
  67.   :emsg.
  68.  
  69.   :if %r% = 1
  70.     :update fn='config.sys' path='\' rename='config.sys'.
  71.     :txt find='device=c:\pointtr.sys' remove=yes.
  72.     :etxt.
  73.     :txt find='device=c:\toshtr.sys' remove=yes.
  74.     :etxt.
  75.     :txt find='device=c:\sharptr.sys' remove=yes.
  76.     :etxt.
  77.     :eupdate.
  78.   :eif.
  79. :eif.
  80.  
  81. .*  look for installed socket services enabler
  82. :update fn='config.sys' path='\' rename='config.sys'.
  83. :txt find='device=c:\tokenrng.sys' remove=check.
  84. :etxt.
  85. :eupdate.
  86.  
  87. :if %r% = 0
  88.   :update fn='uinst.var' path='\' rename='uinst.var'.
  89.   :txt.
  90.   :li.FOUND
  91.   :etxt.
  92.   :eupdate.
  93.  
  94.   :msg sev=i type=yn.
  95.   :msgtxt langid=enu.
  96.   A socket services enabler was found in your
  97.   CONFIG.SYS.  Would you like it to be
  98.   removed?(Y/N)
  99.   :emsgtxt.
  100.   :emsg.
  101.  
  102.   :if %r% = 1
  103.     :update fn='config.sys' path='\' rename='config.sys'.
  104.     :txt find='device=c:\tokenrng.sys' remove=yes.
  105.     :etxt.
  106.     :eupdate.
  107.   :eif.
  108. :eif.
  109.  
  110. .*  look for installed card services enabler
  111. :update fn='config.sys' path='\' rename='config.sys'.
  112. :txt find='DEVICE=c:\cs20tok.sys' remove=check.
  113. :etxt.
  114. :eupdate.
  115.  
  116. :if %r% = 0
  117.   :update fn='uinst.var' path='\' rename='uinst.var'.
  118.   :txt.
  119.   :li.FOUND
  120.   :etxt.
  121.   :eupdate.
  122.  
  123.   :msg sev=i type=yn.
  124.   :msgtxt langid=enu.
  125.   A card services enabler was found in your
  126.   CONFIG.SYS.  Would you like it to be
  127.   removed?(Y/N)
  128.   :emsgtxt.
  129.   :emsg.
  130.  
  131.   :if %r% = 1
  132.     :update fn='config.sys' path='\' rename='config.sys'.
  133.     :txt find='device=c:\cs20tok.sys' remove=yes.
  134.     :etxt.
  135.     :eupdate.
  136.   :eif.
  137. :eif.
  138.  
  139. :update fn='uinst.var' path='\' rename='uinst.var'.
  140. :txt find='FOUND' remove=check.
  141. :etxt.
  142. :eupdate.
  143.  
  144. :if %r% = 0
  145.   :msg sev=i type=e.
  146.   :msgtxt langid=enu.
  147.   The enabler removal is complete.
  148.   Your old CONFIG.SYS was saved as CONFIG.S01.
  149.   Press ENTER to return to the main menu
  150.   and then press F3 to exit.
  151.   :emsgtxt.
  152.   :emsg.
  153. :else.
  154.   :msg sev=i type=e.
  155.   :msgtxt langid=enu.
  156.   No enablers were found in your CONFIG.SYS.
  157.   Press ENTER to return to the main menu
  158.   and then press F3 to exit.
  159.   :emsgtxt.
  160.   :emsg.
  161. :eif.
  162.  
  163. :RUN fn='clean.exe'.
  164.  
  165. :einstall.
  166.  
  167.