;WINEDIT.MNU file.  
;  
;Modifications courtesy of Don Lekei, Richard Merit, Morrie Wilson  
; and many many others.  Thank you very much.  
;  
; Some functions, like version control and alternate grep commands,   
; are presented here but commented out.  If you have the corresponding  
; utility, just delete the semicolons from column 1 and the function  
; will be enabled.  
;  
;  
;  
; AutoExec Section is on top here.  
;  
        TAB=@TAB  
        CR=@CRLF  
        EOL=@CR  
        Home=DirHome()  
        IntControl(29,@tab,0,0,0)  ;Standardize on tabs as delimiters for FileItemize, etc  
  
Key Word Help      \ +{F1}         ; Load help topic for word at cursor  
        call(strcat(DirHome(),"System\wwwedit.dll"),"KEYWORDHELP")  
  
Load Help File                    ; Load a help file (no keyword lookup)  
        TheFile=strcat(DirHome(),"System\WEHELP.INI")  
        Keys=IniItemizePvt("HelpAll",TheFile)  
        KeyMax=ItemCount(Keys,@TAB)  
        KeyIndex=0  
        KeyValues=""  
  
        :ieLoop  
        if KeyIndex==KeyMax then goto looped  
        KeyIndex=KeyIndex+1  
        ThisKey=ItemExtract(KeyIndex,Keys,@TAB)  
        if (stricmp(ThisKey,"DEFAULT")==0) then goto ieloop  
        ThisValue=IniReadPvt("HelpAll",ThisKey,"???",TheFile)  
        KeyValues=strcat(KeyValues,ThisValue,"|")  
        goto ieLoop  
          
        :looped  
        a=ItemSelect("Select Help File",strlower(KeyValues),"|")  
        if a=="" then goto DONE  
        b = FileLocate(strcat(DirHome(),"HELP\%a%"))  
        if b=="" then b=FileLocate(a)  
        if b=="" then Message("Helpfile %a% not found","Edit %TheFile%%CR%[HelpAll] section to%CR%point to help file location%CR%or put helpfile on DOS path.")  
                 else WinHelp(b,"CONTENTS","")  
        :DONE  
        Drop(TheFile,Keys,KeyMax,KeyIndex,KeyValues,ThisKey,ThisValue,a,b)  
;  
  
;  
   
HTML         ;Insert HTML tags into this document
 Anchor - Image
 		wImgTag()

 Anchor - Text
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<A HREF="http://?">\^</A>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)  ; restore the clipboard

 Applet
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsLine('<APPLET CODE="?.class" LANGUAGE=JAVASCRIPT>')
		wInsLine('\^')
		wInsLine('</APPLET>')
		wNewLine()
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)  ; restore the clipboard

 Colors
  Black
		wInsString('color="#000000"')

  Silver
		wInsString('color="#C0C0C0"')

  Gray
		wInsString('color="#808080"')

  White
		wInsString('color="#FFFFFF"')

  Maroon
		wInsString('color="#800000"')

  Red
		wInsString('color="#FF0000"')

  Purple
		wInsString('color="#800080"')

  Fuchsia
		wInsString('color="#FF00FF"')

  Green
		wInsString('color="#008000"')

  Lime
		wInsString('color="#00FF00"')

  Olive
		wInsString('color="#808000"')

  Yellow
		wInsString('color="#FFFF00"')

  Blue
		wInsString('color="#0000FF"')

  Navy
		wInsString('color="#000080"')

  Teal
		wInsString('color="#008080"')

  Aqua
		wInsString('color="#00FFFF"')

 Comment
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<!-- \^ -->')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)

 Font Template
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<FONT FACE="?" SIZE="?">\^</FONT>') 
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)

 Font Size
  Font 1
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<FONT SIZE="1">\^</FONT>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)

  Font 2
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<FONT SIZE="2">\^</FONT>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)

  Font 3
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<FONT SIZE="3">\^</FONT>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)

  Font 4
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<FONT SIZE="4">\^</FONT>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)

  Font 5
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<FONT SIZE="5">\^</FONT>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)

  Font 6
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<FONT SIZE="6">\^</FONT>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)

  Font 7
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<FONT SIZE="7">\^</FONT>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)

  Big
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<BIG>\^</BIG>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)

  Small
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<SMALL>\^</SMALL>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)


  Superscript
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<SUP>\^</SUP>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)

  Subscript
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<SUB>\^</SUB>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)

 Formatting
  Horizontal Rule
		wInsLine('<HR ALIGN="center" WIDTH="100%%">')

  Bold						 \^B
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<B>\^</B>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)

  Italic
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<I>\^</I>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)

  Underline
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<U>\^</U>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)

  Emphasis
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<EM>\^</EM>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)


  Strong Emphasis
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<STRONG>\^</STRONG>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)

 Headings
  <H1> Heading
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<H1>\^</H1>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)
  <H2> Heading
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<H2>\^</H2>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)
  <H3> Heading
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<H3>\^</H3>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)
  <H4> Heading
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<H4>\^</H4>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)
  <H5> Heading
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<H5>\^</H5>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)
  <H6> Heading
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<H6>\^</H6>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)
 Lists
  Unordered
		wInsLine('<UL>')
		wInsLine('	<LI> ?')
		wInsLine('	<LI> ?')
		wHome()
		wInsLine('</UL>')

  Ordered
		wInsLine('<OL>')
		wInsLine('	<LI> ?')
		wHome()
		wInsLine('	<LI> ?')
		wHome()
		wInsLine('	<LI> ?')
		wHome()
		wInsLine('</OL>')

  Definition
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsLine('<DL>')
		wInsLine('	<DT>\^<DD> ?')
		wHome()
		wInsLine('	<DT>?<DD> ?')
		wHome()
		wInsLine('	<DT>?<DD> ?')
		wHome()
		wInsLine('</DL>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)

 Tables
  Table Template
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsLine('<TABLE ALIGN="left" BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%%">')
		wInsLine('<TR ALIGN="left" VALIGN="middle">')
		wInsLine('	<TH>\^</TH>')
		wHome()
		wInsLine('	<TH>?</TH>')
		wHome()
		wInsLine('<TR ALIGN="left" VALIGN=middle">')
		wInsLine('	<TD> ? </TD>')
		wHome()
		wInsLine('	<TD> ? </TD>')
		wHome()
		wInsLine('</TABLE>')
		wNewLine()
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)  ; restore the clipboard

  <TR> Row				 ; Insert this tag template into document
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<TR>\^</TR>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)

  <TH> Heading
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<TH>\^</TH>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)

  <TD> Data
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")    ; clear the clipboard
		wCut()
		wInsString('<TD>\^</TD>')
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)

 _View in Browser    ; View the current document in a browser window
		wViewHtml()

 Blank HTML Document	; Insert a basic html template into the document
		q = AskYesNo("New HTML Document","Open a new document?")
		if q == @YES
			wFileNew()
		else
			wEnd()
			wNewLine()
			wHome()
		endif
		ErrorMode(@OFF)
		s=ClipGet()
		ErrorMode(@ON)
		ClipPut("")   ; clear the clipboard
		wCut()
		wInsLine('<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">') 
		wNewLine()
		wInsLine('<HTML>')
		wNewLine()
		wInsLine('<HEAD>')
		wNewLine()
		wInsLine('<TITLE>\^</TITLE>')
		wNewLine()
		wInsLine('<META NAME="Generator" CONTENT="Winedit 2000">')
		wInsLine('<META NAME="Author" CONTENT="?">')
		wInsLine('<META NAME="Keywords" CONTENT="?">')
		wInsLine('<META NAME="Description" CONTENT="?">')
		wNewLine()
		wInsLine('</HEAD>')
		wNewLine()
		wInsLine('<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#FF0000" VLINK="#800000" ALINK="#FF00FF" BACKGROUND="?">')
		wNewLine()
		wNewLine()
		wInsLine('</BODY>')
		wNewLine()
		wInsLine('</HTML>')
		wNewLine()
		wFind("\^",@FALSE,@TRUE,@FALSE,@FALSE)
		wPaste()
		ClipPut(s)  ; restore the clipboard

Java
 Run Java Applet	 ; Run this compiled java class in WinEdit Explorer
	filename = wGetFileName()
	path = FilePath(filename)
	basename = FileRoot(filename)
	olddir = DirGet()

	javaname = strcat(path,"%basename%.class")
	if (FileExist(javaname))

		DirChange(path)

		; see if there is already an html file in this directory
		; and offer to run that
		htmllist = FileItemize("*.html")
		if (htmllist != "")
			ifile = AskItemList("Choose an html file", htmllist, @TAB, @unsorted, @single)
			if (ifile != "")
		         htmlname = strcat(FileRoot(ifile),".html")
			else
				; make an html wrapper for the class to run in
				htmlname = strcat(path,"%basename%.html")

				h = FileOpen(htmlname, "WRITE")
				FileWrite(h, '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">')
				FileWrite(h, '')
				FileWrite(h, '<html>')
				FileWrite(h, '')
				FileWrite(h, '   <head>')
				FileWrite(h, '')
				FileWrite(h, '   <title>%basename% Applet</title>')
				FileWrite(h, '')
				FileWrite(h, '   <body>')
				FileWrite(h, '')
  				FileWrite(h, '      <h1>%basename% Applet</h1>')
				FileWrite(h, '')
				FileWrite(h, '      <hr>')
				FileWrite(h, '')
				FileWrite(h, '<APPLET CODE="%basename%.class" CODEBASE="." WIDTH=400 HEIGHT=300></APPLET>')
				FileWrite(h, '')
  				FileWrite(h, '      <hr>')
				FileWrite(h, '')
  				FileWrite(h, '   </body>')
				FileWrite(h, '')
  				FileWrite(h, '</html>')
				FileClose(h)

			endif
		endif
		Run("appletviewer","%htmlname%")
		DirChange(olddir)
		wViewOutput()
	else
		Message("Run Java Applet","Couldn't find %javaname%.  Is it compiled?")
	endif


 Run Java Application (graphical)  ; Run this java class in the java environment
	filename = wGetFileName()
	path = FilePath(filename)
	basename = FileRoot(filename)
	olddir = DirGet()
	DirChange(path)
	Run("java", "%basename%")
	DirChange(olddir)
	drop(filename,path,basename,olddir)

 Run Java Application (console)  ; Run this java class from a command window
	filename = wGetFileName()
	path = FilePath(filename)
	basename = FileRoot(filename)
	olddir = DirGet()
	DirChange(path)
	if (WinVersion(4) == 4)
		strRun = "cmd.exe"
	else
		strRun = "command.com"
	endif
	Run("%strRun%", "/k java %basename%")
	DirChange(olddir)
	drop(filename,path,basename,olddir)

 Run Java App (prompt for parameters)  ; Run this java class in the java environment
	filename = wGetFileName()
	path = FilePath(filename)
	basename = FileRoot(filename)
	olddir = DirGet()
	parameters = AskLine("Command line parameters","Enter any command line parameters", "")
	DirChange(path)
	Run("java", "%basename% %parameters%")
	DirChange(olddir)
	drop(filename,path,basename,olddir)

Perl
 Insert Conditionals
  if
     filext = strupper(FileExtension(wGetFileName()))  
     if filext=="PL" || filext=="PM"   ; Check to be sure.
        a = wGetColNo()
        wInsLine("if ( xx == yy ) {")
        wInsLine("  ;;")
        wGoToCol( a )
        wInsLine("};")
        wNewLine()
     endif
     drop(a,filext)

  unless
     filext = strupper(FileExtension(wGetFileName()))  
     if filext=="PL" || filext=="PM"   ; Check to be sure.
        a = wGetColNo()
        wInsLine("unless ( xx == yy ) {")
        wInsLine("  ;;")
        wGoToCol( a )
        wInsLine("};")
     endif
     drop(a,filext)
            
  if-else
     filext = strupper(FileExtension(wGetFileName()))  
     if filext=="PL" || filext=="PM"   ; Check to be sure.
        a = wGetColNo()
        wInsLine("if ( xx == yy ) {")
        wInsLine("  ;;")
        wGoToCol( a )
        wInsLine("}")
        wInsLine("else {")
        wInsLine("  ;;")
        wGoToCol( a )
        wInsLine("};")
     endif
     drop(a,filext)

  unless-else
     filext = strupper(FileExtension(wGetFileName()))  
     if filext=="PL" || filext=="PM"   ; Check to be sure.
        a = wGetColNo()
        wInsLine("unless ( xx == yy ) {")
        wInsLine("  ;;")
        wGoToCol( a )
        wInsLine("}")
        wInsLine("else {")
        wInsLine("  ;;")
        wGoToCol( a )
        wInsLine("};")
     endif
     drop(a,filext)
     
;
;=====================================================================
 Insert Loops
  for
     filext = strupper(FileExtension(wGetFileName()))  
     if filext=="PL" || filext=="PM"   ; Check to be sure.
        a = wGetColNo()
        wInsLine("for ( $i=1; i <= yy; $i++) {")
        wInsLine("  ;;")
        wGoToCol( a )
        wInsLine("};")
     endif
     drop(a,filext)

  foreach
     filext = strupper(FileExtension(wGetFileName()))  
     if filext=="PL" || filext=="PM"   ; Check to be sure.
        a = wGetColNo()
        wInsLine("foreach $var (list) {")
        wInsLine("  ;;")
        wGoToCol( a )
        wInsLine("};")
     endif
     drop(a,filext)

  do-while
     filext = strupper(FileExtension(wGetFileName()))  
     if filext=="PL" || filext=="PM"   ; Check to be sure.
        a = wGetColNo()
        wInsLine("do {")
        wInsLine("  ;;")
        wGoToCol( a )
        wInsLine("} while (xx == yy);")
     endif
     drop(a,filext)

  while
     filext = strupper(FileExtension(wGetFileName()))  
     if filext=="PL" || filext=="PM"   ; Check to be sure.
        a = wGetColNo()
        wInsLine("while ( xx==yy ) {")
        wInsLine("  ;;")
        wGoToCol( a )
        wInsLine("};")
     endif
     drop(a,filext)

;
;=====================================================================
 Insert Misc
  cond-op (?:)
     filext = strupper(FileExtension(wGetFileName()))  
     if filext=="PL" || filext=="PM"   ; Check to be sure.
        wInsString("test_expr ? if_true_expr : if_false_expr;")
     endif
     drop(filext)

  list-variable (@)
     filext = strupper(FileExtension(wGetFileName()))  
     if filext=="PL" || filext=="PM"   ; Check to be sure.
        wInsString("my(@list) = ( str1, str2 );")
     endif
     drop(filext)

  hash-variable (%)
     filext = strupper(FileExtension(wGetFileName()))  
     if filext=="PL" || filext=="PM"   ; Check to be sure.
        a = wGetColNo()
        wInsLine("my(%%hash) =")
        wInsLine("{")
        wGoToCol( a+3 )
        wInsLine( "key1 => val1")
        wInsLine( "key2 => val2")
        wGoToCol( a )
        wInsLine("};")
     endif             
     drop(a,filext)

  Subroutine
     filext = strupper(FileExtension(wGetFileName()))  
     if filext=="PL" || filext=="PM"   ; Check to be sure.
        a = wGetColNo()
        wInsLine("sub funcName")
        wInsLine("{")
        wGoToCol( a+3 )
        wInsLine("# sub BODY")
        wGoToCol( a )
        wInsLine("} #end sub funcName")
     endif
     drop(a,filext)
	
  Subroutine w/prototype
     filext = strupper(FileExtension(wGetFileName()))  
     if filext=="PL" || filext=="PM"   ; Check to be sure.
        a = wGetColNo()
        wInsLine("sub funcName($$)")
        wInsLine("{")
        wGoToCol( a+3 )
        wInsLine("# sub BODY")
        wGoToCol( a )
        wInsLine("} #end sub funcName")
     endif
     drop(a,filext)


Insert Block
 If                C,WIL                                                   
     filext = strupper(FileExtension(wGetFileName()))  
     if filext!="WBT" && filext!="WIL" && filext!="MNU" && filext!="MNW" && filext!="WEB"   ; Assume C
        b = wGetLineNo()
        c = wGetColNo()
        wInsString("if( ")
        a = wGetColNo()
        wNewLine()
        c = wGetColNo()
        wInsString("{")
        wNewLine()
        wInsString("  ;")
        wNewLine()
        wGoToCol( c )
        wInsString("}")
        wNewLine()
        wEnd()
        wInsString(";")
        wHome()
        wStartSel()
        wEnd()
        wEndSel()
        wDelete()
        wGoToLine( b )
        wGoToCol( a )
        wInsString("xx == yy )")
        wLeft()
        wLeft()
        b = wGetColNo()
        wGoToCol( a )
        wStartSel()
        wGoToCol( b )
        wEndSel()
     else
        wInsString("if  xx == yy")  
        wNewLine()  
        wNewLine()  
        wInsString("endif")  
        wNewLine()  
        wUpLine()  
        wUpLine()  
     endif
     drop(s,filext)            
 If-Else           C,WIL  
     wNewLine()  
     wUpLine()  
     ; First determine if it is C or WIL  
     ;debug(1)  
     filext = strupper(FileExtension(wGetFileName()))  
     if filext=="WBT" || filext=="WIL" || filext=="MNU" || filext=="WEB"   ; Its WIL  
        wInsString("if  xx == yy")  
        wNewLine()  
        wNewLine()  
        wInsString("else")  
        wNewLine()  
        wNewLine()  
        wInsString("endif")  
        wNewLine()  
        wUpLine()  
        wUpLine()  
        wUpLine()  
        wUpLine()  
     else  ;assume C  
        b = wGetLineNo()
        c = wGetColNo()
        wInsString("if( ")
        a = wGetColNo()
        wNewLine()
        c = wGetColNo()
        wInsString("{")
        wNewLine()
        wInsString("  ;")
        wNewLine()
        wGoToCol( c )
        wInsString("}")
        wNewLine()
        wInsString("else")
        wNewLine()
        wInsString("{")
        wNewLine()
        wInsString("  ;")
        wNewLine()
        wGoToCol( c )
        wInsString("}")
        wNewLine()
        wEnd()
        wInsString(";")
        wHome()
        wStartSel()
        wEnd()
        wEndSel()
        wDelete()
        wGoToLine( b )
        wGoToCol( a )
        wInsString("xx == yy )")
        wLeft()
        wLeft()
        b = wGetColNo()
        wGoToCol( a )
        wStartSel()
        wGoToCol( b )
        wEndSel()
     endif  
     drop(s,filext)
 Switch            C,WIL  
     filext = strupper(FileExtension(wGetFileName()))  
     if filext=="WBT" || filext=="WIL" || filext=="MNU" || filext=="WEB"   ; Its WIL  
        wNewLine()  
        wUpLine()  
        wNewLine()  
        wUpLine()  
        wInsString("switch switchvar")  
        wNewLine()  
        wInsString("   case 1")  
        wNewLine()  
        wInsString("   break")  
        wNewLine()  
        wNewLine()  
        wLeft()  
        wLeft()  
        wLeft()  
        wInsString("case 2")  
        wNewLine()  
        wInsString("   break")  
        wNewLine()  
        wNewLine()  
        wLeft()  
        wLeft()  
        wLeft()  
        wInsString("case 3")  
        wNewLine()  
        wInsString("   break")  
        wNewLine()  
        wNewLine()  
        wLeft()  
        wLeft()  
        wLeft()  
        wLeft()  
        wLeft()  
        wLeft()  
        wInsString("endswitch")  
        wNewLine()  
        wUpLine()  
        wUpLine()  
        wUpLine()  
        wUpLine()  
        wUpLine()  
        wUpLine()  
        wUpLine()  
        wUpLine()  
        wUpLine()  
     else  ;assume C  
        b = wGetLineNo()
        c = wGetColNo()
        wInsString("switch( ")
        a = wGetColNo()
        wNewLine()
        wGoToCol( c )
        wInsString("{ ")
        wNewLine()
        wGoToCol( c+2 )
        wInsString("case 1:")
        wNewLine()
        wInsString("  ;")
        wNewLine()
        wInsString("break;")
        wNewLine()
        wNewLine()
        wGoToCol( c+2 )
        wInsString("case 2:")
        wNewLine()
        wInsString("  ;")
        wNewLine()
        wInsString("break;")
        wNewLine()
        wNewLine()
        wGoToCol( c+2 )
        wInsString("case 3:")
        wNewLine()
        wInsString("  ;")
        wNewLine()
        wInsString("break;")
        wNewLine()
        wGoToCol( c )
        wInsString("}")
        wNewLine()
        wEnd()
        wInsString(";")
        wHome()
        wStartSel()
        wEnd()
        wEndSel()
        wDelete()
        wGoToCol( a )
        wGoToLine( b )
        wInsString("switchVar )")
        wLeft()
        wLeft()
        b = wGetColNo()
        wGoToCol( a )
        wStartSel()
        wGoToCol( b )
        wEndSel()
     endif  
     drop(s,filext)
 _For               C,WIL
     filext = strupper(FileExtension(wGetFileName()))  
     if filext!="WBT" && filext!="WIL" && filext!="MNU" && filext!="MNW" &&filext!="WEB"   ; Assume C
        b = wGetLineNo()
        c = wGetColNo()
        wInsString("for( ")
        a = wGetColNo()
        wNewLine()
        wGoToCol( c )
        wInsString("{")
        wNewLine()
        wInsString("  ;")
        wNewLine()
        wGoToCol( c )
        wInsString("}")
        wNewLine()
        wEnd()
        wInsString(";")
        wHome()
        wStartSel()
        wEnd()
        wEndSel()
        wDelete()
        wGoToCol( a )
        wGoToLine( b )
        wInsString("aa; bb==cc ;dd )")
        wLeft()
        wLeft()
        b = wGetColNo()
        wGoToCol( a )
        wStartSel()
        wGoToCol( b )
        wEndSel()
     else
        wInsString("for xx = 1 to 10")  
        wNewLine()  
        wNewLine()  
        wInsString("next")  
        wNewLine()  
        wUpLine()  
        wUpLine()  
     endif
     drop(s,filext)
 While             C,WIL
     filext = strupper(FileExtension(wGetFileName()))  
     if filext=="WBT" || filext=="WIL" || filext=="MNU"  || filext=="WEB"  ; Its WIL  
        wNewLine()  
        wUpLine()  
        wInsString("while xx == yy")  
        wNewLine()  
        wNewLine()  
        wInsString("endwhile")  
        wNewLine()  
        wUpLine()  
        wUpLine()  
     else  ;assume C  
        b = wGetLineNo()
        c = wGetColNo()
        wInsString("while( ")
        a = wGetColNo()
        wNewLine()
        wGoToCol( c )
        wInsString("{")
        wNewLine()
        wInsString("  ;")
        wNewLine()
        wGoToCol( c )
        wInsString("}")
        wNewLine()
        wEnd()
        wInsString(";")
        wHome()
        wStartSel()
        wEnd()
        wEndSel()
        wDelete()
        wGoToCol( a )
        wGoToLine( b )
        wInsString("xx == yy )")
        wLeft()
        wLeft()
        b = wGetColNo()
        wGoToCol( a )
        wStartSel()
        wGoToCol( b )
        wEndSel()
        drop(s,filext)
     endif  
     drop(s,filext)
 Do-While          C,WIL 
     filext = strupper(FileExtension(wGetFileName()))  
     if filext!="WBT" && filext!="WIL" && filext!="MNU" && filext!="WEB" && filext!="MNW"   ; Assume C
        b = wGetLineNo()
        c = wGetColNo()
        wInsString("do")
        wNewLine()
        wGoToCol( c )
        wInsString("{")
        wNewLine()
        wInsString("  ;")
        wNewLine()
        wGoToCol( c )
        wInsString("} while( ")
        a = wGetColNo()
        b = wGetLineNo()
        wNewLine()
        wEnd()
        wInsString(";")
        wHome()
        wStartSel()
        wEnd()
        wEndSel()
        wDelete()
        wGoToCol( a )
        wGoToLine( b )
        wInsString("xx == yy )")
        wLeft()
        wLeft()
        b = wGetColNo()
        wGoToCol( a )
        wStartSel()
        wGoToCol( b )
        wEndSel()
     else
        wNewLine()  
        wUpLine()  
        wInsString("while @TRUE")  
        wNewLine()  
        wNewLine()
        wInsString("   if xx==yy then break")
        wNewLine()
        wInsString("endwhile")  
        wNewLine()  
        wUpLine() 
        wUpLine()
        wUpLine()  
     endif
     drop(s,filext)
 _ifdef-else        C,ASM
     filext = strupper(FileExtension(wGetFileName()))  
     if filext=="C" || filext=="CPP" || filext=="H"  ; Assume C
        b = wGetLineNo()
        c = wGetColNo()
        wInsString("#ifdef ")
        a = wGetColNo()
        wNewLine()
        wNewLine()
        wGoToCol( c )
        wInsString("#else")
        wNewLine()
        wNewLine()
        wGoToCol( c )
        wInsString("#endif")
        wNewLine()
        wInsString(";")
        wStartSel()
        wHome()
        wEndSel()
        wDelete()
        wNewLine()
        wGoToCol( a )
        wGoToLine( b )
        wInsString("CONDITION")
        drop(s,filext)
        b = wGetColNo()
        wGoToCol( a )
        wStartSel()
        wGoToCol( b )
        wEndSel()
     endif

     filext = strupper(FileExtension(wGetFileName()))  
     if filext=="ASM"
        wNewLine()  
        wUpLine()  
        b = wGetLineNo()
        c = wGetColNo()
        wInsString("IFDEF ")
        a = wGetColNo()
        wNewLine()
        wNewLine()
        wGoToCol( c )
        wInsString("ELSE")
        wNewLine()
        wNewLine()
        wGoToCol( c )
        wInsString("ENDIF")
        wNewLine()
        wInsString(";")
        wStartSel()
        wHome()
        wEndSel()
        wDelete()
        wNewLine()
        wGoToCol( a )
        wGoToLine( b )
        wInsString("CONDITION")
        b = wGetColNo()
        wGoToCol( a )
        wStartSel()
        wGoToCol( b )
        wEndSel()
     endif
     drop(s,filext)
 _Comment block       \ +^B  ; Insert a comment block into the document
        filext = strupper(FileExtension(wGetFileName()))  
        if filext=="WBT" || filext=="WIL" || filext=="MNU" || filext=="WEB" || filext=="MNW" then cmt=";" ; Its WIL  
              else cmt="//"  
        s=""  
        ;if wGetSelState() then  
        s=wGetWord()  
        clipput ("%cmt%***************************************************************************%CR%")  
        clipappend("%cmt%** %s%%CR%")  
        clipappend("%cmt%** %CR%")  
        clipappend("%cmt%** %CR%")  
        clipappend ("%cmt%***************************************************************************%CR%")  
        wgotocol(1) ;insert above current line  
        wstartsel()  
        wendsel()  
        wnewline()  
        wgotocol(1) ;insert above current line  
        wpaste()  
        wdownline()  
        wdownline()  
        wend()  
        drop(s,filext,cmt)  
;  
;Builds a DETAILED comment block from the label under the cursor.  
;  
 Comment SUPER block       \ ^!B  ; Insert a detailed comment block into the document
        filext = strupper(FileExtension(wGetFileName()))  
        if filext=="WBT" || filext=="WIL" || filext=="MNU" || filext=="WEB" || filext=="MNW"  then cmt=";" ; Its WIL  
              else cmt="//"  
        s=""  
        ;if wGetSelState() then  
        s=wGetWord()  
        clipput ("%cmt%***************************************************************************%CR%")  
        clipappend("%cmt%** %s%%CR%")  
        clipappend("%cmt%** %CR%")  
        clipappend("%cmt%** %CR%")  
        clipappend("%cmt%** Inputs: %CR%")  
        clipappend("%cmt%** Outputs: %CR%")  
        clipappend("%cmt%** Preserves: %CR%")  
        clipappend("%cmt%** Corrupts: %CR%")  
        clipappend ("%cmt%***************************************************************************%CR%")  
        wgotocol(1) ;insert above current line  
        wstartsel()  
        wendsel()  
        wnewline()  
        wgotocol(1) ;insert above current line  
        wpaste()  
        wdownline()  
        wdownline()  
        wend()  
        drop(s,filext,cmt)  
;  
;Merge File header comment file from disk  
;  
;Header Block    \ ^!H  
;        wgotoline(1)  
;        wGotoCol(1)  
;        wFileMerge("header")  
  
;  
;Shells external process to produce fancy printout of a file  
;           
;Hardcopy        \ ^H  
;        n=wGetfilename()  
;        cmd="-o=10 -l,l %n% > lpt1"  
;        AskLine("Hardcopy","Enter hardcopy command:",cmd)  
;        wRunCommand("DOSPRMPT.PIF /c hcopy %cmd%",@FALSE,@FALSE)  
;        drop (n,cmd)  
  
 

  
Convert Line Endings  
 DOS to Unix  ; Replace CR/LF line endings with LF only
        fn = wGetFileName()  
        fs=Filesize(fn)  
        errormode(@off)  
        LastError()  
        bb=BinaryAlloc(fs)  
        errormode(@Cancel)  
        err=LastError()  
        if err!=0   
           message("File Too Large  Err %err%","Try a smaller file")  
           wFileOpen(fn)  
           exit  
        endif  
        BinaryRead(bb,fn)  
        oldname=strcat(FilePath(fn),FileRoot(fn),".BAK")  
        wWinClose ()  
        Mac=BinaryStrCnt(bb,0,fs-1,@LF)  
        If Mac==0  
           message ("No Linefeeds","This file can't be safely stripped")  
           wFileOpen(fn)  
           binaryfree(bb)  
           exit  
        endif  
        FileMove(fn,oldname,0) ; Make backup     
        if binarypeek(bb,0)==13 then binarypokestr(bb,0," ")  
        q=0  
        while 1  
            q=BinaryIndexEx(bb,q,@CR,@fwdscan,0)  
            if q== -1 then break  
            BinaryPokeStr(bb,q," ")  
        endwhile  
        BinaryWrite(bb,fn)  
        BinaryFree(bb)  
        wFileOpen(fn)  
   
    
 Unix to DOS  ; Replace LF line endings with CR/LF
        ;if isdefined(dest)  
        ;  if dest<>0 then binaryfree(dest)  
        ;endif  
        ;if isdefined(source)  
        ;  if source<>0 then binaryfree(source)  
        ;endif  
        fn = wGetFileName()  
        fs=Filesize(fn)+1  
        errormode(@off)  
        LastError()  
        source=BinaryAlloc(fs)  
        errormode(@cancel)  
        err=LastError()  
        if err!=0  
           message("File Too Large Err# %err%","Try a smaller file")  
           wFileOpen(fn)  
           exit  
        endif  
        BinaryRead(source,fn)  
        BinaryPoke(source,fs-1,10)  
        DestSize= fs+BinaryStrCnt(source,0,fs-1,@LF)-1  
        dest=BinaryAlloc(DestSize+1)  
        oldname=strcat(filepath(fn),FileRoot(fn),".BAK")  
        wWinClose ()  
        Smark=0  
        Dmark=0  
        while Smark<BinaryEODGet(source)
           offset=BinaryIndexEx(source,Smark,@LF,@fwdscan,0)  
           if offset== -1 then break  
           length=offset-Smark  
           BinaryCopy(dest,Dmark,source,Smark,length)  
           Smark=Smark+length+1  
           if BinaryPeek(source,offset-1)==13  then length=length-1  
           BinaryPokestr(dest,Dmark+length,@CRLF)  
           Dmark=Dmark+length+2  
        endwhile  
        filemove(fn,oldname,0)  
        BinaryWrite(dest,fn)  
        dest=binaryfree(dest)  
        source=BinaryFree(source)  
        wFileOpen(fn)  
   
; Open the file under the cursor or marked  
;  
Open highlighted file       ; Open selected file
        name = wGetWord()
        if name!=""
           if FilePath(name)==""
              usename=strcat(Filepath(wGetFileName()),name)
              usename=FileLocate(usename)
           else
              usename=FileLocate(name)
           endif
           if usename==""
                Message("Open selected file","Cannot find %name%")  
           else
                wFileOpen(usename)  
           endif
        endif  
        drop(name,usename)  
;  
          
;  
;Version Control for use with RCS  
;  
;&Version Control           ; RCS commands  
;   
;; Lock/get file (co -l)  \ ^!F  
;;        opt2="-l"  
;;        goto lgf2  
; Get file (co)          \ ^!O    
;        opt2=""  
;        :lgf2  
;        Where=StrSub(dirget(),1,strlen(dirget())-1)  
;        drv=StrSub(Where,1,2)  
;        b=wGetFileName()  
;        if b==1 then b=""  
;        if wGetSelState() then s=wGetWord()  
;           else s=b  
;        a = AskLine("RCS Checkout %opt2%", "Drive:  %drv%   Dir:  %Where% %CR% %CR%Enter file you want to lock:", s)  
;        ParseData(a)  
;        s=fileroot(param%param0%)  
;        if s==fileroot(b) then wWinClose()  
;           else if b!="" then if AskYesNo("%a% is not the active file.%CR% %CR%Close Files","Close all files before continuing?")==@YES then wWinCloseall()  
;  
;;OS/2 Version  
;;        wRunCommand("%drv% |cd %Where%|wetee co %opt2% %a%",@FALSE,@TRUE)  
;;        pause("OS/2 Bug","Tell the stupid OS/2 when the program is done!")  
;;DOS/WIN Version  
;        wRunCommand("%drv% |cd %Where%|wetee co %opt2% %a%",@TRUE,@TRUE)  
;        
;         Wfileopen(b)  
;        b=FileLocate(a)  
;        if b=="" then goto NotFound  
;          WFileOpen(b)  
;          goto DONE  
;        :NotFound  
;          Message("Sorry", "%a% not found...")  
;          goto Done  
;        :DONE  
;        Drop(a)  
;        Drop(b,Where,drv,s)  
;  
; Checkin file (ci)     \ ^!I  
;        Where=StrSub(dirget(),1,strlen(dirget())-1)  
;        drv=StrSub(Where,1,2)  
;        b=wGetFileName()  
;        if b==1 then b=""  
;        if wGetSelState() then s=wGetWord()  
;           else s=b  
;        a = AskLine("RCS Checkin (unlock)", "Drive:  %drv%   Dir:  %Where% %CR% %CR%Enter file you want to put back:",s )  
;        ParseData(a)  
;        s=fileroot(param%param0%)  
;        if s==fileroot(b) then wWinClose()   
;           else if AskYesNo("%a% is not the active file.%CR% %CR%Close Files","Close all files before continuing?")==@YES then wWinCloseall()  
;        wRunCommand("%drv% |cd %Where%|wetee ci %a%",@TRUE,@TRUE)  
;;(if OS/2)     pause("OS/2 Bug","Tell the stupid OS/2 when the program is done!")  
;        wfileopen(b) ; reopen original window  
;        Drop(a,Where,drv,b,s)  
;  
; Enter any command (clean)     \ ^!C  
;        Where=StrSub(dirget(),1,strlen(dirget())-1)  
;        drv=StrSub(Where,1,2)  
;        b=wGetFileName()  
;        if b==1 then b=""  
;        if wGetSelState() then s=wGetWord()  
;           else s=strcat("rcsclean ",b)  
;        a = AskLine("Any Command", "Drive:  %drv%   Dir:  %Where% %CR% %CR%Enter command:", s)  
;        ParseData(a)  
;        s=fileroot(param%param0%)  
;        if s==fileroot(b) then wWinClose()  
;           else if AskYesNo("Close Files","%S% is not the active file.%CR% %CR%Close all files before continuing?")==@YES then wWinCloseall()  
;        wRunCommand("%drv% |cd %Where%|%a%",@TRUE,@TRUE)  
;;if OS/2        pause("OS/2 Bug","Tell the stupid OS/2 when the program is done!")  
;        wfileopen(b)  
;        Drop(a,b,s,Where,drv)  
;  
;; &Logfile Info (locked)  
;;        a = AskLine("PVCS Logfile Command", "Drive:  %drv%   Dir:  %Where% %CR% %CR%Enter file for which you want logfile info:", "")  
;;        a=strcat("tee vlog -BL ",a)  
;;        wRunCommand(a,@TRUE,@TRUE)  
;;        Drop(a,Where,drv)  
;  
;; &Update all source files  
;;        wRunCommand("tee get -u *.??v",@TRUE,@TRUE)  
;  
;  
;&Version Control          ; PVCS commands  
; &Get a file (w/lock)  
;        a = AskLine("PVCS Get (w/lock) Command", "Enter file you want to lock:", "")  
;        b=strcat("tee get -L ",a)  
;        wRunCommand(b,@TRUE,@TRUE)  
;        Drop(b)  
;        b=FileLocate(a)  
;        if b=="" then goto NotFound  
;          WFileOpen(b)  
;          goto DONE  
;        :NotFound  
;          Message("???", "%a% not found...")  
;          goto Done  
;        :DONE  
;        Drop(a)  
;        Drop(b)  
;  
; &Put a file back (unlock)  
;        a = AskLine("PVCS Put (unlock) Command", "Enter file you want to put back:", "")  
;        a=strcat("tee put ",a)  
;        wRunCommand(a,@TRUE,@TRUE)  
;        Drop(a)  
;  
; &Enter any PVCS command  
;        a = AskLine("PVCS Command", "Enter PVCS command:", "")  
;        a=strcat("tee ",a)  
;        wRunCommand(a,@TRUE,@TRUE)  
;        Drop(a)  
;  
; &Logfile Info (locked)  
;        a = AskLine("PVCS Logfile Command", "Enter file for which you want logfile info:", "")  
;        a=strcat("tee vlog -BL ",a)  
;        wRunCommand(a,@TRUE,@TRUE)  
;        Drop(a)  
;  
; &Update all source files  
;        wRunCommand("tee get -u *.??v",@TRUE,@TRUE)  
;  
;;  
  
_Utilities      ;      Select from list of utilities  
 &Freespace on Local Drives   ; Display free disk space on drives  
  
        Drive=DiskScan(2)     ; 2 is the code for local hard drives  
        Dmax=strlen(Drive)  
        DIndex=1  
        TotalSize=0  
        DriveReport=""  
  
        :COUNTSPACE  
        NextDrive=StrSub(Drive,Dindex,1)  
        a=DiskFree(NextDrive)/1024  
        TotalSize=a+TotalSize  
        DriveReport=strcat(DriveReport,NextDrive," = ",a,"K","@")  
        DIndex=Dindex+3  ;each entry is 3 bytes long  
        if DIndex<=Dmax then goto COUNTSPACE  
        ItemSelect("Total Space Available = %TotalSize%K",DriveReport,"@")  
        Drop(xxx,TotalSize,DriveReport,NextDrive,LastDrive)  
   
 &Wallpaper                   ; Change the desktop wallpaper  
           DirChange(dirWindows(0))  
           a=FileItemize("*.BMP")  
           a=strcat("-None- ",a)  
           a=ItemSelect("Select New Wallpaper",a,@tab)  
           terminate(a=="","Wallpaper","No wallpaper selected")  
           if a=="-None-" then Wallpaper("",0)  
           if a=="-None-" then exit  
           tile=@FALSE  
           if FileSize(a)<40000 then tile=@TRUE    
           ;if bmp size less than 40K, assume tile, else center  
           Wallpaper(a,tile)  
           drop(a,b,tile)  
        exit  
  
 Paste Special Characters             ; Paste high ASCII characters to clipboard or document  
  Copy &FormFeed to Clipboard  
       Clipput(Num2char(12))  
  Copy &Special Characters to Document  
       a=" ¡| ¢| £| ¤| ¥| ¦| §| ¨| ©| ª|"       ;161 thru 170  
       b=" «| ¬| ­| ®| ¯| °| ±| ²| ³| ´|"       ;171 thru 180  
       c=" µ| ¶| ·| ¸| ¹| º| »| ¼| ½| ¾|"       ;181 thru 190  
       d=" ¿| À| Á| Â| Ã| Ä| Å| Æ| Ç| È|"       ;191 thru 200  
       e=" É| Ê| Ë| Ì| Í| Î| Ï| Ð| Ñ| Ò|"       ;201 thru 210  
       f=" Ó| Ô| Õ| Ö| ×| Ø| Ù| Ú| Û| Ü|"       ;211 thru 220  
       g=" Ý| Þ| ß| à| á| â| ã| ä| å| æ|"       ;221 thru 230  
       h=" ç| è| é| ê| ë| ì| í| î| ï| ð|"       ;231 thru 240  
       i=" ñ| ò| ó| ô| õ| ö| ÷| ø| ù| ú|"       ;241 thru 250  
       j=" û| ü| ý| þ| ÿ"                       ;251 thru 255  
       a=strcat(a,b,c,d,e,f,g,h,i,j)  
       Drop(b,c,d,e,f,g,h,i,j)  
       a=ItemSelect("Choose a character",a,"|")  
       a=strsub(a,2,1)  
       wInsString(a)  
       Drop(a)  
  Copy &Control Characters to Document  
       a=strcat(Num2Char(10),"|")
       b=strcat(Num2Char(11),"|")
       c=strcat(Num2Char(12),"|")
       d=strcat(Num2Char(13),"|")
       e=strcat(Num2Char(14),"|")
       f=strcat(Num2Char(15),"|")
       g=strcat(Num2Char(16),"|")
       h=strcat(Num2Char(17),"|")
       i=strcat(Num2Char(18),"|")
       j=strcat(Num2Char(19),"|")
       j=strcat(a,b,c,d,e,f,g,h,i,j)  
       Drop(b,c,d,e,f,g,h,i,j)  
       a=ItemSelect("Choose a character",a,"|")  
       a=strsub(a,2,1)  
       wInsString(a)  
       Drop(a)  
  
  
&System Information  
       wintype="retail"  
       if WinMetrics(22) then wintype="debug"  
        wcx=WinMetrics(-3)  
        math="Math"  
        switch wcx  
           case 0   ; Win16  
                wc=WinConfig()  
                if !(wc&1) then mode="Real"  
                if wc&16 then mode="Standard"  
                if wc&32 then mode="Enhanced"  
                  
                if wc&64 then cpu=8086  
                if wc&128 then cpu=80186  
                if wc&2 then cpu=286  
                if wc&4 then cpu=386  
                if wc&8 then cpu=486  
                mode = strcat(mode,' ',wintype,' Windows ')  
                if !(wc&1024)  then math="No math"  
                break  
          case 1 ; Win32 Intel  
               mode="Intel 32-bit %wintype% Windows "  
               cpu= ItemExtract(6,WinSysInfo(),@tab)  
               break  
          case 2 ; Dec Alpha  
               mode="DEC Alpha %wintype% Windows NT "  
               cpu= ItemExtract(6,WinSysInfo(),@tab)  
               break  
          case 3 ; MIPS  
               mode="MIPS %wintype% Windows NT "  
               cpu= ItemExtract(6,WinSysInfo(),@tab)  
               break  
          case 4 ; PowerPC   
               mode="PowerPC %wintype% Windows NT "  
               cpu= ItemExtract(6,WinSysInfo(),@tab)  
               break  
          case wcx  
               cpu= ItemExtract(6,WinSysInfo(),@tab)  
               mode="Unknown platform %wintype% Windows  "  
        endswitch  
  
        Sysinfo=strcat(cpu,' ',mode,WinVersion(1),'.',WinVersion(0),@CRLF)  
  
        mouse="No Mouse"  
        if WinMetrics(19) then mouse="Mouse"  
  
        Sysinfo=strcat(sysinfo,math," co-processor.   ",mouse,' available.',@CRLF)  
  
        sysinfo=strcat(sysinfo,WinMetrics(0),'x',WinMetrics(1)," video resolution.  ",WinMetrics(-1),"  colors.",@CRLF)  
  
        ErrorMode(@OFF)  
        LastError()  
        PlayMedia("Status WaveForm Ready")  
        ErrorMode(@CANCEL)  
        if LastError()!=1193 then sysinfo=strcat(sysinfo,"Windows multimedia extensions present.",@CRLF)  
        a=NetInfo(0)  
        if a=="MULTINET"  
             b=NetInfo(1)  
             bug=strcat(b,"network(s) installed")  
             ;Message("Multinet supporting  %count% networks", b)  
        else  
             ;Message("Installed Network", a)  
             bug=strcat(a," network installed")  
        endif  
        sysinfo=strcat(sysinfo,bug,@crlf)  
  
  
        switch wcx  
           case 0  
               bug=WinResources(0)/1024   ; Compute memory avail  
               math=strlen(bug)  
               if math>3 then bug=strcat(strsub(bug,1,math-3),',',strsub(bug,math-2,3))  
               sysinfo=strcat(sysinfo,CR,bug," KB Free Memory",CR)  
               sysinfo=strcat(sysinfo,WinResources(2),"%% System Resources Free (",WinResources(3),"%% GDI, ",WinResources(4),"%% User)",CR)  
              break  
           case wcx  
              bug=WinResources(11)/1024   ; Get Physical memory avail  
              sysinfo=strcat(sysinfo,CR,bug," KB Physical Memory",CR)  
              bug=(WinResources(14)/1024)+bug   ; Get Virtual memory + Physical avail  
              sysinfo=strcat(sysinfo,bug," KB Total Memory",CR)  
        end switch  
  
  
        sysinfo=strcat(sysinfo,"Console ",DosVersion(1),'.',DosVersion(0),"  using ",environment("COMSPEC"),@CRLF)  
        disks=DiskScan(1)  
        disks=StrReplace(disks,@tab," ")  
        if disks!="" then sysinfo=strcat(sysinfo,"Floppies ",disks,@CRLF)  
        disks=DiskScan(2)  
        disks=StrReplace(disks,@tab," ")  
        if disks!="" then sysinfo=strcat(sysinfo,"Hard Disks ",disks,@CRLF)  
        disks=DiskScan(4)  
        disks=StrReplace(disks,@tab," ")  
        if disks!="" then sysinfo=strcat(sysinfo,"Network Disks ",disks,@CRLF)  
        sysinfo=strcat(sysinfo,"Windows Directory ",DirWindows(0),@CRLF)  
        sysinfo=strcat(sysinfo,"System  Directory ",DirWindows(1),@CRLF)  
        sysinfo=strcat(sysinfo,@CRLF,"WIL Interpreter Ver ",VersionDll())  
  
        ver=Version()  
        Message("%Param2% %ver% SysInfo",Sysinfo)  
        Exit  
  
_Interactive Execution  ; Enter and run WIL commands directly
          if !IsDefined(uyit65) then uyit65="Message( , )"  
          :NEXT  
          uyit65=AskLine("Interactive Execution","Enter Command",uyit65)  
          execute %uyit65%  
          goto NEXT  
            
Run this WIL Script File   ; Runs the current file as a WIL Script  
         if wGetModified()==@TRUE then wFileSave()  
         TheFile = WGetFileName()  
         Call(TheFile,"")  

  
_How do I?...        ; Learn about using scripts  
 Use Menu Scripts          ; Menu file reference  
    helpfile = strcat(home,"System\Windows Interface Language.hlp")  
    WinHelp(helpFile, "PartialKey", "Menu Files")  
 Write WIL Scripts       ; WIL scripting language reference  
    helpfile = strcat(home,"System\Windows Interface Language.hlp")  
    WinHelp(helpFile, "PartialKey", "Tutorial")  
_Customize this menu...   ; Manage WinEdit Macro menu   
	     TheFile=strcat(DirHome(),"System\WINEDIT.MNU")  
        WFileOpen(TheFile)  
        Drop(TheFile)