home *** CD-ROM | disk | FTP | other *** search
/ How Computers Work (Alt) / HowComputersWork.iso / 3rdParty / Wilson / WSPOPUPS.MN_ < prev    next >
Encoding:
Text File  |  2001-05-18  |  53.3 KB  |  1,661 lines
  1. ; wspopup.MNU file.  Big Version
  2. ;
  3. ;
  4. ;
  5. ;    AMAZINGLY IMPORTANT NOTICE !!!!!!!
  6. ;
  7. ;    If you modify this file keep backups of your modificationa,
  8. ;    since, if you install *any* version of WinBatch again, this
  9. ;    file WILL BE OVERWRITTEN during the install with nary a peep
  10. ;    or warning of any kind.  
  11. ;
  12. ;
  13. ; This files defines the WinBatch Studio context menu.
  14. ;
  15. ;
  16. ; This section is only active when selecting a "Insert Wil Function" menuitem.
  17. ; This code is pretending to be a real WBT file of sorts.  It is CALL'ed by many
  18. ; Insert WIL Function menutiems (see way way below)
  19.          IF Param0==2
  20.               Popfile=StrCat(DirHome(),"wspopup.mnu")
  21.               Popsize=FileSize(Popfile)
  22.               Popbb=BinaryAlloc(Popsize)
  23.               BinaryRead(Popbb,Popfile)
  24.               Popx=BinaryIndexEx(Popbb,0,StrCat(";WILCMD","INFOMARK"),@FwdScan,@False)
  25.               Popx=BinaryIndexEx(Popbb,Popx,StrCat(`call(zxc,"WIL `,Param2),@FwdScan,@False) ; Pretty unique!
  26.               Popx=BinaryIndexEx(Popbb,Popx,Param2,@BackScan,@false)
  27.               Popy=BinaryIndex(Popbb,Popx,@Cr,@FwdScan)-1
  28.               Popline=BinaryPeekStr(Popbb,Popx,Popy-Popx+1)
  29.               wEdInsString(Popline)
  30.               Popz=StrScan(Popline,"(",1,@FwdScan)
  31.               IF Popz
  32.                    Popz=StrLen(Popline)-Popz
  33.                    FOR Popy=1 TO Popz
  34.                         wLeft()
  35.                    NEXT
  36.                  ELSE
  37.                    wEdNewLine ()
  38.                  ENDIF
  39.               BinaryFree(Popbb)
  40.               DROP(Param0,Param1,Param2,Popbb,Popfile,Popline,Popsize,Popx,Popy,Popz)
  41.               RETURN
  42.             ENDIF
  43.  
  44. ; AutoExec Section is on top here. Note BIG INDENT for real code.
  45. ; Columns 1, 2, 3, and 4 are reserved for menu titles.  This autoexec
  46. ; section goes before the first menu title.  Used for assorted initializations.
  47.     
  48.  
  49.         TAB=@TAB
  50.         CR=@CRLF
  51.         EOL=@CR
  52.         Home=DirHome()
  53.         HomeUpOne=FilePath(strsub(home,1,strlen(home)-1))
  54.         IntControl(29,@tab,0,0,0)  ;Standardize on tabs as delimiters for FileItemize, etc
  55.         zxc=strcat(home,"wspopup.mnu")
  56.         zxct="Help file error"
  57.         zxcm="Help file not found.  Perhaps Extender Add-on help file has not been installed.  See EXTENDERS directory on CD-ROM or our website at http://www.winbatch.com to obtain desired extenders."
  58.  
  59.  
  60. Cut              ; Cut the selection and put it on the clipboard
  61.     wEdCut()
  62.  
  63. Copy              ; Copy the selection and put it on the clipboard
  64.     wEdCopy()
  65.  
  66. Paste             ; Insert the clipboard contents
  67.     wEdPaste()
  68.  
  69. _Undo              ; Undoes the last editing action
  70.     wEdUndo() 
  71.  
  72. ;Redo              ; Redoes the last editing action
  73.     wEdRedo()
  74.  
  75. _Keyword Lookup      \ +{F1}         ; Load help topic for word at cursor
  76.         call(strcat(DirHome(),"wshelp.dll"),"KEYWORDHELP")
  77.  
  78. _Help Files
  79.  ADSI
  80.     helpfile="adsi.hlp"
  81.     helpfile=strcat(HomeUpOne,helpfile)
  82.     Terminate(!FileExist(helpfile),zxct,zxcm)
  83.     WinHelp(helpfile,"Contents","")
  84.  Browser
  85.     helpfile="browser.hlp"
  86.     helpfile=strcat(Home,helpfile)
  87.     Terminate(!FileExist(helpfile),zxct,zxcm)
  88.     WinHelp(helpfile,"Contents","")
  89.  CPU
  90.     helpfile="cpu.hlp"
  91.     helpfile=strcat(HomeUpOne,helpfile)
  92.     Terminate(!FileExist(helpfile),zxct,zxcm)
  93.     WinHelp(helpfile,"Contents","")
  94.  Control Manager Extender
  95.     helpfile="ctrlmgr.hlp"
  96.     helpfile=strcat(HomeUpOne,helpfile)
  97.     Terminate(!FileExist(helpfile),zxct,zxcm)
  98.     WinHelp(helpfile,"Contents","")
  99.  File Searcher Extender
  100.     helpfile="Filesrch.hlp"
  101.     helpfile=strcat(HomeUpOne,helpfile)
  102.     Terminate(!FileExist(helpfile),zxct,zxcm)
  103.     WinHelp(helpfile,"Contents","")
  104.  GPIB Extender
  105.     helpfile="Gpib.hlp"
  106.     helpfile=strcat(HomeUpOne,helpfile)
  107.     Terminate(!FileExist(helpfile),zxct,zxcm)
  108.     WinHelp(helpfile,"Contents","")
  109.  Html Dialog Extender
  110.     helpfile="HtmlDlg.hlp"
  111.     helpfile=strcat(HomeUpOne,helpfile)
  112.     Terminate(!FileExist(helpfile),zxct,zxcm)
  113.     WinHelp(helpfile,"Contents","")
  114.  Huge Arithmetic Extender
  115.     helpfile="HugeMath.hlp"
  116.     helpfile=strcat(HomeUpOne,helpfile)
  117.     Terminate(!FileExist(helpfile),zxct,zxcm)
  118.     WinHelp(helpfile,"Contents","") 
  119.  IPgrab
  120.     helpfile="ipgrab.hlp"
  121.     helpfile=strcat(HomeUpOne,helpfile)
  122.     Terminate(!FileExist(helpfile),zxct,zxcm)
  123.     WinHelp(helpfile,"Contents","")
  124.  Mapi
  125.     helpfile="mapi.hlp"
  126.     helpfile=strcat(HomeUpOne,helpfile)
  127.     Terminate(!FileExist(helpfile),zxct,zxcm)
  128.     WinHelp(helpfile,"Contents","")
  129.  Novell Netware Networking
  130.     helpfile="NetWare Extender.hlp"
  131.     helpfile=strcat(HomeUpOne,helpfile)
  132.     Terminate(!FileExist(helpfile),zxct,zxcm)
  133.     WinHelp(helpfile,"Contents","")
  134.  NetwareX Extender
  135.     helpfile="netwarex.hlp"
  136.     helpfile=strcat(HomeUpOne,helpfile)
  137.     Terminate(!FileExist(helpfile),zxct,zxcm)
  138.     WinHelp(helpfile,"Contents","")
  139.  ODBC Extender
  140.     helpfile="odbc.hlp"
  141.     helpfile=strcat(HomeUpOne,helpfile)
  142.     Terminate(!FileExist(helpfile),zxct,zxcm)
  143.     WinHelp(helpfile,"Contents","")
  144.  ODBC_Tut
  145.     helpfile="odbc_tut.hlp"
  146.     helpfile=strcat(HomeUpOne,helpfile)
  147.     Terminate(!FileExist(helpfile),zxct,zxcm)
  148.     WinHelp(helpfile,"Contents","")
  149.  Parallel
  150.     helpfile="parallel.hlp"
  151.     helpfile=strcat(HomeUpOne,helpfile)
  152.     Terminate(!FileExist(helpfile),zxct,zxcm)
  153.     WinHelp(helpfile,"Contents","")
  154.  Postie
  155.     helpfile="postie.hlp"
  156.     helpfile=strcat(HomeUpOne,helpfile)
  157.     Terminate(!FileExist(helpfile),zxct,zxcm)
  158.     WinHelp(helpfile,"Contents","")
  159.  Printer Extender
  160.     helpfile="printctl.hlp"
  161.     helpfile=strcat(HomeUpOne,helpfile)
  162.     Terminate(!FileExist(helpfile),zxct,zxcm)
  163.     WinHelp(helpfile,"Contents","")
  164.  Process                   
  165.     helpfile="process.hlp"
  166.     helpfile=strcat(HomeUpOne,helpfile)
  167.     Terminate(!FileExist(helpfile),zxct,zxcm)
  168.     WinHelp(helpfile,"Contents","")
  169.  RAS Remote Access         
  170.     helpfile="ras.hlp"
  171.     helpfile=strcat(HomeUpOne,helpfile)
  172.     Terminate(!FileExist(helpfile),zxct,zxcm)
  173.     WinHelp(helpfile,"Contents","")
  174.  Reggie Registry Search   
  175.     helpfile="reggie.hlp"
  176.     helpfile=strcat(HomeUpOne,helpfile)
  177.     Terminate(!FileExist(helpfile),zxct,zxcm)
  178.     WinHelp(helpfile,"Contents","")
  179.  Serial Port Extender
  180.     helpfile="serial.hlp"
  181.     helpfile=strcat(HomeUpOne,helpfile)
  182.     Terminate(!FileExist(helpfile),zxct,zxcm)
  183.     WinHelp(helpfile,"Contents","")
  184.  ShellOperations Extender
  185.     helpfile="shellop.hlp"
  186.     helpfile=strcat(HomeUpOne,helpfile)
  187.     Terminate(!FileExist(helpfile),zxct,zxcm)
  188.     WinHelp(helpfile,"Contents","")
  189.  Webbatch
  190.     helpfile="webbatch.hlp"
  191.     helpfile=strcat(HomeUpOne,helpfile)
  192.     Terminate(!FileExist(helpfile),zxct,zxcm)
  193.     WinHelp(helpfile,"Contents","")
  194.  WILX Extender
  195.     helpfile="WILX.hlp"
  196.     if FileExist(helpfile)==@False
  197.        helpfile="WilX Extender.hlp"
  198.     endif
  199.     helpfile=strcat(HomeUpOne,helpfile)
  200.     Terminate(!FileExist(helpfile),zxct,zxcm)
  201.     WinHelp(helpfile,"Contents","")
  202.  Microsoft Networking
  203.     helpfile="Win32 Network Extender.hlp"
  204.     helpfile=strcat(HomeUpOne,helpfile)
  205.     Terminate(!FileExist(helpfile),zxct,zxcm)
  206.     WinHelp(helpfile,"Contents","")
  207.  Winbatch Studio Help
  208.     helpfile="winbatch studio.hlp"
  209.     helpfile=strcat(Home,helpfile)
  210.     Terminate(!FileExist(helpfile),zxct,zxcm)
  211.     WinHelp(helpfile,"Contents","")
  212.  WinBatch
  213.     helpfile="winbatch.hlp"
  214.     helpfile=strcat(HomeUpOne,helpfile)
  215.     Terminate(!FileExist(helpfile),zxct,zxcm)
  216.     WinHelp(helpfile,"Contents","")
  217.  Windows Interface Language
  218.     helpfile="Windows Interface language.hlp"
  219.     helpfile=strcat(HomeUpOne,helpfile)
  220.     Terminate(!FileExist(helpfile),zxct,zxcm)
  221.     WinHelp(helpfile,"Contents","")
  222.  WinInet Internet Extender
  223.     helpfile="wininet.hlp"
  224.     helpfile=strcat(HomeUpOne,helpfile)
  225.     Terminate(!FileExist(helpfile),zxct,zxcm)
  226.     WinHelp(helpfile,"Contents","")
  227.  WinMacro Help
  228.     helpfile="winmacro.hlp"
  229.     helpfile=strcat(Home,helpfile)
  230.     Terminate(!FileExist(helpfile),zxct,zxcm)
  231.     WinHelp(helpfile,"Contents","")
  232.  WinSock Internet Extender
  233.     helpfile="winsock.hlp"
  234.     helpfile=strcat(HomeUpOne,helpfile)
  235.     Terminate(!FileExist(helpfile),zxct,zxcm)
  236.     WinHelp(helpfile,"Contents","")
  237.  Zipper Extender
  238.     helpfile="zipper.hlp"
  239.     helpfile=strcat(HomeUpOne,helpfile)
  240.     Terminate(!FileExist(helpfile),zxct,zxcm)
  241.     WinHelp(helpfile,"Contents","")
  242.  
  243.  
  244. _Comment Block
  245.  Comment block of code   ; Inserts semicolons to comment out a block of code
  246.         a = wGetSelState()
  247.         if a != 1 
  248.             Message("Ooop","No block selected")
  249.             Drop(a)
  250.             exit
  251.         endif
  252.         wEdCut()
  253.         a=clipget()
  254.         a=strcat(";",strreplace(a,@crlf,strcat(@crlf,";")))
  255.         ClipPut(a)
  256.         wEdPaste()
  257.         drop (a,line)
  258.  
  259.  UnComment Block of code ; Removes semicolons to re-enable a block of code
  260.         a = wGetSelState()
  261.         if a != 1 
  262.             Message("Ooop","No block selected")
  263.             Drop(a)
  264.             exit
  265.         endif
  266.         wEdCut()
  267.         a=clipget()
  268.         if strsub(a,1,1)==";" then a=Strsub(a,2,-1)
  269.         a=strreplace(a,strcat(@crlf,";"),@crlf)
  270.         ClipPut(a)
  271.         wEdPaste()
  272.         drop (a,line)
  273.  
  274.  
  275. ;WILCMDINFOMARK   DO NOT REMOVE!!!!!!
  276. _Insert WIL Function.... 
  277.  Arithmetic....
  278.   Abs( integer )
  279.     call(zxc,"WIL Abs")
  280.   Acos( fp_num )
  281.     call(zxc,"WIL Acos")
  282.   Asin( fp_num )
  283.     call(zxc,"WIL Asin")
  284.   Atan( fp_num )
  285.     call(zxc,"WIL Atan")
  286.   Average( number [ ,number... ] )  
  287.     call(zxc,"WIL Average")
  288.   Ceiling( fp_num )
  289.     call(zxc,"WIL Ceiling")
  290.   Char2Num( string )
  291.     call(zxc,"WIL Char2Num")
  292.   Cos( fp_num )
  293.     call(zxc,"WIL Cos")
  294.   Cosh( fp_num )
  295.     call(zxc,"WIL Cosh")
  296.   Decimals( #digits )
  297.     call(zxc,"WIL Decimals")
  298.   Exp( fp_num )
  299.     call(zxc,"WIL Exp")
  300.   Fabs( fp_num )
  301.     call(zxc,"WIL Fabs")
  302.   Floor( fp_num )
  303.     call(zxc,"WIL Floor")
  304.   Int( string/fp_num )
  305.     call(zxc,"WIL Int")
  306.   IsFloat( string )
  307.     call(zxc,"WIL IsFloat")
  308.   IsInt( string )
  309.     call(zxc,"WIL IsInt")
  310.   IsNumber( value )
  311.     call(zxc,"WIL IsNumber")
  312.   Log10( fp_num )
  313.     call(zxc,"WIL Log10")
  314.   Loge( fp_num )
  315.     call(zxc,"WIL Loge")
  316.   Max( number [ ,number... ] ) 
  317.     call(zxc,"WIL Max")
  318.   Min( number [ ,number... ] )
  319.     call(zxc,"WIL Min")
  320.   Mod
  321.      wedInsString ("x mod y ; remainder function")
  322.      wedNewLine ()
  323.   Num2Char( integer )
  324.     call(zxc,"WIL Num2Char")
  325.   Random( integer )
  326.     call(zxc,"WIL Random")
  327.   Sin( fp_num )
  328.     call(zxc,"WIL Sin")
  329.   Sinh(x)
  330.     call(zxc,"WIL Sinh")
  331.   Sqrt( fp_num )
  332.     call(zxc,"WIL Sqrt")
  333.   Tan( fp_num )
  334.     call(zxc,"WIL Tan")
  335.   Tanh( fp_num )
  336.     call(zxc,"WIL Tanh")
  337.   TimeAdd( YmdHms, YmdHms )
  338.     call(zxc,"WIL TimeAdd")
  339.   TimeDiff( YmdHms, YmdHms )
  340.     call(zxc,"WIL TimeDiff")
  341.   TimeDiffDays( Ymd[Hms], Ymd[Hms] )
  342.     call(zxc,"WIL TimeDiffDays")
  343.   TimeDiffSecs( YmdHms, YmdHms )
  344.     call(zxc,"WIL TimeDiffSecs")
  345.   TimeJulToYmd(juliandate)
  346.     call(zxc,"WIL TimeJulToYmd")
  347.   TimeJulianDay( Ymd[Hms] )
  348.     call(zxc,"WIL TimeJulianDay")
  349.   TimeSubtract(datetime, datetime difference)
  350.     call(zxc,"WIL TimeSubtract")
  351.   TimeYmdHms(  )
  352.     call(zxc,"WIL TimeYmdHms")
  353.  Arrays....
  354.   Arrayize(delimeted list, delimiter)
  355.     call(zxc,"WIL Arrayize")
  356.   ArrDimension(dim1, dim2, dim3, dim4, dim5)
  357.     call(zxc,"WIL ArrDimension")
  358.   ArrInfo(array, request)
  359.     call(zxc,"WIL ArrInfo")
  360.   ArrInitialize(array, value)
  361.     call(zxc,"WIL ArrInitialize")
  362.  Binary....
  363.   BinaryAlloc( buffsize )
  364.     call(zxc,"WIL BinaryAlloc")
  365.   BinaryAnd(targethandle,targetoffset,sourcehandle,sourceoffset,count)
  366.     call(zxc,"WIL BinaryAnd")
  367.   BinaryClipGet(handle, format)
  368.     call(zxc,"WIL BinaryClipGet")
  369.   BinaryClipPut(handle, format)
  370.     call(zxc,"WIL BinaryClipPut")
  371.   BinaryCompare(handle1, offset1, handle2, offset2, count)
  372.     call(zxc,"WIL BinaryCompare")
  373.   BinaryConvert(handle, sourcetype, targettype, codepage, flags)
  374.     call(zxc,"WIL BinaryConvert")
  375.   BinaryCopy(handle targ, offset targ, handle src, offset src, bytecount )
  376.     call(zxc,"WIL BinaryCopy")
  377.   BinaryEodGet( handle )
  378.     call(zxc,"WIL BinaryEodGet")
  379.   BinaryEodSet( handle, offset )
  380.     call(zxc,"WIL BinaryEodSet")
  381.   BinaryFree( handle )
  382.     call(zxc,"WIL BinaryFree")
  383.   BinaryHashRec(handle, recsize, key offset, key size, key value )
  384.     call(zxc,"WIL BinaryHashRec")
  385.   BinaryIncr( handle, offset )
  386.     call(zxc,"WIL BinaryIncr")
  387.   BinaryIncr2(handle, offset to increment a 16 bit value)
  388.     call(zxc,"WIL BinaryIncr2")
  389.   BinaryIncr4(handle, offset to increment a 32 bit value)
  390.     call(zxc,"WIL BinaryIncr4")
  391.   BinaryIncrFlt(handle, offset to increment a 64 bit floating point number)
  392.     call(zxc,"WIL BinaryIncrFlt")
  393.   BinaryIndex( handle, offset, search string, direction )
  394.     call(zxc,"WIL BinaryIndex")
  395.   BinaryIndexEx(handle, offset, string, direction, match-case)
  396.     call(zxc,"WIL BinaryIndexEx")
  397.   BinaryIndexNC(handle, offset, string, direction)
  398.     call(zxc,"WIL BinaryIndexNC")
  399.   BinaryOleType( handle, type,reserved1, reserved2, reserved3)
  400.     call(zxc,"WIL BinaryOleType")
  401.   BinaryOr(targethandle,targetoffset,sourcehandle,sourceoffset,count)
  402.     call(zxc,"WIL BinaryOr")
  403.   BinaryPeek( handle, offset )
  404.     call(zxc,"WIL BinaryPeek")
  405.   BinaryPeek2(handle, offset to peek a 16 bit value)
  406.     call(zxc,"WIL BinaryPeek2")
  407.   BinaryPeek4(handle, offset to peek a 32 bit value)
  408.     call(zxc,"WIL BinaryPeek4")
  409.   BinaryPeekFlt(handle, offset to peek a 64 bit floating point number)
  410.     call(zxc,"WIL BinaryPeekFlt")
  411.   BinaryPeekStr(handle, offset, maxsize)
  412.     call(zxc,"WIL BinaryPeekStr")
  413.   BinaryPoke( handle, offset, 8 bit value )
  414.     call(zxc,"WIL BinaryPoke")
  415.   BinaryPoke2(handle, offset, 16 bit value)
  416.     call(zxc,"WIL BinaryPoke2")
  417.   BinaryPoke4(handle, offset, 32 bit value)
  418.     call(zxc,"WIL BinaryPoke4")
  419.   BinaryPokeFlt(handle, offset, 64 bit floating point value)
  420.     call(zxc,"WIL BinaryPokeFlt")
  421.   BinaryPokeStr(handle, offset, string)
  422.     call(zxc,"WIL BinaryPokeStr")
  423.   BinaryRead( handle, filename )
  424.     call(zxc,"WIL BinaryRead")
  425.   BinaryReadEx(handle, binaryoffset, filename, fileoffset, count)
  426.     call(zxc,"WIL BinaryReadEx")
  427.   BinaryReplace(bin-handle, search-string, replacement-string, match-case)
  428.     call(zxc,"WIL BinaryReplace")
  429.   BinarySort( handle, recsize, key offset, key size, flags )
  430.     call(zxc,"WIL BinarySort")
  431.   BinaryStrCnt( handle, startoffset, endoffset, string )
  432.     call(zxc,"WIL BinaryStrCnt")
  433.   BinaryTagExtr(tag-struct, flags)
  434.     call(zxc,"WIL BinaryTagExtr")
  435.   BinaryTagFind(tag-struct)
  436.     call(zxc,"WIL BinaryTagFind")
  437.   BinaryTagIndex(tag-struct)
  438.     call(zxc,"WIL BinaryTagIndex")
  439.   BinaryTagInit( handle, start-tag, end-tag)
  440.     call(zxc,"WIL BinaryTagInit")
  441.   BinaryTagLen(tag-struct)
  442.     call(zxc,"WIL BinaryTagLen")
  443.   BinaryTagRepl( tag-struct, new-string )
  444.     call(zxc,"WIL BinaryTagRepl")
  445.   BinaryWrite( handle, filename )
  446.     call(zxc,"WIL BinaryWrite")
  447.   BinaryWriteEx(handle, binaryoffset, filename, fileoffset, count)
  448.     call(zxc,"WIL BinaryWriteEx")
  449.   BinaryXlate(targethandle, xlatehandle, flag)
  450.     call(zxc,"WIL BinaryXlate")
  451.   BinaryXor(targethandle,targetoffset,sourcehandle,sourceoffset,count)
  452.     call(zxc,"WIL BinaryXor")
  453.  Debug( mode )
  454.     call(zxc,"WIL Debug")
  455.  Directory Management....
  456.   DirAttrGet( [d:]path )
  457.     call(zxc,"WIL DirAttrGet")
  458.   DirAttrSet(dirlist, settings)
  459.     call(zxc,"WIL DirAttrSet")
  460.   DirChange( [d:]path )
  461.     call(zxc,"WIL DirChange") 
  462.   DirExist( pathname )
  463.     call(zxc,"WIL DirExist")
  464.   DirGet(  )
  465.     call(zxc,"WIL DirGet")
  466.   DirHome(  )
  467.     call(zxc,"WIL DirHome")
  468.   DirItemize( dirlist )
  469.     call(zxc,"WIL DirItemize")
  470.   DirMake( [d:]path )
  471.     call(zxc,"WIL DirMake")
  472.   DirRename( [d:]oldpath, [d:]newpath )
  473.     call(zxc,"WIL DirRename")
  474.   DirRemove( dirlist )
  475.     call(zxc,"WIL DirRemove")
  476.   DirSize(dir-name, flags)
  477.     call(zxc,"WIL DirSize")
  478.   DirWindows( request# )
  479.     call(zxc,"WIL DirWindows")
  480.  File Management....
  481.   FileAppend( sourcelist, destination )
  482.     call(zxc,"WIL FileAppend")
  483.   FileAttrGet( filename )
  484.     call(zxc,"WIL FileAttrGet")
  485.   FileAttrSet( filelist, settings )
  486.     call(zxc,"WIL FileAttrSet")
  487.   FileClose( filehandle )
  488.     call(zxc,"WIL FileClose")
  489.   FileCompare( filename1, filename2 )
  490.     call(zxc,"WIL FileCompare")
  491.   FileCopy( sourcelist, filename/mask, mode )
  492.     call(zxc,"WIL FileCopy")
  493.   FileCopyAttr(source-list, destination, warning, attributes)
  494.     call(zxc,"WIL FileCopyAttr")
  495.   FileCreateTemp( prefix )
  496.     call(zxc,"WIL FileCreateTemp")
  497.   FileDelete( filelist )
  498.     call(zxc,"WIL FileDelete")
  499.   FileExist( filename )
  500.     call(zxc,"WIL FileExist")
  501.   FileExtension( filename )
  502.     call(zxc,"WIL FileExtension")
  503.   FileFullName( partial filename )
  504.     call(zxc,"WIL FileFullName")
  505.   FileItemize( filelist )
  506.     call(zxc,"WIL FileItemize")
  507.   FileItemPath(file-list)
  508.     call(zxc,"WIL FileItemPath")
  509.   FileLocate( filename )
  510.     call(zxc,"WIL FileLocate")
  511.   FileMapName( filename, mappingdata )
  512.     call(zxc,"WIL FileMapName")
  513.   FileMove( sourcelist, destination, warning )
  514.     call(zxc,"WIL FileMove")
  515.   FileMoveAttr(source-list, destination, warning, attributes)
  516.     call(zxc,"WIL FileMoveAttr")
  517.   FileNameLong filename)
  518.     call(zxc,"WIL FileNameLong")
  519.   FileNameShort(filename)
  520.     call(zxc,"WIL FileNameShort")
  521.   FileOpen( filename, mode )
  522.     call(zxc,"WIL FileOpen")
  523.   FilePath( filename )
  524.     call(zxc,"WIL FilePath")
  525.   FileRead( filehandle )
  526.     call(zxc,"WIL FileRead")
  527.   FileRename( sourcelist, destination )
  528.     call(zxc,"WIL FileRename")
  529.   FileRoot( filename )
  530.     call(zxc,"WIL FileRoot")
  531.   FileSize( filelist )
  532.     call(zxc,"WIL FileSize")
  533.   FileSizeEx(file-list)
  534.     call(zxc,"WIL FileSizeEx")
  535.   FileTimeCode( filename )
  536.     call(zxc,"WIL FileTimeCode")
  537.   FileTimeGet( filename )
  538.     call(zxc,"WIL FileTimeGet")
  539.   FileTimeGetEx(filename, timefield)
  540.     call(zxc,"WIL FileTimeGetEx")
  541.   FileTimeSet( list, ymdhms )
  542.     call(zxc,"WIL FileTimeSet")
  543.   FileTimeSetEx(filelist, YmdHms, timefield)
  544.     call(zxc,"WIL FileTimeSetEx")
  545.   FileTimeTouch( filelist )
  546.     call(zxc,"WIL FileTimeTouch")
  547.   FileVerInfo(filename, languagekey, resourcestring)
  548.     call(zxc,"WIL FileVerInfo")
  549.   FileWrite( filehandle, outputdata )
  550.     call(zxc,"WIL FileWrite")
  551.   FileYmdHms( filename )
  552.     call(zxc,"WIL FileYmdHms")
  553.   Other file functions....
  554.    AskDirectory(prompt, browse-root, start-dir, confirm-prompt, flags)
  555.     call(zxc,"WIL AskDirectory")
  556.    AskFileText( title, filename, sort mode, select mode )
  557.      call(zxc,"WIL AskFileText")
  558.    AskFileName( title, directory, filetypes, default filename, flag )
  559.      call(zxc,"WIL AskFileName")
  560.    BinaryRead( handle, filename )
  561.      call(zxc,"WIL BinaryRead")
  562.    BinaryReadEx(handle, binaryoffset, filename, fileoffset, count)
  563.      call(zxc,"WIL BinaryReadEx")
  564.    BinaryWrite( handle, filename )
  565.      call(zxc,"WIL BinaryWrite")
  566.    BinaryWriteEx(handle, binaryoffset, filename, fileoffset, count)
  567.      call(zxc,"WIL BinaryWriteEx")
  568.  INI Functions....
  569.   IniDelete( section, keyname )
  570.     call(zxc,"WIL IniDelete")
  571.   IniDeletePvt( section, keyname, filename )
  572.     call(zxc,"WIL IniDeletePvt")
  573.   IniItemize( section )
  574.     call(zxc,"WIL IniItemize")
  575.   IniItemizePvt( section, filename )
  576.     call(zxc,"WIL IniItemizePvt") 
  577.   IniRead( section, keyname, default )
  578.     call(zxc,"WIL IniRead")
  579.   IniReadPvt(  section, keyname, default, filename )
  580.     call(zxc,"WIL IniReadPvt")
  581.   IniWrite( section, keyname, data )
  582.     call(zxc,"WIL IniWrite")
  583.   IniWritePvt( section, keyname, data, filename )
  584.     call(zxc,"WIL IniWritePvt")
  585.  Inter-program....
  586.   AddExtender( dllfilename )
  587.     call(zxc,"WIL AddExtender")
  588.   Clipboard....
  589.    ClipAppend( string )
  590.     call(zxc,"WIL ClipAppend")
  591.    ClipGet(  )
  592.      call(zxc,"WIL ClipGet")
  593.    ClipGetEx( format )
  594.      call(zxc,"WIL ClipGetEx")
  595.    ClipHasFormat( format )
  596.      call(zxc,"WIL ClipHasFormat")
  597.    ClipPut( string )
  598.      call(zxc,"WIL ClipPut")
  599.    Snapshot( request# )
  600.      call(zxc,"WIL Snapshot")
  601.   DDE....
  602.    DDEExecute( channel, [commandstring] )
  603.      call(zxc,"WIL DDEExecute")
  604.    DDEInitiate( app name, topic name )
  605.      call(zxc,"WIL DDEInitiate")
  606.    DDEPoke( channel, item name, item value )
  607.      call(zxc,"WIL DDEPoke")
  608.    DDERequest( channel, item name )
  609.      call(zxc,"WIL DDERequest")
  610.    DDETerminate( channel )
  611.      call(zxc,"WIL DDETerminate")
  612.    DDETimeout( value in seconds )
  613.      call(zxc,"WIL DDETimeout")
  614.   DLLCall
  615.    DllCall( dllfilename/dllhandle, returntype:entrypoint [ ,paramtype:param... ])
  616.      call(zxc,"WIL DllCall")
  617.    DllFree( dllhandle )
  618.      call(zxc,"WIL DllFree")
  619.    DllHinst( partialwinname )
  620.      call(zxc,"WIL DllHinst")
  621.    DllHwnd( partialwinname )
  622.      call(zxc,"WIL DllHwnd")
  623.    DllLoad( dllname )
  624.      call(zxc,"WIL DllLoad")
  625.   Environment....
  626.    Environment( envvariable )
  627.      call(zxc,"WIL Environment")
  628.    EnvironSet( envvarname, newvalue )
  629.      call(zxc,"WIL EnvironSet")
  630.    EnvItemize(  )
  631.      call(zxc,"WIL EnvItemize")
  632.    ExeTypeInfo( exefilename )
  633.      call(zxc,"WIL ExeTypeInfo")
  634.    RegApp(programname, path)
  635.      call(zxc,"WIL RegApp")
  636.    RunEnviron( program name, parameters, displaymode, waitflag )
  637.      call(zxc,"WIL RunEnviron")
  638.   Sending keys....
  639.    SendKey( string )
  640.      call(zxc,"WIL SendKey")
  641.    SendKeysChild( partialparentwindowname, partialchildwindowname, string )
  642.      call(zxc,"WIL SendKeysChild") 
  643.    SendKeysTo( parentwindowname, string )
  644.      call(zxc,"WIL SendKeysTo")
  645.    SendMenusTo( partialparentwindowname, menuname )
  646.      call(zxc,"WIL SendMenusTo")
  647.  Multimedia....
  648.   Beep
  649.     wedInsString ("Beep")
  650.     wedNewLine ()
  651.   DllCall( dllfilename/dllhandle, returntype:entrypoint [ ,paramtype:param... ])
  652.     call(zxc,"WIL DllCall")
  653.   DllFree( dllhandle )
  654.     call(zxc,"WIL DllFree")
  655.   DllHinst( partialwinname )
  656.     call(zxc,"WIL DllHinst")
  657.   DllHwnd( partialwinname )
  658.     call(zxc,"WIL DllHwnd")
  659.   DllLoad( dllname )
  660.     call(zxc,"WIL DllLoad")
  661.   PlayMedia( commandstring )
  662.     call(zxc,"WIL PlayMedia")
  663.   PlayMidi( filename, mode )
  664.     call(zxc,"WIL PlayMidi")
  665.   PlayWaveForm( filename, mode )
  666.     call(zxc,"WIL PlayWaveForm")
  667.   Sounds( request# )
  668.     call(zxc,"WIL Sounds")
  669.  OLE.... 
  670.   ObjectAccess( objectname)
  671.         call(zxc,"WIL ObjectAccess")
  672.   ObjectClose( objecthandle )
  673.     call(zxc,"WIL ObjectClose")
  674.   ObjectOpen( objectname )
  675.     call(zxc,"WIL ObjectOpen")
  676.  Process Control....
  677.   Break 
  678.      wedInsString ("Break")
  679.      wedNewLine ()
  680.   Call( wbt-name, parameters)
  681.      wedInsString ("Call( wbt-name, parameters)")
  682.      wedNewLine ()
  683.   Continue 
  684.      wedInsString ("Continue")
  685.      wedNewLine ()
  686.   EndSession(  )
  687.     call(zxc,"WIL EndSession")
  688.   ErrorMode( mode )
  689.     call(zxc,"WIL ErrorMode")
  690.   Exclusive(mode)
  691.     call(zxc,"WIL Exclusive")
  692.   Execute statement
  693.      wedInsString ("Execute statement")
  694.      wedNewLine ()
  695.   Exit
  696.     wedInsString ("Exit")
  697.     wedNewLine ()
  698.   For   varname = initial value to final value [ by increment ]
  699.     a=wGetColNo ()
  700.     wedInsString ("For   varname = initial value to final value [ by increment ]")
  701.     wedNewLine ()
  702.     wEdGoToCol (a)
  703.     wedInsString ("   ;statements")
  704.     wedNewLine ()
  705.     wEdGoToCol (a)
  706.     wedInsString ("Next")
  707.     wedNewLine ()
  708.   GoSub  
  709.     wedInsString ("GoSub label")
  710.     wedNewLine ()
  711.   Goto  label
  712.     wedInsString ("Goto label")
  713.     wedNewLine ()
  714.   IfàElseàEndif expression
  715.     a=wGetColNo ()
  716.     wedInsString ("If expression")
  717.     wedNewLine ()
  718.     wedInsString ("   ;true code")
  719.     wedNewLine ()
  720.     wEdGoToCol (a)
  721.     wedInsString ("else")
  722.     wedNewLine ()
  723.     wedInsString ("   ;false code")
  724.     wedNewLine ()
  725.     wEdGoToCol (a)
  726.     wedInsString ("endif")
  727.     wedNewLine ()
  728.   LastError(  )
  729.     call(zxc,"WILSpecial LastError")
  730.   Select varname
  731.     a=wGetColNo ()
  732.     wedInsString ("Select varname")
  733.     wedNewLine ()
  734.     wEdGoToCol (a)
  735.     wedInsString ("   case varname")
  736.     wedNewLine ()
  737.     wEdGoToCol (a)
  738.     wedInsString ("     ;statements")
  739.     wedNewLine ()
  740.     wEdGoToCol (a)
  741.     wedInsString ("     break")
  742.     wedNewLine ()
  743.     wEdGoToCol (a)
  744.     wedInsString ("   case varname")
  745.     wedNewLine ()
  746.     wEdGoToCol (a)
  747.     wedInsString ("     ;statements")
  748.     wedNewLine ()
  749.     wEdGoToCol (a)
  750.     wedInsString ("     break")
  751.     wedNewLine ()
  752.     wEdGoToCol (a)
  753.     wedInsString ("EndSelect")
  754.     wedNewLine ()
  755.   Switch varname
  756.     a=wGetColNo ()
  757.     wedInsString ("Switch varname")
  758.     wedNewLine ()
  759.     wEdGoToCol (a)
  760.     wedInsString ("   case varname")
  761.     wedNewLine ()
  762.     wEdGoToCol (a)
  763.     wedInsString ("     ;statements")
  764.     wedNewLine ()
  765.     wEdGoToCol (a)
  766.     wedInsString ("     break")
  767.     wedNewLine ()
  768.     wEdGoToCol (a)
  769.     wedInsString ("   case varname")
  770.     wedNewLine ()
  771.     wEdGoToCol (a)
  772.     wedInsString ("     ;statements")
  773.     wedNewLine ()
  774.     wEdGoToCol (a)
  775.     wedInsString ("     break")
  776.     wedNewLine ()
  777.     wEdGoToCol (a)
  778.     wedInsString ("EndSwitch")
  779.     wedNewLine ()
  780.   Version(  )
  781.     call(zxc,"WIL Version")
  782.   VersionDLL(  )
  783.     call(zxc,"WIL VersionDLL")
  784.   While expression
  785.     wedInsString ("While expression")
  786.     wedNewLine ()
  787.     wedNewLine ()
  788.     wedInsString ("EndWhile")
  789.   #DefineFunction...#EndFunction
  790.     a=wGetColNo ()
  791.     wedInsString ("#DefineFunction functname( [param1 [,param2...[,param16]]])")
  792.     wedNewLine ()
  793.     wedNewLine ()
  794.     wedInsString ("     function code")
  795.     wedNewLine ()
  796.     wedNewLine ()
  797.     wEdGoToCol (a)
  798.     wedInsString ("     [ RETURN or RETURN (expression) ]")
  799.     wedNewLine ()
  800.     wedNewLine ()
  801.     wEdGoToCol (a)
  802.     wedInsString ("   #EndFunction")
  803.     wedNewLine ()
  804.   #|nclude "filename"
  805.     a=wGetColNo ()
  806.     wedInsString (`#Include "file name"`)
  807.     wedNewLine ()
  808.  Program management....
  809.   AppExist(programname )
  810.     call(zxc,"WIL AppExist")
  811.   AppWaitClose(programname )
  812.     call(zxc,"WIL AppWaitClose")
  813.   Execute  statement
  814.     wedInsString ("Execute statement")
  815.     wedNewLine ()
  816.   Print( data file, directory, display mode, waitflag )
  817.     call(zxc,"WIL Print")
  818.   RegApp(programname, path)
  819.     call(zxc,"WIL RegApp")
  820.   Run( programname, parameters )
  821.     call(zxc,"WIL Run")
  822.   RunEnviron( program name, parameters, displaymode, waitflag )
  823.     call(zxc,"WIL RunEnviron")
  824.   RunExit( programname, parameters )
  825.     call(zxc,"WIL RunExit")
  826.   RunHide( programname, parameters )
  827.     call(zxc,"WIL RunHide")
  828.   RunHideWait( programname, parameters )
  829.     call(zxc,"WIL RunHideWait")
  830.   RunIcon( programname, parameters )
  831.     call(zxc,"WIL RunIcon")
  832.   RunIconWait( programname, parameters )
  833.     call(zxc,"WIL RunIconWait")
  834.   RunShell( programname, params, directory, displaymode, waitflag )
  835.     call(zxc,"WIL RunShell")
  836.   RunWait( programname, parameters )
  837.     call(zxc,"WIL RunWait")
  838.   RunZoom( programname, parameters )
  839.     call(zxc,"WIL RunZoom")
  840.   RunZoomWait( programname, parameters)
  841.     call(zxc,"WIL RunZoomWait")
  842.   ShellExecute(programname, params, directory, display mode, operation)
  843.     call(zxc,"WIL ShellExecute")
  844.  Registry....
  845.   RegApp(programname, path)
  846.     call(zxc,"WIL RegApp") 
  847.   RegCloseKey( keyhandle )
  848.     call(zxc,"WIL RegCloseKey")
  849.   RegConnect(computername, handle)
  850.     call(zxc,"WIL RegConnect")
  851.   RegCreateKey( keyhandle, subkeystring )
  852.     call(zxc,"WIL RegCreateKey")
  853.   RegDeleteKey( keyhandle, subkeystring )
  854.     call(zxc,"WIL RegDeleteKey")
  855.   RegDelValue(handle, subkeystring)
  856.     call(zxc,"WIL RegDelValue")
  857.   RegEntryType(handle, subkeystring)
  858.     call(zxc,"WIL RegEntryType")
  859.   RegExistKey(handle, subkeystring)
  860.     call(zxc,"WIL RegExistKey")
  861.   RegExistValue(handle, subkeystring)
  862.     call(zxc,"WIL RegExistValue")
  863.   RegLoadHive(handle, subkey, filename)
  864.     call(zxc,"WIL RegLoadHive")
  865.   RegOpenKey( keyhandle, subkeystring )
  866.     call(zxc,"WIL RegOpenKey")
  867.   RegOpenKeyEx( handle, subkey-string, mode, reserved-1, reserved-2) 
  868.     call(zxc,"WIL RegOpenKeyEx")
  869.   RegQueryBin(handle, subkeystring)
  870.     call(zxc,"WIL RegQueryBin")
  871.   RegQueryDword(handle, subkeystring)
  872.     call(zxc,"WIL RegQueryDword")
  873.   RegQueryEx(handle, subkeystring, delimiter, type)
  874.     call(zxc,"WIL RegQueryEx")
  875.   RegQueryExpSz(handle, subkeystring)
  876.     call(zxc,"WIL RegQueryExpSz")
  877.   RegQueryItem(handle, subkeystring)
  878.     call(zxc,"WIL RegQueryItem")
  879.   RegQueryKey( keyhandle, index )
  880.     call(zxc,"WIL RegQueryKey")
  881.   RegQueryKeys( handle )
  882.     call(zxc,"WIL RegQueryKeys")
  883.   RegQueryMulSz(handle, subkeystring, delimiter)
  884.     call(zxc,"WIL RegQueryMulSz")
  885.   RegQueryStr(handle, subkey)
  886.        call(zxc,"WIL RegQueryStr")
  887.   RegQueryValue( keyhandle, keyname )
  888.     call(zxc,"WIL RegQueryValue")
  889.   RegSetBin(handle, subkeystring, value)
  890.     call(zxc,"WIL RegSetBin")
  891.   RegSetDword(handle, subkeystring, value)
  892.     call(zxc,"WIL RegSetDword")
  893.   RegSetEx(handle, subkeystring, value, delimiter, type)
  894.     call(zxc,"WIL RegSetEx")
  895.   RegSetExpSz(handle, subkeystring, value)
  896.     call(zxc,"WIL RegSetExpSz")
  897.   RegSetMulSz(handle, subkeystring, value, delimiter)
  898.     call(zxc,"WIL RegSetMulSz")
  899.   RegSetValue( keyhandle, subkeystring, value )
  900.     call(zxc,"WIL RegSetValue")
  901.   RegUnloadHive(handle, subkey)
  902.     call(zxc,"WIL RegUnloadHive")
  903.  Shortcut functions....
  904.   ShortcutDir(name) {*Explorer}
  905.     call(zxc,"WIL ShortcutDir")
  906.   ShortcutEdit(linkname, target, params, startdir, showode) {*Explorer}
  907.     call(zxc,"WIL ShortcutEdit")
  908.   ShortcutExtra(linkname, description, hotkey, iconfile, iconindex) {*Explorer}
  909.     call(zxc,"WIL ShortcutExtra")
  910.   ShortcutInfo(linkname) {*Explorer}
  911.     call(zxc,"WIL ShortcutInfo")
  912.   ShortcutMake(linkname, target, params, startdir, showmode) {*Explorer}
  913.     call(zxc,"WIL ShortcutMake") 
  914.  String Handling....
  915.   IsDefined(var)
  916.     call(zxc,"WIL IsDefined")
  917.   IsFloat( string )
  918.     call(zxc,"WIL IsFloat")
  919.   IsInt( string )
  920.     call(zxc,"WIL IsInt")
  921.   IsNumber( value )
  922.     call(zxc,"WIL IsNumber")
  923.   List items....
  924.    ItemCount( list, delimiter )
  925.     call(zxc,"WIL ItemCount") 
  926.    ItemExtract( index, list, delimiter )
  927.     call(zxc,"WIL ItemExtract")
  928.    ItemInsert( item, index, list, delimiter )
  929.     call(zxc,"WIL ItemInsert")
  930.    ItemLocate( item, list, delimiter )
  931.     call(zxc,"WIL ItemLocate")
  932.    ItemRemove( index, list, delimiter )
  933.     call(zxc,"WIL ItemRemove")
  934.    ItemReplace(item, index, list, delimiter)
  935.     call(zxc,"WIL ItemReplace")
  936.    ItemSort( list, delimiter )
  937.     call(zxc,"WIL ItemSort")
  938.   Num2Char( integer )
  939.     call(zxc,"WIL Num2Char")
  940.   ParseData( string )
  941.     call(zxc,"WIL ParseData")
  942.   StrCat( string [ ,string ] ) 
  943.     call(zxc,"WIL StrCat")
  944.   StrCharCount( string )
  945.     call(zxc,"WIL StrCharCount")
  946.   StrClean( source-string, characters, replacement, match-case, mode)
  947.     call(zxc,"WIL StrClean")
  948.   StrCmp( string1, string2 )
  949.     call(zxc,"WIL StrCmp")
  950.   StrFill( filler, length )
  951.     call(zxc,"WIL StrFill")
  952.   StrFix( basestring, padstring, length )
  953.     call(zxc,"WIL StrFix")
  954.   StrFixChars( basestring, padstring, length )
  955.     call(zxc,"WIL StrFixChars")
  956.   StrFixCharsL( basestring, padstring, length )
  957.     call(zxc,"WIL StrFixCharsL")
  958.   StrFixLeft( basestring, padstring, length )
  959.     call(zxc,"WIL StrFixLeft")
  960.   StriCmp(string1, string2)
  961.     call(zxc,"WIL StriCmp")
  962.   StrIndex( basestring, substring, start, direction )
  963.     call(zxc,"WIL StrIndex")
  964.   StrIndexNc( basestring, substring, start, direction )
  965.     call(zxc,"WIL StrIndexNc")
  966.   StrIndexWild(string, pattern, start)
  967.     call(zxc,"WIL StrIndexWild")
  968.   StrLen( string )
  969.     call(zxc,"WIL StrLen")
  970.   StrLenWild(string, pattern, start)
  971.     call(zxc,"WIL StrLenWild")
  972.   StrLower( string )
  973.     call(zxc,"WIL StrLower")
  974.   StrReplace( string, old, new )
  975.     call(zxc,"WIL StrReplace")
  976.   StrScan( string, delimiters, startpos, direction )
  977.     call(zxc,"WIL StrScan")
  978.   StrSub( string, startpos, length )
  979.     call(zxc,"WIL StrSub")
  980.   StrSubWild(string, pattern, start)
  981.     call(zxc,"WIL StrSubWild")
  982.   StrTrim( string )
  983.     call(zxc,"WIL StrTrim")
  984.   StrUpper( string )
  985.     call(zxc,"WIL StrUpper") 
  986.   VarType(varname)
  987.     call(zxc,"WIL VarType")
  988.  System Management....
  989.   Disk Drive Management....
  990.    DiskExist( drive letter )
  991.      call(zxc,"WIL DiskExist")
  992.    DiskFree( drivelist )
  993.      call(zxc,"WIL DiskFree")
  994.    DiskInfo( request# )
  995.      call(zxc,"WIL DiskInfo")
  996.    DiskScan( request# )
  997.      call(zxc,"WIL DiskScan")
  998.    DiskSize( request# )
  999.      call(zxc,"WIL DiskSize")
  1000.    DiskVolInfo(root-path, request#) 
  1001.      call(zxc,"WIL DiskVolInfo")
  1002.    LogDisk( drive letter )
  1003.      call(zxc,"WIL LogDisk")
  1004.    NetInfo( request code )
  1005.      call(zxc,"WIL NetInfo")
  1006.   Environment....
  1007.    Environment( envvariable )
  1008.      call(zxc,"WIL Environment")
  1009.    EnvironSet( envvarname, newvalue )
  1010.      call(zxc,"WIL EnvironSet")
  1011.    EnvItemize(  )
  1012.      call(zxc,"WIL EnvItemize")
  1013.    ExeTypeInfo( exefilename )
  1014.      call(zxc,"WIL ExeTypeInfo")
  1015.    RegApp(programname, path)
  1016.      call(zxc,"WIL RegApp")
  1017.    RunEnviron( program name, parameters, displaymode, waitflag )
  1018.      call(zxc,"WIL RunEnviron") 
  1019.   IntControl( request#, p1, p2, p3, p4 )
  1020.     call(zxc,"WIL IntControl")
  1021.   Other System functions....
  1022.    About(  )
  1023.      call(zxc,"WIL About")
  1024.    AddExtender( dllfilename )
  1025.      call(zxc,"WIL AddExtender")
  1026.    AppExist(programname )
  1027.      call(zxc,"WIL AppExist")
  1028.    AppWaitClose(programname )
  1029.      call(zxc,"WIL AppWaitClose")
  1030.    Beep
  1031.      wedInsString ("Beep")
  1032.      wedNewLine ()
  1033.    Debug( mode )
  1034.      call(zxc,"WIL Debug")
  1035.    DebugData( string, string )
  1036.      call(zxc,"WIL DebugData")
  1037.    DebugTrace( mode, filename)
  1038.      call(zxc,"WIL DebugTrace")
  1039.    DOSVersion( level )
  1040.      call(zxc,"WIL DOSVersion")
  1041.    Drop( varname [,varname...] )
  1042.      call(zxc,"WIL Drop")
  1043.    DropWild("varnam1* [,varnam2*...] ")
  1044.      call(zxc,"WIL DropWild")
  1045.    EndSession(  )
  1046.      call(zxc,"WIL EndSession")
  1047.    ErrorMode( mode )
  1048.      call(zxc,"WIL ErrorMode")
  1049.    Exclusive(mode)
  1050.      call(zxc,"WIL Exclusive")
  1051.    ExeTypeInfo( exefilename )
  1052.      call(zxc,"WIL ExeTypeInfo")
  1053.    IconReplace(filename, iconfilename)
  1054.      call(zxc,"WIL IconReplace")
  1055.    IgnoreInput( mode )
  1056.      call(zxc,"WIL IgnoreInput")
  1057.    InstallFile(filename, targname, default-targdir, delete-old, flags)
  1058.      call(zxc,"WIL InstallFile")
  1059.    IntControl( request#, p1, p2, p3, p4 )
  1060.      call(zxc,"WIL IntControl")
  1061.    IsLicensed( )
  1062.      call(zxc,"WIL IsLicensed")
  1063.    Version(  )
  1064.      call(zxc,"WIL Version")
  1065.    VersionDLL(  )
  1066.      call(zxc,"WIL VersionDLL") 
  1067.    WaitForKey( key,  key,  key, key, key )
  1068.      call(zxc,"WIL WaitForKey")
  1069.    WinMetrics( request# )
  1070.      call(zxc,"WIL WinMetrics")
  1071.    WinParmGet( request# )
  1072.      call(zxc,"WIL WinParmGet")
  1073.    WinParmSet( request#, newvalue, inicontrol )
  1074.      call(zxc,"WIL WinParmSet")
  1075.    WinResources( request#)
  1076.      call(zxc,"WIL WinResources")
  1077.    WinSysInfo( )
  1078.      call(zxc,"WIL WinSysInfo")
  1079.    WinVersion( level )
  1080.      call(zxc,"WIL WinVersion")
  1081.   Registry....
  1082.    RegApp(programname, path)
  1083.      call(zxc,"WIL RegApp")
  1084.    RegCloseKey( keyhandle )
  1085.      call(zxc,"WIL RegCloseKey")
  1086.    RegConnect(computername, handle)
  1087.      call(zxc,"WIL RegConnect")
  1088.    RegCreateKey( keyhandle, subkeystring )
  1089.      call(zxc,"WIL RegCreateKey")
  1090.    RegDeleteKey( keyhandle, subkeystring )
  1091.      call(zxc,"WIL RegDeleteKey")
  1092.    RegDelValue(handle, subkeystring)
  1093.      call(zxc,"WIL RegDelValue")
  1094.    RegEntryType(handle, subkeystring)
  1095.      call(zxc,"WIL RegEntryType")
  1096.    RegExistKey(handle, subkeystring)
  1097.      call(zxc,"WIL RegExistKey")
  1098.    RegExistValue(handle, subkeystring)
  1099.      call(zxc,"WIL RegExistValue")
  1100.    RegLoadHive(handle, subkey, filename)
  1101.      call(zxc,"WIL RegLoadHive")
  1102.    RegOpenKey( keyhandle, subkeystring )
  1103.      call(zxc,"WIL RegOpenKey")
  1104.    RegOpenKeyEx( handle, subkey-string, mode, reserved-1, reserved-2) 
  1105.      call(zxc,"WIL RegOpenKeyEx")
  1106.    RegQueryBin(handle, subkeystring)
  1107.      call(zxc,"WIL RegQueryBin")
  1108.    RegQueryDword(handle, subkeystring) 
  1109.      call(zxc,"WIL RegQueryDword")
  1110.    RegQueryEx(handle, subkeystring, delimiter, type)
  1111.      call(zxc,"WIL RegQueryEx")       
  1112.    RegQueryExpSz(handle, subkeystring)
  1113.      call(zxc,"WIL RegQueryExpSz")
  1114.    RegQueryItem(handle, subkeystring) 
  1115.      call(zxc,"WIL RegQueryItem") 
  1116.    RegQueryKey( keyhandle, index )
  1117.      call(zxc,"WIL RegQueryKey")
  1118.    RegQueryKeys( handle )
  1119.      call(zxc,"WIL RegQueryKeys")
  1120.    RegQueryMulSz(handle, subkeystring, delimiter) 
  1121.      call(zxc,"WIL RegQueryMulSz")
  1122.    RegQueryStr( handle, subkey )
  1123.      call(zxc,"WIL RegQueryStr")
  1124.    RegQueryValue( keyhandle, keyname )
  1125.      call(zxc,"WIL RegQueryValue")
  1126.    RegSetBin(handle, subkeystring, value) 
  1127.      call(zxc,"WIL RegSetBin")
  1128.    RegSetDword(handle, subkeystring, value) 
  1129.      call(zxc,"WIL RegSetDword")  
  1130.    RegSetEx(handle, subkeystring, value, delimiter, type)
  1131.      call(zxc,"WIL RegSetEx")
  1132.    RegSetExpSz(handle, subkeystring, value) 
  1133.      call(zxc,"WIL RegSetExpSz")
  1134.    RegSetMulSz(handle, subkeystring, value, delimiter) 
  1135.      call(zxc,"WIL RegSetMulSz")                                        
  1136.    RegSetValue( keyhandle, subkeystring, value )
  1137.      call(zxc,"WIL RegSetValue")
  1138.    RegUnloadHive(handle, subkey)
  1139.      call(zxc,"WIL RegUnloadHive")
  1140.  Time  Scheduling....
  1141.   FileTimeCode( filename )
  1142.     call(zxc,"WIL FileTimeCode")
  1143.   FileTimeGet( filename )
  1144.     call(zxc,"WIL FileTimeGet")
  1145.   FileTimeGetEx(filename, timefield)
  1146.     call(zxc,"WIL FileTimeGetEx") 
  1147.   FileTimeSet( list, ymdhms )
  1148.     call(zxc,"WIL FileTimeSet")
  1149.   FileTimeSetEx(filelist, YmdHms, timefield)
  1150.     call(zxc,"WIL FileTimeSetEx")
  1151.   GetExactTime(  )
  1152.     call(zxc,"WIL GetExactTime")
  1153.   GetTickCount(  )
  1154.     call(zxc,"WIL GetTickCount")
  1155.   TimeAdd( YmdHms, YmdHms )
  1156.     call(zxc,"WIL TimeAdd")
  1157.   TimeDate(  )
  1158.     call(zxc,"WIL TimeDate")
  1159.   TimeDelay( seconds )
  1160.     call(zxc,"WIL TimeDelay")
  1161.   TimeDiffDays( Ymd[Hms], Ymd[Hms] )
  1162.     call(zxc,"WIL TimeDiffDays")
  1163.   TimeDiffSecs( YmdHms, YmdHms )
  1164.     call(zxc,"WIL TimeDiffSecs")
  1165.   TimeJulianDay( Ymd[Hms] )
  1166.     call(zxc,"WIL TimeJulianDay")
  1167.   TimeJulToYmd(juliandate)
  1168.     call(zxc,"WIL TimeJulToYmd")
  1169.   TimeSubtract(datetime, datetime difference)
  1170.     call(zxc,"WIL TimeSubtract")
  1171.   TimeYmdHms(  )
  1172.     call(zxc,"WIL TimeYmdHms")
  1173.   TimeWait( YmdHms )
  1174.     call(zxc,"WIL TimeWait") 
  1175.   Yield
  1176.     call(zxc,"WIL Yield")
  1177.   Yields(count)
  1178.     call(zxc,"WIL Yields")
  1179.  User Interface(Display)....
  1180.   About(  )
  1181.     call(zxc,"WIL About")
  1182.   AskDirectory(prompt, browse-root, start-dir, confirm-prompt, flags)
  1183.     call(zxc,"WIL AskDirectory")
  1184.   AskFileName( title, directory, filetypes, default filename, flag )
  1185.     call(zxc,"WIL AskFileName")
  1186.   AskFileText( title, filename, sort mode, select mode )
  1187.     call(zxc,"WIL AskFileText")
  1188.   AskItemList( title, list, delimiter, sort mode, select mode )
  1189.     call(zxc,"WIL AskItemlist") 
  1190.   AskLine( title, prompt, default answer )
  1191.     call(zxc,"WIL AskLine")
  1192.   AskPassword( title, prompt )
  1193.     call(zxc,"WIL AskPassword")
  1194.   AskTextBox( title, prompt, default, flags, reserved)
  1195.     call(zxc,"WIL AskTextBox")
  1196.   AskYesNo( title, question )
  1197.     call(zxc,"WIL AskYesNo")
  1198.   ButtonNames(OK-name, Cancel-name)
  1199.     call(zxc,"WIL ButtonNames")
  1200.   Dialog( dialogname )
  1201.     call(zxc,"WIL Dialog")
  1202.   Display( seconds, title, text )
  1203.     call(zxc,"WIL Display")
  1204.   KeyToggleSet( @key, value )
  1205.     call(zxc,"WIL KeyToggleSet")
  1206.   KeyToggleGet( @key )
  1207.     call(zxc,"WIL KeyToggleGet") 
  1208.   IsKeyDown(keycodes)
  1209.     call(zxc,"WIL IsKeyDown")
  1210.   Menu handling....
  1211.    IsMenuChecked( menuname )
  1212.     call(zxc,"WIL IsMenuChecked")
  1213.    IsMenuEnabled( menuname )
  1214.     call(zxc,"WIL IsMenuEnabled")
  1215.    MenuChange( menuname, flags )
  1216.     call(zxc,"WIL MenuChange")
  1217.   Message( title, text )
  1218.     call(zxc,"WIL Message")
  1219.   Mouse....
  1220.    MouseClick(clicktype, modifiers)
  1221.     call(zxc,"WIL MouseClick")
  1222.    MouseClickBtn(parentwindowname, childwindowname, buttontext)
  1223.     call(zxc,"WIL MouseClickBtn")
  1224.    MouseCoords(parentwin, childwin)
  1225.     call(zxc,"WIL MouseCoords")
  1226.    MouseInfo( request# )
  1227.     call(zxc,"WIL MouseInfo")
  1228.    MouseMove(X, Y, parentwindowname, childwindowname)
  1229.     call(zxc,"WIL MouseMove")
  1230.    MousePlay(X-Y-coordinates, parent-window, child-window, buttons, delay)
  1231.     call(zxc,"WIL MousePlay")
  1232.   MsgTextGet(window-name)
  1233.     call(zxc,"WIL MsgTextGet")
  1234.   Pause( title, prompt )
  1235.     call(zxc,"WIL Pause")
  1236.  WinBatch Functions....
  1237.   BoxButtonDraw(box ID, button ID, text, coordinates)
  1238.     call(zxc,"WIL BoxButtonDraw")
  1239.   BoxButtonKill(box ID, button ID)
  1240.     call(zxc,"WIL BoxButtonKill")
  1241.   BoxButtonStat(box ID, button ID)
  1242.     call(zxc,"WIL BoxButtonStat")
  1243.   BoxButtonWait()
  1244.     call(zxc,"WIL BoxButtonWait")
  1245.   BoxCaption(box ID, caption)
  1246.     call(zxc,"WIL BoxCaption")
  1247.   BoxColor(box ID, color, wash color)
  1248.     call(zxc,"WIL BoxColor")
  1249.   BoxDataClear(box ID, update flag)
  1250.     call(zxc,"WIL BoxDataClear")
  1251.   BoxDataTag(box ID, tag)
  1252.     call(zxc,"WIL BoxDataTag")
  1253.   BoxDestroy(box ID)
  1254.     call(zxc,"WIL BoxDestroy")
  1255.   BoxDrawCircle(box ID, coordinates, style)
  1256.     call(zxc,"WIL BoxDrawCircle")
  1257.   BoxDrawLine(box ID, coordinates)
  1258.     call(zxc,"WIL BoxDrawLine")
  1259.   BoxDrawRect(box ID, coordinates, style)
  1260.     call(zxc,"WIL BoxDrawRect")
  1261.   BoxDrawText(box ID, coordinates, text, erase flag, alignment)
  1262.     call(zxc,"WIL BoxDrawText")
  1263.   BoxesUp(coordinates, show mode)
  1264.     call(zxc,"WIL BoxesUp")
  1265.   BoxMapMode(box ID, map mode)
  1266.     call(zxc,"WIL BoxMapMode")
  1267.   BoxNew(box ID, coordinates, style)
  1268.     call(zxc,"WIL BoxNew")
  1269.   BoxOpen(title, text)
  1270.     call(zxc,"WIL BoxOpen")
  1271.   BoxPen(box ID, color, width)
  1272.     call(zxc,"WIL BoxPen")
  1273.   BoxShut( )
  1274.     call(zxc,"WIL BoxShut")
  1275.   BoxText("text")
  1276.     call(zxc,"WIL BoxText")
  1277.   BoxTextColor(box ID, color)
  1278.     call(zxc,"WIL BoxTextColor")
  1279.   BoxTextFont(box ID, name, size, style, pitch & family)
  1280.     call(zxc,"WIL BoxTextFont")
  1281.   BoxTitle("title")
  1282.     call(zxc,"WIL BoxTitle")
  1283.   BoxUpdates(box ID, update flag)
  1284.     call(zxc,"WIL BoxUpdates")
  1285.   Reload()
  1286.     call(zxc,"WIL Reload")
  1287.   Rtstatus()
  1288.     call(zxc,"WIL Rtstatus")
  1289.  Window Management.... 
  1290.   DllHwnd( partialwinname )
  1291.     call(zxc,"WIL DllHwnd")
  1292.   FindWindow(window class name)
  1293.     call(zxc,"WIL FindWindow")
  1294.   WallPaper( bmpfilename, tilemode )
  1295.     call(zxc,"WIL WallPaper")
  1296.   WinActivate( partialwinname )
  1297.     call(zxc,"WIL WinActivate")
  1298.   WinActiveChild( partialparentwindowname, partialchildwindowname )
  1299.     call(zxc,"WIL WinActiveChild")
  1300.   WinClose( partialwinname )
  1301.     call(zxc,"WIL WinClose")
  1302.   WinCloseNot( partialwinname [ ,partialwinname ] )  
  1303.     call(zxc,"WIL WinCloseNot")
  1304.   WinExeName( partialwinname )
  1305.     call(zxc,"WIL WinExeName")
  1306.   WinExist( partialwinname )
  1307.     call(zxc,"WIL WinExist")
  1308.   WinExistChild( partialparentwindowname, partialchildwindowname )
  1309.     call(zxc,"WIL WinExistChild")
  1310.   WinGetActive(  )
  1311.     call(zxc,"WIL WinGetActive")
  1312.   WinHelp( helpfile, function, keyword )
  1313.     call(zxc,"WIL WinHelp")
  1314.   WinHide( partialwinname )
  1315.     call(zxc,"WIL WinHide")
  1316.   WinIdGet(partialwinname)
  1317.     call(zxc,"WIL WinIdGet")
  1318.   WinIsDOS( partialwinname )
  1319.     call(zxc,"WIL WinIsDos")
  1320.   WinMetrics( request# )
  1321.     call(zxc,"WIL WinMetrics")
  1322.   WinName(  )
  1323.     call(zxc,"WIL WinName")
  1324.   WinParmGet( request# )
  1325.     call(zxc,"WIL WinParmGet")
  1326.   WinParmSet( request#, newvalue, inicontrol )
  1327.     call(zxc,"WIL WinParmSet")
  1328.   WinResources( request#)
  1329.     call(zxc,"WIL WinResources")
  1330.   WinShow( partialwinname )
  1331.     call(zxc,"WIL WinShow")
  1332.   WinState( partialwinname )
  1333.     call(zxc,"WIL WinState")
  1334.   WinSysInfo( ) 
  1335.     call(zxc,"WIL WinSysInfo")
  1336.   WinTitle( oldpartialwinname, newwinname )
  1337.     call(zxc,"WIL WinTitle")
  1338.   WinVersion( level )
  1339.     call(zxc,"WIL WinVersion")
  1340.   WinWaitChild(partial parent winname, partial child winname, timeout)
  1341.     call(zxc,"WIL WinWaitChild")
  1342.   WinWaitClose( partialwinname )
  1343.     call(zxc,"WIL WinWaitClose")
  1344.   WinWaitExist(partialwinname, timeout)
  1345.     call(zxc,"WIL WinWaitExist")
  1346.   Window Placement....
  1347.    WinArrange( style )
  1348.      call(zxc,"WIL WinArrange")
  1349.    WinIconize( partialwinname )
  1350.      call(zxc,"WIL WinIconize") 
  1351.    WinPlace( xulc, yulc, xbrc, ybrc,  partialwinname )
  1352.      call(zxc,"WIL WinPlace")
  1353.    WinPlaceGet( wintype partialwinname )
  1354.      call(zxc,"WIL WinPlaceGet")
  1355.    WinPlaceSet( wintype, partialwinname, position string )
  1356.      call(zxc,"WIL WinPlaceSet")
  1357.    WinPosition( partialwinname )
  1358.      call(zxc,"WIL WinPosition")
  1359.    WinZoom( partialwinname )
  1360.      call(zxc,"WIL WinZoom")
  1361.   Itemize Windows....
  1362.    WinItemChild( partialparentwindowname )
  1363.      call(zxc,"WIL WinItemChild")
  1364.    WinItemize(  )
  1365.      call(zxc,"WIL WinItemize")
  1366.    WinItemizeEx(partialwinname, multiple, hidden)
  1367.      call(zxc,"WIL WinItemizeEx")
  1368.    WinItemNameId( )
  1369.      call(zxc,"WIL WinItemNameId")
  1370.    WinItemProcId(ProcID, formattype )
  1371.      call(zxc,"WIL WinItemProcId")
  1372. ;ENDWILCMDINFOMARK   DO NOT REMOVE!!!!!!
  1373.  
  1374. _More...             ; Additional menu choices
  1375.  Colorize UDF Function ; Tells Studio to colorize a user defined function
  1376.         HelpWord = wEdGetWord()         ; Get Selected word
  1377.         
  1378.         IF HelpWord=="" 
  1379.            wLeft() ; End of word? Try one position to the left.
  1380.            Helpword = wEdGetWord() ; Select possible word & reset cursor.
  1381.            wRight() ; Saves time-wasting manual cursor manipulation.
  1382.         endif
  1383.         
  1384.         IF HelpWord=="" 
  1385.             Message("No UDF Found","Must hilight a UDF function name to colorize it.")           
  1386.             exit
  1387.         endif
  1388.  
  1389.         ;Does color already exist?
  1390.         b=Strcat(DirHome(),"WIL.CLR")
  1391.         a=IniReadPvt("COLORS","UDF","XXX",b)
  1392.         if a=="XXX"
  1393.            IniWritePvt("COLORS","UDF","0,128,255",b)
  1394.         endif
  1395.         a=IniReadPvt("KEYWORDS",HelpWord,"XYZZY123XXYZ",b)
  1396.         if a !="XYZZY123XXYZ"
  1397.            Message(Helpword,"Already colorized")
  1398.            exit
  1399.         endif
  1400.         IniWritePvt("KEYWORDS",Helpword,"UDF",b)
  1401.  
  1402.  
  1403.  Toggle Bookmark  ; Toggles a bookmark at the current line
  1404.     wSetBookmark()
  1405.  
  1406.  _Copy current line  ; Copy the current line or selection to the clipboard
  1407.     wEdHome()
  1408.     wEdStartSel()
  1409.     wEdDownLine()
  1410.     wEdEndSel()
  1411.     wEdCopy()
  1412.  
  1413.  Cut current line   ; Cut the current line or selection to the clipboard
  1414.     wEdHome()
  1415.     wEdStartSel()
  1416.     wEdDownLine()
  1417.     wEdEndSel()
  1418.     wEdCut()
  1419.  
  1420.  Open highlighted file    \ ^F       ; Open selected file
  1421.         name = wEdGetWord()
  1422.         length = strlen(name)
  1423.         if length==0 then goto DONE
  1424.         b = FileLocate(name)
  1425.         if b == "" then Message("Open selected file","Cannot find %name%")
  1426.         if b == "" then goto DONE
  1427.         wFileOpen(b)
  1428.         :DONE
  1429.         drop(name,length,b)
  1430.  _Insert Block                        ; Insert a template into the document
  1431.   If-Else                            ; Insert an 'if-else' template
  1432.      wEdNewLine()
  1433.      wEdUpLine()
  1434.      ; First determine if it is C or WIL
  1435.      ;debug(1)
  1436.      filext = strupper(FileExtension(wGetFileName()))
  1437.      if filext=="WBT" || filext=="WIL" || filext=="MNU" || filext=="WEB"   ; Its WIL
  1438.         wEdInsString("if  xx == yy")
  1439.         wEdNewLine()
  1440.         wEdNewLine()
  1441.         wEdInsString("else")
  1442.         wEdNewLine()
  1443.         wEdNewLine()
  1444.         wEdInsString("endif")
  1445.         wEdNewLine()
  1446.         wEdUpLine()
  1447.         wEdUpLine()
  1448.         wEdUpLine()
  1449.         wEdUpLine()
  1450.      else  ;assume C
  1451.         wEdInsString("if  ( xx == yy )")
  1452.         wEdNewLine()
  1453.         wEdInsString("   {")
  1454.         wEdNewLine()
  1455.         wEdNewLine()
  1456.         wEdInsString("}")
  1457.         wEdNewLine()
  1458.         wEdLeft()
  1459.         wEdLeft()
  1460.         wEdLeft()
  1461.         wEdInsString("else")
  1462.         wEdNewLine()
  1463.         wEdInsString("   {")
  1464.         wEdNewLine()
  1465.         wEdNewLine()
  1466.         wEdInsString("}")
  1467.         wEdNewLine()
  1468.         wEdUpLine()
  1469.         wEdUpLine()
  1470.         wEdUpLine()
  1471.         wEdUpLine()
  1472.         wEdUpLine()
  1473.         wEdUpLine()
  1474.      endif
  1475.      drop(s,filext)
  1476.   Switch                    ; Insert a 'switch' template
  1477.      wEdNewLine()
  1478.      wEdUpLine()
  1479.      filext = strupper(FileExtension(wGetFileName()))
  1480.      if filext=="WBT" || filext=="WIL" || filext=="MNU" || filext=="WEB"   ; Its WIL
  1481.         wEdNewLine()
  1482.         wEdUpLine()
  1483.         wEdInsString("switch switchvar")
  1484.         wEdNewLine()
  1485.         wEdInsString("   case 1")
  1486.         wEdNewLine()
  1487.         wEdInsString("   break")
  1488.         wEdNewLine()
  1489.         wEdNewLine()
  1490.         wEdLeft()
  1491.         wEdLeft()
  1492.         wEdLeft()
  1493.         wEdInsString("case 2")
  1494.         wEdNewLine()
  1495.         wEdInsString("   break")
  1496.         wEdNewLine()
  1497.         wEdNewLine()
  1498.         wEdLeft()
  1499.         wEdLeft()
  1500.         wEdLeft()
  1501.         wEdInsString("case 3")
  1502.         wEdNewLine()
  1503.         wEdInsString("   break")
  1504.         wEdNewLine()
  1505.         wEdNewLine()
  1506.         wEdLeft()
  1507.         wEdLeft()
  1508.         wEdLeft()
  1509.         wEdLeft()
  1510.         wEdLeft()
  1511.         wEdLeft()
  1512.         wEdInsString("endswitch")
  1513.         wEdNewLine()
  1514.         wEdUpLine()
  1515.         wEdUpLine()
  1516.         wEdUpLine()
  1517.         wEdUpLine()
  1518.         wEdUpLine()
  1519.         wEdUpLine()
  1520.         wEdUpLine()
  1521.         wEdUpLine()
  1522.         wEdUpLine()
  1523.      else  ;assume C
  1524.         wEdInsString("switch (swvar)")
  1525.         wEdNewLine()
  1526.         wEdInsString("   {")
  1527.         wEdNewLine()
  1528.         wEdInsString("case 1:")
  1529.         wEdNewLine()
  1530.         wEdInsString("   break;")
  1531.         wEdNewLine()
  1532.         wEdNewLine()
  1533.         wEdLeft()
  1534.         wEdLeft()
  1535.         wEdLeft()
  1536.         wEdInsString("case 2:")
  1537.         wEdNewLine()
  1538.         wEdInsString("   break;")
  1539.         wEdNewLine()
  1540.         wEdNewLine()
  1541.         wEdLeft()
  1542.         wEdLeft()
  1543.         wEdLeft()
  1544.         wEdInsString("case 3:")
  1545.         wEdNewLine()
  1546.         wEdInsString("   break;")
  1547.         wEdNewLine()
  1548.         wEdNewLine()
  1549.         wEdLeft()
  1550.         wEdLeft()
  1551.         wEdLeft()
  1552.         wEdLeft()
  1553.         wEdLeft()
  1554.         wEdLeft()
  1555.         wEdInsString("   }")
  1556.         wEdNewLine()
  1557.         wEdUpLine()
  1558.         wEdUpLine()
  1559.         wEdUpLine()
  1560.         wEdUpLine()
  1561.         wEdUpLine()
  1562.         wEdUpLine()
  1563.         wEdUpLine()
  1564.         wEdUpLine()
  1565.         wEdUpLine()
  1566.      endif
  1567.      drop(s,filext)
  1568.   While                        ; Insert a 'while' template
  1569.      wEdNewLine()
  1570.      wEdUpLine()
  1571.      filext = strupper(FileExtension(wGetFileName()))
  1572.      if filext=="WBT" || filext=="WIL" || filext=="MNU"  || filext=="WEB"  ; Its WIL
  1573.         wEdInsString("while xx == yy")
  1574.         wEdNewLine()
  1575.         wEdNewLine()
  1576.         wEdInsString("endwhile")
  1577.         wEdNewLine()
  1578.         wEdUpLine()
  1579.         wEdUpLine()
  1580.      else  ;assume C
  1581.         wEdInsString("while (xx == yy)")
  1582.         wEdNewLine()
  1583.         wEdInsString("   {")
  1584.         wEdNewLine()
  1585.         wEdNewLine()
  1586.         wEdInsString("}")
  1587.         wEdNewLine()
  1588.         wEdUpLine()
  1589.         wEdUpLine()
  1590.      endif
  1591.      drop(s,filext)
  1592.   Comment block       \ +^B               ; Insert a comment block
  1593.         filext = strupper(FileExtension(wGetFileName()))
  1594.         if filext=="WBT" || filext=="WIL" || filext=="MNU" || filext=="WEB"  then cmt=";" ; Its WIL
  1595.               else cmt="//"
  1596.         s=""
  1597.         ;if wGetSelState() then
  1598.         s=wEdGetWord()
  1599.         clipput ("%cmt%***************************************************************************%CR%")
  1600.         clipappend("%cmt%** %s%%CR%")
  1601.         clipappend("%cmt%** %CR%")
  1602.         clipappend("%cmt%** %CR%")
  1603.         clipappend ("%cmt%***************************************************************************%CR%")
  1604.         wEDgotocol(1) ;insert above current line
  1605.         wedstartsel()
  1606.         wedendsel()
  1607.         wednewline()
  1608.         wEDgotocol(1) ;insert above current line
  1609.         Wedpaste()
  1610.         weddownline()
  1611.         weddownline()
  1612.         wedend()
  1613.         drop(s,filext,cmt)
  1614.   ;
  1615.   ;Builds a DETAILED comment block from the label under the cursor.
  1616.   ;
  1617.   Comment SUPER block       \ ^!B      ; Insert a detailed comment block
  1618.         filext = strupper(FileExtension(wGetFileName()))
  1619.         if filext=="WBT" || filext=="WIL" || filext=="MNU" || filext=="WEB"  then cmt=";" ; Its WIL
  1620.               else cmt="//"
  1621.         s=""
  1622.         ;if wGetSelState() then
  1623.         s=wEdGetWord()
  1624.         clipput ("%cmt%***************************************************************************%CR%")
  1625.         clipappend("%cmt%** %s%%CR%")
  1626.         clipappend("%cmt%** %CR%")
  1627.         clipappend("%cmt%** %CR%")
  1628.         clipappend("%cmt%** Purpose: %CR%")
  1629.         clipappend("%cmt%** Inputs: %CR%")
  1630.         clipappend("%cmt%** Outputs: %CR%")
  1631.         clipappend("%cmt%** Revisions: %CR%")
  1632.         clipappend ("%cmt%***************************************************************************%CR%")
  1633.         wEDgotocol(1) ;insert above current line
  1634.         wedstartsel()
  1635.         wedendsel()
  1636.         wednewline()
  1637.         wEDgotocol(1) ;insert above current line
  1638.         Wedpaste()
  1639.         weddownline()
  1640.         weddownline()
  1641.         wedend()
  1642.         drop(s,filext,cmt)
  1643.  
  1644.  _How do I?...        ; Learn about using scripts
  1645.   Show less WIL functions (faster)
  1646.     Pause("WSPOPUP Menu Change",'Press OK to load a smaller wspopup menu with less functions displayed in the "Insert WIL function" choices.  This will load the popup menus faster.')
  1647.     FileCopy(strcat(DirHome(),"wspopups.mnu"),Strcat(DirHome(),"wspopup.mnu"),0)
  1648.     Message("WSPOPUP Menu Change","WinBatch Studio now set to use faster popup menus.")
  1649.   Use Menu Scripts           ; Menu file reference
  1650.     helpfile = strcat(HomeUpOne,"windows interface language.hlp")
  1651.     WinHelp(helpFile, "PartialKey", "Menu Files")
  1652.   Write WIL Scripts       ; WIL scripting language reference
  1653.     helpfile = strcat(HomeUpOne,"windows interface language.hlp")
  1654.     WinHelp(helpFile, "PartialKey", "Tutorial")
  1655.   Customize this menu...   ; Manage WinBatch Studio Popup menu 
  1656.         TheFile=strcat(DirHome(),"WSPOPUP.MNU")
  1657.         WFileOpen(TheFile)
  1658.         Drop(TheFile)  
  1659.  
  1660.  
  1661.