definer
{
/*
            Case "AppAll"
                ex2p = My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData
            Case "AppData"
                ex2p = My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData
            Case "Current"
                ex2p = System.IO.Directory.GetCurrentDirectory
            Case "Desktop"
                ex2p = My.Computer.FileSystem.SpecialDirectories.Desktop
            Case "MyDocuments"
                ex2p = My.Computer.FileSystem.SpecialDirectories.MyDocuments
            Case "MyMusic"
                ex2p = My.Computer.FileSystem.SpecialDirectories.MyMusic
            Case "MyPictures"
                ex2p = My.Computer.FileSystem.SpecialDirectories.MyPictures
            Case "Programs"
                ex2p = My.Computer.FileSystem.SpecialDirectories.Programs
            Case "ProgramFiles"
                ex2p = My.Computer.FileSystem.SpecialDirectories.ProgramFiles
            Case "Temp"
                ex2p = My.Computer.FileSystem.SpecialDirectories.Temp
            Case Else
                ex2p = ""
*/

"ofdesktop" "Prefix Local Desktop Folder"
"Exec" % "filepart --> desktop-spec"
'"Desktop" File.Special normpath ^'
newdef

"ofdocs" "Prefix Local Document Folder"
"Exec" % "filepart --> docs-spec"
'"MyDocuments" File.Special normpath ^'
newdef

"localp" "Localhost Url With Trailing Colon"
"Exec" % "--> lhost-urlp"
'_Arching.LocalHost -1 right &":"'
newdef

"heretext" "Text File in Robot"
"Exec" % "filename --> text-filename-here"
'text ofhere'
newdef

"text!here" "Write Text File to Robot"
"Exec" % "text filename --> "
'heretext write'
newdef

"text*here" "Exec Text File in Robot"
"Exec" % "filename --> (exec-results. . .)"
'heretext exec$'
newdef

"localporu" "Prefix Localhost Url with Port No Trailing Slash"
"Exec" % "port --> local-ported-url"
"localp ^"
newdef

"App.Standing" "FireDance Was Run From PhoSend"
"Exec" % "--> phosend-run"
'
_Arching.Combo _Arching.Dombo or
'
newdef

} if