home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / windows / win3nort.zip / WINORTSA.CPM < prev   
Text File  |  1990-06-09  |  18KB  |  457 lines
  1. ;************************************************************************
  2. ; This Command Post menu file creates a STANDALONE Windows front-end for*
  3. ; some of 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. ;This file is similar to WINORTON.CPM, except a subset of CMDPOST.CPM has
  12. ;been added to the beginning so you can run this menu alone.
  13.  
  14. ;These menus call The Norton Utilities Advanced Edition ⌐1987-1989 by Peter Norton.
  15. ;Note some of the Norton Utilities not included here will lock up your computer
  16. ;if run from within Windows.
  17.  
  18.     a=Version()
  19.         CP="CmdPost"
  20.         ; Lines below good only for licensed versions.
  21.     TitleFirst="The Norton Utilities« from Windows!"
  22.     TitleRest= "The Norton Utilities« from Windows!"
  23.         b=strsub(";",1,IsLicensed())
  24.         execute %b% TitleFirst="The Norton Utilities« from Windows! - Eval Only"
  25.         execute %b% TitleRest ="The Norton Utilities« from Windows! # Eval Only"
  26.     crlf=strcat(num2char(13),num2char(10))
  27.     tab=num2char(9)
  28.  
  29. ; Setting up the View menu item here.
  30.  
  31.         ViewShortLong=iniread(CP,"ViewShortLong","SHORT")
  32.  
  33.         MenuChange("ViewShort", (ViewShortLong=="SHORT")*@CHECK)
  34.         MenuChange("ViewLong",  (ViewShortLong=="LONG")*@CHECK)
  35.         
  36.         ViewBy=iniread(CP,"ViewBy","NAME")
  37.         MenuChange("ViewByName", (ViewBy=="NAME")*@CHECK)
  38.         MenuChange("ViewByDate", (ViewBy=="DATE")*@CHECK)
  39.         MenuChange("ViewBySize", (ViewBy=="SIZE")*@CHECK)
  40.         MenuChange("ViewByKind", (ViewBy=="KIND")*@CHECK)
  41.         MenuChange("ViewUnsorted",(ViewBy=="UNSORTED")*@CHECK)
  42.  
  43.         ViewWhat=iniread(CP,"ViewWhat","ALL")
  44.         MenuChange("ViewAll",      (ViewWhat=="ALL")     *@CHECK)
  45.         MenuChange("ViewPartial",  (ViewWhat=="PARTIAL") *@CHECK)
  46.         MenuChange("ViewPrograms", (ViewWhat=="PROGRAMS")*@CHECK)
  47.  
  48.         a=iniread(CP,"Partial","*.*")
  49.         SD3=strcat(strsub("*.*",1,IsMenuChecked("ViewAll")*3),strsub(a,1,IsMenuChecked("ViewPartial")*strlen(a)),strsub("*.EXE *.COM *.BAT *.PIF",1,IsMenuChecked("ViewPrograms")*23))
  50.         SetDisplay(ViewShortLong,ViewBy,SD3)
  51.         drop(a,ViewShortLong,ViewBy,ViewWhat,SD3)
  52.  
  53. ; Setup Print menu item...Kill it if no text printer
  54.         MenuChange("FilePrint", (IniRead(CP,"TextPrinter","")=="NONE") *@DISABLE)
  55.  
  56.     TitleTemp=TitleRest
  57.     WinTitle("",TitleTemp);Title of this 'Post
  58.     ;Do not Drop TitleFirst,TitleRest,crlf,tab,CP as these are used
  59.     ;in following menu items.
  60.     Drop(a,TitleTemp,IfOnlyMe)
  61.  
  62. ; And the menu starts.  Notice that we are emulating the MS-DOS Window
  63. &File
  64.  &Run...
  65.         r=CurrentFile()
  66.         a=strsub(";",1,IsKeyDown(@SHIFT))
  67.         execute %a% r=askline("RUN","Enter file to run",r)
  68.         r=strcat(strtrim(r)," ")
  69.         i=strindex(r," ",0,@FWDSCAN)
  70.         run(strsub(r,1,i-1),strtrim(strsub(r,i,strlen(r)-i+1)))
  71.         drop(a,r,i)        
  72.  &Load...
  73.         r=CurrentFile()
  74.         a=strsub(";",1,IsKeyDown(@SHIFT))
  75.         execute %a% l=askline("LOAD","Enter file to load",CurrentFile())
  76.         l=strcat(strtrim(l)," ")
  77.         i=strindex(l," ",0,@FWDSCAN)
  78.         runicon(strsub(l,1,i-1),strtrim(strsub(l,i,strlen(l)-i+1)))
  79.         drop(a,i,l)
  80.  Bro&wse...
  81.         l=CurrentFile()
  82.         a=strsub(";",1,IsKeyDown(@SHIFT))
  83.         execute %a% l=askline("Browse","Enter file to browse",l)
  84.         run("browser.exe",l)
  85.         drop(a,l)
  86.  &Notepad Edit...
  87.         l=CurrentFile()
  88.         a=strsub(";",1,IsKeyDown(@SHIFT))
  89.         execute %a% l=askline("Notepad Edit","Enter file to edit",l)
  90.         run("notepad.exe",l)
  91.         drop(a,l)
  92.  &Copy...
  93.         r=OtherDir()
  94.         a=strsub(";",1,IsKeyDown(@SHIFT))
  95.         s=strcat(DirItemize("")," ",FileItemize(""))
  96.         terminate(strlen(s)==1,"Copy Error","No files selected")
  97.         execute %a% r=askline("Copy",StrCat(s,crlf,crlf,"to"),r)
  98.         terminate(r=="","Copy Error","Cannot copy to null file name")        
  99.         FileCopy(s,r,@TRUE)
  100.         OtherUpdate()
  101.         q=strindex(r,"\",0,@FWDSCAN) ; Directory Name in there??
  102.         q=strsub(";",1,q!=0)
  103.         execute %q% SetDisplay("","","") 
  104.         drop(a,r,s,q)
  105.  &Move...
  106.         r=OtherDir()
  107.         a=strsub(";",1,IsKeyDown(@SHIFT))
  108.         s=strcat(DirItemize("")," ",FileItemize(""))
  109.         terminate(strlen(s)==1,"Move Error","No files selected")
  110.         execute %a% r=askline("Move",StrCat(s,crlf,crlf,"to"),r)
  111.         terminate(r=="","Move Error","Cannot move to null file name")
  112.         FileMove(s,r,@TRUE)
  113.         SetDisplay("","","")
  114.         OtherUpdate()
  115.         drop(a,r,s)
  116.  &Rename...
  117.         s=FileItemize("")
  118.         terminate(s=="","Rename Error","No files selected")
  119.     r=askline("Rename",StrCat(s,crlf,crlf,"to"),s)
  120.         terminate(r=="","Rename Error","Cannot rename to """"")
  121.         FileMove(s,r,@TRUE)
  122.         SetDisplay("","","")
  123.         OtherUpdate()
  124.         drop(a,r,s)
  125.  &Delete File..
  126.         f=FileItemize("")
  127.         g=DirItemize("")
  128.         c=strsub( ";", 1, (strlen(g)==0) )
  129.         b=0
  130.         execute %c% b=AskYesNo("!!! Warning !!! ",strcat("Delete files from these directories too?",crlf,g))
  131.         c=strsub(";",1,abs(b-1))
  132.         execute %c% f=strcat(g," ",f)
  133.         terminate(strlen(f)==0,"delete","No files specified")
  134.         terminate(askyesno("Delete",f)==0,"Delete","File(s) not deleted")
  135.         FileDelete(f)
  136.         SetDisplay("","","")
  137.         OtherUpdate()  ; Well if the "other" CmdPost Window points to the
  138.                     ; same directory, it *IS* nice...
  139.         drop(f,g,a)
  140.  
  141.  &Print...
  142.         s=FileItemize("")
  143.         terminate(strlen(s)==0,"Print Error","No files selected")
  144.         TextPrinter=iniread(CP,"TextPrinter","ASK")
  145.         a=strsub(";",1,TextPrinter!="ASK")
  146.         b=";"
  147.         Execute %a% r=AskYesNo("Attention",strcat("This print routine only works with standard printers.",crlf,"Do you have a standard (NON-Postscript) printer?"))
  148.         Execute %a% b=strsub(";",1,r==@YES)
  149.         Execute %b% iniwrite(CP,"TextPrinter","NONE")
  150.         Execute %b% MenuChange("FilePrint",@DISABLE)
  151.         Execute %b% Exit
  152.         Execute %a% TextPrinter="NONE|LPT1|LPT2|LPT3"
  153.         Execute %a% TextPrinter=ItemSelect("Choose the STD text printer",TextPrinter,"|")
  154.         Execute %a% terminate(strlen(TextPrinter)==0,"Error","Nothing chosen")
  155.         Execute %a% iniwrite(CP,"TextPrinter",TextPrinter)
  156.         Terminate(TextPrinter=="NONE","ERROR","No Text Printers on system")
  157.         a=AskLine("Print",strcat(s,crlf,crlf,"to"),TextPrinter)
  158.         FileCopy(s,a,@FALSE)
  159.  
  160.  _&Size of selected files
  161.         message("Total size of files",strcat(FileSize(FileItemize(""))," Bytes"))
  162.  
  163.  &Freespace on Drives   
  164. ;        This code initially asks for your last drive
  165. ;        (It does assume you have no holes between C and the
  166. ;         last drive...)
  167. ;        and then computes disk space based on the last drive
  168.  
  169.         NextDrive="C"
  170.         crlf=strcat(num2char(13),num2char(10))
  171.         LastDrive=iniread("CmdPost","LastDrive","ASK") 
  172.         xxx=strsub(";",1,(LastDrive!="ASK"))
  173.         execute %xxx% LastDrive=AskLine("Setup Question",strcat("Enter letter of last (contiguous) disk drive",crlf,"C D E F G H ...Z"),"C")
  174.         execute %xxx% LastDrive=StrUpper(LastDrive)
  175.         execute %xxx% iniwrite("CmdPost","LastDrive",LastDrive)
  176.         
  177.         ; Always do C drive
  178.         a=DiskFree(NextDrive)/1024
  179.         TotalSize=a
  180.         DriveReport=strcat(NextDrive," = ",a,"K")
  181.         NextDrive=num2char(char2num(NextDrive)+1)
  182.         xxx=strsub(";",1,NextDrive>LastDrive)
  183.  
  184.         ; Check on D drive
  185.         execute %xxx% a=DiskFree(NextDrive)/1024
  186.         execute %xxx% TotalSize=TotalSize+a
  187.         execute %xxx% DriveReport=strcat(DriveReport,crlf,NextDrive," = ",a,"K")
  188.         execute %xxx% NextDrive=num2char(char2num(NextDrive)+1)
  189.         execute %xxx% xxx=strsub(";",1,NextDrive>LastDrive)
  190.  
  191.  
  192.         ; Check on E drive
  193.         execute %xxx% a=DiskFree(NextDrive)/1024
  194.         execute %xxx% TotalSize=TotalSize+a
  195.         execute %xxx% DriveReport=strcat(DriveReport,crlf,NextDrive," = ",a,"K")
  196.         execute %xxx% NextDrive=num2char(char2num(NextDrive)+1)
  197.         execute %xxx% xxx=strsub(";",1,NextDrive>LastDrive)
  198.  
  199.  
  200.         ; Check on F drive
  201.         execute %xxx% a=DiskFree(NextDrive)/1024
  202.         execute %xxx% TotalSize=TotalSize+a
  203.         execute %xxx% DriveReport=strcat(DriveReport,crlf,NextDrive," = ",a,"K")
  204.         execute %xxx% NextDrive=num2char(char2num(NextDrive)+1)
  205.         execute %xxx% xxx=strsub(";",1,NextDrive>LastDrive)
  206.  
  207.  
  208.         ; Check on G drive
  209.         execute %xxx% a=DiskFree(NextDrive)/1024
  210.         execute %xxx% TotalSize=TotalSize+a
  211.         execute %xxx% DriveReport=strcat(DriveReport,crlf,NextDrive," = ",a,"K")
  212.         execute %xxx% NextDrive=num2char(char2num(NextDrive)+1)
  213.         execute %xxx% xxx=strsub(";",1,NextDrive>LastDrive)
  214.  
  215.  
  216.         ; Check on H drive
  217.         execute %xxx% a=DiskFree(NextDrive)/1024
  218.         execute %xxx% TotalSize=TotalSize+a
  219.         execute %xxx% DriveReport=strcat(DriveReport,crlf,NextDrive," = ",a,"K")
  220.         execute %xxx% NextDrive=num2char(char2num(NextDrive)+1)
  221.         execute %xxx% xxx=strsub(";",1,NextDrive>LastDrive)
  222.  
  223.  
  224.         ; Check on I drive
  225.         execute %xxx% a=DiskFree(NextDrive)/1024
  226.         execute %xxx% TotalSize=TotalSize+a
  227.         execute %xxx% DriveReport=strcat(DriveReport,crlf,NextDrive," = ",a,"K")
  228.         execute %xxx% NextDrive=num2char(char2num(NextDrive)+1)
  229.         execute %xxx% xxx=strsub(";",1,NextDrive>LastDrive)
  230.  
  231.         ; Well if you have more than I drives, just repeat the
  232.         ; Code blocks above
  233.  
  234.         Message("Total Space = %TotalSize%K",DriveReport)
  235.         Drop(xxx,TotalSize,DriveReport,NextDrive,LastDrive)
  236.  
  237.  Space on &A and size of files
  238.         message(strcat("Drive A ",DiskFree("A")),strcat("Selected Files ",FileSize(FileItemize(""))))
  239.  
  240.  
  241.  Space on &B and size of files
  242.         message(strcat("Drive B ",DiskFree("B")),strcat("Selected Files ",FileSize(FileItemize(""))))
  243.  
  244.  
  245. &Dir
  246.  C&reate Directory...
  247.         a=askline("Create Directory","Enter directory to create","")
  248.         terminate(a=="","Create Error","Cannot create directory with null name")
  249.         DirMake(a)
  250.         SetDisplay("","","")
  251.         drop(a)
  252.  
  253.  &Delete Directory...
  254.         f=DirItemize("")
  255.         terminate(strlen(f)==0,"Delete Directory","No directory specified")
  256.         terminate(@no==askyesno("Delete Directory",f),"Delete Directory","Directory not deleted")
  257.         DirRemove(f)
  258.         SetDisplay("","","")
  259.         OtherUpdate()   ; Well if the "other" CmdPost Window points to the
  260.                       ; same directory, it *is* nice
  261.         drop(f)
  262.  
  263.  &Change Directory...
  264.         a=DirGet()
  265.         b=strindex(a,':',1,@fwdscan)
  266.         c=askline("Change Directory","Enter directory name",strsub(a,b+1,strlen(a)-b-1))
  267.         terminate(c=="","Directory Error","Directory with null name does not exist")
  268.         DirChange(c)
  269.         SetDisplay("","","")
  270.         drop(a,b,c)
  271.  
  272.  _&Format Diskette...
  273.         ; A wonderful example of variable substitution
  274.         D1="1) 5.25 High Density (1.2M)"
  275.         D2="2) 5.25 Standard (360K)"
  276.         D3="3) 3.5  High Density (1.44M)"
  277.         D4="4) 3.5  Standard (720K)"
  278.         D0="0) None"
  279.         DC="%D1%|%D2%|%D3%|%D4%|%D0%"
  280.         DriveA=iniread(CP,"DriveA","ASK")
  281.         xxx=strsub(";",1,DriveA!="ASK")
  282.         execute %xxx% Message("Attention","Command Post needs to learn what kind of floppies %crlf% the system has.  Please select accordingly.")
  283.         execute %xxx% a=ItemSelect("Select type of Drive A",DC,"|")
  284.         execute %xxx% Terminate(a=="","You MUST select an option for A.","Please retry FORMAT command.")
  285.         execute %xxx% DriveA=strsub(a,1,1)
  286.         execute %xxx% iniwrite(CP,"DriveA",DriveA)
  287.         DriveB=iniread(CP,"DriveB","ASK")
  288.         xxx=strsub(";",1,DriveB!="ASK")
  289.         execute %xxx% a=ItemSelect("Select type of Drive B",DC,"|")
  290.         execute %xxx% Terminate(a=="","You MUST select an option for B.","Please retry FORMAT command.")
  291.         execute %xxx% DriveB=strsub(a,1,1)
  292.         execute %xxx% iniwrite(CP,"DriveB",DriveB)
  293.        
  294.         A0=""
  295.         A1="1)    A:   5.25 HD (1.2M)|2)    A:   5.25 DD (360K)"
  296.         A2="2)    A:   5.25 DD (360K)"
  297.         A3="3)    A:   3.5 HD (1.44M)|4)    A:   3.5 Std (720K)"
  298.         A4="4)    A:   3.5 Standard (720K)"
  299.         B0=""
  300.         B1="5)    B:   5.25 HD (1.2M)|6)    B:   5.25 DD (360K)"
  301.         B2="6)    B:   5.25 Standard (360K)"
  302.         B3="7)    B:   3.5 HD (1.44M)|8)    B:   3.5 DD (720K)"
  303.         B4="8)    B:   3.5 DD (720K)"
  304.         FF=strcat(A%DriveA%,"|",B%DriveB%)
  305.         drop(A0,A1,A2,A3,A4,B0,B1,B2,B3,B4)
  306.  
  307.         FF=ItemSelect("Choose Format Type Desired",FF,"|")
  308.         terminate(FF=="","Format","No parameters selected")
  309.  
  310.         FF=strsub(FF,1,1)   ; FF will be 1 thru 8 (with luck)
  311.         DR=strsub("AB",(FF>4)+1,1)  ; DR is desired drive
  312.         FF=FF-((FF>4)*4)            ; FF is 1 thru 4
  313.         F11=""
  314.         F12="/4"
  315.         F22=""
  316.         F33=""
  317.         F34="/n:9 /t:80"
  318.         F44=""
  319.         DC=Drive%DR%   ; get drive type
  320.         FC=F%DC%%FF%
  321.         FC="%DR%:  %FC%"
  322.         DC=strsub(D%FF%,4,strlen(d%FF%)-3)
  323.         Pause("Attention",strcat("Preparing to format %DC%",crlf,"diskette in Drive %DR% with command:",crlf,"FORMAT %FC%"))
  324.         run("command.com","/c format.com %FC%")
  325.         drop(D0,D1,D2,D3,D4,DC,xxx,DriveA,DriveB)
  326.         drop(FF,DR,F11,F12,F22,F33,F34,F44,DC,FC)
  327.  
  328.  _Directory &Tree
  329.         run("cp_tree.exe","")
  330.  
  331.  
  332.  
  333. &View
  334.  &Short
  335.         SetDisplay("SHORT","","")
  336.         MenuChange("ViewShort",@CHECK)
  337.         MenuChange("ViewLong",@UNCHECK)
  338.         iniwrite(CP,"ViewShortLong","SHORT")
  339.  &Long
  340.         SetDisplay("LONG","","")
  341.         MenuChange("ViewShort",@UNCHECK)
  342.         MenuChange("ViewLong",@CHECK)
  343.         iniwrite(CP,"ViewShortLong","LONG")
  344.  _&All
  345.         SetDisplay("","","*.*")
  346.         MenuChange("ViewAll",@CHECK)
  347.         MenuChange("ViewPartial",@UNCHECK)
  348.         MenuChange("ViewPrograms",@UNCHECK)
  349.         iniwrite(CP,"ViewWhat","ALL")
  350.  &Partial...
  351.         a=iniread(CP,"Partial","*.*")
  352.         a=AskLine("View Partial","Enter types of files desired",a)
  353.         iniwrite(CP,"Partial",a)
  354.         SetDisplay("","",a)
  355.         MenuChange("ViewAll",@UNCHECK)
  356.         MenuChange("ViewPartial",@CHECK)
  357.         MenuChange("ViewPrograms",@UNCHECK)
  358.         iniwrite(CP,"ViewWhat","PARTIAL")
  359.  P&rograms
  360.         SetDisplay("","","*.EXE *.COM *.BAT *.PIF")
  361.         MenuChange("ViewAll",@UNCHECK)
  362.         MenuChange("ViewPartial",@UNCHECK)
  363.         MenuChange("ViewPrograms",@CHECK)
  364.         iniwrite(CP,"ViewWhat","PROGRAMS")
  365.  _By &Name
  366.         SetDisplay("","NAME","")
  367.         MenuChange("ViewByName",@CHECK)
  368.         MenuChange("ViewByDate",@UNCHECK)
  369.         MenuChange("ViewBySize",@UNCHECK)
  370.         MenuChange("ViewByKind",@UNCHECK)
  371.         MenuChange("ViewUnsorted",@UNCHECK)
  372.         iniwrite(CP,"ViewBy","NAME")
  373.  By &Date
  374.         SetDisplay("","DATE","")
  375.         MenuChange("ViewByName",@UNCHECK)
  376.         MenuChange("ViewByDate",@CHECK)
  377.         MenuChange("ViewBySize",@UNCHECK)
  378.         MenuChange("ViewByKind",@UNCHECK)
  379.         MenuChange("ViewUnsorted",@UNCHECK)
  380.         iniwrite(CP,"ViewBy","DATE")
  381.  By Si&ze
  382.         SetDisplay("","SIZE","")
  383.         MenuChange("ViewByName",@UNCHECK)
  384.         MenuChange("ViewByDate",@UNCHECK)
  385.         MenuChange("ViewBySize",@CHECK)
  386.         MenuChange("ViewByKind",@UNCHECK)
  387.         MenuChange("ViewUnsorted",@UNCHECK)
  388.         iniwrite(CP,"ViewBy","SIZE")
  389.  By &Kind       
  390.         SetDisplay("","KIND","")
  391.         MenuChange("ViewByName",@UNCHECK)
  392.         MenuChange("ViewByDate",@UNCHECK)
  393.         MenuChange("ViewBySize",@UNCHECK)
  394.         MenuChange("ViewByKind",@CHECK)
  395.         MenuChange("ViewUnsorted",@UNCHECK)
  396.         iniwrite(CP,"ViewBy","KIND")
  397.  &Unsorted
  398.         SetDisplay("","UNSORTED","")
  399.         MenuChange("ViewByName",@UNCHECK)
  400.         MenuChange("ViewByDate",@UNCHECK)
  401.         MenuChange("ViewBySize",@UNCHECK)
  402.         MenuChange("ViewByKind",@UNCHECK)
  403.         MenuChange("ViewUnsorted",@CHECK)
  404.         iniwrite(CP,"ViewBy","UNSORTED")
  405.  
  406. ;************************ NORTON UTILITIES MENU... ***********************
  407. &Norton Utilities
  408.  &Find Files
  409.     Title = "Find a File"
  410.     TheFile = askline (Title, "Filename to Find:", FileItemize(""))
  411.     fAll = AskYesNo (Title, "Search all drives?")
  412.     All = strsub("  /A", fAll*2+1, 2)
  413.     Run ("FF.EXE", "%TheFile% %All%")
  414.  
  415.  &Search for Text
  416.     Title = "Find Text in Files"
  417.     TheFile = strcat (FileItemize (""), " ")
  418.     TheFile = strsub (TheFile, 1, strindex(TheFile, " ", 1, @FWDSCAN)-1)
  419.     IfNot = strsub ("; ", (TheFile=="")+1, 1)
  420.     execute %IfNot% TheFile = AskLine (Title, "Files to search:", "*.*")
  421.     Text = AskLine (Title, "Text to search for:", "")
  422.     Run ("TS.EXE", "%TheFile% ""%Text%"" /T")
  423.  
  424.  Files with &Attributes
  425.     Title = "List Files with Attributes"
  426.     Attribs = "Archive,Hidden,Read Only,System,[All of the above]"
  427.     TheAt = ItemSelect ("List files with which attributes?", Attribs, ",")
  428.     terminate (TheAt=="", Title, "No attributes selected.")
  429.     TheAt = strsub(TheAt, 1, 1)
  430.     AtTemplate = "[U  AA  HHIDRR  SSYS "
  431.     Attrib = strsub (AtTemplate, strscan (AtTemplate, TheAt, 1, @FWDSCAN)+1, 3)
  432.     Run ("FA.EXE", "/%Attrib%")
  433.  
  434.  Delete && &Wipe Files
  435.     Title = "Delete & Wipe Files"
  436.     TheFiles = FileItemize ("")
  437.     IfNot = strsub("; ",1+(TheFiles==""),1)
  438.     execute %IfNot% TheFiles = AskLine (Title, "Files to delete", "")
  439.     Terminate (TheFiles=="", Title, "No files selected")
  440.     Run ("Wipefile.EXE", "%TheFiles% /P")
  441.  
  442.  Disk &Info for This Drive
  443.     Run ("DI.EXE", "")
  444.  
  445.  Compute &SI Index
  446.     Run ("SI.EXE", "/N")
  447.  
  448.  _Reset && Start Timer
  449.     Title = "Start Timer"
  450.     RunHide ("TM.EXE", "START")
  451.     Yield
  452.     WinClose ("(Inactive Norton Time Mark)")
  453.     Display (2, Title, "Timer is running.")
  454.  
  455.  Time Since Last "Start"
  456.     RunZoom ("TM.EXE", "STOP")
  457.