if param0==0
   Message("Note:","This file is used by the help system to demonstrate help examples.%@CRLF%It is not designed to be run standalone.")
   exit
endif
IntControl(29, @TAB, 0, 0, 0)     ; standardize on tab delimters

wbkind=16
if WinMetrics(-4)>=4 then wbkind=32

goto %param1%

:wnnetname
;Check to see whether a 32 bit version of Windows is running.
If WinMetrics(-4)>=4  
        Message("Whoops! 32 bit Windows Version", "This Script doesn't work with your version of Windows. %@CRLF% SORRY")
        exit
endif


ans=AskYesNo("Multinet wnNetNames Examples", "If you are running a 32 bit version of Windows, this test example will not run.  Select No to terminate test.")
If ans==0 then exit
AddExtender("wwwn16i.dll")
netnames = wnNetNames()
i=ItemLocate("OTHER",netnames,@TAB)
if i!=0
   netnames=ItemRemove(i,netnames,@TAB)
endif   
count = ItemCount(netnames,@TAB)
esss=""
if count!=1 then esss="s"
Message("%count% available network%esss%", "This function evaluates the available networks on the local PC.  %@crlf%If a function requires a network name,  use a name appearing in this list.%@crlf%%@crlf%%netnames%") 
exit

:novell3x
a=FileLocate("Netware 3 Extender.hlp")
if a=="" then a=FileLocate("novell3x.hlp")
if a=="" 
   Message("Ooops","Could not locate Novell 3.x help file")
else
   Run(a,"")
endif
exit

:novell4x
a=FileLocate("Netware 4 Extender.hlp")
if a=="" then a=FileLocate("novell4x.hlp")
if a=="" 
   Message("Ooops","Could not locate Novell 4.x help file")
else
   Run(a,"")
endif
exit

:basic31
ans=AskYesNo("Basic31 Extender Help", "If you are running a 32 bit version of WinBatch, this help file may not exist.  Select NO to terminate, YES to continue.")
If ans==1
        a=FileLocate("Basic Network Extender.hlp")
        if a=="" then a=FileLocate("netbasic.hlp")
        if a=="" 
           Message("Ooops","Could not locate Basic Network Extender help file")
        else
           Run(a,"")
        endif
endif
exit

:multinet
ans=AskYesNo("Multinet Extender Help", "If you are running a 32 bit version of WinBatch, this help file may not exist.  Select NO to terminate, YES to continue.")
If ans==1
        a=FileLocate("W4WKG Network.hlp")
        if a=="" then a=FileLocate("multinet.hlp")
        if a=="" 
           Message("Ooops","Could not locate Multinet help file")
        else
           Run(a,"")
        endif
endif
exit

:win32
a=FileLocate("Win32 Network Extender.hlp")
if a=="" then a=FileLocate("win32net.hlp")
if a=="" 
   Message("Ooops","Could not locate Win32 Network Extender help file")
else
   Run(a,"")
endif
exit


:wilhelp
a=FileLocate("Windows Interface Language.hlp")
if a=="" then a=FileLocate("WIL.hlp")
if a=="" 
   Message("Ooops","Could not locate Windows Interface Language help file")
else
   Run(a,"")
endif
exit


:windowontop

;Check to see whether a 32 bit version of Windows is running.
If wbkind==32  
        ; Set our windows to be on top
        OurWnd=DllhWnd("")
        xx=-1
        DaDll=strcat(DirWindows(1),"USER32.DLL")
        DllCall(DaDll,long:"SetWindowPos",long:OurWnd,long:xx,long:0,long:0,long:0,long:0,long:3)
        Message("This Window","Should stay on top")
        ;
        ;Try it
        
        ;Return to normal mode
        xx= -2
        DllCall(DaDll,long:"SetWindowPos",long:OurWnd,long:xx,long:0,long:0,long:0,long:0,long:3)
        ;Try it
        
        Message("This Window","Should be normal and fall behind")
        exit
else        
        ; Set our windows to be on top
        OurWnd=DllhWnd("")
        DllCall("USER.EXE",void:"SetWindowPos",word:OurWnd,word:65535,word:0,word:0,word:0,word:0,word:3)
        Message("This Window","Should stay on top")
        ;
        ;Try it
        
        ;Return to normal mode
        DllCall("USER.EXE",void:"SetWindowPos",word:OurWnd,word:65534,word:0,word:0,word:0,word:0,word:3)
        ;Try it
        
        Message("This Window","Should be normal and fall behind")
        exit
endif





