definer
{

"Info.!" "Direct the Info Text Field Content for Base Help Form"
"Exec" % "info-str -->"
"quoter ^'BasicData._Info = ' &';' ';I;' log)( Base.!"
newdef

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

"baseoff" "Make Base Help and Window in Base Help Form Hidden"
"Exec" % "-->"
"@Help false Mep.Window"
newdef

"baseon" "Make Base Help and Window in Base Help Form Visible"
"Exec" % "-->"
"@Help true Mep.Window"
newdef

"helped/" "Unfloat By Switching Help Over to Task"
"Exec" % "-->"
"_@ @@ _@ exch )@ floatup"
newdef

"helpfloat" "Float Form Above Help"
"Exec" % "-->"
"_@ help@ _@ exch )@ show floatup"
newdef

"helpstd" "Standard Help for New Task"
"Exec" % "help-root mep-name -->"
'exch html exch "helparea" exch *helplopn *helpabov'
newdef

"unhelp)" "Return to Superseded Current Help"
"Exec" % "-->"
"@@ .__Helped dup .!_Helper !Helping helpon"
newdef

"help(" "Supersede Current Help"
"Exec" % "--> current-help"
"helpoff subform @@ .__Helper .!_Helped"
newdef

"help)" "Float Over Superseded Current Help"
"Exec" % "current-help -->"
"App.Above"
newdef

"taskup" "Float Above Prior Task Use Same Help"
"Exec" % "-->"
"owner(_) floatup *helpsame @@"
newdef

"floathide" "Float Above Prior Help and Hide It"
"Exec" % "float-base -->"
"_@ second floatup exch !@ hide !@"
newdef

"newtab" "Revert to New Tab"
"Exec" % "-->"
"empty newtab& Help.!"
newdef

"newtab&" "Append Revert to New Tab"
"Exec" % "-->"
'&"Tabber(2);"'
newdef

"newedits?" "After True Edits Check for New"
"Exec" % "--> new-edits"
"_Edits negative"
newdef

} if