*defxacts

definer
{

"residue" "Create Residual File and Proto File with Proto Name for Reextension"
"Exec" % "file-data out-file --> proto"
'".yty" residual'
newdef

"inst$" "Installation Key of Stamp and Random"
"Exec" % "--> install-key"
'_Install.Stamp &"_" &_Install.Random'
newdef

"amach" "Is This A Machine Level"
"Exec" % "--> is-amach"
'axutype "A" eq$'
newdef

"locked" "Suffix Locker Code and Text"
"Exec" % "prefix --> "
'&_Arching.ServLock text'
newdef

"lock<" "Switch Back to Original Locker Code"
"Exec" % "--> "
'_Arching.OrigLock !Arching.ServLock'
newdef

"lock>" "Save Original Locker Code"
"Exec" % "--> "
'_Arching.ServLock !Arching.OrigLock'
newdef

"Claimer.!?" "Attempt to Claim Both"
"Exec" % "ider --> claimed"
'
dup Claimer.!A
dup Claimer.!B
dup Claimer.?
{
 dup Claimer.?
 {
  true
 }
 {
  dup Claimer./
  false
 } ifelse
}
{
 dup Claimer./
 false
} ifelse
pop2nd
'
newdef

"Claimer./" "Unclaim Both Our Claims"
"Exec" % "ider -->"
'^"?_" &".lok" ofxact delfiles'
newdef

"Claimer.//" "Unclaim All Claims"
"Exec" % "-->"
'"?_*.lok" ofxact delfiles'
newdef

"Claimer.?" "Are Both Claimed"
"Exec" % "ider --> both-claimed"
"dup Claimer.A? exch Claimer.B? and"
newdef

"Claimer.A?" "Is A Claimed"
"Exec" % "ider --> claimed"
'"A" Claimer.#?'
newdef

"Claimer.B?" "Is B Claimed"
"Exec" % "ider --> claimed"
'"B" Claimer.#?'
newdef

"Claimer._#" "Number of Claims"
"Exec" % %%% "cltype --> claims"
'
&"_*.lok" !wilder
0
empty ofxact
empty
{
 nextfile ?
 rot + tuck
} loop
filing)
'
newdef

"Claimer.#?" "Is Claim Valid"
"Exec" % "ider cltype --> claimed"
'
dup Claimer._# 1 eq
{
 &"_" ^ &".lok" ofxact exists
}
{
 pop2
 false
} ifelse
'
newdef

"Claimer./?" "Are Both Unclaimed"
"Exec" % "--> both-unclaimed"
'"A" Claimer._# 0 eq "B" Claimer._# 0 eq and'
newdef

"Claimer.!A" "Claim A"
"Exec" % "ider -->"
'"A" Claimer.!'
newdef

"Claimer.!B" "Claim B"
"Exec" % "ider -->"
'"B" Claimer.!'
newdef

"Claimer.!" "Claim Type"
"Exec" % "ider cltype -->"
'&"_" ^ &".lok" ofxact "true !Claim.Locked" &; exch write'
newdef

} if