The Predicate Module

// Predicate is called from subject-verb-object SVO()
// to find and express a verb +/- object.
function Predicate() {  // ATM 16mar2002; or your ID & date.
  flushVector(); // to move deep Psi concepts up to English
  // 19jan2002 Security settings are now _after_ call to FV.
  act = 0;  // Precaution even though zeroed in FV.
  en3 = 0;  // No pre-assumptions about grammar category "en3"
  motjuste = 0;
  mt = 0;
  opt = 8; // Look for option eight (a verb).
  par = 2; // Primitive parser looks for Predicate() verbs.
  rv = 0;  // Zero out the auditory recall-vector "rv".
  unk = 0;
  for (i = t; i>midway; i--) {
    enLexicon[i].enExam(); // inspect English nodes
      if (en3 == 8) { // Only look at verbs, for Predicate().
        if (en1 > 0) { 
          act = en1; // Obtain "act" if positive.
          if (act > unk) {
            motjuste = en0;  // ATM 14mar2002 improvement 
            rv = en5; // auditory recall-vector
            unk = act; // to test for higher "act(ivation)"
         // motjuste = mt;
          } // end of if-clause looking for high activation
        } // 19jan2002 End of search for positive "act" values;
      } else continue; // try to avoid looking at non-verbs.
  } // end of loop cycling back through English lexicon
  // 14sep2001 grabbing of verb activation-level
  // for reading during on-screen sentence-output:
  verb_act = unk;   // diagnostic; remove?
  Speech();
  mt = motjuste;    // For use in Activate().
  urpre = pre;      // Preserve "pre" during Activate();
  Activate();       // for sake of En-Psi INTERACTION.
  pre = urpre;      // Retrieve pre after Activate().
  urpsi = motjuste; // For use in psiDamp().
  psiDamp();
  enDamp();         // to de-activate English concepts
  motjuste = 0;     // Reset for safety.
  mt = 0;           // Reset for safety.
  pho = " ";
  // 14sep2001 opportunistically using the following pre-existing
  // par-setting as a condition for dobj_act in NOUN-PHRASE:
  par = 3;
  // make a SPACE-BAR 32?
  nounPhrase();
  urpre = pre;       // Preserve "pre" during Activate();
  caller = "Speech"; // Diagnostic for troubleshooting.
  Activate();        // for sake of residual activation.
  caller = " ";      // For possible use in diagnostic Alerts.
  pre = urpre;       // Retrieve pre after Activate().
  urpsi = mt;        // to make sure that psiDamp works.
  psiDamp();         // So as to leave only peripheral activation.
} // end of Predicate()

\  PREDICATE is called from the subject-verb-object SVO
\  syntax module to find and express a verb +/- object.
:  PREDICATE  \ ATM 13mar2002; DNA/dnate your changes:
  FLUSHVECTOR  \ to move deep Psi concepts up to English
  0 act !  \  precaution even though zeroed in FLUSHVECTOR
  0 motjuste !
  0 mt !
  8 opt !  \ Look for option eight (a verb).
  2 par !  \ Primitive parser looks for PREDICATE verbs.
  0 rv  !
  0 unk !
  midway @ t  @ DO  \ Search backwards through enVocab
    I      3 en{ @  8 = IF  \ only look at PREDICATE/verbs
      I    1 en{ @  unk @ > IF  ( if "act" is higher )
        I  0 en{ @  motjuste !  ( store move-tag of verb )
        I  5 en{ @  rv !  ( auditory recall-vector )
        I  1 en{ @  unk ! ( to test for higher "act" )
     \   mt @  motjuste !  \ Select most active verb.
      THEN
    THEN    \ end of test for opt=8 verbs
  -1 +LOOP  \ end of loop cycling back through English lexicon
 \  mt @ motjuste !  \ for use in ACTIVATE
   0 mt !            \ A precaution lest mt transit SPEECH.
  SPEECH    \ to say or display the verb
  motjuste @ mt !  \ for use in ACTIVATE
  pre @ urpre !
  ACTIVATE   \ to increase and spread "mt" activation
  urpre @ pre !
  motjuste @ urpsi !  \ for use in psiDamp
  psiDamp    \ to deactivate Psi concepts
  enDamp   \  to de-activate English concepts
  32 unk !
  AUDITION  \ for the sake of reentry
  3 par !
  32 EMIT        \ Insert a SPACE.
  NOUN-PHRASE    \ To express direct object of verb,
  pre @ urpre !  \ Preserve "pre" during ACTIVATE
  ACTIVATE       \ for sake of residual activation.
  urpre @ pre !  \ Restore "pre" after ACTIVATE.
  psiDamp        \ So as to leave only peripheral activation.
;  \  End of PREDICATE; return to the SVO syntax module.