	  ErrorMode(@OFF)
          wbdir=RegQueryValue(@REGMACHINE,"SOFTWARE\Wilson WindowWare\WinBatch\CurrentVersion")
          if wbdir==0 
             wbdir=RegQueryValue(@REGMACHINE,"SOFTWARE\Wilson WindowWare\WinBatch Compiler\CurrentVersion")
          endif
          ErrorMode(@CANCEL)
          if wbdir==0
             Display(5,"Error","Registry entries missing.  Re-install WinBatch")
             exit
          endif
	  homedir=strcat(wbdir,"system\")
          ;Message("homedir",homedir)


Two Explorers, side by side
        a=IntControl(31,0,0,0,0)  ;return list of ids of explorer windows
        c=ItemCount(a,@TAB)
        switch c
           case 0
              run("explorer.exe","")
              while FindWindow("ExploreWClass")==""    ;wait for it to come up
                Yield
              end while
              ;Fall into case 1

           case 1
              run("explorer.exe","")
              break
           case c       ; 2 or more
              break
        endswitch
        d=1
        while c<2 && d<500
           a=IntControl(31,0,0,0,0)
           c=ItemCount(a,@TAB)
           d=d+1
        endwhile
        if c<2 then exit
        id1=ItemExtract(1,a,@TAB)
        id2=ItemExtract(2,a,@tab)
        WinPlaceSet(@NORMAL,id2,"500 0 1000 900")
        WinShow(id2)
        Yield
        Yield
        WinPlaceSet(@NORMAL,id1,"0 0 500 900")
        WinShow(id1)

     exit

_&Freespace on Local Drives
        call("%homedir%wwwmenu95.wil","FREESPACE")

&System Information
       
       call("%homedir%wwwmenu95.wil","SYSINFO 'WinBatch Popmenu'")

Interactive WIL
        call("%homedir%wwwmenu95.wil","CMDSTACK NEWCMD")

&Blank Screen Now!
            a=IniReadPvt("Boot","SCRNSAVE.EXE","FLYING~1.SCR","SYSTEM.INI")
            ErrorMode(@OFF)
            LastError()
            run(a,"/s")
            ErrorMode(@CANCEL)
            if LastError() then Display(5,"Sorry","No screen blanker found")
            
_Load WIL Help File
	WinHelp(strcat(wbdir,"Windows Interface Language.hlp"),"CONTENTS","")     



          
           
           
           
           
           
