home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / adpt107f.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1996-04-20  |  19KB  |  602 lines
  1. /* Begin Install.CMD for AdeptXBBS */
  2. trace on
  3. '@Echo off'
  4. adummy = ''
  5. say ''
  6. say 'April 20, 1996'
  7. say ''
  8. say ''
  9. say 'The developers of AdeptXBBS have made the difficult decision to stop selling'
  10. say 'AdeptXBBS. On April 30, 1996 our underlying license with Mark Kimes will'
  11. say 'lapse and we will no longer have the right to sell AdeptXBBS. We have'
  12. say 'decided that if we cannot sell AdeptXBBS, we will give it away.'
  13. say ''
  14. say 'AdeptSoft of Boca Raton, Florida today announced the Freeware release of'
  15. say 'AdeptXBBS with AdeptREXX. '
  16. say ''
  17. say 'In the near future, AdeptSoft will release limited source code to the public'
  18. say 'domain to enable 3rd party developers to expand the functionality of'
  19. say 'AdeptXBBS. AdeptSoft will continue to hold the copyright to AdeptXBBS.'
  20. say ''
  21. say 'AdeptSoft will periodically release new versions of the Freeware product to'
  22. say 'fix known bugs. '
  23. say ''
  24. say 'AdeptSoft will discontinue its official online support concurrent with the'
  25. say 'freeware release. The AdeptSoft Support BBS (bbs.adeptsoft.com) will close'
  26. say 'on April 30th.'
  27.  
  28. store = charout(,'Press Enter to continue...')
  29. parse upper pull enterd
  30. say 'A 16 node freeware version will be released on public FTP sites. This'
  31. say 'version will be fully functional. AdeptXBBS Internet module will be'
  32. say 'released as Demoware. This module is in the process of being rewritten and'
  33. say 'the completed Internet module will be distributed at no cost to registered'
  34. say 'sysops. The Internet Module will be made available for sale to'
  35. say 'non-registered sysops.'
  36. say ''
  37. say 'It is our hope that a Freeware product will find a market that the'
  38. say 'shareware product was unable to establish.'
  39. store = charout(,'Press Enter to continue...')
  40. parse upper pull enterd
  41. say 'The developers of AdeptXBBS wish to thank the users, both registered and'
  42. say 'unregistered, who have helped and supported us through the development and'
  43. say 'launch of AdeptXBBS. Developing AdeptXBBS has been a labor of love of over 6'
  44. say 'man years. '
  45. say 'We wish that our baby had found more homes but AdeptXBBS has been on'
  46. say 'artifical support for 12 of the last 15 months. We are no longer in the'
  47. say 'position to devote our lives to'
  48. say 'developing a product that cannot support itself in the marketplace. We would'
  49. say 'have gladly continued if it were not for the stark reality of underlying'
  50. say 'license agreements, license payments, computer costs, Internet lines,'
  51. say 'telephone costs, etc. '
  52. say ''
  53. say 'John Morris, Gordon Zeglinski and John Lawlor'
  54. say ''
  55. store = charout(,'Press Enter to continue...')
  56. parse upper pull enterd
  57. adummy = ''
  58. say ''
  59. say ''
  60. say ''
  61. say ''
  62. say 'Please... Make sure Chatserver.exe is NOT loaded!  If it is this install'
  63. say '          will fail without warning.  Please make sure that Gatekpr.exe'
  64. say '          is also not running, or any other AdeptXBBS utilities.'
  65. say ''
  66. dummy = charout(,'Do you wish to continue with this install? [y/N] ')
  67. parse upper pull adummy
  68. if left(adummy,1) \= 'Y' then do
  69.   exit
  70. end
  71. say ''
  72. say ''
  73. say '  Thank you for Choosing AdeptSoft and AdeptXBBS!!'
  74. say ''
  75. say '   ──────────────────────────────────────────────────────────'
  76. say 'C──────────────────────────────────────────────────────────'
  77. say 'C▌    ▐C────────────────────────────────────────────────────────'
  78. say 'C▌▐C▌▐C▌  ▐C▌   ▐C▌    ▐C▌    ▐C▌   ▐C▌   ▐C▌   ▐C▌    ▐'
  79. say 'C▌▐C▌▐C▌▐C▌▐C▌▐C▌▐C▌▐C▌▐C▌▐C▌▐C▌▐C▌▐C▌▐'
  80. say 'C▌    ▐C▌▐C▌▐C▌ ▐C▌    ▐C▌▐C▌ ▐C▌▐C▌▐C▌ ▐C▌▐C'
  81. say 'C▌▐C ▐C▌▐C▌▐C▌▐C▌▐C▌▐C▌▐C▌▐C▌▐C▌▐C▌▐'
  82. say 'C▌▐C ▐C▌  ▐C▌   ▐C▌▐C▌▐C▌    ▐C▌   ▐C▌▐C▌▐'
  83. say 'C▌▐C ▐C───────────────────────────────────────────────────────'
  84. say 'C──────────────────────────────────────────────────────────'
  85. say '   ──────────────────────────────────────────────────────────'
  86. say ''
  87. say ''
  88. say ''
  89. say ''
  90. say ''
  91. say ''
  92. store = charout(,'Press Enter to continue...')
  93. parse upper pull enterd
  94. say ''
  95. say ''
  96. say 'C┌───────────────────────────────────────────────────────────────────┐'
  97. say 'C│            AdeptXBBS 1.07 Installation/Update Program             │'
  98. say 'C│   AdeptXBBS is copyright (c) 1996 by AdeptSoft & Mark Kimes       │'
  99. say 'C│                        All rights reserved                        │'
  100. say 'C└───────────────────────────────────────────────────────────────────┘'
  101. say ''
  102. say ''
  103.  
  104. rc = stream('adeptins.dat','c','query exists')
  105. if rc = '' then
  106. do
  107.   say 'Sorry, ADEPTINS.DAT not found.  Must not be right directory. Terminating.'
  108.   exit
  109. end
  110.  
  111. rc = stream('adeptful.dat','c','query exists')
  112. if rc = '' then
  113. do
  114.   say 'Sorry, ADEPTFUL.DAT not found.  Must not be right directory. Terminating.'
  115.   exit
  116. end
  117.  
  118. curdir = directory()
  119.  
  120. do
  121.     say ''
  122.     say 'Please enter the drive letter to install AdeptXBBS (Ex. C:)'
  123.     say 'You MUST enter the full drive letter, C: <- Notice the colon'
  124.     say '--'
  125.     parse upper pull dummy
  126.     ADDRESS CMD dummy
  127.     ADDRESS CMD "CD\"
  128.     ADDRESS CMD "MD ADEPT 2>NUL"
  129.     ADDRESS CMD "CD ADEPT"
  130.     olddir = curdir
  131.     curdir = dummy'\ADEPT'
  132.     say ''
  133.     say 'Current sub-directory: 'curdir
  134.     say ''
  135.     say 'Install AdeptXBBS into the current'
  136.     dum = charout(, 'sub-directory? [Y/n] ')
  137.     parse upper pull dummy
  138.     if left(dummy,1) = 'N' then exit
  139.     say ''
  140. end
  141.  
  142. say ''
  143. say 'Installing AdeptXBBS, copying files.. Please wait...'
  144.  
  145. InsCmd = copy olddir'\*>NUL'
  146.  
  147. if olddir \= curdir then
  148. do
  149.   ADDRESS CMD InsCmd
  150. end
  151.  
  152. say ''
  153. say '1. Install a Full Copy of AdeptXBBS'
  154. say '2. Upgrade a previous version of AdeptXBBS'
  155. say ''
  156. say '3. Quit'
  157. parse upper pull dummy
  158. if left(dummy,1) = '3' then exit
  159.  
  160. say ''
  161. say 'Unpacking files, this may take a bit...'
  162.  
  163. if left(dummy,1) = '1' then
  164. do
  165.   InsCmd = 'AdeptFul.dat /o >NUL'
  166.   ADDRESS CMD InsCmd
  167.   InsCmd = 'AdpLang.dat /o >NUL'
  168.   ADDRESS CMD InsCmd
  169.   InsCmd = 'AdpMenus.dat /o >NUL'
  170.   ADDRESS CMD InsCmd
  171. end
  172.  
  173. InsCmd = 'AdeptIns.dat /o >NUL'
  174. ADDRESS CMD InsCmd
  175. InsCmd = 'AdeptDLL.dat /o >NUL'
  176. ADDRESS CMD InsCmd
  177.  
  178. if left(dummy,1) \= 1 then do
  179.     say ''
  180.     say 'If your LANGUAGE.TEXT is customized you may not want to overwrite'
  181.     say 'it.'
  182.     say ''
  183.     dum = Charout(, 'Is it OK to Overwrite your Language.Text? [Y/n] ')
  184.     parse upper pull adummy
  185.     if left(adummy,1) \= 'N' then do
  186.        say ''
  187.        say 'Overwriting your Language.Text file...'
  188.        InsCmd = 'AdpLang.dat /o >NUL'
  189.        ADDRESS CMD InsCmd
  190.     end
  191. end
  192.  
  193. if left(dummy,1) \= 1 then do
  194.     say ''
  195.     say 'Would you like to replace your current menus with the latest menus'
  196.     say 'included with this version?'
  197.     say ''
  198.     dum = Charout(, 'Would you like your menus replaced? [Y/n] ')
  199.     parse upper pull adummy
  200.     if left(adummy,1) \= 'N' then do
  201.        say ''
  202.        say 'Replacing menu files...'
  203.        InsCmd = 'AdpMenus.dat /o >NUL'
  204.        ADDRESS CMD InsCmd
  205.     end
  206. end
  207.  
  208. rc = stream('System\Language.Text.Index','c','query exists')
  209. if rc \= '' then
  210. do
  211.   ADDRESS CMD 'DEL System\Language.Text.Index'
  212. end
  213.  
  214. rc = stream('System\Language.Text.Compiled','c','query exists')
  215. if rc \= '' then
  216. do
  217.   ADDRESS CMD 'DEL System\Language.Text.Compiled'
  218. end
  219.  
  220. /* load rexx utility functions */
  221.  
  222. rc = stream('adept.exe','c','query exists')
  223. if rc = '' then
  224. do
  225.   say 'Sorry, ADEPT.EXE not found.  Must not be right directory. Terminating.'
  226.   exit
  227. end
  228.  
  229. say ''
  230. say 'If you see any SYS### errors from this point on, please ignore them'
  231. say ''
  232.  
  233. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  234. call SysLoadFuncs
  235.  
  236. /* say it, then do it */
  237.  
  238. say "Creating AdeptSoft folder..."
  239.  
  240. /* first, create AdeptSoft folder */
  241.  
  242. title = "AdeptSoft"
  243. classname = 'WPFolder'
  244. location = '<WP_DESKTOP>'
  245. setup = 'OBJECTID=<AdeptSoft_Folder>;OPEN=DEFAULT'
  246. result=SysCreateObject(classname,title,location,setup,f)
  247.  
  248. /* If folder exists, ask before updating */
  249.  
  250. if result = 0 then
  251. do
  252.   existed = 'TRUE'
  253.   say ''
  254.   say 'The AdeptXBBS folder already exists.'
  255.   dum = Charout(, 'Do you really want to create a duplicate? [Y/n] ')
  256.   parse upper pull dummy
  257.   if left(dummy,1) = 'N' then
  258.   do
  259.     rc = stream('adept.exe','c','query exists')
  260.     if rc = '' then
  261.     do
  262.       say 'Sorry, ADEPT.EXE not found.  Unarchive does not appear to have '
  263.       say 'been successful.'
  264.       exit
  265.     end
  266.  
  267.     do
  268.       say ''
  269.       say 'Install appears to have been sucessful!'
  270.       say ''
  271.     end
  272.  
  273.     do
  274.       say ''
  275.       say 'NOTE: This setup defaults to starting in 'DEMO' mode, enless you are'
  276.       say '      upgrading, and have already registered the program.  If you are'
  277.       say '      a registered sysop and your key has been entered in the'
  278.       say '      Config->Register AdeptXBBS box, you will automatically startup'
  279.       say '      with the features you registered accessable to you. '
  280.       say ''
  281.       say ''
  282.       say '      If you are not a registered sysop this version of the software will'
  283.       say '      run in a timed 1 node evaluation mode.  This version of the BBS'
  284.       say '      software will run under May 31st, 1996.  If you are a registered'
  285.       say '      sysop the timer will not effect you.'
  286.       say ''
  287.       say ''
  288.       say '      If the BBS software beeps twice and then exists when you first try'
  289.       say '      to run it, read the file wontwork.txt. - thanks.'
  290.       say ''
  291.       say 'Would you like to setup your copy of'
  292.       dum = Charout(, 'AdeptXBBS? ')
  293.       parse upper pull dummy
  294.       if left(dummy,1) = 'Y' then
  295.       do
  296.         ADDRESS CMD 'Adept.exe /NODES 2 /SETUP'
  297.       end
  298.       say ''
  299.     end
  300.     say 'Thank you for choosing AdeptSoft!'
  301.     say ''
  302.     ADDRESS CMD "DEL ADPMENUS.DAT"
  303.     ADDRESS CMD "DEL ADPLANG.DAT"
  304.     ADDRESS CMD "DEL ADEPTINS.DAT"
  305.     ADDRESS CMD "DEL ADEPTFUL.DAT"
  306.     ADDRESS CMD "DEL ADEPTDLL.DAT"
  307.     exit
  308.   end
  309.   say ''
  310. end
  311.  
  312. say "Creating objects in AdeptSoft folder..."
  313.  
  314. /* now, create program objects in AdeptSoft folder */
  315.  
  316. title = "AdeptXBBS 1 Node"
  317. classname = 'WPProgram'
  318. location = '<AdeptSoft_Folder>'
  319. setup = 'EXENAME='curdir'\ADEPT.EXE;STARTUPDIR='curdir';PARAMETERS=/NODES 1'
  320. call SysCreateObject classname,title,location,setup,u
  321.  
  322. title = "AdeptXBBS 2 Nodes"
  323. classname = 'WPProgram'
  324. location = '<AdeptSoft_Folder>'
  325. setup = 'EXENAME='curdir'\ADEPT.EXE;STARTUPDIR='curdir';PARAMETERS=/NODES 2'
  326. call SysCreateObject classname,title,location,setup,u
  327.  
  328. title = "AdeptXBBS in Setup Mode"
  329. classname = 'WPProgram'
  330. location = '<AdeptSoft_Folder>'
  331. setup = 'EXENAME='curdir'\ADEPT.EXE;STARTUPDIR='curdir';PARAMETERS=/NODES 2 /SETUP'
  332. call SysCreateObject classname,title,location,setup,u
  333.  
  334. rc = stream('xsend.cmd','c','query exists')
  335. if rc \= '' then
  336. do
  337.   title = "Send files"
  338.   classname = 'WPProgram'
  339.   location = '<AdeptSoft_Folder>'
  340.   setup = 'EXENAME='curdir'\XSEND.CMD;STARTUPDIR='curdir
  341.   if existed = '' then setup = setup';PARAMETERS=%* 'curdir'\\'
  342.   call SysCreateObject classname,title,location,setup,u
  343. end
  344.  
  345. rc = stream('fileedit.exe','c','query exists')
  346. if rc \= '' then
  347. do
  348.   title = "File area editor"
  349.   classname = 'WPProgram'
  350.   location = '<AdeptSoft_Folder>'
  351.   setup = 'EXENAME='curdir'\FILEEDIT.EXE;STARTUPDIR='curdir
  352.   call SysCreateObject classname,title,location,setup,u
  353. end
  354.  
  355. rc = stream('mail.cmd','c','query exists')
  356. if rc \= '' then
  357. do
  358.   title = "Process mail"
  359.   classname = 'WPProgram'
  360.   location = '<AdeptSoft_Folder>'
  361.   setup = 'EXENAME='curdir'\mail.cmd;STARTUPDIR='curdir
  362.   call SysCreateObject classname,title,location,setup,u
  363. end
  364.  
  365. rc = stream('reindexfiles.exe','c','query exists')
  366. if rc \= '' then
  367. do
  368.   title = "Reindex File Database"
  369.   classname = 'WPProgram'
  370.   location = '<AdeptSoft_Folder>'
  371.   setup = 'EXENAME='curdir'\ReIndexFiles.EXE;STARTUPDIR='curdir';PARAMETERS=/NUKE'
  372.   call SysCreateObject classname,title,location,setup,u
  373. end
  374.  
  375. rc = stream('reindexusers.exe','c','query exists')
  376. if rc \= '' then
  377. do
  378.   title = "Reindex User File"
  379.   classname = 'WPProgram'
  380.   location = '<AdeptSoft_Folder>'
  381. setup = 'EXENAME='curdir'\ReIndexUsers.Exe;STARTUPDIR='curdir
  382. call SysCreateObject classname,title,location,setup,u
  383. end
  384.  
  385. rc = stream('bfsmake.exe','c','query exists')
  386. if rc \= '' then
  387. do
  388.   title = "Convert file areas"
  389.   classname = 'WPProgram'
  390.   location = '<AdeptSoft_Folder>'
  391.   setup = 'EXENAME='curdir'\BFSMAKE.EXE;STARTUPDIR='curdir
  392.   call SysCreateObject classname,title,location,setup,u
  393. end
  394.  
  395. rc = stream('xmsg.cmd','c','query exists')
  396. if rc \= '' then
  397. do
  398.   title = "Clean up msg areas"
  399.   classname = 'WPProgram'
  400.   location = '<AdeptSoft_Folder>'
  401.   setup = 'EXENAME='curdir'\CLEAN.EXE;STARTUPDIR='curdir
  402.   call SysCreateObject classname,title,location,setup,u
  403. end
  404.  
  405. rc = stream('README.NOW','c','query exists')
  406. if rc \= '' then
  407. do
  408.   title = "Must Read!"
  409.   classname = 'WPShadow'
  410.   location = '<AdeptSoft_Folder>'
  411.   setup = 'SHADOWID='rc
  412.   call SysCreateObject classname,title,location,setup,u
  413. end
  414.  
  415. rc = stream('AdpXBBS.DOC','c','query exists')
  416. if rc \= '' then
  417. do
  418.   title = "AdeptXBBS Documentation!"
  419.   classname = 'WPShadow'
  420.   location = '<AdeptSoft_Folder>'
  421.   setup = 'SHADOWID='rc
  422.   call SysCreateObject classname,title,location,setup,u
  423. end
  424.  
  425. rc = stream('GATEKPR.DOC','c','query exists')
  426. if rc \= '' then
  427. do
  428.   title = "Gate Keeper Documentation!"
  429.   classname = 'WPShadow'
  430.   location = '<AdeptSoft_Folder>'
  431.   setup = 'SHADOWID='rc
  432.   call SysCreateObject classname,title,location,setup,u
  433. end
  434.  
  435. rc = stream('AdpRexx.DOC','c','query exists')
  436. if rc \= '' then
  437. do
  438.   title = "AdeptREXX Documentation!"
  439.   classname = 'WPShadow'
  440.   location = '<AdeptSoft_Folder>'
  441.   setup = 'SHADOWID='rc
  442.   call SysCreateObject classname,title,location,setup,u
  443. end
  444.  
  445. rc = stream('UserMod.Doc','c','query exists')
  446. if rc \= '' then
  447. do
  448.   title = "Batch User Modifier"
  449.   classname = 'WPShadow'
  450.   location = '<AdeptSoft_Folder>'
  451.   setup = 'SHADOWID='rc
  452.   call SysCreateObject classname,title,location,setup,u
  453. end
  454.  
  455. rc = stream('REGISTER.TXT','c','query exists')
  456. if rc \= '' then
  457. do
  458.   title = "How to Register"
  459.   classname = 'WPShadow'
  460.   location = '<AdeptSoft_Folder>'
  461.   setup = 'SHADOWID='rc
  462.   call SysCreateObject classname,title,location,setup,u
  463. end
  464.  
  465. rc = stream('WONTWORK.TXT','c','query exists')
  466. if rc \= '' then
  467. do
  468.   title = "Possible fix to a bug"
  469.   classname = 'WPShadow'
  470.   location = '<AdeptSoft_Folder>'
  471.   setup = 'SHADOWID='rc
  472.   call SysCreateObject classname,title,location,setup,u
  473. end
  474.  
  475. rc = stream('FAQ12-95.TXT','c','query exists')
  476. if rc \= '' then
  477. do
  478.   title = "AdeptXBBS Frequently Asked Questions"
  479.   classname = 'WPShadow'
  480.   location = '<AdeptSoft_Folder>'
  481.   setup = 'SHADOWID='rc
  482.   call SysCreateObject classname,title,location,setup,u
  483. end
  484.  
  485. rc = stream('BUGFORM.TXT','c','query exists')
  486. if rc \= '' then
  487. do
  488.   title = "AdeptXBBS Bug Report Form"
  489.   classname = 'WPShadow'
  490.   location = '<AdeptSoft_Folder>'
  491.   setup = 'SHADOWID='rc
  492.   call SysCreateObject classname,title,location,setup,u
  493. end
  494.  
  495.   rc = directory('Menus')
  496.   if rc \= '' then
  497.   do
  498.     call directory curdir
  499.     title = "BBS Menus"
  500.     classname = 'WPShadow'
  501.     location = '<AdeptSoft_Folder>'
  502.     setup = 'SHADOWID='rc
  503.     call SysCreateObject classname,title,location,setup,u
  504.   end
  505.  
  506.   rc = directory('Text')
  507.   if rc \= '' then
  508.   do
  509.     call directory curdir
  510.     title = "BBS Text"
  511.     classname = 'WPShadow'
  512.     location = '<AdeptXBBS_Folder>'
  513.     setup = 'SHADOWID='rc
  514.     call SysCreateObject classname,title,location,setup,u
  515.   end
  516.  
  517.   rc = directory('System\SysNews')
  518.   if rc \= '' then
  519.   do
  520.     call directory curdir
  521.     title = "BBS System News"
  522.     classname = 'WPShadow'
  523.     location = '<AdeptSoft_Folder>'
  524.     setup = 'SHADOWID='rc
  525.     call SysCreateObject classname,title,location,setup,u
  526.   end
  527.  
  528.   rc = directory('System\MiscNews')
  529.   if rc \= '' then
  530.   do
  531.     call directory curdir
  532.     title = "BBS Misc. News"
  533.     classname = 'WPShadow'
  534.     location = '<AdeptSoft_Folder>'
  535.     setup = 'SHADOWID='rc
  536.     call SysCreateObject classname,title,location,setup,u
  537.   end
  538.  
  539. rc = stream('Adept.HLP','c','query exists')
  540. if rc \= '' then
  541. do
  542.   rc = stream('SEEHELP.EXE','c','query exists')
  543.   if rc \= '' then
  544.   do
  545.     title = "AdeptXBBS Online Help"
  546.     classname = 'WPProgram'
  547.     location = '<AdeptSoft_Folder>'
  548.     setup = 'EXENAME='curdir'\SEEHELP.EXE;'
  549.     setup = setup'STARTDIR='curdir';PARAMETERS='curdir'\ADEPT.HLP'
  550.     call SysCreateObject classname,title,location,setup,f
  551.   end
  552. end
  553.  
  554. rc = stream('adept.exe','c','query exists')
  555. if rc = '' then
  556. do
  557.   say 'Sorry, ADEPT.EXE not found.  Unarchive does not appear to have '
  558.   say 'been successful.'
  559.   exit
  560. end
  561.  
  562. do
  563.   say ''
  564.   say 'Install appears to have been sucessful!'
  565.   say ''
  566. end
  567.  
  568. do
  569.   say ''
  570.   say 'NOTE: This setup defaults to starting 2 nodes.  Both nodes will be'
  571.   say '      started in  "'"SETUP"'"  mode.  This is to be sure that it will'
  572.   say '      not interupt anything else that is running.'
  573.   say ''
  574.   say '      You can setup the BBSs options from the Config pull down on'
  575.   say '      the main screen.'
  576.   say ''
  577.   say '      Be sure to click on Shutdown in order to make sure your settings'
  578.   say '      are properly saved.'
  579.   say ''
  580.   say '      If the BBS software beeps twice and then exists when you first try'
  581.   say '      to run it, read the file wontwork.txt - thanks.'
  582.   say ''
  583.   say 'Would you like to setup your copy of'
  584.   dum = Charout(, 'AdeptXBBS? [y/N] ')
  585.   parse upper pull dummy
  586.   if left(dummy,1) = 'Y' then
  587.   do
  588.     ADDRESS CMD 'Adept.exe /NODES 2 /SETUP'
  589.   end
  590.   ADDRESS CMD "DEL ADPMENUS.DAT"
  591.   ADDRESS CMD "DEL ADPLANG.DAT"
  592.   ADDRESS CMD "DEL ADEPTINS.DAT"
  593.   ADDRESS CMD "DEL ADEPTFUL.DAT"
  594.   ADDRESS CMD "DEL ADEPTDLL.DAT"
  595.   say ''
  596.  
  597. end
  598.  
  599. say 'Thank you for choosing AdeptSoft!'
  600.  
  601. /* END Install Program */
  602.