home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 10 / Fresh_Fish_10_2352.bin / fishdisks / d1049.lha / Programs / Startup-Menu / Remove_SM < prev    next >
Text File  |  1992-09-02  |  738b  |  48 lines
  1. ; Startup-Menu removal script for CBM Installer
  2. ;$VER: SM_remove 1.0
  3. ;$AUTHOR: Lee Kindness
  4.  
  5. (set @default-dest '')
  6.  
  7. (if (NOT (askbool 
  8.                         (prompt 'This script removes Startup-Menu from your system.\nDo you wish to continue?')
  9.                         (help '')
  10.                     ))
  11.     (exit (quiet))
  12. )
  13.  
  14. ; delete SM dir
  15. (foreach 'S:SM' '#?'
  16.         (delete (cat 'S:SM/' @each-name)
  17.             (optional force)
  18.         ) 
  19. )
  20.  
  21. (delete 'S:SM'
  22.     (optional force)
  23. )
  24.  
  25. ;rename ss
  26. (rename 'S:startup-sequence.SMOLD' 'S:startup-sequence')
  27. (delete 'S:startup-sequence.SMOLD')
  28.  
  29. ;delete rexx scripts
  30. (delete 'S:OMP_smexit.rexx')
  31. (delete 'S:OMP_sminit.rexx')
  32.  
  33. ;delete prefs
  34. (delete 'S:startup-menu.prefs')
  35.  
  36. (message 'Startup-Menu removal complete. Sorry SM was not useful :-(')
  37.  
  38. (exit
  39.     (quiet)
  40. )
  41.  
  42.  
  43.     
  44.  
  45.  
  46.  
  47.  
  48.