home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / windows / win3nort.zip / WINORTON.CPM < prev    next >
Text File  |  1990-06-08  |  3KB  |  75 lines
  1. ;************************************************************************
  2. ; This Command Post menu file creates a Windows front-end for some of     *
  3. ; the Norton Advanced Utilities version 4.50.                *
  4. ;                                    *
  5. ;WHAT?  You DON'T have Command Post, the best custom menu system for    *
  6. ;MS Windows?  It's available on finer BBS'es the world over.  Or call    *
  7. ;Wilson WindowWare @ (800)762-8383 & order your registered copy today!    *
  8. ;************************************************************************
  9. ;                        Jennifer Palonus  08jun90
  10.  
  11. ; To run CP with this menu alone, run "CMDPOST.EXE NORTON.CPM"
  12. ; To run CP with the default menu + this one, modify the "#NextFile"
  13. ; statement in CMDPOST to read "#NextFile NORTON.CPM", then re-run
  14. ; Command Post.
  15.  
  16.     WinTitle ("", "The Norton Utilities« from Windows!")
  17.     HTab = Num2Char (09)
  18.     CRLF = strcat(Num2Char(13),Num2Char(10))
  19.         CP   ="CmdPost"
  20.  
  21. ;These menus call The Norton Utilities Advanced Edition ⌐1987-1989 by Peter Norton.
  22. ;Note some of the Norton Utilities not included here will lock up your computer
  23. ;if run from within Windows.
  24.  
  25. &Norton Utilities
  26.  &Find Files
  27.     Title = "Find a File"
  28.     TheFile = askline (Title, "Filename to Find:", FileItemize(""))
  29.     fAll = AskYesNo (Title, "Search all drives?")
  30.     All = strsub("  /A", fAll*2+1, 2)
  31.     Run ("FF.EXE", "%TheFile% %All%")
  32.  
  33.  &Search for Text
  34.     Title = "Find Text in Files"
  35.     TheFile = strcat (FileItemize (""), " ")
  36.     TheFile = strsub (TheFile, 1, strindex(TheFile, " ", 1, @FWDSCAN)-1)
  37.     IfNot = strsub ("; ", (TheFile=="")+1, 1)
  38.     execute %IfNot% TheFile = AskLine (Title, "Files to search:", "*.*")
  39.     Text = AskLine (Title, "Text to search for:", "")
  40.     Run ("TS.EXE", "%TheFile% ""%Text%"" /T")
  41.  
  42.  Files with &Attributes
  43.     Title = "List Files with Attributes"
  44.     Attribs = "Archive,Hidden,Read Only,System,[All of the above]"
  45.     TheAt = ItemSelect ("List files with which attributes?", Attribs, ",")
  46.     terminate (TheAt=="", Title, "No attributes selected.")
  47.     TheAt = strsub(TheAt, 1, 1)
  48.     AtTemplate = "[U  AA  HHIDRR  SSYS "
  49.     Attrib = strsub (AtTemplate, strscan (AtTemplate, TheAt, 1, @FWDSCAN)+1, 3)
  50.     Run ("FA.EXE", "/%Attrib%")
  51.  
  52.  Delete && &Wipe Files
  53.     Title = "Delete & Wipe Files"
  54.     TheFiles = FileItemize ("")
  55.     IfNot = strsub("; ",1+(TheFiles==""),1)
  56.     execute %IfNot% TheFiles = AskLine (Title, "Files to delete", "")
  57.     Terminate (TheFiles=="", Title, "No files selected")
  58.     Run ("Wipefile.EXE", "%TheFiles% /P")
  59.  
  60.  Disk &Info for This Drive
  61.     Run ("DI.EXE", "")
  62.  
  63.  Compute &SI Index
  64.     Run ("SI.EXE", "/N")
  65.  
  66.  _Reset && Start Timer
  67.     Title = "Start Timer"
  68.     RunHide ("TM.EXE", "START")
  69.     Yield
  70.     WinClose ("(Inactive Norton Time Mark)")
  71.     Display (2, Title, "Timer is running.")
  72.  
  73.  Time Since Last "Start"
  74.     RunZoom ("TM.EXE", "STOP")
  75.