definer
{

"Top.!" "Javascript Command to TopOver"
"Exec" % "topover-js --> "
'asc2hex quoter ^"ToOver(" &");" Base.!'
newdef

"atoped" "Determine Matching Atop System Arrival"
"Exec" % "atop-locn --> arrived"
'
3 charat(
")Atoped" log)(
_Atop.Vector
"))Atoped" log)(
eq
exch 2 charat(
")))Atoped" log)(
_Atop.Ncont
"))))Atoped" log)(
eq
rot and exch 1 left
_Atop.Gcont
")))))Atoped" log)(
eq$ and
'
newdef

"atoprim" "Execute Atop Ordinal Primary"
"Exec" % "primnum -->"
'^"prim" !Atop.Cutton *atopfirg'
newdef

"atopvec" "Execute Atop Ordinal Vector"
"Exec" % "vecnum -->"
'^"Vector" !Atop.Cutton *atopfirg'
newdef

"atopviz" "Wait for Vectorize from Atop Page"
"Exec" % "-->"
"*atopwtvi("
newdef

"atop(" "Execute Atop Step Preserving Current Tick"
"Exec" % "chain-step -->"
"_tick !Atop.Chtick true !Atop.Within execstr"
newdef

"atop)" "Done with Atop Step"
"Exec" % "-->"
"false !Atop.Within _Atop.Chtick !tick "
newdef

} if