"any)?" "Does String Have Any Length"
"Exec" % "string --> not-null"
`isnull) not`
newdef

"any?" "Check for Null and Remove if Null"
"Exec" % "string --> [ string ] if not null        string-not-null"
`null? not`
newdef

"App.!Bin" "Set the Current Working Bin"
"Exec" % "bin-path -->"
`dup !bin !App.Bin`
newdef

"App.!SubDims" "Store Location and Dimensions of Subform"
"Exec" % "perx pery perw perh subform-ordinal --> perx pery perw perh subform-ordinal"
`fifth catspc &5 catspc &4 catspc &3 second ^"Subf.Dim" !`
newdef

"App.Above" "Float Current Subform Above Another Subform"
"Exec" % "substrate-ordinal -->"
`subform exch App.Float !App.Floated`
newdef

"App.DimSub" "Dimension and Display SubForm"
"Exec" % "left top width height -->"
`App.Dim true App.Seen`
newdef

"App.PerSub" "Dimension Subform as Percentage of App Region"
"Exec" % "per-x per-y per-w per-h -->"
`perscreen App.DimSub`
newdef

"App.Shelled" "Float Current Subform Above Task Tree"
"Exec" % "-->"
`_tasker App.Above`
newdef

"App.Sub" "Start the Subform"
"Mep" % ""
`[ form-type ] if enable  enable   subform -->`
newdef

"App.SubDims" "Get Stored Subform Location and Dimension Coordinates"
"Exec" % "subform --> perx pery perw perh"
`^"Subf.Dim" _ execstr`
newdef

"App.SubDone" "Hide and Close Subform"
"Exec" % "-->"
`false App.Seen App.SubOff`
newdef

"appendfile" "Append File to Another"
"Exec" % "src-file dest-file -->"
`exch read exch append`
newdef

"atleft" "Compare String Characters at Left"
"Exec" % "str1 seek --> is-at-left"
`length swap2&3 left eq$`
newdef

"atleft(" "Compare String Characters at Left Keeping Source String"
"Exec" % "str1 seek -->str1      is-at-left"
`second exch atleft`
newdef

"aux1" "Engage Core Timer"
"Exec" % "exec-str time-ms -->"
`true 1 aux`
newdef

"aux2" "Engage Initial Span Timer"
"Exec" % "init-action time-ms -->"
`true 2 aux`
newdef

"aux3" "Time the Pop-Up Menu"
"Exec" % "pop-action time-ms -->"
`true 3 aux`
newdef

"aux4" "Stage the Next Action"
"Exec" % "action delay-ms -->"
`true 4 aux`
newdef

"aux5" "Standoff Timer"
"Exec" % "action-text ms -->"
`true 5 aux`
newdef

"base-" "Delete Base Referenced Node"
"Exec" % "base-ref -->"
`^"Base." run-`
newdef

"base!" "Merge Pad Into Base Referenced Node Children"
"Exec" % "base-ref -->"
`^"Base." run!`
newdef

"base(" "Base Run Tree Element Opener Without Attributes"
"Exec" % "--> base-prefix"
`'<Base> <'`
newdef

"base)" "Closing Base Run Tree Element"
"Exec" % "based-str -->"
`&'</Base>' gear`
newdef

"base/_" "Dance With With Base Ref Node After Removing Below"
"Exec" % "base-ref  pres-id -->"
`dup Tree./Below base_`
newdef

"base_" "Dance With Base Referenced Node"
"Exec" % "base-ref  pres-id -->"
`exch ^"Base." exch run_`
newdef

"base+" "Append Pad to Base Referenced Node"
"Exec" % "base-ref -->"
`^"Base." run+`
newdef

"binappend" "Append Data to File Within Bin Purview"
"Exec" % "data filename -->"
`ofbin append`
newdef

"bintext" "Modify File Root to Text File in Bin"
"Exec" % "file-root --> file-spec"
`text ofbin`
newdef

"brace" "Brace String"
"Exec" % "string --> braced-string"
`^"{" &"}"`
newdef

"bracket" "Bracket String"
"Exec" % "string --> bracketed-string"
`^"[" &"]"`
newdef

"branch" "Lineage Without Root"
"Exec" % "pres-id --> short-lineage"
`hier "\" Str.Right`
newdef

"browser" "Establish a New Browser"
"Exec" % "mep-name  mep-slot -->"
`this) "StdWeb" exch subformed hide`
newdef

"catcat" "Concatatenate Three Stack tems"
"Exec" % "item1 item2 item3 --> item1&item2&item3"
`concat concat`
newdef

"catpref" "Join Item with Third and Second Items"
"Exec" % "item1 item2 item3 --> item2&item3&item1"
`concat prefix`
newdef

"chain(" "Push Command to Chain Survey"
"Exec" % "chain-vec -->"
`vec Stack.=Chain Stack.(`
newdef

"charif" "Convert to Character if Numeric"
"Exec" % "string --> char-if-numeric"
`isnull not { dup numeric  {  char  } if } if`
newdef

"cls" "Add Xml Element Terminating Angle Bracket"
"Exec" % "xml --> adj-xml"
`&'> '`
newdef

"cls/" "Terminate Xml Header and Lead Into Matching Closure"
"Exec" % "xml --> adj-xml"
`&'> </'`
newdef
"cog" "Gear Step the Persistant Mep Xml File"
"Exec" % "Bin\list\ directory is the root folder derived from address ( a#b#c . . . #y#z ) of persistant mep (\a\b\c\ . . . \y\) end segment (z) represents the tree file z.tlt within ...\y\ folder First plan field in example is indicating the type of xml while the second refers to a Pep"
`oflist read gear `
newdef

"countdown" "Count Ordinal Downwards from Number"
"Exec" % "number -->  number -1 1"
`-1 1`
newdef

"countup" "Count Ordinal Up To Number"
"Exec" % "number -->  1 1 number"
`1 1 rot`
newdef

"cr" "Carriage Return"
"Exec" % "--> cr"
`empty catcr`
newdef

"dance" "Command Zpanel and Decode Return"
"Exec" % "param  verb ---> func-result"
`@Comm  "Adance" do entdec "<string>" 1 1 1 parse "</string>" 0 1 1 parse`
newdef

"dance)" "Command Zpanel Without Return"
"Exec" % "param  dance-verb -->"
`@Comm "Adance" do pop`
newdef

"Data.!Val" "Store Field Named Data from Set Into Global Value"
"Exec" % "val-name field-name data-set -->"
`Data._Field exch ^"_" !`
newdef

"Data.Records?" "Does Set Contain Data"
"Exec" % "dset --> data-in-set"
`Data.RecCount positive`
newdef

"Data.Working" "Standard Workspace for Database Activity"
"Exec" % "[ workspace-mode ] if enable workspace-enable -->  true opens standard workspace false closes it"
`{ "Privacy" _D.Work Data.WorkOpen } { _D.Work Data.WorkClose } ifelse`
newdef

"default" "Look in Default Vectors"
"Exec" % "[ . . . ] seed-found --> [ . . . ] found"
`"Default" look pop`
newdef

"delfiles" "Delete Files Specified"
"Exec" % "filespec -->"
`files { isnull ?  del } loop pop`
newdef

"desk" "Inform Desk of Top Level Message Event"
"Exec" % "cmd-mode -prop  build-str   proc --> build-str"
`^' proc="' '"' catcat exch token123 pull4th "prop" *attrplus "mode" *attrplus "cmd" *attrplus`
newdef

"do" "Perform Operation Within the Current Mep Hub"
"Exec" % "[ . . . ]  verb --> [ . . . ]"
`Mep.Do`
newdef

"dup2nd" "Duplicate Second Stack Item"
"Exec" % "item1  item2 -->  item1   item1    item2"
`second exch`
newdef

"eighth" "Copy Eighth Item From Stack"
"Exec" % "item8 item7 item6 item5 item4 item3 item2 item1 --> item8 item7 item6 item5 item4 item3 item2 item1 item7"
`7 index`
newdef

"eighth)" "Bring Eighth Item to Top of Stack"
"Exec" % "item8 item7 item6 item5 item4 item3 item2 item1 --> item7 item6 item5 item4 item3 item2 item1 item8"
`8 -1 roll`
newdef

"end(" "Push Exec to Closure Post"
"Exec" % "closure-exec -->"
`"Closure" Stack.Set Stack.Push`
newdef

"end)" "Push Exec to Closure Pre"
"Exec" % "closure-exec -->"
`"Closure" Stack.Set Stack.Bottom`
newdef

"Ent.(2&1" "Page Data Terms"
"Exec" % "term2 term1 -->"
`_Ent.ExitData term1&2 exch`
newdef

"Ent._" "Split Exit Data at First Term"
"Exec" % "-->  pre-term   post-term"
`_Ent.ExitData "_" slice`
newdef

"Ent._D" "Get Accepted String Past First Term"
"Exec" % "--> accept-params"
`Ent._ pop2nd`
newdef

"Ent._D1" "Get First Token of Accepted Params"
"Exec" % "--> param-token-1"
`Ent._D token1`
newdef

"Ent._D2" "Get Second Token of Accepted Params"
"Exec" % "--> param-token-2"
`Ent._D token2`
newdef

"Ent._E1" "Get First Token Of Accepted"
"Exec" % "--> first-part"
`_Ent.ExitData token1`
newdef

"Ent._E2" "Get Second Token Of Accepted"
"Exec" % "--> 2nd-part"
`_Ent.ExitData token2`
newdef

"Ent._E3" "Get Third Token Of Accepted"
"Exec" % "--> 3rd-part"
`_Ent.ExitData token3`
newdef

"Ent._E4" "Get Fourth Token Of Accepted"
"Exec" % "--> 4th-part"
`_Ent.ExitData token4`
newdef

"Ent._E5" "Get Fifth Token Of Accepted"
"Exec" % "-->5th-part"
`_Ent.ExitData token5`
newdef

"Ent._E6" "Get Sixth Token Of Accepted"
"Exec" % "--> 6th-part"
`_Ent.ExitData token6`
newdef

"Ent._E7" "Get Seventh Token Of Accepted"
"Exec" % "--> 7th-part"
`_Ent.ExitData token7`
newdef

"Ent._E8" "Get Eighth Token Of Accepted"
"Exec" % "--> 8th-part"
`_Ent.ExitData token8`
newdef

"Ent._E9" "Get Ninth Token Of Accepted"
"Exec" % "--> 9th-part"
`_Ent.ExitData token9`
newdef

"escat" "Escape String and Concatenate"
"Exec" % "url-str string --> append-url-str"
`escape &`
newdef

"escdquocat" "Concatenate Double Quote Escape-Sequence of String"
"Exec" % "build-str string -->build-and-dquoted-string"
`escdquoter &`
newdef

"escdquoter" "Double Quote Escape-Sequence of String"
"Exec" % "string --> dquoted-string"
`escape quoter`
newdef

"escquocat" "Concatenate Single Quote Escape-Sequence of String"
"Exec" % "build-str raw-str --> raw-str-and-escaped-quoted-str"
`escquoter &`
newdef

"escquoter" "Single Quote Escape-Sequence of String"
"Exec" % "raw-str --> escaped-quoted-str"
`escape squoter`
newdef

"exact$" "Exactly Equal Including Case"
"Exec" % "stra  strb -->  exactly-equal"
`false compare pop zero`
newdef

"exdup" "Exchange Top Two Items Duplicate New Top Item"
"Exec" % "item2 item1 --> item1 item2 item2"
`exch dup`
newdef

"exec" "Execute File Possibly Relative To App Dir"
"Exec" % "file-spec --> [ . . . ]"
`read execstr`
newdef

"extwrite" "Write File Data to New Extension"
"Exec" % "file-data  filename   extension -->"
`reextend write`
newdef

"fifth" "Get Fifth Stack Item"
"Exec" % " item5 item4 item3 item2 item1 -->item5 item4 item3 item2 item1 item5"
`4 index`
newdef

"fifth)" "Bring Fifth Item to Top of Stack"
"Exec" % "item5 item4 item3 item2 item1 --> item4 item3 item2 item1 item5"
`5 -1 roll`
newdef

"File.Copy(" "Copy the File Keeping the Destination Filename"
"Exec" % "source dest --> dest"
`to3rd copyfile`
newdef

"File.CopyOf" "Copy a File With New Extension"
"Exec" % "source dest new-ext -->"
`reextend copyfile`
newdef

"File.Count" "Count the Files that Match Filespec"
"Exec" % "wildcard-filespec --> count"
`0 exch filein { isnull) ? + 0 empty dir } loop`
newdef

"File.Final?" "Have the Files in Spec Run Out"
"Exec" % "file-seed  filespec --> file-seed        end-of-files"
`File.NextOf isnull`
newdef

"File.MakeNorm" "Make Normalized Directory and Force Existence"
"Exec" % "dir-to-make --> normalized-dir  directory to make has no backslash, the normalized does"
`dup mkdir normpath`
newdef

"File.NextDirOf" "Get Next Directory of Target Folder"
"Exec" % "dir-seed folder-path --> next-dir-of-folder  folder path must have ending backslash empty directory seed for first dir of folder"
`&"*" _vbDirectory exch rot dirmore`
newdef

"File.PrevDirOf" "Get Previous Directory of Target Folder"
"Exec" % "dir-seed folder-path --> next-dir-of-folder  folder path must have ending backslash empty directory seed for first dir of folder"
`&"*" _vbDirectory exch rot dirless`
newdef

"File.NextOf" "Get Next File Within Directory"
"Exec" % "prior-filename wildcard-spec --> next-filename  empty prior file root gets first in path empty file root out indicates no next file"
`_vbNormal swap1&3 dirmore`
newdef

"File.PrevOf" "Get Previous File Within Directory"
"Exec" % "prior-fileroot wildcard-spec --> prev-file  empty prior file root gets last in path empty file root out indicates no prev file"
`_vbNormal swap1&3 dirless`
newdef

"File.Retreat" "Retreat One Path Level"
"Exec" % "path --> retreated-path  assumed to be backslash at end of path"
`-1 right pathonly`
newdef

"File.Unpath" "Retreat the Terminating Backslash of Path"
"Exec" % "file-name --> path-no-backslash"
`pathonly -1 right`
newdef

"File.ValHand" "Determine the Validity of Returned C Style File Handle"
"Exec" % "file-handle --> [file-handle ] if valid   valid"
`dup -1 eq { pop2 false } { true } ifelse`
newdef

"filein" "First File in Directory"
"Exec" % "file-spec --> first-file  emtpy string if no files match"
`_vbNormal exch dir`
newdef

"files" "Get List of Files from Filespec"
"Exec" % "filespec --> empty [ . . . ]"
`empty exch "Reverse" File.List execstr`
newdef

"fourth" "Get Fourth Stack Item"
"Exec" % "item4 item3 item2 item1 -->item4 item3 item2 item1 item4"
`3 index`
newdef

"fourth)" "Bring Fourth Item to Top Of Stack"
"Exec" % "item4 item3 item2 item1 --> item3 item2 item1 item4"
`4 -1 roll`
newdef

"fromleft" "Trim From Left of String"
"Exec" % "str  count --> adj-str"
`dupnzis { minus left } if`
newdef

"fromright" "Trim From Right of String"
"Exec" % "str count --> adj-str"
`dupnzis { minus right } if`
newdef

"gear" "Merge Xml Directive into Default Zpanel Run Tree"
"Exec" % "patch-xml-string -->"
`^'<Patch> ' &'</Patch> ' gear()`
newdef

"gear()" "Merge Xml Directive into Default Zpanel Run Tree Inner"
"Exec" % "already-patch-xml-string -->"
`spin "JoinXml" dance) spin`
newdef

"get" "Get Operation From the Current Mep Hub"
"Exec" % "[ . . . ]  property --> [ . . . ]"
`Mep.Get`
newdef

"halfint" "Convert Half the Value to Integer"
"Exec" % "number --> half-number-int"
`2.0 div normint`
newdef

"Help.!" "Issue Javascript Directive to Help Form"
"Exec" % "js-cmd -->"
`Help.@Help Url.!`
newdef

"Help.!Dim" "Resize the Help Browser"
"Exec" % "help-x help-y help-w help-h -->"
`Help.@Help Url.BrowDim Help.Show`
newdef

"Help.!PageH" "Set the Horizontal Page Quadrant for Help Area"
"Exec" % "horiz-quadrant -->"
`Help.@Help normint _Help.Width mul dup _Help.Width add 100 add pixels "DimWidth" do pixels minus "DimLeft" do`
newdef

"Help.!PageV" "Set the Vertical Page Quadrant of Help Area"
"Exec" % "vert-quadrant -->"
`Help.@Help normint _Help.Height mul dup _Help.Height add 100 add pixels "DimHeight" do pixels minus "DimTop" do`
newdef

"Help.@Help" "Change Mep to the Current Help Form"
"Exec" % "-->"
`*helpform`
newdef

"Help.Hide" "Hide the Help Screen"
"Exec" % "-->"
`Help.@Help hide`
newdef

"Help.Normal" "Resize the Help Screen to Normal"
"Exec" % "-->"
`*helparea perscreen Help.!Dim`
newdef

"Help.Quadrant" "Shift Help Area to Page Quadrant"
"Exec" % "horz-quad  vert-quad -->"
`Help.!PageV Help.!PageH`
newdef

"Help.Show" "Show the Help Screen"
"Exec" % "-->"
`Help.@Help show`
newdef

"here" "Acting Directory"
"Exec" % "--> acting-dir"
`_here`
newdef

"hide" "Hide the Current Mep Form"
"Exec" % "-->"
`Mep.Hide`
newdef

"hier" "Tree Node Lineage String"
"Exec" % "pres-id --> lineage-string"
`"Fpath" get -1 left`
newdef

"hours" "Convert to Hours"
"Exec" % "hours --> seconds"
`60 mul minutes`
newdef

"incr=" "Increment to Next Alphabetic Vector"
"Exec" % "--> vector-incremented"
`_* incralph`
newdef

"incr2nd" "Increment Second Item on Stack"
"Exec" % "a b --> a+1 b"
`exch + exch`
newdef

"incr3rd" "Increment Third Item on Stack"
"Exec" % "a b c --> a+1 b c"
`rot + tuck`
newdef

"incralph" "Increment Alphabetically"
"Exec" % "letter-str --> next-letter-str  empty string provided causes capital A as next"
`dup -1 right exch ^"@" 1 right asc + char &`
newdef

"incrminus" "Increment and Invert Arithmetic"
"Exec" % "number --> -(number+1)"
`+ minus`
newdef

"incrpair" "Increment the Coordinate Pair of Stack Items"
"Exec" % "item1 item2 --> item1+1    item2+1"
`incr2nd +`
newdef

"inevent" "Inform in the Event Framework"
"Exec" % "--> informed"
`_event inform`
newdef

"inform" "Generic Dispatch of Form Type"
"Exec" % "action --> informed"
`subform Mep.BaseOf look `
newdef

"inproc" "Does File Exist Within Current Purview"
"Exec" % "filename --> filespec ( if found ) or filename (if not found)  found"
`dup ofbin exists { ofbin  true } { dup ofhere exists  {  ofhere   true  }  {  false  } ifelse } ifelse`
newdef

"jpeg" "Add Jpeg Extension"
"Exec" % "filename --> filename-jpeg"
`".jpg" reextend`
newdef

"last" "Get Last Item in Empty String Terminated List"
"Exec" % "empty [ . . . . . ] --> empty [ . . . . . ] list-count"
`0 { dup + index isnull) ?  + } loop`
newdef

"last)" "Pull Last Item in Empty Item Terminated List"
"Exec" % "empty [ . . . . . ] --> empty [ . . . . ]  last-item  the last item is pulled from the list an empty string return means the list is empty"
`last -1 roll`
newdef

"leftof" "Get String to Left of Token"
"Exec" % "orig-string pos-in-string --> left-part  pos is one-based"
`- left`
newdef

"length(" "Put Length of String Below String on Stack"
"Exec" % "string --> length      string"
`length exch`
newdef

"length)" "Length of String Consuming String"
"Exec" % "string --> length"
`length pop2nd`
newdef

"letcat" "Concatenate Capital Letter from Number"
"Exec" % "string number --> string+char-num  number is 1 to 26"
`letter &`
newdef

"letter" "Create Letter from Number"
"Exec" % "number --> capital-char  number usually  from 1 to 26"
`&H40 add char`
newdef

"listed" "Make Full File Spec of List Root Name"
"Exec" % "list-root --> filespec"
`&".tlt" oflist`
newdef

"localhost" "Prefix Localhost Url"
"Exec" % "lhost-url-suffix --> hosted-url"
`^"http://localhost/"`
newdef

"localport" "Prefix Localhost Url with Port"
"Exec" % "url-suffix  port --> local-ported-url"
`^"http://localhost:" &"/" ^`
newdef
"log()" "Display Top Stack Item With Label"
"Exec" % "top-item  label --> top-item"
`&2 logs`
newdef

/*
"%%%%logs" "Log Text to Application Log"
"Exec" % "log-text -->"
`_App.Logging { catcr  Time.Now Time.DateOrder &".log"  binappend } { pop } ifelse`
newdef
*/

"look" "Lookup in Proc File"
"Exec" % "lookup-item root-name --> [ results ] if item found  item-found"
`".txt" filer { lookin } { pop false } ifelse`
newdef

"look_" "Get Lookup Elements Locally"
"Exec" % "local-prefix --> [ items . . ]  item-count"
`".txt" filer { lookin_ } { 0 } ifelse`
newdef

"look=" "Lookup in Current Proc File"
"Exec" % "lookup-item -> [ results ] if item found  item-found"
`_* look`
newdef

"lookif" "Look Up Within Process Areas If File Exists"
"Exec" % "[ . . . ] proc-root --> [ . . . ]    (if result true)  result"
`".txt" filer { exec } { false } ifelse`
newdef

"lookin" "Lookup Within File Contents"
"Exec" % "lookup-item  filename --> [ results ] if item found  item-found"
`read lookstr`
newdef

"lookin_" "Get Elements of Lookup in File"
"Exec" % "lookup-file --> [ items . . ]  item-count"
`read lookstr_`
newdef

"lookstr)" "Lookup Without Checking Found"
"Exec" % "element-name exec-string --> [ items . . ] if found"
`lookstr pop`
newdef

"lookstr?" "Look for Subject and Add to Lookup If New"
"Exec" % "lookup-content lookup-subject --> [ items . . ] false /or/ adj-lookup-content true if new item false, items are only from 'found' lookup processes any spaces are converted to underlines"
`underspc dup keep( exch dup keep( lookstr not keep) keep) third { ^"|" catcr & exch } { pop2 } ifelse`
newdef

"lookstr_" "Get the Elements of the Lookup"
"Exec" % "lookup-content --> [ lookup1 lookup2 . . . ]  lookup-count"
`" empty ^<" catcr ^ catcr &">" catcr execstr`
newdef

"make" "Descend Tree Hierarchy Creating Nodes if Not Exist"
"Exec" % "hier-string  pres-node --> final-node"
`true exch "Seek" do pop2 pop2nd`
newdef

"Mep.!Above" "Set Parent of Pres Node"
"Mep" % ""
`parent child -->`
newdef

"Mep.!Value" "Set Value of Mep Object"
"Mep" % ""
`value -->`
newdef

"Mep._Above" "Get Parent Node of Given Node"
"Mep" % ""
`node-id --> parent-id`
newdef

"Mep._Below" "Get Last Child and Child Count"
"Mep" % ""
`parent-node --> last-child  child-count`
newdef

"Mep._Event" "Get Form of Mep Event"
"Exec" % "--> mep-form"
`_App.EvMep Mep.FormOf`
newdef

"Mep._First" "Get First Sibling of Pres Index"
"Mep" % ""
`pres-index --> first-sibling`
newdef

"Mep._Next" "Get Next Sibling Id"
"Mep" % " -1 result for no next sibling"
`pres-id --> next-sibling-id`
newdef

"Mep._Prev" "Get Previous Sibling Id"
"Mep" % " -1 result for no previous sibling"
`pres-id --> previous-sibling-id`
newdef

"Mep._Value" "Get Value from Mep Object"
"Mep" % ""
`--> value`
newdef

"Mep.Beginner" "Flag Start of a Clean Instance of the Named Mep Form"
"Exec" % "mep-ident -->"
`!@ -1 Mep.!Mep`
newdef

"Mep.Can" "Mep Event Trap"
"Exec" % "mep-event-str -->  event string is vector|exec"
`_@ "|^" catpref Mep.Decode`
newdef

"Mep.CanClick" "Establish Click Event"
"Exec" % "click-exec-string -->"
`^"Click|" Mep.Can`
newdef

"Mep.Clear" "Clear the Main Form Element"
"Mep" % ""
`-->`
newdef

"Mep.Closer" "End Mep Instance"
"Exec" % "-->"
`_@ dup Mep.End Mep./ pop`
newdef
"Mep.Dim" "Dimension the Main Form Element"
"Mep" % "dimension main form element"
`x y w h -->`
newdef

"Mep.DimForm" "Locate Browser Screen"
"Mep" % "dimension form"
`left top width height -->`
newdef

"Mep.DimWin" "Dimension the Primary Element of Form"
"Mep" % ""
`x y w h -->`
newdef

"Mep.Do" "Mep Do Method"
"Exec" % "mep-action -->"
`_@ "|" catpref Mep.Action`
newdef

"Mep.Event" "Invoke an Event from Mep"
"Exec" % "mep-action -->"
`_@ "|^" catpref Mep.Action`
newdef

"Mep.FocusWin" "Focus on Window of Current Mep"
"Exec" % "mep-slot -->"
`Mep._Hwnd Win.Focus`
newdef

"Mep.ForceTop" "Force Current Mep Form to Top"
"Exec" % "-->"
`Mep._FormHwnd Win.FocusTop `
newdef

"Mep.Get" "Mep Get Property"
"Exec" % "property name --> property value(s)"
`_@ "|_" catpref Mep.Action`
newdef

"Mep.Hide" "Hide Mep Form"
"Exec" % "-->"
`false "VisibleF" set`
newdef

"Mep.New" "Reserve and Identify New Mep Slot"
"Exec" % "--> new-slot-ident"
`-1 Mep.!Mep empty Mep._`
newdef

"Mep.NotTop" "Make Mep Form Not Topmost"
"Exec" % "-->"
`Mep._FormHwnd Win.NotTop`
newdef

"Mep.Remove" "Remove Tree Node"
"Mep" % ""
`pres-id -->`
newdef

"Mep.Set" "Mep Set Property"
"Exec" % "value property name -->"
`_@ "|!" catpref Mep.Action`
newdef

"Mep.Show" "Make Mep Form Visible"
"Exec" % "-->"
`true "VisibleF" set`
newdef

"Mep.Url" "New Browser Form"
"Exec" % "-->"
`"StdWeb" Mep.Start`
newdef

"Mep.Window" "Set Visibility of Main Form Element"
"Mep" % ""
`visible -->`
newdef

"milliseconds" "Convert to Milliseconds"
"Exec" % "msec --> seconds"
`1000.0 div`
newdef

"Mouse.Reset" "Reset Mouse Flags"
"Exec" % "-->"
`false !Mouse.Dir false !Mouse.Dclick false !Mouse.Click false !Mouse.Down false !Mouse.Context 0 !Mouse.Xits`
newdef

"navcore" "Navigate to Core Relative Url"
"Exec" % "navroot   x y w h    mep-slot -->"
`_@ exch navtocore`
newdef

"navcorefile" "Navigate Current Browser to Core Relative Url"
"Exec" % "core-file -->"
`ofcore navtofile`
newdef

"navfile" "Navigate to File"
"Exec" % "navroot   x y w h   mep-slot -->"
`_@ exch browser navsize ofcore navtofile`
newdef

"navhost" "Navigate to Localhost"
"Exec" % "navroot   x y w h    mep-slot -->"
`_@ exch navtohost`
newdef

"navhostport" "Navigate to Host Url with Port Address"
"Exec" % " hosted-file -->"
`"Status|Url.ExecStatus" Mep.Can ^"http://localhost" ">hostport> " log() 0 "_self" Url.Navigate true Mep.Window`
newdef

"navlocal" "Navigate to Host Url"
"Exec" % ""
`">host> " log() "Status|Url.ExecStatus" Mep.Can`
newdef

"navport" "Navigate to Localhost With Port"
"Exec" % "navroot   x y w h    mep-slot -->"
`_@ exch browser navsize "Status|Url.ExecStatus" Mep.Can ^"http://localhost" ">hostp> " log() 0 "_self" Url.Navigate true Mep.Window`
newdef

"navreset" "zzzReset Vectors for Navigation Browser"
"Exec" % "-->"
`_@ Mep./ pop`
newdef

"navsize" "Navigation Sizing"
"Exec" % "x y   w h -->"
`2 copy 6 2 roll App.DimSub 0 0 4 2 roll 4 copy Mep.DimWin exch 1.0 mul normint exch 1.0 mul normint "Dim" do`
newdef

"navtocore" "Navigate to Core Relative Url"
"Exec" % "navroot   x y w h   mep-name    mep-slot -->"
`browser navsize ofcore navtofile`
newdef

"navtofile" "Navigate to File System Url"
"Exec" % "nav-full-spec -->"
`false Mep.Window ">file> " log() "Status|Url.ExecStatus" Mep.Can ^"file://" 0 "_self" Url.Navigate`
newdef

"navtohost" "Navigate to Localhost"
"Exec" % "navroot   x y w h   mep-name    mep-slot -->"
`browser navsize navlocal`
newdef

"navtourl" "Navigate to Url"
"Exec" % "navroot -->"
`">url> " log() "Status|Url.ExecStatus" Mep.Can 0 "_self" Url.Navigate true Mep.Window`
newdef

"navurl" "Navigate to Url"
"Exec" % "navroot   x y w h    mep-slot -->"
`_@ exch browser navsize navtourl`
newdef

"neg(" "Test Number for Negative Leaving on Stack"
"Exec" % "number --> number       is-negative"
`dup negative`
newdef

"neg?" "Pass Through Value if Negative"
"Exec" % "number --> [ number ] if negative  negative"
`dup negative { true } { pop false } ifelse`
newdef

"negative" "Is Less Than Zero"
"Exec" % "number --> less-than-zero"
`0 lt`
newdef

"newchild" "Make New Child of Current Node to be New Current"
"Exec" % "node-name -->"
`_\ newnode !\`
newdef

"newcurnode" "Anchor a New Descendent Pres Tree Node"
"Exec" % "node-text parent-node --> new-node"
`newnode dup !\`
newdef

"newnode" "Add Pres Tree Node Yielding Id"
"Exec" % "node-text parent-node --> new-node"
`Tree.New(`
newdef

"ninth" "Copy Ninth Item From Stack"
"Exec" % "item9 item8 item7 item6 item5 item4 item3 item2 item1 --> item9 item8 item7 item6 item5 item4 item3 item2 item1 item9"
`8 index`
newdef

"ninth)" "Bring Ninth Item to Top of Stack"
"Exec" % "item9 item8 item7 item6 item5 item4 item3 item2 item1 --> item8 item7 item6 item5 item4 item3 item2 item1 item9"
`9 -1 roll`
newdef

"noevent" "Turn Off All Actions For Activity Group"
"Exec" % "action-root --> mep-tree-index"
`Mep./`
newdef

"none(" "Maintain Stack Item Tell Negative or Zero"
"Exec" % "number -->number      not-positive"
`pos( not`
newdef

"nonroot" "Current Node Non-Root"
"Exec" % "--> nonroot"
`_\ positive`
newdef

"nonzero" "Is Number Not Equal to Zero"
"Exec" % "number --> non-zero"
`0 ne`
newdef

"normpair" "Normalize Coordinate Pair to Long Integer"
"Exec" % "real1 real2 --> int1 int2"
`exch normint exch normint`
newdef

"normpath" "Normalize Path to Insure Trailing Backslash"
"Exec" % "any-path --> norm-path"
`&"\" "\\" "\" replall`
newdef

"normreal" "Convert to Real Number"
"Exec" % "number --> real-number"
`1.0 mul`
newdef

"nostack" "Clear Stack"
"Exec" % "[ obj1 . . . ] -->   Clear Stack"
`count popoff`
newdef

"null?" "Is String Empty Discarding Empty"
"Exec" % "string --> [ string ] if not null        string-null"
`isnull dup { pop2nd } if`
newdef

"ofapp" "Prefix Path of Application"
"Exec" % "filename --> pathed-filename"
`^_app`
newdef

"ofbin" "Prefix Bin Path"
"Exec" % "filename --> pathed-filename"
`bin ^`
newdef

"ofcore" "Prefix Filespec with Core Local Browser Path"
"Exec" % "file-spec --> core-pathed-spec"
`^"Core\" ofapp`
newdef

"ofdebug" "Prefix Debug Path"
"Exec" % "file --> debug-pathed-file"
`^"Debug\" ofbin`
newdef

"ofdesk" "Prefix Path of Global Desk Operating Resources"
"Exec" % "filename --> desk-spec"
`^"Desk\" ofbin`
newdef

"ofhost" "Prefix Native File Path of Localhost Server"
"Exec" % "filespec --> hosted-filespec"
`^_App.Hosting`
newdef

"oflist" "Prefix List Directory"
"Exec" % "filename --> pathed-name"
`^"list\" ofbin`
newdef

"ofpath" "Prefix Focus Path"
"Exec" % "filename --> pathed-filename"
`^_path`
newdef

"ofshort" "Prefix the Shortcut Directory to File"
"Exec" % "file-string --> pathed-file-string"
`^"Short\" ofbin`
newdef

"ordinal" "Get Ordinal Rank of Letter"
"Exec" % "letter --> ordinal-rank  the ordinal rank of A or a is 1"
`1 left upper asc &H40 sub 1 max 26 min`
newdef

"overwrite" "Rename and Force Overwrite File"
"Exec" % "srcfile destfile -->"
`dup del movefile`
newdef

"owner" "Vector to Owner"
"Exec" % "[ data for op ] owner-op --> [ data from op ]  owner-intercepted"
`false exch _owner look pop`
newdef

"owner()" "Change Mep to Originating Form"
"Exec" % "-->"
`owner(_) !@`
newdef

"owner(_)" "Get Name of Originating Mep Form"
"Exec" % "--> orig-mep"
`"Owners" Stack.Set Stack.()`
newdef

"owning" "Establish Owners Process"
"Exec" % "owner-id  prior-owner   exit-cmds -->"
`!Task.Request !Task.Prior !Task.Exiting *ownershp`
newdef

"Pack._Dense" "Extract the Core Identity Strings"
"Exec" % "file-name --> file-name  dense-version"
`dup 32 right -4 right dup 4 right exch -5 right dup 4 right exch -5 right dup 8 right exch -9 right ^ ^ ^ -4 right dup 5 left exch -6 left & dup 6 left exch -10 left & `
newdef

"pad!" "Set Pad With Xml String"
"Exec" % "xml-string -->"
`"SetXml" dance)`
newdef

"pad*" "Get Pad Dance Exec String"
"Exec" % "-->  dance-exec"
`"dance" "Spot" dance`
newdef

"pad@" "Set Pad to Node Relative Referenced From Pad"
"Exec" % "rel-ref -->"
`"Beam" dance)`
newdef

"pad=" "Set Pad With Absolute Run Referenced Node"
"Exec" % "abs-ref -->"
`"Shine" dance)`
newdef

"parens" "Parenthesize String"
"Exec" % "string --> parenthesized-string"
`^"(" &")"`
newdef

"percent" "Convert Percentage to Unit Terms"
"Exec" % "percentage --> unit-terms  unit terms is 1.0 for 100 percent"
`100.0 div`
newdef

"perform" "Perform File if it Exists"
"Exec" % "filename -->"
`dup File.Exist { exec } { pop } ifelse`
newdef

"permul" "Multiply Rect Percentages of Rect"
"Exec" % "rectx recty rectw recth perx pery perw perh -->"
`  pull4th 5 index mul 8 -1 roll add   pull4th 4 index mul 7 -1 roll add   pull4th 6 -1 roll mul   pull4th 5 -1 roll mul `
newdef

"perwin" "Region of Subform Percentage Coordinate Twips"
"Exec" % "per-x per-y per-w per-h --> twips-x twips-y twips-w twips-h (returns pixels now)"
`
subform App._Rect pop3rd pop3rd pull6th third mul
push6th pull5th second mul push5th exch pull4th mul tuck mul
`
newdef

"photon" "Prefix Photon Messaging Directory to Path"
"Exec" % "path-file --> photon-spec"
`^"Photon\" ofbin`
newdef

"phrase1" "First Segment of Dot Separated Phrases"
"Exec" % "string --> phrase-1"
`"." 0 1 1 parse`
newdef

"pi" "The Constant Pi"
"Exec" % "--> pi"
`3.14159265358979`
newdef

"pixels" "Convert Pixels to Twips"
"Exec" % "pixels --> twips"
`_TwipsPerPixel mul`
newdef

"pop1&3" "Remove First and Third Items"
"Exec" % ""
`pop pop2nd`
newdef

"pop2" "Pop Next Two Stack Items"
"Exec" % "item1 item2 -->"
`pop pop`
newdef

"pop2&3" "Remove the Second and Third Stack Items"
"Exec" % "item3 item2 item1 --> item1"
`tuck pop2`
newdef

"pop3" "Remove Top Three Items"
"Exec" % ". . . item0 item1 item2 item3 --> item0 . . ."
`3 popoff`
newdef

"pop3&4" "Remove the Third and Fourth Stack Items"
"Exec" % "item4 item3 item2 item1 --> item2 item1"
`pop3rd pop3rd`
newdef

"pop3rd" "Delete Third Stack Item"
"Exec" % "item1 item2 item3 --> item2    item3"
`rot pop`
newdef

"pop4" "Pop Top Four Items"
"Exec" % ". . . item1 item2 item3 item4 --> . . ."
`4 popoff`
newdef

"pop4th" "Pop Fourth Stack Item"
"Exec" % "item1 item2 item3 item4 --> item2    item3    item4"
`pull4th pop`
newdef

"pop5th" "Delete Fifth Stack Item"
"Exec" % "item1 item2 item3 item4 item5 --> item2    item3    item4    item5"
`pull5th pop`
newdef

"poplist" "Remove Stack Objects Thru Empty List Terminator"
"Exec" % "empty [ . . . ] -->"
`{ isnull) ? } loop`
newdef

"pos(" "Test If Number Positive"
"Exec" % "number --> number       is-positive"
`dup positive`
newdef

"pos?" "Pass Through Value for Positive"
"Exec" % "number --> [ number ] if positive  positive"
`dup positive { true } { pop false } ifelse`
newdef

"positive" "Greater Than Zero"
"Exec" % "number --> greater-than-zero"
`0 gt`
newdef

"procif" "Perform File if Exists in Purview"
"Exec" % "[ . . . items . . . ] filename --> [ . . . items . . . ]"
`inproc { exec } { pop } ifelse`
newdef

"pull4th" "Pull the Fourth Stack Item to the Top"
"Exec" % ""
`4 -1 roll`
newdef

"pull5th" "Pull the Fifth Stack Item to the Top"
"Exec" % ""
`5 -1 roll`
newdef

"pull6th" "Pull the Sixth Stack Item to the Top"
"Exec" % ""
`6 -1 roll`
newdef

"push4th" "Make Top Stack Item the Fourth Item"
"Exec" % ""
`4 1 roll`
newdef

"push5th" "Make Top Stack Item the Fifth Item"
"Exec" % ""
`5 1 roll`
newdef

"push6th" "Make Top Stack Item the Sixth Item"
"Exec" % ""
`6 1 roll`
newdef

"quocat" "Double Quote String and Concatenate"
"Exec" % "build-str string --> new-build-str"
`quoter &`
newdef

"quocatcr" "Quote String and Add Cr"
"Exec" % ""
`quoter catcr`
newdef

"quocatspc" "Quote String and Add Space"
"Exec" % "string --> quoted-spaced"
`quoter catspc`
newdef

"rebin" "Re-Extend and Prefix Path of Bin"
"Exec" % "file-root-model --> file-name"
`reextend ofbin`
newdef

"remove" "Remove String from String"
"Exec" % "string remove-string --> adj-string"
`empty replall`
newdef

"replall" "Replace All of Substring"
"Exec" % "subject-str replace with --> out-str"
`rot -1 replace pop`
newdef

"reselect" "Reselect Current Node With Tree Select Also"
"Exec" % "-->"
`selected selnode Tree.Select`
newdef

"restof" "Extract the Remaining String Past Token and Sep"
"Exec" % "str-with-token  token --> token   remaining-string"
`length incrminus swap2&3 left`
newdef

"retext" "Re-extend Filename to Text File"
"Exec" % "filename --> with-text-ext"
`".txt" reextend`
newdef

"revslice" "From End of  Split String at Token"
"Exec" % "src-string token --> left-part  right-part"
`reverse exch reverse exch slice reverse exch reverse`
newdef

"rightof" "Get the String to the Right of Token and Token"
"Exec" % "orig-string pos-in-string --> right-part  pos is one-based"
`- fromleft`
newdef

"root?" "Is Current Node the Root"
"Exec" % "--> is-root"
`_\ zero`
newdef

"rootlook" "Invoke Tree Root Vector Lookup"
"Exec" % "root-lookup -->"
`_event exch look pop`
newdef

"rootnode" "Establish Root Node as Current Reference"
"Exec" % "-->"
`0 !\`
newdef

"run-" "Delete Absolute Run Tree Referenced Node"
"Exec" % "abs-ref -->"
`"Chop" dance)`
newdef

"run!" "Merge Pad Into Absolute Referenced Node Children"
"Exec" % "abs-ref -->"
`"TackXml" dance)`
newdef

"run()" "Retain Mep and Dance"
"Exec" % "arg  verb -->"
`_@ tuck dance run)`
newdef

"run)" "Dance Within the Original Mep"
"Exec" % "prior-mep  dance-exec -->"
`this) dup execstr`
newdef

"run*" "Dance With Entire Run Tree"
"Exec" % "ent-ident   ent-page    pres-id -->"
`!\ !Ent.Page !Ent.Ident empty "DanceRun" run()`
newdef

"run/_" "Dance With With Abs Ref Node After Removing Below"
"Exec" % "abs-ref  pres-id -->"
`dup Tree./Below run_`
newdef

"run@" "Merge Pad Into Absolute Referenced Node Siblings"
"Exec" % "abs-ref -->"
`"MergeAbs" dance)`
newdef

"run_" "Dance With Absolute Referenced Node"
"Exec" % "abs-ref  pres-id -->"
`!\ this( pad= pad* run)`
newdef

"run+" "Append Pad to Absolute Run Tree Referenced Node"
"Exec" % "abs-ref -->"
`"Add" dance)`
newdef

"safecall" "Insure Safe Call"
"Exec" % "[ . . . ] call-root --> [ . . .]"
`any? { call } if`
newdef

"safexec" "Insure No Remaining Stack Items After Exec"
"Exec" % "[ objects . . .  ] app-command -->"
`execstr nostack`
newdef

"seek*" "Seek Named Tree Node Descend from Current Node"
"Exec" % "name --> [ node ] if exists   exists"
`false _\ "Seek" do pop2nd pop3rd not dup not { pop2nd } if`
newdef

"select" "Set the Current Task Selection Value"
"Exec" % "pres-id -->"
`.!Selected`
newdef

"select*" "Select Visually the Current Node"
"Exec" % "-->"
`_\ Task.!Select`
newdef

"select?" "Current Selection As Node and Indicate Existence"
"Exec" % "--> selection-exists"
`selected dup !\ whole`
newdef

"selected" "Get Selected Node from Current Task Tree"
"Exec" % "--> sel-node"
`._Selected`
newdef

"selnode" "Set Current Node and Selection"
"Exec" % "pres-id -->"
`dup select !\`
newdef

"send" "Format Body and Verb for Message Transmit"
"Exec" % "verb  body -->"
`escape ^"|" & "SendUtil" dance)`
newdef

"seq121" "Sequence Stack TOS First Second First Order"
"Exec" % "item-2 item-1 --> item-1 item-2 item-1"
`exch second`
newdef

"seq211" "Order Stack Items Second First First from TOS"
"Exec" % "item2 item1 --> item1 item1 item2"
`dup rot`
newdef

"set" "Set Operation From the Current Mep Hub"
"Exec" % "[ . . . ]  property -->"
`Mep.Set`
newdef

"seventh" "Copy Seventh Item From Stack"
"Exec" % "item7 item6 item5 item4 item3 item2 item1 --> item7 item6 item5 item4 item3 item2 item1 item7"
`6 index`
newdef

"seventh)" "Bring Seventh Item to Top of Stack"
"Exec" % "item7 item6 item5 item4 item3 item2 item1 --> item6 item5 item4 item3 item2 item1 item7"
`7 -1 roll`
newdef

"show" "Show the Current Mep Form"
"Exec" % "-->"
`Mep.Show`
newdef

"sixth" "Copy Sixth Item From Stack"
"Exec" % "item6 item5 item4 item3 item2 item1 --> item6 item5 item4 item3 item2 item1 item6"
`5 index`
newdef

"sixth)" "Bring Sixth Item to Top of Stack"
"Exec" % "item6 item5 item4 item3 item2 item1 --> item5 item4 item3 item2 item1 item6"
`6 -1 roll`
newdef

"slice?" "Is Remainder of Split Empty"
"Exec" % "src-string token --> left-part  has-right  is true if token found and right of token is not empty"
`slice any)?`
newdef

"spin" "Pre and Post Gear Spin"
"Exec" % "-->"
`false !Commed empty "Ticker" dance any? { logs  true !Commed } if`
newdef

"squocat" "Single Quote String and Concatenate"
"Exec" % "orig-string string --> orig-and-quoted-string"
`squoter &`
newdef

"squotesep" "Single Quote the String and Add Space"
"Exec" % "string --> single-quoted-str-and-spc"
`squoter catspc`
newdef

"Stack.!" "Send Null Terminated List to Stack"
"Exec" % "empty [ list-item1 . . . ] -->"
`{ isnull ?  Stack.Push } loop pop`
newdef

"Stack.!Fwd" "Move Items Into Stack Retaining Forward Order"
"Exec" % "[ . . . ] count -->"
`countup { pop  Stack.Bottom } for`
newdef

"Stack.!Rev" "Move Items Into Stack Reversing Order"
"Exec" % "[ . . . ] count -->"
`countup { pop  Stack.Push } for`
newdef

"Stack.(" "Push to Top of Current Stack"
"Exec" % "item -->"
`Stack.Push`
newdef

"Stack.()" "Get the Top Stack Item Without Removing"
"Exec" % "--> top-item"
`0 Stack.@Index`
newdef

"Stack.(End)" "End Temporary Stack"
"Exec" % "-->"
`Stack.End`
newdef

"Stack.(Start)" "Start a Temporary Stack"
"Exec" % "-->"
`empty Stack.Start pop`
newdef

"Stack.)" "Push to Bottom of Current Stack"
"Exec" % "item -->"
`Stack.Bottom`
newdef

"Stack.*" "Start Current Mep Forms Stack"
"Exec" % "-->"
`_@ Stack.Start pop`
newdef

"Stack./" "Remove Top Stack Item"
"Exec" % "-->"
`Stack.Pop pop`
newdef

"Stack.Any?" "Any Items in Stack"
"Exec" % "--> has-items"
`Stack.Count positive`
newdef

"Stack.Bottom" "Send New Stack Item to End of Stack"
"Exec" % "new-item -->  new item is at bottom of currently set stack"
`Stack.Push Stack.Count 1 Stack.Roll`
newdef

"Stack.Down" "Ordinal Stack Downwards Count"
"Exec" % "-->  stk-count -1 1"
`Stack.Count countdown`
newdef

"Stack.FwdList" "Create Text Exec of List Items Retaining Forward Order"
"Exec" % "--> forward-list"
`empty Stack.Up { pop  Stack.Pop quocatcr ^ } for`
newdef

"Stack.PopLast" "Pop the Last Item in Stack"
"Exec" % "--> last-item"
`Stack.Count -1 Stack.Roll Stack.Pop`
newdef

"Stack.RevList" "Create Text Exec of List Items Reversing Order"
"Exec" % "--> reverse-list"
`empty Stack.Up { pop  Stack.Pop quoter catcatcr } for`
newdef

"Stack.Start(" "Start a Temporary Stack Preserving Prior"
"Exec" % "-->  prior-stack"
`Stack.Get Stack.(Start)`
newdef

"Stack.Start)" "Start a Stack To Be Identified By Name"
"Exec" % "-->"
`Stack.Start pop`
newdef

"Stack.Up" "Ordinal Stack Upwards Count"
"Exec" % "--> 1 1 stk-count"
`Stack.Count countup`
newdef

"stepsdown" "Perform Index Controlled Recursive Step Downcount"
"Exec" % "[ . . . ]  count   step-vector -->"
`exch countdown { pop  0 rot  third call  pop2 } for pop`
newdef

"stepsup" "Perform Index Controlled Recursive Step Upcount"
"Exec" % "[ . . . ]  count   step-vector -->"
`exch countup { pop  0 rot  third call  pop2 } for pop`
newdef

"Str.&Cspec" "Add C Literal Style String Quoted"
"Exec" % "build-str  unspeced-str --> build&speced-str"
`Str.Cspec quocat`
newdef

"Str._Color" "Translate Hex Color String"
"Exec" % "color-string --> color-value"
`"#" 0 2 1 parse any? { pop2nd } if ^"0x" execstr`
newdef

"Str.CatValue" "Concatenate Quoted Value Definer"
"Exec" % "constructing-string value-name --> constructing-string"
`dup _ quotesep "!" catpref catcatcr `
newdef

"Str.Cfile" "Convert Normalized Path to C Acceptable"
"Exec" % "normal-path --> c-path"
`-1 right Str.Cspec`
newdef

"Str.Cspec" "Process String for C Literal Acceptance"
"Exec" % "unspeced-str --> speced-str"
`"\" "\\" replall`
newdef

"Str.DotParts" "Break Apart Dotted String"
"Exec" % "subject-string --> [ prefix        dotted-suffix ] if dot exists      [ subject-string ] if not exists     dot-exists"
`Str.Dotted { 2 copy left  tuck fromleft  true } { false } ifelse`
newdef

"Str.Dotted" "Check for Period Within String"
"Exec" % "subject-string --> subject-string      [ first-dot-position ] (only if dot exists)      dot-exists"
`"." within dupnzis`
newdef

"Str.EndDot" "Insure Single Period at End"
"Exec" % "string --> single-dot-ended"
`&"." ".." "." replall`
newdef

"Str.ExprFilter" "Modify Characters for Regular Expressions Use"
"Exec" % "unfiltered --> filtered  makes reserved characters 'quoted'"
` "\"  "\\" replall  "^"  "\^" replall  "$"  "\$" replall  "*"  "\*" replall  "+"  "\+" replall  "?"  "\?" replall  "."  "\." replall  "("  "\(" replall  ")"  "\)" replall  "{"  "\{" replall  "}"  "\}" replall  "["  "\[" replall  "]"  "\]" replall  "/"  "\/" replall  "_"  "\_" replall  "-"  "\-" replall  '"'  '\"' replall  "|"  "\|" replall `
newdef

"Str.Find" "Find One Occurrence of String Within Another"
"Exec" % "str-to-find string-searched --> pos-found  pos-found is zero if not found"
`1 find pop2nd`
newdef

"Str.Find?" "Find One Occurrence of String Within Another"
"Exec" % "str-to-find string-searched --> found"
`Str.Find positive`
newdef

"Str.FirstLine" "Extract First Line of Text String"
"Exec" % "string --> first-line  result has no cr or lf at end"
`0 line pop2&3`
newdef

"Str.Found" "Count String Matches Within Another"
"Exec" % "str-to-find searched-string --> occurrences"
`-1 find pop incrminus`
newdef

"Str.IncrSerA" "Increment Alternating Starting Digit Serial Number"
"Exec" % "start-serial-string --> next-serial-string"
`length -2 2 { 2 copy 1 mid asc +  true push4th  dup  <  |90   pop   2 copy   2 copy - 1 mid + dup 9 gt   {   pop    pull5th not push5th    2   } if   exch - exch Str.Replant   pop3rd exch   65  |73 pop 75  |74 pop 75  |77 pop 78  |79 pop 80  |81 pop 82  |87 pop 88  > pop  char Str.Replant  exch ? } for`
newdef

"Str.IncrSerB" "Increment Alternating Starting Letter Serial Number"
"Exec" % "start-serial-string --> next-serial-string"
`length -2 2 { 2 copy 1 mid + dup 9 gt  true push5th  {  pop   2 copy   2 copy - 1 mid asc +   dup   <   |90    pop    pull5th not push5th    65   |73 pop 75   |74 pop 75   |77 pop 78   |79 pop 80   |81 pop 82   |87 pop 88   > pop   char   exch - exch Str.Replant   pop3rd exch   2  } if  Str.Replant  exch ? } for`
newdef

"Str.IncrSern" "Increment Alternating Alpha-Digit Serial Number"
"Exec" % "start-serial-string --> next-serial-string"
`length 1 and nonzero { dup 1 left asc &H39 gt  {  ^"9" Str.IncrSerA -1 left  }  {  ^"A" Str.IncrSerB -1 left  } ifelse } { dup 1 left asc &H39 gt  {  Str.IncrSerB  }  {  Str.IncrSerA  } ifelse } ifelse`
newdef

"Str.InParen" "Extract String from Parentheses"
"Exec" % "str-to-parse --> text-in-parens  the first character of string is assumed to be the open parenthesis"
`-1 left ")" 0 1 1 parse`
newdef

"Str.Left" "Split String Use Left Part"
"Exec" % "src-string token --> left-of-token"
`slice pop`
newdef

"Str.LineSeps" "Replace Line Feed and Cr With String"
"Exec" % "subject-str replacer --> adj-subj-str"
`exch 0x0D char 0x0A char & dup dup & exch replall 0x0D char 0x0A char & third replall 0x0A char 0x0D char & dup dup & exch replall 0x0A char 0x0D char & third replall 0x0D char third replall 0x0A char third replall pop2nd`
newdef

"Str.ListFwd" "Create Exec String with Items Including Count"
"Exec" % "[ item . . ] count --> items-exec-with-count"
`empty 1 1 fourth { pop rot quocatcr ^ } for ^ catcr`
newdef

"Str.Look((" "Start a Lookup Gathering File"
"Exec" % "lookup-filename --> lookup-filename  lookup-content"
`dup read`
newdef

"Str.Look))" "Close a Lookup Gathering Set"
"Exec" % "lookup-filename lookup-content -->"
`exch write`
newdef

"Str.Minimal" "Collapse String Into Single Line and Trim"
"Exec" % "text-para --> text-line"
`Str.NoLines trim`
newdef

"Str.NextIf" "Build Next Value If Not Null"
"Exec" % "building-string value-name --> building-string-appended"
`dup ^" !" catcr exch _ isnull { pop2 } { quoter ^ & } ifelse`
newdef

"Str.NextLook" "Attach Next Lookup Field"
"Exec" % "[ other list data ] list-data list list-item-name --> updated-list  list entries are compiled in reverse order with the nearest item in stack at the bottom of the list"
`^"|" catspc rot quoter catcatcr ^`
newdef

"Str.NoExt" "Truncate the Extension From Filename"
"Exec" % "filename --> unextended-filename"
`empty reextend`
newdef

"Str.NoLines" "Remove Line Marking Characters in String"
"Exec" % "string --> unlined-string"
`10 char " " replall 13 char " " replall`
newdef

"Str.Normal" "Normalize String to Single Interior Spaces"
"Exec" % "str-unfiltered --> str-normalized"
`Str.NoLines Str.NormSpc trim`
newdef

"Str.NormSpc" "Reduce All Space Gaps to Single Space"
"Exec" % "str-spaced --> str-norm"
`{ "  " within zero ?  "  " " " replall } loop`
newdef

"Str.NoSpaces" "Insure No Spaces"
"Exec" % "str-to-check --> result-str"
`" " "_" replall`
newdef

"Str.PersName" "Combine Name Parts into Full Personal Name"
"Exec" % "first middle last --> syntax-correct-name"
`exch isnull { pop " " } { ^" " catspc } ifelse ^ &`
newdef

"Str.PostDig" "Get Digits from End"
"Exec" % "get-from --> end-number"
`empty exch { isnull ?  dup 1 right dup numeric exch "." eq$ or  {  seq121 1 right ^ exch -1 right   false  }  {  true  } ifelse  ? } loop pop`
newdef

"Str.PostUnDig" "Remove Digits From End of String"
"Exec" % "subject-str --> unpost-digits-string"
`{ isnull ?  dup 1 right dup numeric exch "." eq$ or  {  -1 right   false  }  {  true  } ifelse  ? } loop`
newdef

"Str.Raw(4)" "Make Exec String of Top Four Stack Items, No Quotes"
"Exec" % "item1 item2 item3 item4 --> tem1 item2 item3 item4       items-spaced"
`fourth catspc &4 catspc &3 catspc &2`
newdef

"Str.Replant" "Replace Indexed Character of Serial String"
"Exec" % " serial-string index new-nth-digit --> new-serial-string"
`third third - dupnzis { left } { pop empty } ifelse ^ tuck exch length rot sub dupnzis { right & } { pop } ifelse`
newdef

"Str.RevLeft" "Split String from End Use Left Part"
"Exec" % "src-string  search-token --> left-part"
`exch reverse exch reverse Str.Right reverse`
newdef

"Str.RevRight" "Split String from End Use Right Part"
"Exec" % "src-string  search-token --> right-part"
`exch reverse exch reverse Str.Left reverse`
newdef

"Str.Right" "Split String Use Right Part"
"Exec" % "src-string token --> right-of-token"
`slice pop2nd`
newdef

"Str.Under" "Force Hyphens to Underline"
"Exec" % "hyphen-str --> under-str"
`"-" "_" replall`
newdef

"Str.UnSpace" "Delete Spaces From String"
"Exec" % "string --> unspaced-string"
`" " remove`
newdef

"Str.Version" "Create Version String from Decimal Paired Digits"
"Exec" % "nnnnnn --> v.v.v  max value of nn pair is 35 v is the base 36 representation of nn"
`dup 2 left 36 base &"." second 3 2 mid 36 base & &"." exch 5 2 mid 36 base &`
newdef

"Str.ZeroNon" "Substitute Zero if Not Numeric"
"Exec" % "string --> zero or number"
`dup numeric not { pop 0 } if`
newdef

"subfocus" "Focus on Subform Window"
"Exec" % "-->"
`subform Mep.FocusWin`
newdef

"subform" "Mep Subform Table Index of Current Mep"
"Exec" % "--> subform-index"
`_@ Mep._`
newdef

"subform?" "Active Subform Existence"
"Exec" % "--> subform-exists"
`subform positive`
newdef

"subformed" "Start a New Subformed Mep Slot"
"Exec" % "form-type  mep-slot -->"
`Mep.!Mep App.SubOn`
newdef

"swap1&3" "Exchange the First and Third Stack Items from TOS"
"Exec" % "item3 item2 item1 -->   item1 item2 item3"
`exch rot`
newdef

"swap2&3" "Exchange the Second and Third Stack Items from TOS"
"Exec" % "item3 item2 item1 -->   item2 item3 item1"
`rot exch`
newdef

"System.AndNoTrap" "Qualify No Trap Occurred"
"Exec" % "logic-flag --> qualified-logic-flag"
`System.Trapped not and`
newdef

"System.Arch" "Set Files Archive Flag"
"Exec" % "filename arch-flag -->"
`second System._Attr exch { _vbArchive or } { _vbArchive -1 xor and } ifelse exch System.!Attr`
newdef

"System.ChainFocus" "Chain to App with Focus"
"Exec" % "command-line -->"
`*runsnorm exit`
newdef

"System.EmptyDir" "Delete all Files in Directory"
"Exec" % "dir-to-empty -->  directory must have backslash"
`&"*.*" delfiles`
newdef

"System.FileTimes" "Get Time/Date of File"
"Exec" % "filename --> modified accessed created"
`File.Ftimes`
newdef

"System.Protect(" "Remember the Entry Tick"
"Exec" % "--> current-tick"
`_tick dup !Xper.Memory dup 1 gt { dup !Xper.Nz } if`
newdef

"System.Protect)" "Next Timer Tick and Protect Object Stack"
"Exec" % "[ any ] --> [ any ]  reports if any object exists on stack after timing step"
`tick count nonzero { _Xper.Memory ^"Tick(" &")("  _tick & &"[" &2 &"]" logs } if`
newdef

"System.RunFocus" "Run with Normal Focus"
"Exec" % "full-cmd-line -->"
`_vbNormalFocus System.Shell pop`
newdef

"System.RunSmall" "Run Minimized Without Focus"
"Exec" % "cmd-line -->"
`_vbMinimizedNoFocus System.Shell pop`
newdef

"System.Screen" "Full Screen of System"
"Exec" % "--> x y w h  in pixels"
`0.0 0.0 1.0 1.0 perscreen`
newdef

"System.SendEnter" "Send Enter Key"
"Exec" % "-->"
`"~" false System.SendKeys`
newdef

"System.TrapOff" "Disable Error Trapping"
"Exec" % "stop trapping global errors"
`empty valve`
newdef

"System.TrapOn" "Enable Trapping of Global Errors"
"Exec" % "-->  clear the global error trap indicate no trap use a blank to cause error valving to use of 'global' verb"
`global { pop2 } if 0 !Trap.Number " " valve 0 !Trap.Number empty !Trap.Desc empty !Trap.Text`
newdef

"System.Trapped" "Pass Through If No Trap Occurred"
"Exec" % "--> error-trapped  true if trapped system error has occurred"
`global dupnz { _Trap.Show  {  "Error " second catcatspc   &4 third Dialog.Message  } if  !Trap.Number  !Trap.Desc  !Trap.Text } if _Trap.Number nonzero`
newdef

"System.Trapping" "Establish Error Report Silently"
"Exec" % "-->"
`global dupnz { !Trap.Number  !Trap.Desc  !Trap.Text } if`
newdef

"System.TrapText" "Condense the Trappable Error Description"
"Exec" % "--> error-text"
`_Trap.Number &" flagged, " _Trap.Text catcatcr _Trap.Desc catcatcr`
newdef

"System.Values" "Get Values from Prefix Matching Numeric"
"Exec" % "empty [. . anything . . ] num-value val-prefix --> named-val"
`true true pull4th values isnull not { {  exch isnull ?   pop2nd  } loop  pop } if`
newdef

"Task.!Sel" "Set Task Tree Selected Node"
"Exec" % "pres-index -->  does not visibly select the tree node"
`Task.@ selnode`
newdef

"Task.!Select" "Select the Task Tree Node Visibly"
"Exec" % "pres-id -->"
`Task.() Task.!Sel Tree.Select Task.)(`
newdef

"Task.()" "Disable Current Task Tree"
"Exec" % "-->"
`Task.@ Tree.Off`
newdef

"Task.)(" "Enable the Task Tree"
"Exec" % "-->"
`Task.@ Tree.On`
newdef

"Task.*Quiet" "Ownership Return Quietly"
"Exec" % "-->"
`*taskquet`
newdef

"Task.*Return" "Ownership Return"
"Exec" % "-->"
`*taskrtrn`
newdef

"Task.*Stay" "Stay at the Current Task Ownership Level"
"Exec" % "-->"
`*taskstay`
newdef

"Task.@" "Focus on the Task Tree"
"Exec" % "-->"
`_owner !@`
newdef

"Task.@Child" "Extend the Current Task Name to Child Name"
"Exec" % "child-tree --> pep-name"
`_@ &"#" ^`
newdef

"Task.@CmdArg" "Separate Command and Arguments of Entry Data"
"Exec" % "-->  cmd   args"
`Task.@Sel _Ent.ExitData "|" slice unescape`
newdef

"Task.@Page" "Task Page Operation Intro"
"Exec" % "page-and-op --> op"
`Task.@Sel dup term1 !Ent.Page term2`
newdef

"Task.@Root" "Select the Root Node of Task"
"Exec" % "-->"
`Task.@ rootnode select*`
newdef

"Task.@Save" "Save the Current Task Tree to Owner"
"Exec" % "-->"
`*tasksave`
newdef

"Task.@Sel" "Focus on Task Current Selected Node"
"Exec" % "-->"
`Task.@ selected !\`
newdef

"Task.@Sel(" "Focus on Task Current Selected Node Leave on Stack"
"Exec" % "--> selected"
`Task.@Sel _\`
newdef

"Task.@Sel?" "Focus on Task Current Selected Node Check Valid"
"Exec" % "-->  cursel-exists"
`Task.@Sel _\ whole`
newdef

"Task.Hide" "Hide the Task Operation Panel"
"Exec" % "-->"
`Task.@ hide`
newdef

"Task.Ops(" "Work with Task Form Preserving Current Mep"
"Exec" % "--> prior-mep"
`_@ Task.@`
newdef

"Task.Ops)" "Restore Prior Mep After Task Form Operations"
"Exec" % "prior-mep -->"
`"tops) " log() !@`
newdef

"Task.Save" "Save Task Tree to List Area"
"Exec" % "task-ident -->"
`oflist Tree.Save pop`
newdef

"Task.Show" "Show the Task Window"
"Exec" % "-->"
`Task.@ show`
newdef

"Task.Survey" "Push or Pull a Server to the Survey"
"Exec" % "survey-flag server-name -->  true for survey flag is push server action"
`*tasksurv`
newdef

"tenth" "Copy Tenth Item From Stack"
"Exec" % ""
`9 index`
newdef

"tenth)" "Bring Tenth Item to Top of Stack"
"Exec" % "item10 item9 item8 item7 item6 item5 item4 item3 item2 item1 --> item9 item8 item7 item6 item5 item4 item3 item2 item1 item10"
`10 -1 roll`
newdef

"term1" "Extract First Underline Term"
"Exec" % "under-sep-phrase --> term1"
`"_" 0 1 1 parse`
newdef

"term1&2" "Extract Underlined Term 1 and 2"
"Exec" % "under-sep-phrase --> term1       term2"
`"_" 0 2 1 parse`
newdef

"term2" "Extract Second Underline Term"
"Exec" % "under-sep-phrase --> term2"
`"_" 1 1 1 parse`
newdef

"term3" "Extract Third Underline Term"
"Exec" % "under-sep-phrase --> term3"
`"_" 2 1 1 parse`
newdef

"term4" "Extract Fourth Underline Term"
"Exec" % "under-sep-phrase --> term4"
`"_" 3 1 1 parse`
newdef

"term5" "Extract Fifth Underline Term"
"Exec" % "under-sep-phrase --> term5"
`"_" 4 1 1 parse`
newdef

"term6" "Extract Sixth Underline Term"
"Exec" % "under-sep-phrase --> term6"
`"_" 5 1 1 parse`
newdef

"text" "Add Text File Extension"
"Exec" % "path-file --> path-file-txt"
`&".txt"`
newdef

"textcat" "Add Text Extension and Concatenate"
"Exec" % "file-build  file-part --> build&part.txt"
`text &`
newdef

"this(" "Retain Current Mep To Second Stack item"
"Exec" % "item -->  mep-name   item"
`_@ exch`
newdef

"this)" "Restore Original Mep From Second Stack Item"
"Exec" % "mep-name  item -->  item"
`exch !@`
newdef

"tick" "Next Clock Tick Process"
"Exec" % "[ interval ] if detected detected -->  nondetect or 0 interval on exit causes backhome negative interval causes no re-timing"
`{ dupnzis  {  pos? { tickagain } if  }  {  *backhome  } ifelse } { stop  *backhome } ifelse`
newdef

"tickagain" "Next Timer Tick"
"Exec" % "tick-ms -->"
`"*timetrak" exch aux1`
newdef

"tickbelow" "Exit Lookup if Tick Below Floor Value"
"Exec" % "tick-floor tick-file --> [ lookup-result  ] if exit-cycle true      exit-cycle"
`_ticker exch !ticker exch _tick gt { _tick exch lookin  true } { pop  false } ifelse`
newdef

"Time.!Code" "Encode the Time Supplied as MM TimeCode"
"Exec" % "time-secs --> time-code"
`empty exch dup 3600.0 div int seq121 2 prezero & &":" exch 3600.0 mul rot from dup 60.0 div int seq121 2 prezero & &":" exch 60.0 mul rot from dup int seq121 2 prezero & &"." swap1&3 from &`
newdef

"Time._Code" "Extract Time from MM TimeCode"
"Exec" % "time-code -->hours    minutes    seconds"
`":" 0 3 1 parse isnull { pop  isnull  {  pop   isnull   {   pop    0 0 0   }   {   0 tuck    0 tuck   } ifelse  }  {  0 tuck  } ifelse } { } ifelse`
newdef

"Time._Seconds" "Evaluate Seconds from Time Code"
"Exec" % "time-code --> seconds"
`Time._Code rot 3600 mul add exch 60 mul add`
newdef

"Time.DateForm" "Format the Date"
"Exec" % "time-date-str --> formed-date   format is yyyy/mm/dd with leading zeros"
`Time.Datels pop 2 prezero ^"/" & 5 prezero ^"/" &`
newdef

"Time.DateOf" "Create Formatted Date from Date-Time"
"Exec" % "date-time --> formatted-date  mm/dd/yyyy"
`Time.Datels pop exch "/" catpref exch 2 right exch "/" catpref`
newdef

"Time.DateOrder" "Create Date Ascending Alpha Order String"
"Exec" % "time-date-str --> date-ordered-string  form is yyyymmdd result"
`Time.Datels pop 2 prezero & 4 prezero &`
newdef

"Time.Drop" "Files Dropped During Run"
"Exec" % "drop-str -->"
`"drop " log() !Ent.Dropped`
newdef

"Time.FileDiff" "Compare the Difference in Time Between Files"
"Exec" % "filename1   filename2 --> file1-newer"
`second exists { System.FileTimes pop2  second exists  {  exch System.FileTimes pop2   "s" Time.Diff negative  }  {  pop2 true  } ifelse } { pop2 true } ifelse`
newdef

"Time.Formed" "Format Time/Date"
"Exec" % "time-date-str --> formed-date-time  yyyy/mm/dd hh:mm:ss"
`dup Time.DateForm &" " exch Time.TimeForm &`
newdef

"Time.FullOrder" "Create Underline Separated Time and Date Order String"
"Exec" % "time-date --> ordered-string"
`dup Time.DateOrder exch Time.TimeOrder ^"_" & ^"_"`
newdef

"Time.MinuteOrder" "To the Minute Ordered String"
"Exec" % "time-date --> ordered-time-string  yyyymmdd_hhmm format"
`dup Time.DateOrder &"_" exch Time.TimeOrder -2 right &`
newdef

"Time.TimeForm" "Format the Time"
"Exec" % "time-date-str --> formed-time"
`Time.Timels 2 prezero ^":" & 5 prezero ^":" & 8 prezero`
newdef

"Time.TimeOf" "Get Formatted Time from Time-Date"
"Exec" % "time-date --> formatted-time  format is hh:mm am or hh:mm pm"
`Time.Timels pop second 12 gt { exch 12 sub dup zero { pop 12 } if  exch 2 prezero ^":" &  &" pm" } { exdup zero { pop 12 } if  exch 2 prezero ^":" &  &" am" } ifelse`
newdef

"Time.TimeOrder" "Create Time Ascending Alpha Order String"
"Exec" % "time-date-str --> time-ordered-string  form is hhmmss  result  where hh is military time format"
`Time.Timels 2 prezero & 4 prezero & 6 prezero`
newdef

"to3rd" "Copy the Top Stack Item to the Third"
"Exec" % "item1 item2 --> item2  item1  item2"
`dup tuck`
newdef

"token1" "Extract First Token"
"Exec" % "tokenized-str --> token1"
`"|" 0 1 1 parse`
newdef

"token1&2" "Extract First and Second Tokens"
"Exec" % "tokenized-str --> token1   token2"
`"|" 0 2 1 parse`
newdef

"token123" "Extract Initial Three Tokens"
"Exec" % "tokenized-str --> token1   token2  token3"
`"|" 0 3 1 parse`
newdef

"token2" "Extract Second Token"
"Exec" % "tokenized-str --> token2"
`"|" 1 1 1 parse`
newdef

"token3" "Extract Third Token"
"Exec" % "tokenized-str --> token3"
`"|" 2 1 1 parse`
newdef

"token4" "Extract Fourth Token"
"Exec" % "tokenized-str --> token4"
`"|" 3 1 1 parse`
newdef

"token5" "Extract Fifth Token"
"Exec" % "tokenized-str --> token5"
`"|" 4 1 1 parse`
newdef

"token6" "Extract Sixth Token"
"Exec" % "tokenized-str --> token6"
`"|" 5 1 1 parse`
newdef

"token7" "Extract Seventh Token"
"Exec" % "tokenized-str --> token7"
`"|" 6 1 1 parse`
newdef

"token8" "Extract Eighth Token"
"Exec" % "tokenized-str --> token8"
`"|" 7 1 1 parse`
newdef

"token9" "Extract Ninth Token"
"Exec" % "tokenized-str --> token9"
`"|" 8 1 1 parse`
newdef

"tokring" "Add or Overwrite Token List Variable"
"Exec" % "token-data  varname --> token-data  varname"
`{ dup _ &"|" rot & & } if`
newdef

"Tree.!!" "Store List of Value-Pairs into Current Node"
"Exec" % "count [  val-1   name-1   . . . ]"
`countup { pop  \! } for`
newdef

"Tree.!Mark" "Set Mark Index of Pres Tree Node"
"Mep" % ""
`mark-index pres-index -->`
newdef

"Tree.!Marks" "Set Picture and Tag of Pres Tree Mark"
"Mep" % ""
`mark-tag mark-pic-file mark-index -->`
newdef

"Tree.!MarkSeen" "Overide Visibility of a Mark"
"Mep" % "if true mark is always hidden, overiding all-mark-visibility setting"
`seen pres-index -->`
newdef

"Tree.!Selected" "Set Selected Flag of Tree Node"
"Mep" % "not available unless multi-selection enabled"
`selected-flag nodekey -->`
newdef

"Tree.!Text" "Store to Tree Node Text Description"
"Mep" % ""
`text tree-node-key -->`
newdef

"Tree.!ValueOf" "Store Associated Value With Pres Tree Node"
"Mep" % ""
`value-data value-name pres-index -->`
newdef

"Tree.!View" "Set Presentation Tree Line Pic and Mark Styling"
"Mep" % "view-style 0 (Default) Picture, Tree lines and Text associated with the item .  1 Picture and Text  2 Picture and Tree lines   3 Picture   4 Text and Tree lines   5 Text extend-style 0 (Default) Don't display either the Plus/Minus image or Mark Pictures.  1 Display Plus/Minus image.  2 Display Mark pictures and Plus/Minus image.  3 Display Mark pictures."
`view-style extend-style -->`
newdef

"Tree.*Values" "Pull All Value Pairs Associated with Pres Tree Node"
"Mep" % ""
`pres-index --> [ value-data value-name . . ]  value-pairs`
newdef

"Tree./Below" "Remove All Children"
"Exec" % "pres-node -->"
`dup whole { {  dup Mep._Below zero ?   Mep.Remove  } loop  pop } if pop`
newdef

"Tree.__" "Get the Node Name of Parent of Current Node"
"Exec" % "-->  parent-name"
`"__Tree" Tree._Parent Tree._ValueOf`
newdef

"Tree._Below" "Get the Count of Child Level and First Child"
"Mep" % "the first child is the first in the unsorted node sequence"
`node-id --> first-child number-children`
newdef

"Tree._First" "Test for First Child of Node"
"Exec" % "pres-node --> [ first-child-node ]   if has a child  has-child"
`Tree.Below( { Mep._First  true } { pop  false } ifelse`
newdef

"Tree._Last" "Get Last Child of Node"
"Exec" % "pres-node --> [ last-child-node ]   if has a child  has-child"
`Tree.Below( { "Last" get  true } { pop  false } ifelse`
newdef

"Tree._Listed" "Count of Tree Nodes"
"Mep" % ""
`--> tree-nodes`
newdef

"Tree._Mark" "Get Pres Tree Nodes Mark Index"
"Mep" % ""
`pres-index --> mark-index`
newdef

"Tree._Marked" "Get the Mark Tag Associated with Mark Index"
"Mep" % ""
`mark-index --> mark-tag`
newdef

"Tree._New" "Get Newest Node of Pres Tree"
"Mep" % ""
`--> newest-pres-index`
newdef

"Tree._Parent" "Parent of Current Node"
"Exec" % "--> node-parent"
`_\ Mep._Above`
newdef

"Tree._Root" "Get Value from Pres Tree Root Node"
"Exec" % "val-name --> value"
`0 Tree._ValueOf`
newdef

"Tree._Tag" "Get Tag of Tree Node"
"Mep" % ""
`node-key --> tag-string`
newdef

"Tree._Text" "Get Tree Node Text Description"
"Mep" % ""
`tree-node-key --> text`
newdef

"Tree._ValueOf" "Get Value Associated With Pres Tree Node"
"Mep" % ""
`value-name pres-index --> value-data`
newdef

"Tree._Values" "Get Number of Value Pairs with Pres Tree Node"
"Mep" % ""
`--> num-values`
newdef

"Tree.Add" "Add to Pres Tree"
"Mep" % "-1 for parent-node uses current list index"
`node-text parent-node -->`
newdef

"Tree.Below(" "Descendant Exists Saving Id"
"Exec" % "pres-id --> below-id  has-descendant"
`Mep._Below positive`
newdef

"Tree.CellHide" "Hide the Pres Tree Node"
"Exec" % "pres-index -->"
`dup true "_Hidden" rot Tree.)! true exch "Hidden" set`
newdef

"Tree.CellPics" "Set Cell Pictures of Pres Tree Node"
"Exec" % "normal-pic selected-pic -->"
`oflist _\ "CellPicSel" set oflist _\ "CellPic" set`
newdef

"Tree.CellPicsOf" "Set Cell Pictures of Pres Tree Node Indexed"
"Exec" % "pres-index normal-pic selected-pic -->"
`oflist third "CellPicSel" set oflist exch "CellPic" set`
newdef

"Tree.Changed" "Mark Tree as Changed"
"Exec" % "-->"
`"Changed" 0 Tree.!Mark`
newdef

"Tree.Changed?" " Has Tree Content Changed"
"Exec" % "-->  tree-changed"
`0 Tree._Mark length) positive`
newdef

"Tree.Clear" "Clear Tree View"
"Mep" % "was ""Clear"" Mep.Do"
`-->`
newdef

"Tree.Click" "Set the Vector for Tree Click Events"
"Exec" % "tree-vector -->"
`quoter &" call" ^"NodeClick|" Mep.Can`
newdef

"Tree.Collapse" "Collapse Tree Node"
"Exec" % "tree-node -->"
`false exch Tree.Expand`
newdef

"Tree.Dims" "Dimension the Tree Window in Presentation Form"
"Exec" % "pix-x pix-y  pix-w pix-h -->"
`perwin Mep.DimWin`
newdef

"Tree.Down" "Cycle Down Through All Pres Tree Nodes Until Root"
"Exec" % "--> last-item -1 1"
`Tree.Last -1 1`
newdef

"Tree.End?" "Has Index Reached End of Tree Nodes"
"Exec" % "index --> index       end-of-tree"
`dup Tree._Listed ge`
newdef

"Tree.EndOf" "Is End of Siblings for Node"
"Exec" % "pres-id --> pres-id       end-of-sibs"
`Mep._Next neg(`
newdef

"Tree.Expand" "Expand or Collapse Tree Branch"
"Exec" % "expand(True)/collapse(False) key-to-expand -->"
`"Expanded" set`
newdef

"Tree.Insure" "Insure Tree Node Visible"
"Mep" % ""
`nodekey -->`
newdef

"Tree.IsUnique" "Is Child of Tree Node"
"Exec" % "search-text parent-node --> [ search-text or member-key ]    is-unique  true returned if this entry is NOT among child tree nodes and therefore is unique, the search text is returned if not unique the existing member's key is returned"
`second exch Tree.Member isnull { pop true } { pop2nd false } ifelse`
newdef

"Tree.Last" "Last Index of Tree"
"Exec" % "--> last-index"
`Tree._Listed -`
newdef

"Tree.ListLoad" "Load Pres Tree Preset from List Directory"
"Exec" % "pres-list-root -->"
`any? { dup extension isnull)  {  listed  } if  Tree.Load  true "ScrollBoth" set } if`
newdef

"Tree.ListSave" "Save Pres Tree Detail Data"
"Exec" % "list-spec -->"
`any? { dup extension isnull)  {  listed  } if  Tree.Save pop } if`
newdef

"Tree.Load" "Load Pres Tree Detail Data"
"Mep" % ""
`filename -->`
newdef

"Tree.MakeRoot" "Make Root Node in Pres Tree"
"Exec" % "node-text -->"
`"Roots" get { 0 Tree.!Text  0 } { -1  newnode  *makeroot } ifelse !\ 0 "_Level" \!`
newdef

"Tree.Marker" "Get the Current Node Mark Name String"
"Exec" % "--> mark-name"
`_\ Tree._Mark`
newdef

"Tree.Member" "Find Child Member of Parents Siblings"
"Mep" % " member-key is empty if not member for alpha keys member-key is zero if not member for numeric keys"
`search-node-text parent-node --> member-key`
newdef

"Tree.Member(" "Name Is Member of Descendants"
"Exec" % "branch-name --> [ pres-index ] if is member  is-member"
`_\ Tree.Member dupnzis`
newdef

"Tree.New(" "Add Pres Tree Node Yielding Id"
"Exec" % "node-text parent-node --> new-node"
`Tree.Add Tree._New`
newdef

"Tree.NewRoot" "Clear Tree and Create New Root"
"Exec" % "root-name -->"
`Tree.Clear Tree.MakeRoot`
newdef

"Tree.Next?" "Has Next Sibling of Current Node"
"Exec" % "--> next-node  end-children"
`_\ Tree.EndOf`
newdef

"Tree.NextLevel?" "Next Level has Member"
"Exec" % "new-hier-segment --> exists-in-level"
`_\ Tree.IsUnique dup not tuck { pop } { !\ } ifelse`
newdef

"Tree.Off" "Turn Tree Events Off"
"Mep" % ""
`-->`
newdef

"Tree.OfLast" "Get Value From Last Child Assumes Existence"
"Exec" % "val-name  pres-id --> value"
`Tree.Below( pop Tree._ValueOf`
newdef

"Tree.On" "Turn Tree Events On"
"Mep" % ""
`-->`
newdef

"Tree.Prev(" "Has No Previous Sibling"
"Exec" % "pres-node --> prev-node    no-prev-node"
`Mep._Prev neg(`
newdef

"Tree.Prev?" "Has No Previous Sibling from Current Node"
"Exec" % "--> prev-node  has-no-previous"
`_\ Tree.Prev(`
newdef

"Tree.Remove" "Remove Current Node"
"Exec" % "-->"
`_\ Mep.Remove`
newdef

"Tree.ReRoot" "Clear Tree of Non-Root Nodes and Modify Root Name"
"Exec" % "root-name -->"
`0 Tree./Below Tree.MakeRoot`
newdef

"Tree.Rooting" "Establish an Organizational Root Node"
"Exec" % "root-name -->"
`dup Tree.MakeRoot !\\ _\ !root`
newdef

"Tree.Save" "Save the Pres Tree Detail Data"
"Mep" % ""
`filename --> result`
newdef

"Tree.Select" "Select Current Node"
"Exec" % "-->"
`true _\ Tree.!Selected`
newdef

"Tree.Select)" "Select the Tree Node"
"Mep" % ""
`nodekey -->`
newdef

"Tree.StdStart" "Start up a Presentation Form"
"Exec" % "x-perwin y-perwin w-perwin h-perwin x-per y-per w-per h-per mep-ident subform-ordinal (-1 for new slot) -->"
`Tree.Subform Tree.TreeInit Tree.Dims`
newdef

"Tree.Subform" "Create Subform with Presentation Tree"
"Exec" % "x-per y-per w-per h-per mep-ident mep-ordinal -->  presentation tree file exists as face\tlist\mep-ident.tlt"
`this) Mep.!Mep "StdTree" App.SubOn perscreen App.DimSub`
newdef

"Tree.Tier>1" "Current Node Lower than First Tier"
"Exec" % "--> second-or-more-tier"
`_\ unwhole { false } { Tree._Parent positive } ifelse`
newdef

"Tree.Tier>2" "Current Node Lower than Second Tier"
"Exec" % "--> third-or-more-tier"
`_\ unwhole { false } { Tree._Parent Mep._Above positive } ifelse`
newdef

"Tree.Tier1" "Current Node in First Tier"
"Exec" % "-->  first-tier"
`_\ unwhole { false } { Tree._Parent zero } ifelse`
newdef

"Tree.Tier2" "Current Node in Second Tier"
"Exec" % "-->  second-tier"
`_\ unwhole { false } { Tree._Parent Mep._Above zero } ifelse`
newdef

"Tree.TreeInit" "Standard Pres Tree Initialize"
"Exec" % "-->"
`1 "DefRtf" set _TLSYS_ENUM "Indexing" set 2 false false "Expanding" set false "ShowHidden" set`
newdef

"Tree.Unchanged" "Mark the Task Tree as Unchanged"
"Exec" % "-->"
`"Default" 0 Tree.!Mark`
newdef

"Tree.Up" "Cycle Through All Pres Tree Nodes Beyond Root"
"Exec" % "-->  1 1 last-item"
`1 1 Tree.Last`
newdef

"trimleft" "Trim String and Token From Left"
"Exec" % "orig-str  left-part --> right-part"
`length) + fromleft`
newdef

"twips" "Convert Twips to Pixels"
"Exec" % "twips --> pixels"
`_TwipsPerPixel normreal div normint`
newdef

"unbracket" "Get String from Within Brackets"
"Exec" % "string --> bracketed-string"
`"[" 1 1 1 parse "]" 0 1 1 parse`
newdef

"underhyphen" "Change all Underlines to Hyphens"
"Exec" % "string --> adj-string"
`"_" "-" replall`
newdef

"underspc" "Spaces to Underline"
"Exec" % "str-to-check --> result-str"
`" " "_" replall`
newdef

"unlist" "Remove List Items From Stack Till Null"
"Exec" % "empty [ item . . . ] -->"
`{ isnull ? pop } loop pop`
newdef

"unselect" "Negate Any Selection for Subform"
"Exec" % "-->"
`-1 select`
newdef

"unselected" "No Current Selection"
"Exec" % "--> no-sel"
`selected negative`
newdef

"unverse" "Build Dotted Version String from Numeric Version String"
"Exec" % "vers-numeric  len-ver --> vers-dotted"
`empty rot { isnull ?  dup fourth left  0 add 36 base  rot isnull not { &"." } if  ^ exch  third fromleft } loop pop1&3 `
newdef

"unwhole" "Check Number Not Whole"
"Exec" % "number --> not-whole"
`0 le`
newdef

"Url.!" "Send Native Browser Code"
"Exec" % "code-string -->"
`"Syncer" do`
newdef

"Url.!)" "Trailer and Synchronize"
"Exec" % "web-script -->"
`&");" Url.!`
newdef

"Url.!AlfVal" "Set the Field with Special Character Formatting"
"Exec" % "value-name data-value -->"
`Str.Cspec exch "value" Url.AlfSync`
newdef

"Url.!Field" "Store Value in Browser Field"
"Exec" % "value-name field-id -->"
`exch _ Url.!AlfVal`
newdef

"Url.!Opt" "String to Add Item to List Box or DropDown"
"Exec" % "display-name value list-index object-name --> browser-command  zero-based list"
`dup Url.OfAll &".options(" &3 &").text=unescape(" pull5th escape squocat &");" exch Url.OfAll & ".options(" catpref &").value=unescape(" exch escape squocat &");"`
newdef

"Url.!Opt0" "Add First Item to List Box or DropDown"
"Exec" % "display-name value object-name -->"
`0 exch Url.!Option`
newdef

"Url.!Option" "Add Item to List Box or DropDown"
"Exec" % "display-name value list-index object-name -->  zero-based list"
`Url.!Opt Url.!`
newdef

"Url.!Options" "Set the Number of Options in DropDown or List"
"Exec" % "number-of-options object-name -->"
`Url.!Opts Url.!`
newdef

"Url.!Opts" "String to Set the Number of Options in DropDown or List"
"Exec" % "number-of-options object-name --> browser-command"
`&".options.length = " ^ &";" Url.OfAll`
newdef

"Url.!PageH" "Set the Physical Browser Horizontal Visible Panel"
"Exec" % "ordinal-horiz -->  zero is leftmost"
`normint _Vid.DevX mul dup _Vid.DevX add 100 add pixels "DimWidth" do pixels minus "DimLeft" do`
newdef

"Url.!PageV" "Set the Physical Browser Vertical Visible Panel"
"Exec" % "ordinal-panel -->  zero is leftmost"
`normint _Vid.DevY mul dup _Vid.DevY add 100 add pixels "DimHeight" do pixels minus "DimTop" do`
newdef

"Url.!Setting" "Set Field from Page Profile"
"Exec" % "value-name field-ident -->"
`exch _ Url.!AlfVal`
newdef

"Url.!Value" "Set Value Direct"
"Exec" % "value control-name -->"
`exch escape squoter ^"unescape(" &")" exch ".value=" catpref &";" Url.OfAll Url.!`
newdef

"Url.!Visibility" "Set Visibility of Object"
"Exec" % "visibility objname -->"
`&".style.visibility" exch Url.PostSync`
newdef

"Url.&Data" "Append Data Field Set"
"Exec" % "build-str value  field-name --> buils-str"
`*fieldset &`
newdef

"Url.&Esc" "Append Escaped Field Setting"
"Exec" % "field-summation value-name field-id --> field-summation"
`exch _ escape exch "value" ^"." & exch squoter ^"unescape(" &")" ^"=" & &";" Url.OfAll &`
newdef

"Url.&Field" "Append Field Setting"
"Exec" % "field-summation value-name field-id --> field-summation"
`exch _ Str.Cspec exch "value" ^"." & exch escape squoter ^"unescape(" &")" ^"=" & &";" Url.OfAll &`
newdef

"Url.&Val" "Append Escaped Value Setting"
"Exec" % "field-summation value field-id --> field-summation"
`exch escape exch "value" ^"." & exch squoter ^"unescape(" &")" ^"=" & &";" Url.OfAll &`
newdef

"Url.(esc)" "Enclose Escaped Parameter in Javascript Function"
"Exec" % "param  func --> enclosed"
`exch escdquoter ^"(" & ");" catcatcr`
newdef

"Url.@Event" "Establish Mep of Event Source"
"Exec" % "-->"
`Mep._Event "url@ev " log() !@`
newdef

"Url._Hwnd" "Window Handle of Current Browser Form"
"Exec" % "--> url-hwnd"
`Mep._FormHwnd`
newdef

"Url._Visibility" "Get Visibility of Object"
"Exec" % "object-name -->"
`Url.DocGlobal "style" do "visibility" get`
newdef

"Url.Accept" "Browser Data Accept"
"Exec" % "data  page-name -->"
`*accepted`
newdef

"Url.AlfSync" "Alpha Setting to Object Within Document"
"Exec" % "string object setting-name -->"
`^"." & exch Url.PostSync`
newdef

"Url.BrowDim" "Dimension the SubForm Browser"
"Exec" % "x y w h -->"
`2 copy 6 2 roll App.DimSub 0 0 4 2 roll 4 copy Mep.DimWin exch 1.02 mul normint exch 1.02 mul normint "Dim" do`
newdef

"Url.ExecStatus" "Respond to Embedded Status Command"
"Exec" % "-->"
`_Url.Value execstr`
newdef

"Url.Navigate" "Navigate Url"
"Exec" % "url flags target -->  url: A string expression that evaluates to the URL, full path, or Universal Naming Convention (UNC) location and name of the resource to display.   flags: use nav* values  target: _blank  Load the link into a new unnamed window.  _parent  Load the link into the immediate parent of the document the link is in.  _self  Load the link into the same window the link was clicked in.  _top  Load the link into the full body of the current window.  <window_name>  A named HTML frame. If no frame or window exists that matches the specified target name, a new window is opened for the specified link."
`"Navigate" do`
newdef

"Url.OfAll" "Prefix Object Name with All in Document"
"Exec" % "object-name --> abs-doc-addressing"
`^"document.all."`
newdef

"Url.PageName" "Obtain Root Page Name of Url"
"Exec" % "page-url --> root-page-name"
`"/" Str.RevRight fileroot`
newdef

"Url.Pager" "Track Returned Data from Page"
"Exec" % "returned-data page-title --> page-title"
`underspc exch !Ent.ExitData dup !Ent.Page`
newdef

"Url.PostSync" "Synchronization Final Step"
"Exec" % "obj-name value -->"
`escape squoter ^"unescape(" &")" ^"=" & &";" Url.OfAll Url.!`
newdef

"Url.ReDim" "Dimension the Browser Window with Scrollbars"
"Exec" % "x-per y-per w-per h-per -->"
`perscreen 2 copy 6 2 roll App.DimSub 0 0 4 2 roll 4 copy Mep.DimWin "Dim" Mep.Do`
newdef

"Url.Seen" "Set Visibility of Object"
"Exec" % "visible-setting object -->"
`"style.visibility" Url.AlfSync`
newdef

"Url.Submit" "Submit Form in Browser"
"Exec" % "form-ident -->"
`^"document.forms[" &"].submit();" Url.!`
newdef

"Url.ToPixels" "Convert Browser Unit-Stamped Coordinate"
"Exec" % "url-coord --> pix-coord"
`"px" remove`
newdef

"usepath" "Prefix Filename With Path of Other File"
"Exec" % "filename  pathed-string --> pathed-filename"
`pathonly ^`
newdef

"valset" "Make Exec String for Setting Variable"
"Exec" % "val-name --> exec-val"
`dup _ quoter " !" catpref`
newdef

"vec" "Format a Downstream Vector with No Parameter"
"Exec" % "vector --> downstream-command"
`^"*" catcr`
newdef

"vec(" "Push Command to Survey Post"
"Exec" % "tem-command -->"
`vec Stack.=Nucleus Stack.(`
newdef

"vec)" "Push Command to Survey Bottom"
"Exec" % ""
`vec Stack.=Nucleus Stack.)`
newdef

"vector()" "Vector to Owner for Processing with Filter"
"Exec" % "filter  vector -->"
`*invector`
newdef

"vend(" "Push Vector Command to Closure Post"
"Exec" % "vector -->"
`^"*" end(`
newdef

"vend)" "Push Vector Command to Closure Pre"
"Exec" % "vector -->"
`^"*" end)`
newdef

"verse" "Create Versioning Left-Filled Numeric"
"Exec" % "dotted-version   min-len -->number-string"
`empty rot 5 countup { dup2nd "." exch - 1 1 parse  isnull  {  pop  }  {  -16 base   fourth prezero pre3rd) exch  } ifelse } for pop1&3`
newdef

"when" "Notify Desk of Event in Run Tree"
"Exec" % "base-event  cmd-mode -prop   proc -->"
`empty exch desk cls/ &2 cls base( &3) ^ base)`
newdef

"whole" "Is Greater Than Zero or Equal"
"Exec" % "number --> is-whole-number"
`0 ge`
newdef

"Win.ClassCheck" "Check for App Class Exists"
"Exec" % "window-class --> win-handle  handle is zero if did not occur"
`0 Win.DeskClassed`
newdef

"Win.Closer" "Close Window if Exists"
"Exec" % "window-name --> close-result"
`Win.Identify { pop2 Win.Close } if`
newdef

"Win.DeskNext" "Get the Next Child Window of Desktop if Exists"
"Exec" % "prev-child-win --> next-child-win  no-next-child"
`0 exch Win.Child dup zero`
newdef

"Win.DeskOwning" "List Desktop Windows Owned by Specific Window"
"Exec" % "owner-window-handle --> zero [ win handles . . ]"
`0 exch 0 { Win.Desk dupnznot ?  dup _GW_OWNER Win.Relate  third eq { to3rd } if } loop pop`
newdef

"Win.Detect" "Does Window Exist"
"Exec" % "window-name --> exists"
`Win.Names pop length) nonzero`
newdef

"Win.Factors" "Set Video Window Factors"
"Exec" % "rgb-win-hwnd chr-win-hwnd mor-win-hwnd -->"
`_WM_VCAP_HANDLE_MORPH exch Win.Vmsg _WM_VCAP_HANDLE_CHROMA exch Win.Vmsg _WM_VCAP_HANDLE_RGB exch Win.Vmsg`
newdef

"Win.FocusTop" "Bring Window to Top With Focus"
"Exec" % "window-handle -->"
`dup Win.ToTop Win.Focus`
newdef

"Win.ForceNon" "Window Not Topmost"
"Exec" % "win-hand -->"
`_HWND_NOTOPMOST 0 0 0 0 _SWP_NOMOVE _SWP_NOSIZE or Win.Position pop`
newdef

"Win.ForceOrder" "Force the Order of Top Level Windows"
"Exec" % "[ window-handles ] number-handles --> [ window-handles ]      number-handles      reorder-windows"
`0 APPhwnd _GW_HWNDFIRST Win.Relate { dup zero ?  0 1 fifth -  {  dup 4 add index   third eq   { third ^" check " ^2 third Win.Caption ^ logs    third eq    {    incr2nd    }    {    pop2nd -1 exch    } ifelse    true   }   {   pop    false   } ifelse   ?  } for  second negative ?  third third eq ?  _GW_HWNDNEXT Win.Relate } loop pop negative`
newdef

"Win.ForceTop" "Force Window to Top"
"Exec" % "win-handle -->"
`_HWND_TOPMOST 0 0 0 0 _SWP_NOMOVE _SWP_NOSIZE or Win.Position pop`
newdef

"Win.Handle" "Get Handle of Window from Partial Identity"
"Exec" % "partial-win-name --> handle  handle is zero if no match"
`Win.Identify { pop2 } { 0 } ifelse`
newdef

"Win.Hide" "Hide the Specified Window"
"Exec" % "win-hand -->"
`dupnzis { _SW_HIDE exch Win.Show pop } if`
newdef

"Win.Identify" "Identify Window Main Characteristics"
"Exec" % "partial-name --> [ handle ]        optional items included  if window exists      [ full-name ]      [ class ]     exists"
`0 exch 0 Win.Named dup Win.Caption second Win.Class isnull { pop3  false } { true } ifelse`
newdef

"Win.Max" "Maximize if Valid Handle"
"Exec" % "win-handle -->"
`dupnz { _WM_SYSCOMMAND  _SC_MAXIMIZE  0  Win.Message pop } if`
newdef

"Win.Min" "Minimize if Handle Non-Zero"
"Exec" % "win-handle -->"
`dupnz { _WM_SYSCOMMAND  _SC_MINIMIZE  0  Win.Message pop } if`
newdef

"Win.Names" "Window Name and Class Name"
"Exec" % "basic-window-name --> exact-name win-class-name"
`0 exch 0 Win.Named dup Win.Caption exch Win.Class`
newdef

"Win.NotSeqd" "Windows Not Top Sequenced"
"Exec" % "[ window-handles ] number-windows --> [ window-handles ]   number-windows"
`dup - -1 0 { + index Win.NotTop } for`
newdef

"Win.NotTop" "Window is Not Topmost"
"Exec" % "win-handle -->"
`_HWND_NOTOPMOST 0 0 0 0 _SWP_NOMOVE _SWP_NOSIZE or Win.Position pop`
newdef

"Win.Paste" "Send Paste Window Message"
"Exec" % "window-handle -->"
`dupnz { _WM_PASTE  0  0  Win.Message pop } if`
newdef

"Win.PosNotTop" "Position to Non Topmost Window"
"Exec" % "win-handle win-x1 win-y1 win-width win-height -->  units in pixels"
`_HWND_NOTOPMOST push5th 0 Win.Position pop`
newdef

"Win.PosTop" "Bring Window To Top at Position"
"Exec" % "win-handle win-x1 win-y1 win-width win-height -->  units in pixels"
`_HWND_TOP push5th 0 Win.Position pop`
newdef

"Win.PosTopmost" "Position to Topmost Window"
"Exec" % "win-handle win-x1 win-y1 win-width win-height -->  units in pixels"
`_HWND_TOPMOST push5th 0 Win.Position pop`
newdef

"Win.Restore" "Restore Window to Last Known Position"
"Exec" % "win-handle -->"
`dupnz { _WM_SYSCOMMAND  _SC_RESTORE  0  Win.Message pop } if`
newdef

"Win.RollDown" "Roll Down the Active Window"
"Exec" % "win-handle -->"
`Win.Active dup Win.Rect pop3rd _App.Height .60 mul tuck Win.PosTop`
newdef

"Win.RollIn" "Roll Window Onto Screen"
"Exec" % "win-handle -->"
`  0 0 _App.TpixelX _App.TpixelY  0 push5th  0  Win.Position pop `
newdef

"Win.RollOut" "Roll Window Off Screen"
"Exec" % "win-handle -->"
` 0 _App.TpixelY _App.TpixelX _App.TpixelY 0 push5th 0 Win.Position pop `
newdef

"Win.Size" "Specifically Size a Window"
"Exec" % "win-handle -->"
`dupnz { _WM_SYSCOMMAND  _SC_MAXIMIZE  0  Win.Message pop } if`
newdef

"Win.TallyOrder" "Tally Window Order"
"Exec" % "[ window-handles ] number-handles --> [ window-handles ]      number-handles"
`0 APPhwnd _GW_HWNDFIRST Win.Relate { dup zero ?  0 1 fifth -  {  dup 4 add index   third eq   { third ^" check " ^2 third Win.Caption ^ logs    ^"Win.T" third + exch !    incr2nd    true   }   {   pop    false   } ifelse   ?  } for  third third eq ?  _GW_HWNDNEXT Win.Relate } loop pop2`
newdef

"Win.TopClass" "Get Next Window of Class"
"Exec" % "prev-child -->[ caption ]      next-handle      next-exists"
`_W.Class exch Win.DeskClassed dup Win.Caption isnull { pop  false } { exch  true } ifelse`
newdef

"Win.TopDesk" "List Desktop Window Handles"
"Exec" % "start-win-handle --> [ caption         class ] if has caption     next-handle      has-caption"
`Win.Desk dup Win.Caption isnull { pop  false } { exdup Win.Class exch  true } ifelse`
newdef

"Win.Topper(" "Focus and Make Top Window Name Yielding Handle"
"Exec" % "window-name --> handle"
`Win.Identify { pop2  dup Win.ToTop  dup Win.Activate } { 0 } ifelse`
newdef

"Win.TopPosApp" "Position App to Top at Percent Location of Screen"
"Exec" % "win-handle app-per-x app-per-y app-per-w app-per-h -->"
`perscreen _HWND_TOPMOST push5th 0 Win.Position pop`
newdef

"Win.TopSurface" "Surface the Window As Topmost Then Non"
"Exec" % "window-handle -->"
`dup Win.FocusTop Win.ForceNon`
newdef

"Win.ToTop" "Bring Window to Top Without Positioning"
"Exec" % "window-handle -->"
`_HWND_TOP 0 0 0 0 _SWP_NOMOVE _SWP_NOSIZE or Win.Position pop`
newdef

"within" "Position of String Within Another String"
"Exec" % "search-str str-to-find --> search-str  pos-found"
`second Str.Find`
newdef

"within(?" "Is String Within Another String wiith Position"
"Exec" % "search-str str-to-find --> search-str  [ position ] if found is true   found"
`within dupnzis`
newdef

"within?" "Is String Within Another String"
"Exec" % "search-str str-to-find --> search-str   found"
`within positive`
newdef

"writebin" "Write Text to File in Bin"
"Exec" % "file-text  file-spec -->"
`ofbin write`
newdef

"writetxt" "zzzWrite a Text File Version of Filename"
"Exec" % "write-data filename -->  filename can have any extension"
`retext ofpath write`
newdef

"xml((" "Add Child Node of Current Node"
"Exec" % "child-name -->"
`"xml((" vector()`
newdef

"xml()" "XML Text Block"
"Exec" % "text-content -->"
`"xml()" vector()`
newdef

"xml(desc)" "XML Comments"
"Exec" % "comments -->"
`"xml(desc)" vector()`
newdef

"xml(pi)" "XML Processing Instructions"
"Exec" % "proc-instr -->"
`"xml(pi)" vector()`
newdef

"xml)" "Absorb Attributes into Current Node"
"Exec" % "[ aval attr . . . ] count --> count is pairs of attr/values"
`"xml)" vector()`
newdef

"xml)(" "Other XML Block"
"Exec" % "other-block  other-type -->"
`"xml)(" vector()`
newdef

"xml))" "Return to Parent Level"
"Exec" % "parent -->"
`"xml))" vector()`
newdef

"xml*(" "Root XML Declaration"
"Exec" % "raw-xml-string root-name -->"
`"xml*(" vector()`
newdef

"xml*)" "End of XML Exec"
"Exec" % "-->"
`"xml*)" vector()`
newdef

"Xml.Append" "Append Data to Xml File"
"Exec" % "new-data -->"
`_Xml.Writer append`
newdef

"Xml.Derr" "Problem with Xml Parse Dance"
"Exec" % "error-info -->"
`!Xml.Derr *xmlderor`
newdef

"Xml.Error" "Xml Parsing Problem Messaged"
"Exec" % "error-info -->"
`!Xml.Err *xmlerror`
newdef

"Xml.Item" "Add Xml Item to String"
"Exec" % "build-string item-prefix item-data item-suffix --> build-string"
`catcat Xml.Append`
newdef

"Xml.Line" "Add Line Single Item"
"Exec" % "build-string single-item --> build-string"
`Xml.Append`
newdef

"Xml.WriteClose" "Close Xml Output File"
"Exec" % "-->"
``
newdef

"Xml.WriteOpen" "Start New Xml Output File"
"Exec" % "xml-file -->"
`dup !Xml.Writer File.Delete`
newdef

"xmlit" "Convert XML String Into Dance Exec"
"Exec" % "xml-string --> dance-xml-exec"
`"XmlDance" dance`
newdef

"zero" "Equal to Zero"
"Exec" % "number --> equal-to-zero"
`0 eq`
newdef

"zeronull" "Substitute Zero (or False) if No Length"
"Exec" % "string --> string or zero [if no length to string]"
`isnull { pop 0 } if`
newdef

"zeronull?" "Substitute Zero (or False) if No Length Check for Zero"
"Exec" % "number-or-null --> zero-value"
`zeronull zero`
newdef

"revsliceat" "Slice String at Number of Token Matches from End"
"Exec" % "str token count --> str-left str-right"
"tuck reverse exch reverse exch rot sliceat reverse exch reverse"
newdef

"looker" "Prep Lookup Name With Parentheses"
"Exec" % "raw-lookup --> preped-looker"
"Str.NoSpaces parens"
newdef

"ordlookup" "Create Ordinated Lookup List from Stack Items"
"Exec" % "[ . . . ] count --> ord-lookup"
'
empty exch
countdown
{
 dup + + -1 roll
 dup ^"|(" &") " third - & &" " &"|" rot - & &" " exch quoter & catcatcr 
} for
'
newdef

"tillnull" "Count Items on Stack Until Empty String"
"Exec" % "empty [ . . . ] --> empty [ . . . ] count"
"
0
{
 dup + index isnull) ?
 +
} loop
"
newdef

"rooted\" "Load Settings from Node and Root Node"
"Exec" % "-->"
"_\ \^Body rootnode \^Body !\"
newdef

"newtask" "Start New Task With Current Help"
"Exec" % "task-name task-type -->"
'help@ _@
tuck newsub
.!_Helper'
newdef

"mod@?" "Has Tree Changed"
"Exec" % "-->"
"Tree.Changed?"
newdef

"mod@" "Mark Tree Changed"
"Exec" % "-->"
"Tree.Changed @^Renew"
newdef

"sel!" "Select and Show Selection"
"Exec" % "pres-id -->"
"selnode Tree.Select select*"
newdef

"quo&spc" "Quote String and Concatenate Space"
"Exec" % "str --> quoted-str-spc"
"quocatspc"
newdef

"js&;" "Add End Semicolon and Concatenate CrLf"
"Exec" % "str --> str-semi-cr"
'&";" &;'
newdef

"js&;&" "Add End Semicolon and Concatenate CrLf and Concatenate"
"Exec" % "build str --> str-semi-cr"
'&";" &; &'
newdef

"quo&;" "Quote String and Concatenate CrLf"
"Exec" % "str --> quoted-str-cr"
"quocatcr"
newdef

"helpdim" "Dimension the Help Form and Chromium"
"Exec" % "x y w h -->"
"4 copy @^Dim @^DimWeb"
newdef

"subdims" "Width and Height of Subform in Pixels"
"Exec" % "--> w h"
"subform App._Rect pop3rd pop3rd"
newdef

		// str is what to find, empty means no content search
		// determine find type
0x10   !Find.CaseInsens	  // true for case insensitive
0x20   !Find.CaseReverse  // true for find in reverse direction
		// if no flag below, requires exact match
0x40   !Find.MatchStart   // true for match at start of string
0x80   !Find.MatchEnd     // true for match at end of string
0x100  !Find.MatchWithin  // true for match within
0x200  !Find.MatchRegex   // true for match reg expr
		// 
0x400  !Find.MatchChild   // true for match within children
0x800  !Find.MatchDesc    // true for match within descendants
0x1000 !Find.MatchLeaf    // true for match within leaf nodes
0x2000 !Find.MatchBranch  // true for match within branch nodes
		//
/*
var deepr:Boolean = Boolean(Optns & 0x4000); // true means To index is depth of search
var sumr:Boolean = Boolean(Optns & 0x8000); // true means put results in ChildAr
		
		switch (Optns & 0x0F)
		{
*/
0 !Find.NameOfNode        // find name of node
1 !Find.NameOfValue       // find name of value
2 !Find.ValueOfNode       // find name of node that has value name
3 !Find.NameWithSimple    // find name of node with simple content
4 !Find.NameOfValueSimple // find name of node, value name and with simple content
/*
			case 5 :	// 
				break;
			case 6 :	// 
				break;
		}
*/

"imgchild" "New Child Node with Image Url"
"Exec" % "img-url node-name -->"
"_\ @!Img Tree._New !\"
newdef

"outchain" "Subfolder of Outgoing Xact Images"
"Exec" % "--> out-src"
'"out" ofxact folder'
newdef

"enc^dest" "Encode Multipart Virtual Destination"
"Exec" % "filename vir-dest --> multi-filename"
'asc2hex &"_" ^'
newdef

"root\" "Set Root as Current Node"
"Exec" % "-->"
"rootnode"
newdef

"xacting" "Extract Xact from Path"
"Exec" % "path -->"
"endpath -4 left !Xact"
newdef

"endpath" "Get End Path Component"
"Exec" % "path --> end-comp"
"pathonly -1 right fileroot"
newdef

"fwdlist" "Wildcard Add Files To Stack Forward Order"
"Exec" % "wild-card --> [ file1 . . . ] count"
'empty exch "Forward" File.List execstr'
newdef

"revlist" "Wildcard Add Files To Stack Reverse Order"
"Exec" % "wild-card --> [ . . . file1 ] count"
'empty exch "Reverse" File.List execstr'
newdef

"nanzero" "Substitute Zero If Not Numeric"
"Exec" % "str --> str-or-0"
"Str.ZeroNon"
newdef

"all\#" "Count of All Nodes of Tree"
"Exec" % "--> tree-nodes"
"Tree._Listed"
newdef

"help@" "Set To Current Help Subform"
"Exec" % "-->"
"Help.@Help"
newdef

"ofcton" "Prefix Cut Target Directory"
"Exec" % "filename --> filespec"
"^_Cton.Path"
newdef

"ofpub" "Prefix Node PubSub Directory"
"Exec" % "filename --> filespec"
'^"NodePubsubA\" ofapp'
newdef

"ofmach" "Prefix Machine Source Directory"
"Exec" % "filename --> filespec"
'^"Factory\" ofapp'
newdef

"offact" "Prefix Factory Directory"
"Exec" % "filename --> filespec"
'^"Factory\" ofbin'
newdef

"html" "Add Html Extension"
"Exec" % "fileroot --> filespec"
'&".html"'
newdef

"jsx" "Add Jsx Extension"
"Exec" % "fileroot --> filespec"
'&".jsx"'
newdef

"jsx!desk" "Add Jsx Extension and Save to Desk"
"Exec" % "jsx-data fileroot -->"
"jsx ofdesk write"
newdef

"sel@" "Current Task Tree and Selection"
"Exec" % "-->"
"Task.@Sel"
newdef

"sel@?" "Does Current Task Tree Have Selection and Set Current"
"Exec" % "--> has-selection"
"Task.@ select?"
newdef

"yattrval" "Create Yml Atribute Value With Leading Space"
"Exec" % "val name --> yattrib"
'yml ^" " &"=""" exch yml & &""""'
newdef

"empty)(" "Replace TOS With Empty"
"Exec" % "str --> empty"
"pop empty"
newdef

"attrval" "Create Atribute Value With Leading Space"
"Exec" % "val name --> attrib"
'^" " &"=""" ^ &""""'
newdef

"attrval&" "Append Attribute Value"
"Exec" % "xml-text --> xml-text-attred"
'
attrval &
'
newdef

"sval" "String Value Entry and Append"
"Exec" % "builder valname --> adj-build"
"Str.CatValue"
newdef

"aval" "Convert From Hex Value Entry and Append"
"Exec" % "builder valname --> adj-build"
'dup _ hex2asc quotesep "!" catpref catcatcr'
newdef

"jval" "Convert to Javascript Field Assign and Append"
"Exec" % "builder valname --> adj-build"
'
dup _ """" "\""" replall cr "\n" replall ^"""" &""""
exch ^"document.all.txt" &".value = " ^ &";" catcr &
'
newdef

"xval" "Text Encode Xml Value Entry"
"Exec" % "value valname --> xml-val-line"
'
startag
exch "value" attrval&
"text" "encode" attrval&
termtag catcr
'
newdef

"xvalesc" "Escape Encode Xml Value Entry Alias as Text"
"Exec" % "value valname --> xml-val-line"
'
startag
exch escape "value" attrval&
"text" "encode" attrval&
termtag catcr
'
newdef

"xvalhex" "Hex Encode Xml Value Entry Alias as Text"
"Exec" % "value valname --> xml-val-line"
'
startag
exch asc2hex "value" attrval&
"text" "encode" attrval&
termtag catcr
'
newdef

"xval&hex" "Hex Encode Xml Value Entry Alias as Text and Append"
"Exec" % "value valname --> xml-val-line"
'xvalhex &'
newdef

"endtag" "Name to End Tag"
"Exec" % "str --> adj-str"
'^"</" &">"'
newdef

"startag" "Name to Start Tag"
"Exec" % "str --> adj-str"
'^"<" &" "'
newdef

"termtag" "Add Self Terminating Tag"
"Exec" % "str --> adj-str"
'&"/>"'
newdef

"refiling?" "Does Reextended File Exist"
"Exec" % "path seed ext --> path seed exists"
"refiling exists"
newdef

"refile" "Reextended Current Process File and Write"
"Exec" % "path seed data ext --> path seed"
"third exch reextend ^4 write"
newdef

"refiling" "Reextended Current Process File"
"Exec" % "path seed ext --> path seed reext-filespec"
"second exch reextend ^3"
newdef

"tojsquo" "Convert to JS File Format Filespec Then Quoted"
"Exec" % "win-file --> js-file-quo"
"tojs quoter"
newdef

"js&xact" "Xact Dir to JS Filespec Add Quoted"
"Exec" % "builder --> adj-build"
"_Xact.Dir tojsquo &"
newdef

"fromjsquo" "Convert from JS Filespec Then Quoted"
"Exec" % "js-file --> win-file-quo"
"fromjs quoter"
newdef

"tojs" "Convert to JS File Format Filespec"
"Exec" % "win-file --> js-file"
"*jsphfspc"
newdef

"fromjs" "Convert from JS Filespec"
"Exec" % "js-file --> win-file"
"*jsphfspd"
newdef

"onlylf" "Line Feed Character"
"Exec" % "str --> adj-str"
"cr lf replall"
newdef

"lf" "Line Feed Character"
"Exec" % "--> lf"
"0x0A char"
newdef

"ret" "Return Character"
"Exec" % "--> ret"
"0x0D char"
newdef

"crlf" "Return Character"
"Exec" % "--> crlf"
"cr"
newdef

"catlf" "Append Line Feed Character"
"Exec" % "str --> adj-str"
"lf &"
newdef

"catret" "Append Return Character"
"Exec" % "str --> adj-str"
"ret &"
newdef

"seek!\?" "Seek Descend from Current Node Set if Exists"
"Exec" % "name --> exists"
'
false exch seek\?
{
 !\
 pop true
} if
'
newdef

"seek\?" "Seek Named Tree Node Descend from Current Node"
"Exec" % "name --> [ node ] exists"
'
seek\
% next anchor pos seeks
pop2nd pop3rd
% anchor seeks
not dup not { pop2nd } if
'
newdef

"now!conn" "Based Current Time Suffix Write Connector Text"
"Exec" % "data fileroot -->"
'&"_" basenow & text!conn'
newdef

"bnow!conn" "Based Current Time Suffix Write Connector Binary"
"Exec" % "data fileroot -->"
'&"_" basenow & btex!conn'
newdef

"text*sess" "Session Path and Text Extension Exec"
"Exec" % "fileroot -->"
"text ofsess exec"
newdef

"text*fact" "Factory Path and Text Extension Exec"
"Exec" % "fileroot -->"
"text offact exec"
newdef

"text*mach" "Machine Source Path and Text Extension Exec"
"Exec" % "fileroot -->"
"text ofmach exec"
newdef

"text*subj" "Subject Path and Text Extension Exec"
"Exec" % "fileroot -->"
"text ofsubj exec"
newdef

"text!sess" "Session Path and Text Extension Write"
"Exec" % "data fileroot -->"
"text ofsess write"
newdef

"text!fact" "Factory Path and Text Extension Write"
"Exec" % "data fileroot -->"
"text offact write"
newdef

"text!mach" "Machine Source Path and Text Extension Write"
"Exec" % "data fileroot -->"
"text ofmach write"
newdef

"text!subj" "Subject Path and Text Extension Write"
"Exec" % "data fileroot -->"
"text ofsubj write"
newdef

"ofsess" "Prefix Session Directory Path"
"Exec" % " filename --> filespec"
"^_Sess.Dir"
newdef

"ofsubj" "Prefix Subject Directory Path"
"Exec" % " filename --> filespec"
"^_Subj.Dir"
newdef

"ofsales" "Prefix Sales Directory Path"
"Exec" % " filename --> filespec"
"^_Sales.Dir"
newdef

"filed" "File Modified Time Stamp"
"Exec" % "dir seed --> dir seed date-time"
"filing stamp"
newdef

"made" "File Created Time Stamp"
"Exec" % "dir seed --> dir seed date-time"
"filing created"
newdef

"stamp" "File Modified Time"
"Exec" % "file --> date-mod"
"System.FileTimes pop2"
newdef

"created" "File Created Time"
"Exec" % "file --> date-create"
"System.FileTimes pop2&3"
newdef

"stamped" "File Date and Time Under Sep Under Prefix"
"Exec" % "filespec --> date-time-suffix"
"stamp Time.FullOrder"
newdef

"restoring" "Restoring Window If Not"
"Exec" % "win-handle --> restored"
"
 dup nonzero
 {
%
% window running, insure not min or max
%
  dup unrestored
  dup
  {
   second Win.Restore
  } if
  pop2nd not
 } if
%
% stack: restored
%
"
newdef

"unrestored" "Is Window in Restored State"
"Exec" % "win-handle --> min-or-max"
"dup Win.IsIconic exch Win.IsZoomed or"
newdef

"elem$" "Make Element of String"
"Exec" % "str elem-name --> elem-str"
'dup ^"<" &">" exch ^"</" &">" ^3) &'
newdef

"page@" "Page at Task Tree"
"Exec" % "--> page"
"Task.@ _Ent.Page"
newdef

"root@sel" "Select Root Task Node"
"Exec" % "-->"
"Task.@ rootsel"
newdef

"page@sel" "Page at Selected Task Node"
"Exec" % "--> page"
"Task.@Sel _Ent.Page"
newdef

"noext" "Truncate the Extension From Filename"
"Exec" % "--> filename --> noext-filename"
"empty reextend"
newdef

"text*bin" "Add Text Extension and Perform in Bin"
"Exec" % "fileroot -->"
"bintext exec"
newdef

"deskjsx" "Add Jsx Extension and Path to Desk"
"Exec" % "fileroot --> filespec"
"jsx ofdesk"
newdef

"jsx_desk" "Add Jsx Extension Read from Desk"
"Exec" % "data fileroot -->"
"deskjsx read"
newdef

"text!bin" "Add Text Extension Write to Bin"
"Exec" % "data fileroot -->"
"bintext write"
newdef

"curxact" "Read Current Xact Marker from Bin"
"Exec" % "-->"
'"_curxact" text_bin zeronull !Xact'
newdef

"xactseed" "Seed of Current Xact Marker"
"Exec" % "--> xact-cur-seed"
'_Xact positive { xact } { empty } ifelse'
newdef

"text_bin" "Add Text Extension Read From Bin"
"Exec" % "fileroot --> data"
"bintext read"
newdef

"text_fact" "Add Text Extension Read From Factory"
"Exec" % "fileroot --> data"
"text offact read"
newdef

"text_mach" "Add Text Extension Read From Machine Source"
"Exec" % "fileroot --> data"
"text ofmach read"
newdef

"abs_@" "Entire Run Tree Xml to Connector Tree Name"
"Exec" % "-->"
"_@ abs_"
newdef

"abs!" "Merge Into Run Tree Absolute"
"Exec" % "abs-xml -->"
'"Apex" *xmlzwebr !Response'
newdef

"web?" "Next Web Buffered Item"
"Exec" % "sub-addr --> [buf-item] item-exists"
'^"Apan.Web." "NextSeq" @^Adance any?'
newdef

"web!" "Merge Into Run Tree at Web"
"Exec" % "sub-web-xml sub-addr -->"
'elem$ "Web" elem$ abs!'
newdef

"abs_" "Write Entire Run Tree Xml to Connector"
"Exec" % "out-root -->"
'"_Run" *xmlzwebr exch text!conn'
newdef

"text!conn" "Connector Path and Text Extension Write"
"Exec" % "data fileroot -->"
"conntext write"
newdef

"text!snap" "Snap Path and Text Extension Write"
"Exec" % "data fileroot -->"
"snaptext write"
newdef

"text!sales" "Commerce Path and Text Extension Write"
"Exec" % "data fileroot -->"
"text ofsales write"
newdef

"text*snap" "Snap Path and Text Extension Execute"
"Exec" % "fileroot -->"
"snaptext exec"
newdef

"text_snap" "Snap Path and Text Extension Read"
"Exec" % "fileroot --> data"
"snaptext read"
newdef

"snaptext" "Format Filename with Snap Path and Text Extension"
"Exec" % "fileroot --> file-spec"
"ofsnap text"
newdef

"btex!conn" "Connector Path and Text Extension Write Binary"
"Exec" % "bdata fileroot -->"
"conntext writeb"
newdef

"conn*" "Connector Path Execute"
"Exec" % "filename -->"
"ofconn exec"
newdef

"text*conn" "Connector Path and Text Extension Execute"
"Exec" % "fileroot -->"
"conntext exec"
newdef

"text_conn" "Connector Path and Text Extension Read"
"Exec" % "fileroot --> data"
"conntext read"
newdef

"text_xact" "Xact Path and Text Extension Read"
"Exec" % "fileroot --> data"
"xactext read"
newdef

"text*xact" "Xact Path and Text Extension Execute"
"Exec" % "fileroot -->"
"xactext exec"
newdef

"text!xact" "Xact Path and Text Extension Write"
"Exec" % "fileroot -->"
"xactext write"
newdef

"xactphase" "Load Current Phase from Xact Directory"
"Exec" % "-->"
'empty !Camera.Phase "phase" text*xact'
newdef

"xactinfo" "Load Original Values from Xact Directory"
"Exec" % "-->"
'"incoming" text*xact'
newdef

"nextdir" "Next Directory of Wildcard"
"Exec" % "path seed --> path next-dir no-next-dir"
"second File.NextDirOf isnull"
newdef

"subon?" "Does Named Subform Exist"
"Exec" % "sub-name --> subformed"
"Mep._ positive"
newdef

"factory?" "Is Factory System to be Supervised"
"Exec" % "--> fact-superv"
'_Arching.FactServe true? _Photoshop zeronull and'
newdef

"devices?" "Is Device System to be Supervised"
"Exec" % "--> dev-superv"
'_Arching.DevServe true?'
newdef

"photos?" "Is Photo System to be Supervised"
"Exec" % "--> photo-superv"
'_Arching.PhotoServe true? "Customers" subon? _Aamg.Testing or and'
newdef

"images?" "Are Images to be Supervised"
"Exec" % "--> img-superv"
"_Arching.ImgServe true?"
newdef

"trackers?" "Are Trackers to be Supervised"
"Exec" % "--> trak-superv"
"_Arching.TrakServe true?"
newdef

"true?" "String Equal to True"
"Exec" % "str --> str-true"
'lower "true" eq$'
newdef

"comment" "Comment String with Slash Star Syntax"
"Exec" % "str --> commented-str"
'
^"
/* " &" */"
'
newdef

"barrier" "Shed and Track Remaining Stack Items"
"Exec" % "[ remaining . . . ] -->"
'
count positive
{
 count ^"!!!!" &" [" &_tick &"]" log#
 empty
 {
  count 1 eq ?
  exch dispcr$ short$ ^"( " catcr &
 } loop
 logs
} if
'
newdef


"barrier1" "Shed and Track Remaining Stack Items"
"Exec" % "[ remaining . . . ] -->"
'
count - positive
{
 "!!!! " &" [" &_tick &"]" log)(
 count - countdown
 {
  dup + + -1 roll dispcr$ short$ ^" " & ^"!! " logs
 } for
} if
pop
'
newdef

"log#" "Log with Stack Count Track"
"Exec" % "log-pref -->"
'log@ dispcr$ logs'
newdef

"log@" "Prep Log with Stack Count Track"
"Exec" % "log-pref --> log-str"
'&" @" _@ & &" (" count - & &")"'
newdef

"log)(" "Log with Stack Count Track"
"Exec" % "item log-pref --> item"
'
log@ &" "
count 1 gt
{
 &2 dispcr$ short$
}
{
 &"-none-"
} ifelse
logs
'
newdef

"dispcr$" "Possibly Shorten Display String"
"Exec" % "str --> adj-str"
'cr "\\" replall cr 1 left "\\" replall cr 1 right "\\" replall'
newdef

"short$" "Possibly Shorten Display String"
"Exec" % "disp-str --> adj-str"
'
length 80 gt
{
 dup 40 left &" . . . " exch 40 right &
} if
'
newdef

"final\?" "Next Child Not Exist"
"Exec" % "--> child-node no-child"
"Tree.Next?"
newdef

"first\?" "First Child Exists"
"Exec" % "--> [ child-node ] has-child" 
"_\ Tree._First"
newdef

"last\?" "Last Child Exists"
"Exec" % "--> [ child-node ] has-child"
"_\ Tree._Last"
newdef

"xactext" "Xact Path and Reextend Text Extension"
"Exec" % "fileroot --> file-spec"
"ofxact retext"
newdef

%%% JIB oftems has a forward slash trailing, not a backslash
"oftems" "Prefix Template Directory"
"Exec" % "file-name --> file-spec"
"'Templates/' ofsnap ^"
newdef

"ofxact" "Prefix Xact Directory"
"Exec" % "file-name --> file-spec"
"_Xact *xactfold ^_Xact.Dir"
newdef

"chained" "Prefix Virtual Chain Xact Directory"
"Exec" % "file-name --> url-spec"
'xact &"/" ofchain ^'
newdef

"xact" "Xact Nomer"
"Exec" % "--> xact-nomer"
'"xact" &_Xact'
newdef

"chain" "Virtual Chain Area No Trailing Slash"
"Exec" % "--> vir-chain"
'_Arching.VirChain'
newdef

"ofchain" "Virtual Chain Prefix"
"Exec" % "filename --> url-rel"
'chain &"/" ^'
newdef

/* jib deprecate replace by look&
"quoendcr" "Double Quote and Cr Concat To"
"Exec" % "str --> quoted-str-cr"
"quoter & catcr"
newdef
*/

"ofsnap" "Prefix Photo Path"
"Exec" % "file-name --> file-spec"
"snap ^"
newdef

"snap" "Photo Pool Url With Trailing Backslash"
"Exec" % "--> snap-chain"
"_Arching.PhysChain"
newdef

"outbase" "Attraction DataBase Cmd Url"
"Exec" % "--> attr-database-url"
"public &'/' &_Arching.Request"
newdef

"inbase" "Localhost DataBase Cmd Url"
"Exec" % "--> lhost-database-url"
"local &_Arching.Request"
newdef

"local" "Localhost Url With Trailing Slash"
"Exec" % "--> lhost-url"
"_Arching.LocalHost"
newdef

"oflocal" "Prefix Localhost Path"
"Exec" % "file-name --> file-spec"
"^_Arching.Lhost"
newdef

"public" "Public Http Attraction Website No Trailing Slash"
"Exec" % "--> attr-public"
"http &_Arching.OutIP"
newdef

"secure" "Secure Https Attraction Website No Trailing Slash"
"Exec" % "--> attr-secure"
"https &_Arching.OutIP"
newdef

"http" "Http Prefix With Slashes"
"Exec" % "--> http-prefix"
'"http://"'
newdef

"https" "Https Prefix With Slashes"
"Exec" % "--> https-prefix"
'"https://"'
newdef

"hex*resp" "Decode Tell Hex Response and Perform"
"Exec" % "str -->"
"hexresp execstr"
newdef

"hexresp" "Decode Tell Hex Response"
"Exec" % "str --> tell-content"
"'*****x' right$ 'x*****' left$ hex2asc"
newdef

"serving" "Format Url with Remote Tell Command"
"Exec" % "str --> remote-tell-url"
"public &'/' &_Arching.Command ^"
newdef

"telling" "Format Url with Localhost Tell Command"
"Exec" % "str --> tell-url"
"local &_Arching.Command ^"
newdef

"none?" "String Has No Content Retain Any Content"
"Exec" % "str --> [ str ] no-content (str if content)"
"any? not"
newdef

"notnull" "Does String Have Content"
"Exec" % "str --> str has-content"
"isnull not"
newdef

"none)?" "Does String Have No Content Consumes String"
"Exec" % "str --> no-content"
"isnull)"
newdef

"folder" "Make Directory from Normal/Unterminated Absolute Path"
"Exec" % "path-str --> norm-path"
'
length 3 gt
{
 dup 1 right "\" eq$
 {
  -1 right
 } if
 File.MakeNorm
}
{
 dup ^"bad path -" &"-" logs stop
} ifelse
'
newdef

"asc$" "Ascii of Single Leftmost Character"
"Exec" % "str --> asc-val"
"1 left asc"
newdef

"asc$(" "Ascii of Single Leftmost Character Keeping String"
"Exec" % "str --> str asc-val"
"dup asc$"
newdef

"connexec" "Format Filename with Connector Path and Execute"
"Exec" % "fileroot --> file-spec"
"ofconn exec"
newdef

"conntext" "Format Filename with Connector Path and Text Extension"
"Exec" % "fileroot --> file-spec"
"ofconn text"
newdef

"fork?" "Is Forked Tree Name and Not Consumes"
"Exec" % "name --> name forked"
'"#" found?'
newdef

"fork)?" "Is Forked Tree Name and Consumes"
"Exec" % "name --> forked"
'"#" found)?'
newdef

"fork@)?" "Current Tree Forked Tree Name and Consumes"
"Exec" % "--> forked"
"_@ fork)?"
newdef

"fork@?" "Current Tree Forked Tree Name and Not Consumes"
"Exec" % "--> @ forked"
"_@ fork?"
newdef

"fork$" "Relative Hier String for Current Node"
"Exec" % "--> hier-str"
"_\ branch"
newdef

"forker" "Prefix for any Possible Forked Form"
"Exec" % "--> fork-root"
'_@ "#" left$'
newdef

"forked" "Fork Level Count"
"Exec" % "--> fork-count"
'"#" _@ Str.Found'
newdef

"stake\" "Extend From Current Node"
"Exec" % "seek-str -->"
"_\ make !\"
newdef

"seek\" "Seek From Current Node"
"Exec" % "seek-str --> next anchor pos seeks"
"false _\ @^Seek"
newdef

"seek\(" "Seek From Current Node Keep Name"
"Exec" % "seek-str --> seek-str next anchor pos seeks"
"dup seek\"
newdef

"x/root*" "Navigate from Root Xhelp Node"
"Exec" % "abs-ref -->"
'^"#" x!/*'
newdef

"x!" "Set Xhelp Steering"
"Exec" % "xhelp-ref -->"
"!Help.Url"
newdef

"x/(*" "Navigate to Xhelp Node Deferred"
"Exec" % "-->"
"*xhelstar("
newdef

"x/*" "Navigate to Xhelp Node"
"Exec" % "-->"
"*xhelstar"
newdef

"x!/*" "Steer and Navigate to Xhelp Node"
"Exec" % "steer -->"
"x! x/*"
newdef

"x/^>" "Seek to Parent Xhelp Node"
"Exec" % "steer -->"
'^"^" x! x/>'
newdef

"x/^(>" "Seek to Parent Xhelp Node Deferred"
"Exec" % "steer -->"
'^"^" x! x/(>'
newdef

"x/>" "Seek to Xhelp Node"
"Exec" % "-->"
"*xhelseek"
newdef

"x!/>" "Steer and Seek to Xhelp Node"
"Exec" % "steer -->"
"x! x/>"
newdef

"x/(>" "Seek to Xhelp Node Deferred"
"Exec" % "-->"
"*xhelseek("
newdef

"x!/(>" "Steer and Seek to Xhelp Node Deferred"
"Exec" % "steer -->"
"x! x/(>"
newdef

"of#" "Prepare Value Name for Tree Id"
"Exec" % "tree-name --> value-name"
'^"#" &"#"'
newdef

"of@" "Prepare Value Name for this Tree Id"
"Exec" % "--> value-name"
"_@ of#"
newdef

"of@_" "Get Value for this Tree Id"
"Exec" % "--> value"
"of@ _"
newdef

"of@!" "Set Value for this Tree Id"
"Exec" % "value -->"
"of@ !"
newdef

"un_" "Get and Empty Value"
"Exec" % "--> value"
"dup _ empty rot !"
newdef

"un._" "Get and Empty Rooted Value"
"Exec" % "--> value"
"dup ._ empty rot .!"
newdef

"x/<<" "Go Back an Xhelp Level"
"Exec" % "-->"
"*xhelback"
newdef

"x/<<(" "Go Back an Xhelp Level Deferred"
"Exec" % "-->"
"*xhelback("
newdef

"view?" "Currently Viewing Mode"
"Exec" % "--> viewing"
"_Arching"
newdef

"retr?" "Currently Retreat Mode"
"Exec" % "--> retreating"
"_Xhelp.Retreat"
newdef

"retr!" "Set Retreat Mode"
"Exec" % "retreat -->"
"!Xhelp.Retreat"
newdef

"view!" "Set Viewing Mode"
"Exec" % "viewing -->"
"!Arching"
newdef

"newedit?" "After True Edit Check for New"
"Exec" % "--> new-edit"
"_Edit negative"
newdef

"edit?" "Are Edit for Item Processes Occurring"
"Exec" % "--> editing-item"
"_Edit any)?"
newdef

"edits?" "Are Edit Processes Occurring"
"Exec" % "--> editing"
"_Edits any)?"
newdef

"newedit" "Set Edit Processes for New Item Occurring"
"Exec" % "-->"
"-1 !Edit"
newdef

"newedits" "Set New Edit Processes Occurring"
"Exec" % "-->"
"-1 !Edits"
newdef

"noedit" "Set Edit Processes for Item Not Occurring"
"Exec" % "-->"
"empty !Edit"
newdef

"noedit?" "Are Edit Processes for Item Not Occurring"
"Exec" % "--> not-editing-item"
"edit? not"
newdef

"noedits" "Edit Processes Not Occurring"
"Exec" % "-->"
"empty !Edits"
newdef

"noedits?" "Are Edit Processes Not Occurring"
"Exec" % "--> not-editing"
"edits? not"
newdef

"lockname" "Lock Name Field Read Only"
"Exec" % "-->"
"empty *enteronm Help.!"
newdef

"lockval" "Lock Value Field Read Only"
"Exec" % "-->"
"empty *enterova Help.!"
newdef

"unlockdis" "Lock Display and Name Fields Read Only"
"Exec" % "-->"
"empty *enterall Help.!"
newdef

"lockdis" "Lock Display and Name Fields Read Only"
"Exec" % "-->"
"empty *enteroff Help.!"
newdef

"contab&" "Append Revert to Content Tab"
"Exec" % "-->"
'&"Tabber(1);"'
newdef

"contab" "Revert to Content Tab"
"Exec" % "-->"
"empty contab& Help.!"
newdef

"zerotab&" "Append Revert to First Tab"
"Exec" % "-->"
'&"Tabber(0);"'
newdef

"zerotab" "Revert to First Tab"
"Exec" % "-->"
"empty zerotab& Help.!"
newdef

"untrim" "Unescape and Trim"
"Exec" % "str --> adj-str"
"unescape trim"
newdef

"cable(" "Wire Operation Source"
"Exec" % "--> wiresrc"
"Ent._E1 untrim"
newdef

"strand(" "Wire Operation Type"
"Exec" % "--> wiretype"
"Ent._E2 untrim"
newdef

"wireop(" "Wire Operation"
"Exec" % "--> wireop"
"Ent._E3 untrim"
newdef

"wired(" "Wired Response for Wire Op"
"Exec" % "--> wired"
"Ent._E4 untrim"
newdef

"wirex(" "Wired Extra Response 1 for Wire Op"
"Exec" % "--> wirex"
"Ent._E5 untrim"
newdef

"wirex2(" "Wired Extra Response 2 for Wire Op"
"Exec" % "--> wirex"
"Ent._E6 untrim"
newdef

"wirex3(" "Wired Extra Response 3 for Wire Op"
"Exec" % "--> wirex"
"Ent._E7 untrim"
newdef

"wirex4(" "Wired Extra Response 4 for Wire Op"
"Exec" % "--> wirex"
"Ent._E8 untrim"
newdef

"wirex5(" "Wired Extra Response 5 for Wire Op"
"Exec" % "--> wirex"
"Ent._E9 untrim"
newdef

"wired*" "Execute Wired Response for Wire Op"
"Exec" % "-->"
"wired( dup logs execstr"
newdef

"x/act" "Invoke Help Action"
"Exec" % "action -->"
"x/act? pop"
newdef

"x/act?" "Invoke Help Action with Continue"
"Exec" % "action --> continue"
"*xhelperx"
newdef

"helpoff" "Make Help and Window in Help Form Hidden"
"Exec" % "-->"
"Help.@Help false Mep.Window hide"
newdef

"helpon" "Make Help and Window in Help Form Visible"
"Exec" % "-->"
"Help.@Help show true Mep.Window"
newdef

"left$/" "String to Left of Token Found from End"
"Exec" % "source token --> left-of"
"Str.RevLeft"
newdef

"right$/" "String to Right of Token Found from End"
"Exec" % "source token --> right-of"
"Str.RevRight"
newdef

"left)$" "String to Left of Token Keep Token"
"Exec" % "source token --> left-of-with"
"dup tuck Str.Left ^"
newdef

"left$" "String to Left of Token"
"Exec" % "source token --> left-of"
"Str.Left"
newdef

"right($" "String to Right of Token Keep Token"
"Exec" % "source token --> right-of"
"dup tuck Str.Right &"
newdef

"right$" "String to Right of Token"
"Exec" % "source token --> right-of"
"Str.Right"
newdef

"overext" "Overwrite New Extension"
"Exec" % "file newext -->"
"second exch reextend overwrite"
newdef

"Form.PosTop" "Bring Window To Top at Position"
"Exec" % win-x1 win-y1 win-width win-height -->  units in pixels
"Mep._FormHwnd _HWND_TOP 6 2 roll 0 Win.Position pop"
newdef

"Form.Topmost" "Force Form to Topmost"
"Exec" % "-->"
"Mep._FormHwnd Win.ForceTop"
newdef

"Form.ToTop" "Bring Form to Top"
"Exec" % "-->"
"Mep._FormHwnd Win.ToTop"
newdef

"Form.NotTop" "Form Not Topmost"
"Exec" % "-->"
"Mep._FormHwnd Win.NotTop"
newdef

"response" "Decode Flash Result"
"Exec" % "flash-result --> decoded-result"
'"<string>" 1 1 1 parse "</string>" 0 1 1 parse entdec'
newdef

"conn" "Connector Location"
"Exec" % "--> conn-dir"
"_Arching.Connector"
newdef

"snap(" "Wildcard Files Within Snap"
"Exec" % "wildcard --> snap-dir snap-seed"
"!wilder snap empty"
newdef

"conn(" "Wildcard Files Within Connector"
"Exec" % "wildcard --> conn-dir conn-seed"
"!wilder conn empty"
newdef

"ofcut" "Prefix Cutter Source Path"
"Exec" % "file-name --> file-spec"
"^_Arching.ReachSrc"
newdef

"ofconn" "Prefix Connector Path"
"Exec" % "file-name --> file-spec"
"^_Arching.Connector"
newdef

"filing(" "Wildcard Files Within Bin"
"Exec" % "wildcard --> bin-dir bin-seed"
"!wilder empty ofbin empty"
newdef

"filing)" "End of File process"
"Exec" % "wildcard --> bin-dir bin-seed"
"pop2"
newdef

"anytext" "Add Any Text Term Post Wildcard"
"Exec" % "pre-wild --> wild-spec"
'&"_*.txt"'
newdef

"nextfile" "Next File of Wildcard"
"Exec" % "path seed --> path next no-next-file"
"_wilder nextof"
newdef

"nextof" "Next File of Wildcard Spec"
"Exec" % "path seed spec --> path next no-next-file"
"^3 File.NextOf isnull"
newdef

"prevfile" "Previous File of Wildcard"
"Exec" % "path seed --> path next no-prev-file"
"_wilder ^3 File.PrevOf isnull"
newdef

"lookin?" "Look for Subject in File and Add to Lookup If New"
"Exec" % file-name lookup-subject --> [ items . . ] false ( if not new item)
       % file-name lookup-subject --> [ items . . ] file-spec true ( if new item)
       % items are only from 'found' lookup processes  new-item,
       % spaces are converted to underlines in lookup-subject
'underspc dup keep( exch xflex dup keep( read
 lookstr not keep) keep) third
 { ^"|" catcr exch dup read &3) second write exch } { pop2 } ifelse
'
newdef

"elem(" "Element Within Xml String"
"Exec" % "xml-string elem-name --> xml-string elem-content"
'2 copy ^"<" &">" right$ exch ^"</" &">" left$'
newdef

"finaled" "Finalized File Process"
"Exec" % "path file-name --> path file-name"
'dup ^3 ".xtx" overext'
newdef

"reading" "Read Current Process File"
"Exec" % "path file-name --> path file-name content"
"dup ^3 read"
newdef

"execing" "Execute Current Process File"
"Exec" % "path file-name --> path file-name"
"dup ^3 exec"
newdef

"filing" "Full Filespec of Current File Process"
"Exec" % "path file-name --> path file-name file-spec"
"dup ^3"
newdef

"patched" "Patch Enclose Xml String"
"Exec" % "xml-str --> patched-xml-str"
"^'<Patch>' &'</Patch>'"
newdef

"(@" "Push Current Task"
"Exec" % "--> task"
"_@"
newdef

")@" "Restore Current Task"
"Exec" % "task -->"
"dup !owner !@"
newdef

"newsub" "Create Subform Name of Type"
"Exec" % "name type -->"
"exch )@ -1 subformed"
newdef

"floatup" "Float Current Form Above Supplied Form"
"Exec" % "base-form -->"
"_@ false *panelflt"
newdef

"unfloat" "Unfloat Current Form from Supplied Form"
"Exec" % "base-form -->"
"_@ *panelufl"
newdef

"helpup" "Float Current Form Above Help"
"Exec" % " -->"
"_@ Help.@Help _@ exch false *panelflt"
newdef

"root\(" "Set Root as Current Node and on Stack"
"Exec" % " --> rootnode"
"root\ _\"
newdef

"unchild" "Remove All Nodes Below Root"
"Exec" % " -->"
"root\( Tree./Below root\"
newdef

"unsort" "Turn Off Node Sorting"
"Exec" % " -->"
' '
newdef

"rootsel" "Select Root Node of Tree"
"Exec" % " -->"
"root\( Task.!Select"
newdef

"found)?" "Found String in Another and Consumes"
"Exec" % "source find --> found"
"exch Str.Found positive"
newdef

"found?" "Found String in Another and Not Consume"
"Exec" % "source find --> source found"
"second Str.Found positive"
newdef