( agi00045.F 2016-09-18: Artifical General Intelligence for Robots ) ( replaces obsolete MindForth http://ai.neocities.org/24jul14A.txt ) \ agi00001.F begins port from Perl back into Win32Forth. \ agi00002.F has AudInput call AudListen for input. \ agi00003.F begins to store input characters in AudMem. \ agi00004.F initiates OldConcept; expands AudRecog module. \ agi00005.F completes AudRecog module in need of debugging. \ agi00006.F debugs AudRecog; stubs in EnParser; InStantiate \ agi00007.F improves AudInput calling OldConcept and NewConcept. \ agi00008.F stores recognized old concept or creates a new concept. \ agi00009.F stubs in EnThink and NounPhrase AGI mind-modules. \ agi00010.F initiates the AudDamp module to deactivate engrams. \ agi00011.F stores audpsi retroactively for OldConcept or NewConcept. \ agi00012.F resolves problems with recognition of one-letter words. \ agi00013.F doubles cns to 256; embeds words in AGI MindBoot KB. \ agi00014.F doubles cns to 512; embeds forms of "I" and verb "BE". \ agi00015.F doubles cns to 1024. \ agi00016.F MainLoop > EnThink > EnNounPhrase > SpeechAct. \ agi00017.F moves knowledge base (KB) ontology to start of MindBoot. \ agi00018.F inserts essential adjectives into MindBoot century 100. \ agi00019.F expands MindBoot with concept numbers assigned to nouns. \ agi00020.F finishes sentences of innate knowledge at start of MindBoot. \ agi00021.F reveals major problems lurking in the AudRecog module. \ agi00022.F builds AudRecog back up from scratch instead of debugging. \ agi00023.F finishes allocation of time-points for AGI MindBoot sequence. \ agi00024.F fleshes out the EnNounPhrase Robot Forth AGI mind-module. \ agi00025.F fleshes out most of Robot AGI mind-module EnVerbPhrase. \ agi00026.F removes problem of 13=CR stopping AudInput too early. \ agi00027.F fleshes out EnAuxVerb module for search by parameter. \ agi00028.F begins the re-entry of output back into the robot AI Mind. \ agi00029.F after human input achieves associative response and re-entry. \ agi00030.F fleshes out OldConcept module and SpreadAct mind-module. \ agi00031.F in MindGrid creates advancing trough of inhibition + PsiDecay. \ agi00032.F implements the extra Parser module ported from ghost175.pl \ agi00033.F sets proper recall-vector "rv" for external input and re-entry. \ agi00034.F displays the MindGrid arrays of user input and AGI output. \ agi00035.F implements TabulaRasa module; debugs Parser module. \ agi00036.F solves bug of re-interpreted YOU/I engrams not being found. \ agi00037.F stubs in modules GusRecog OlfRecog TacRecog VisRecog. \ agi00038.F sends noun, not pronouns, into improved SpreadAct module. \ agi00039.F ameliorates bug of Parser setting dba=4 for wrong "tdo". \ agi00040.F handles indirect objects better after resets in SensoryInput. \ agi00041.F exits from EnNounPhrase rather than supply spurious "nounlock". \ agi00042.F inhibits each resurrection in turn of the default ego-concept. \ agi00043.F implements the ReJuvenate module for Robot AI immortality. \ agi00044.F fixes AudRecog bug by de-activating non-match pho as in Perl. \ agi00045.F thoroughly revamps the activation-of-ego by default code. DECIMAL ( 2016JUL25: use decimal numbers ) variable act 0 act ! ( 2016JUL25: activation level ) variable actbase ( 2016JUL28: AudRecog discrimination activation base ) variable aud ( 2016aug14: auditory recall-tag for activating engrams) variable audbase ( 2016aug22: recall-vector for VerbGen ) variable audjuste ( 2016aug14: NounPhrase motjuste aud for Speech module ) variable audpsi ( 2016JUL25: concept number of word in ear{ array ) variable audrec ( 2016JUL28: auditory recognition concept-number ) variable audrun 1 audrun ! ( 2016JUL28: counter of loops through AudRecog ) variable audstop ( 2016aug25: flag to stop SpeechAct after one word ) variable auxverb ( 2016aug23: such as 800=BE; 809=DO; or modal verb ) variable bday ( 2016sep06: TIME&DATE day of birth ) variable bhour ( 2016sep06: TIME&DATE hour of birth ) variable bias 5 bias ! ( 2016aug23: Parser; NewConcept: expected POS ) variable bminute ( 2016sep06: TIME&DATE minute of birth ) variable bmonth ( 2016sep06: TIME&DATE month of birth ) variable bsec ( 2016sep06: TIME&DATE second of birth ) variable byear ( 2016sep06: TIME&DATE year of birth ) variable cns 4056 cns ! ( 2016aug21: MindGrid size ) \ variable cns 3200 cns ! ( 2016sep06: for ReJuvenate TEST; REVERT ) variable coda 64 coda ! ( 2016sep06: memory recycled in ReJuvenate ) variable dba ( 2016JUL25: case for nouns; person for verbs ) variable dirobj ( 2016aug22: flag indicates seeking for a direct object ) variable edge 0 edge ! ( 2016sep06: Rejuvenate edge-of-thought flag ) variable eot ( 2016JUL26: end of text carriage-return ) variable fyi 1 fyi ! ( 2016aug28: rotates through display modalities ) variable hlc 1 hlc ! ( 2016JUL25: human language code ) variable inhibcon ( 2016sep04: flag for neural inhibition ) variable iob ( 2016JUL25: time-of-indirect-object for parser module ) variable jrt ( 2016sep06: ReJuvenate "junior time" for memories moved ) variable jux 0 jux ! ( 2016JUL25: holds psi # of a JUXtaposed word ) variable krt ( 2016aug23: knowledge representation time ) variable lastpho ( 2016aug23: to avoid extra "S" on verbs ) variable len ( 2016JUL27: length, for avoiding non-words in AudInput) variable mfn ( 2016JUL25: "masculine feminine neuter" gender flag ) variable midway 0 midway ! ( 2016JUL25: adjustable time-limit ) variable mjact ( 2016aug14: motjuste-activation for defaulting to 701=I ) variable monopsi ( 2016JUL28: for use in audRecog module ) variable morphpsi ( 2016JUL29: "for audRecog recognition of morphemes" ) variable motjuste ( 2016aug14: "best word for inclusion in a thought" ) variable negjux ( 2016aug22: flag for 250=NOT juxtaposed to a verb ) variable nounlock ( 2016aug14: for a verb to lock onto a seq-noun ) variable num 0 num ! ( 2016JUL25: number-flag for the psy array ) variable nphrnum 0 nphrnum ! ( 2016aug23: NounPhrase number ) variable nphrpos 0 nphrpos ! ( 2016aug26: NounPhrase part-of-speech ) variable nxt ( 2016JUL29: number incremented for each new concept ) variable oldpsi ( 2016JUL28: audpsi becomes oldpsi for OldConcept ) variable onset 0 onset ! ( 2016aug01: of an auditory memory engram ) variable pho ( 2016JUL25: phoneme of input/output & internal reentry ) variable phodex 0 phodex ! ( 2016aug23: pho-index for AudBuffer ) variable pos ( 2016JUL25: part-of-speech) variable pov 1 pov ! ( 2016JUL29: point-of-view: 1=self; 2=dual; 3=alien ) variable prc ( 2016JUL28: provisional recognition in AudRecog ) variable prclen ( 2016JUL28: lenth of stem when prc is declared ) variable pre ( 2016JUL25: previous concept associated with a concept ) variable prejux ( 2016-08-26: previous jux to carry NOT to verb ) variable prepcon ( 2016aug27: prepositional condition-flag for parsing ) variable prepgen ( 2016-08-27: urgency to generate a prepositional phrase ) variable prevtag ( 2016aug28: "previous concept" for "pre" in InStantiate ) variable prsn 0 prsn ! ( 2016aug23: 1st, 2nd, 3rd person of verb-forms ) variable psi ( 2016JUL25: identifier of a psi concept in Psy mindcore ) variable psi12 ( 2016sep06: recall-vector "aud" in Rejuvenate ) variable psibase ( 2016JUL29: "winning psibase with winning actbase" ) variable qv1psi ( 2016aug22: concept for SpreadAct to seek as a subject ) variable qv2psi ( 2016aug22: concept for SpreadAct to seek as a verb ) variable qv3psi ( 2016aug22: concept for SpreadAct to seek as ind. obj. ) variable qv4psi ( 2016aug22: concept for SpreadAct to seek as dir. obj. ) variable recnum ( 2016JUL29: "recognized number of a recognized word" ) variable rjc 0 rjc ! ( 2016aug29: rejuvenation counter for tracking ) variable rv ( 2016aug01: recall-vector for auditory memory ) variable seq ( 2016JUL25: subSEQuent concept associated with another ) variable seqneed ( 2016aug28: noun/pronoun or verb needed as a "seq" ) variable seqpsi ( 2016-08-26: synaptic deglobalized "seq" in SpreadAct ) variable snu ( 2016aug22: subject-number as parameter for verb-selection ) variable spacegap ( 2016aug26: to add gap of one space in SpeechAct ) variable spt ( 2016JUL28: blank space time before start of a word ) variable stemgap ( 2016JUL29: "for avoiding false AudRecog stems" ) variable subjectflag ( 2016aug14: flag for when seeking a subject ) variable subjnum ( 2016aug25: for agreement with predicate nominative ) variable subjpre ( 2016aug28: subject-pre to be held for verb in parsing ) variable subjpsi ( 2016aug22: parameter to govern person of verb-forms ) variable sublen ( 2016JUL29: "length of AudRecog subpsi word-stem" ) variable subpsi ( 2016JUL29: "for AudRecog of sub-component wordstems" ) variable svo2 ( 2016aug17: second item among subj-VERB-indirobj-object ) variable svo3 ( 2016aug17: third item among subj-verb-INDIROBJ-object ) variable svo4 ( 2016aug17: fourth item among subj-verb-IndirObj-OBJECT ) variable t 0 t ! ( 2016JUL25: time incremented during AudMem storage ) variable t2s ( 2016aug14: auditory text-to-speech index for SpeechAct ) variable tai ( 2016aug27: time of artificial intelligence diagnostics ) variable tdo ( 2016aug27: time-of-direct-object for a parser module ) variable tin ( 2016aug29: time-of-input for interactive display ) variable tio ( 2016aug27: time-of-indirect-object for parser module ) variable tkb ( 2016JUL25: time-in-knowledge-base of an idea ) variable topic ( 2016aug25: conceptual topic for a question to be asked ) variable tpp ( 2016aug27: time-of-preposition for parsing ) variable trc ( 2016aug29: tabula-rasa-counter like rjc ) variable tseln ( 2016aug22: time of selection of noun for neural inhibition ) variable tsels ( 2016aug22: time of selection of subject ) variable tselv ( 2016aug22: time of selection of verb for neural inhibition ) variable tsj ( 2016aug27: time-of-subject for parsing ) variable tult ( 2016JUL31: t penultimate, or time-minus-one ) variable tvb ( 2016aug27: time-of-verb for parsing ) variable unk ( 2016JUL26: general "unknown" all-purpose variable ) variable vault 3018 vault ! ( 2016aug21: size of MindBoot ) variable verbcon ( 2016aug27: verb-condition for seeking indirect objects ) variable verblock ( 2016aug22: for subject-noun to lock onto seq-verb ) variable verbpsi ( 2016aug22: psi concept-number of verb in the psy{ array ) variable vphraud ( 2016aug22: holds aud-fetch of verb-form for speech module ) : CHANNEL ( size num -< name >- ) CREATE ( Returns address of newly named channel. ) OVER ( #r #c -- #r #c #r ) , ( Stores number of rows from stack to array.) * CELLS ( Feeds product of columns * rows to ALLOT.) ALLOT ( Reserves given quantity of cells for array.) DOES> ( member; row col -- a-addr ) DUP @ ( row col pfa #rows ) ROT * ( row pfa col-index ) ROT + ( pfa index ) 1 + ( because first cell has the number of rows.) CELLS + ( from number of items to # of bytes in offset ) ; ( 2016JUL25: adopted from 24jul14A.F MindForth AI ) cns @ 13 CHANNEL psy{ ( 2016JUL25: Mindcore concept array "psy" ) cns @ 3 CHANNEL ear{ ( 2016JUL25: Auditory memory channel "ear" ) : TabulaRasa ( 2016aug29: prepare memory as an empty "clean slate" ) 0 trc ! ( 2016aug29: tabula-rasa-counter like jrc ) BEGIN \ 2016aug29: cns @ 1 DO \ 2016aug29: loop throughout "cns" memory. 0 I trc @ psy{ ! \ 2016aug29: put zero into each column. LOOP \ 2016aug29: make sure memory is blank. 1 trc +! \ 2016aug29: Increment the counter. trc @ 13 < WHILE \ 2016aug29: Cover 13 columns designated 0-12; REPEAT \ 2016aug29: 0 trc ! \ 2016aug29: Reset tabula-rasa-counter. BEGIN \ 2016aug29: cns @ 1 DO \ 2016aug29: 0 I trc @ ear{ ! \ 2016aug29: LOOP \ 2016aug29: 1 trc +! \ 2016aug29: Increment the counter. trc @ 3 < WHILE \ 2016aug29: REPEAT \ 2016aug29: cns @ 1 DO \ 2016aug29: 32 I 0 ear{ ! \ 2016aug29: insert ASCII 32=SPACE LOOP \ 2016aug29: ; \ 2016aug29: TabulaRasa returns to MainLoop. : PsiDecay ( 2016-08-27: let conceptual activations dwindle ) CR ." PsiDecay moves conceptual activations towards zero. " CR \ 2016sop01 midway @ t @ DO \ 2016-0827: loop from present back to "midway". I 1 psy{ @ 2 > IF -2 I 1 psy{ +! THEN \ 2016-08-27: approach zero. I 1 psy{ @ 0 < IF 2 I 1 psy{ +! THEN \ 2016-08-27: rapid recovery. -1 +LOOP \ 2016-08-27: loop backwards ; \ 2016-08-27: PsiDecay returns to... : AudDamp ( 2016aug04: deactivate auditory engrams ) \ ." AudDamp! " CR CR \ 2016aug06: TEST; REMOVE midway @ t @ DO \ 2016aug04: loop from present back to "midway". 0 I 1 ear{ ! \ 2016aug04: store zero activation in auditory array. -1 +LOOP \ 2016aug04: loop backwards ; \ 2016aug04: AudDamp returns to AudInput AGI mind-module. : .psy ( 2016JUL25: show concepts in the Psy array ) CR ." Psy mindcore concepts" CR ." time: psi act hlc pos jux pre iob tkb seq num mfn dba rv " \ 2016JUL27 ." -- pho act audpsi " CR \ 2016JUL27 t @ 1+ vault @ DO \ 2016aug24: show only from end of MindBoot "vault" \ t @ 1+ 1 DO \ 2016sep01: show the entire MindGrid \ 240 1 DO \ 2016sep04: show the innate knowledge-base CR I . ." : " ( http://github.com/PriorArt/AGI/wiki/MindGrid ) I 0 psy{ @ . ." " \ 2016JUL25: Show psi I 1 psy{ @ . ." " \ 2016JUL25: Show act I 2 psy{ @ . ." " \ 2016JUL25: Show hlc I 3 psy{ @ . ." " \ 2016JUL25: Show pos I 4 psy{ @ . ." " \ 2016JUL25: Show jux I 5 psy{ @ . ." " \ 2016JUL25: Show pre I 6 psy{ @ . ." " \ 2016JUL25: Show iob I 7 psy{ @ . ." " \ 2016JUL25: Show tkb I 8 psy{ @ . ." " \ 2016JUL25: Show seq I 9 psy{ @ . ." " \ 2016JUL25: Show num I 10 psy{ @ . ." " \ 2016JUL25: Show mfn I 11 psy{ @ . ." " \ 2016JUL25: Show dba I 12 psy{ @ . ." " \ 2016JUL25: Show rv I 0 ear{ @ . ." " \ 2016aug04: Show ear{ ASCII I 1 ear{ @ . ." " \ 2016JUL25: Show activation I 2 ear{ @ . \ 2016JUL25: Show audpsi concept number I 0 ear{ @ EMIT ." " \ 2016aug04: Show ear{ pho LOOP ( 2016JUL25: end of forwards loop through cns time-points ) CR ." time: psi act hlc pos jux pre iob tkb seq num mfn dba rv " \ 0 unk ! CR ." You may enter .psy to view memory engrams or " CR ." MainLoop [ENTER] to erase all memories and restart the Mind." CR ; ( 2016JUL25: End of .psy post-Escape report ) \ act 33-48 = consciousness tier where concepts win selection. \ act 17-32 = subconscious where concepts remain available. \ act 1-16 = noise tier below logical association threshold. : SpreadAct ( 2016aug22: spread activation from concept to concept. ) \ print "\nSpreadAct() has been called to spread conceptual activation.\n"; #2016apr29 CR CR ." SpreadAcr has been called to spread conceptual activation. " \ 2016sep01 \ print " SprA: krt= $krt quapsi= $quapsi actpsi= $actpsi \n"; #2016jun19 \ CR ." SpreadAct: qv1psi = " qv1psi @ . \ 2016aug22: target-subject CR ." Spra: krt= " krt @ . ." qv1psi= " qv1psi @ . \ 2016sep01 PsiDecay \ 2016aug27: reduce conceptual activation in general. qv1psi @ 0 > IF \ 2016aug26: if there is a qv1psi subject-role concept... ." qv1psi=" qv1psi @ . ." now searching " CR \ 2016sep01: TEST; REMOVE midway @ t @ DO \ 2016aug26: search backwards in time. \ I 0 psy{ @ qv1psi @ = I 8 psy{ @ 0 > AND IF \ 2016aug26: match w. seqpsi? \ I 8 psy{ @ seqpsi ! \ 2016aug26: if seq, seqpsi \ THEN \ 2016aug26: end of test for both a concept-match and positive seq. I 0 psy{ @ qv1psi @ = I 7 psy{ @ 0 > AND IF \ 2016aug26: require verblock \ print " i= $i actpsi= $actpsi seqpsi= $seqpsi \n"; #2016apr29 ." I= " I . ." qv1psi= " qv1psi @ . ." seqpsi=" seqpsi @ . \ 2016sep01 I 3 psy{ @ 5 = IF \ 2016aug31: restrict SpreadAct to nouns... CR ." SpreadAct: adding activation to concept #" I 0 psy{ @ . \ 2016aug31 32 I 1 psy{ +! \ 2016aug26: impose less than half of subj-inhibition. \ 48 I 1 psy{ +! \ 2016aug31: impart substantial activation \ print " SprAct-mid: for $k[0] setting $k[1] activation \n"; # 2016jun19 CR ." SprAct-mid: for " I 0 psy{ @ . ." setting " I 1 psy{ @ . ." activation." \ 2016sep01 THEN \ 21016aug31: end of test for augend concept to be a 5=noun. THEN \ 2016aug26: end of test for associated concept with positive tkb verblock. -1 +LOOP \ 2016aug26: end of loop searching for qv1psi subject concept. THEN \ 2016aug26: end of test for spreading activation to a candidate subject. CR ." SpreadAct-end: t qv1psi seqpsi= " t @ . qv1psi @ . seqpsi @ . \ 2016aug31 0 qv1psi ! \ 2016aug26: reset for safety. ; \ 2016sep01: SpreadAct returns to FreeWill after calling of EnThink. : KbLoad ( 2016JUL25: Load the Knowledge Base from the MindBoot ) ( concept fiber psi ) psi @ t @ 0 psy{ ! ( activation level not booted ) ( human language code if used ) ( Store functional pos code. ) pos @ t @ 3 psy{ ! ( Store JUXtaposition ) jux @ t @ 4 psy{ ! \ 2016aug23 ( Store PREvious associand. ) pre @ t @ 5 psy{ ! ( Store indirect object ) iob @ t @ 6 psy{ ! \ 2016aug23 ( Store the "tkb" time-point. ) tkb @ t @ 7 psy{ ! ( Store the subSEQuent tag. ) seq @ t @ 8 psy{ ! ( Store NUMber ) num @ t @ 9 psy{ ! \ 2016aug23 ( Store masc/fem/neuter ) mfn @ t @ 10 psy{ ! \ 2016aug23 ( Store the dba tag ) dba @ t @ 11 psy{ ! \ 2016aug14 ( Store the rv recall-vector. ) rv @ t @ 12 psy{ ! ; ( 2016JUL25: KbLoad returns to MindBoot ) : Parser ( 2016aug27: enlarging the parser function. ) ." Parser: prepcon verbcon psi= " prepcon @ . verbcon @ . psi @ . CR \ 2016aug28 prepcon @ 0 = IF \ 2016aug27: if not handling a preposition... ." Parser: tsj= " tsj @ . ." tvb= " tvb @ . ." tdo= " tdo @ . CR \ 2016aug28: TEST ." Parser: bias= " bias @ . ." seqneed= " seqneed @ . ." psi= " psi @ . CR \ 2016aug29 pos @ 5 = pos @ 7 = OR IF \ 2016aug27: if noun or pronoun... tsj @ 0 = IF \ 2016sep03: if no pre-existing time-of-subject "tsj"... tult @ tsj ! \ 2016aug27: time of subject; THEN \ 2016sep03: end of test for pre-existing time-of-subject ." Parser: psi= " psi @ . ." tsj= " tsj @ . CR \ 2016aug29: TEST verbcon @ 1 = IF \ 2016aug27: if a verb has come in... tio @ 0 > IF \ 2016aug27: if tio previously set... tult @ tdo ! \ 2016aug27: second noun sets time of dir.obj. tio @ tdo @ = IF \ 2016aug28: if both positive times are the same... CR ." Parser: zeroing out tio= " tio @ . \ 2016sep03: TEST; REMOVE 0 tio ! \ 2016aug28: zero out the time of no actual indir.obj. 0 iob ! \ 2016aug28: zero out any pseudo-indirect-onject THEN \ 2016aug28: end of test for no real indirect object THEN \ 2016aug27: end of test to make 2nd noun the direct object. tio @ 0 = IF tult @ tio ! THEN \ 2016aug27: set only once tdo @ 0 = IF tult @ tdo ! THEN \ 2016aug27: initial d.o. setting \ tdo @ 0 > IF \ 2016sep03: if there is a positive time-of-direct-object \ tdo @ tio @ = IF 0 tio ! THEN \ 2016sep03: no simultaneous i&d objects. \ THEN \ 2016sep03: end of test for positive time-of-direct-object "tdo". tvb @ 0 psy{ @ pre ! \ 2016aug27: verb psi will be pre of direct object ." Parser: from tvb= " tvb @ . ." pre= " pre @ . CR \ 2016aug29: TEST; REMOVE tio @ tdo @ = NOT IF \ 2016sep03: if not simultaneous... tio @ 0 psy{ @ iob ! \ 2016aug27: excerpt indirect-object concept for psi6 CR ." Parser: setting iob= " iob @ . ." for tio= " tio @ . \ 2016sep03: TEST; REMOVE 3 tio @ 11 psy{ ! \ 2016aug27: insert dba=3 for dative-case indirect object. THEN \ 2016sep03: end of test for tio spuriously simultaneous with tdo. \ $psy[$tdo]="$k[0],$k[1],$k[2],$k[3],$k[4],$pre,$k[6],$k[7],0,$k[9],$k[10],4,$k[12]"; CR ." Parser: storing 4 as psi11 at tdo= " tdo @ . CR \ 2016sep03: TEST; REMOVE pre @ tdo @ 5 psy{ ! 0 tdo @ 8 psy{ ! 4 tdo @ 11 psy{ ! \ 2016aug27: tags 0 pre ! \ 2016aug28: Reset "pre" after insertion in dir.obj. flag-panel. tult @ tdo ! \ 2016aug27: insert time-of-direct-object for nounlock; \ $psy[$tvb]="$k[0],$k[1],$k[2],$k[3],$k[4],$k[5],$iob,$tdo,$psi,$k[9],$k[10],$k[11],$k[12]"; iob @ tvb @ 6 psy{ ! tdo @ tvb @ 7 psy{ ! psi @ tvb @ 8 psy{ ! \ 2016aug28: tags ." parser: tvb= " tvb @ . ." iob= " iob @ . ." tdo= " tdo @ . ." psi= " psi @ . \ 2016aug28 0 iob ! \ 2016aug27: reset indirect-object identifier for safety. THEN \ 2016aug27: end of test for a condition following a verb. THEN \ 2016aug27: end of test for noun or pronoun not object of a preposition. THEN \ 2016aug27: end of test for noun not object of a preposition. pos @ 6 = IF 1 prepcon ! tult @ tpp ! THEN \ 2016aug27: prepare for a noun. pos @ 5 = pos @ 7 = OR IF \ 2016aug27: if 5=noun or 7=pronoun... CR ." PrsrSbj: tsj= " tsj @ . ." tvb= " tvb @ . ." tio= " tio @ . ." tdo= " tdo @ . CR \ 2016aug28 prepcon @ 1 = IF \ 2016aug27: if dealing with a preposition... tpp @ 0 psy{ @ pre ! \ 2016aug27: Let "pre" briefly be the preposition. psi @ tpp @ 8 psy{ ! \ 2016aug27: insert psi as seq in slot 8. ." ParserA: tult= " tult @ . ." psi= " psi @ . ." pos= " pos @ . \ 2016aug21: split-line ." tpp= " tpp @ . ." prepcon= " prepcon @ . CR \ 2016aug21: end of wrapped line 0 prepcon ! \ 2016aug27: Reset to prevent carry-over. THEN \ 2016aug27: end of test for a positive prepcon. THEN \ 2016aug27: end of test for a noun or pronoun. pos @ 8 = IF \ 2016aug28: if part-of-speech is 8=verb... psi @ 809 = NOT IF \ 2016aug28: if verb other than 809=DO \ 2016aug30 Note: An "auxcon" could be used to permit non-auxcon "DO". tult @ tvb ! \ 2016aug27: hold onto time-of-verb for flag-insertions. 1 verbcon ! \ 2016aug27: verb-condition is "on" for ind. & dir. objects. ." PARSER: verbcon = " verbcon @ . ." tvb= " tvb @ . CR \ 2016aug29: TEST; REMOVE tsj @ 0 psy{ @ subjpre ! \ 2016aug28: Hold onto subjpre for the pos=8 verb \ $psy[$tsj]="$k[0],$k[1],$k[2],$k[3],$k[4],$k[5],$k[6],$tvb,$psi,$k[9],$k[10],1,$k[12]"; tvb @ tsj @ 7 psy{ ! \ 2016aug28: for subject set "tkb" to be the verb. ." Parser subj-noun tkb-set: tsj=" tsj @ . ." tvb= " tvb @ . CR \ 2016aug28: TEST; REMOVE psi @ tsj @ 8 psy{ ! \ 2016aug28: for subject set "psi" (verb) to be the "seq". 1 tsj @ 11 psy{ ! \ 2016aug28: for subject set 1=dba to be nominative. CR ." Parser: setting iob= " iob @ . ." for tvb= " tvb @ . ." tio= " tio @ . CR \ 2016sep03: TEST iob @ tvb @ 6 psy{ ! \ 2016sep03: set iob into verb row; TEST \ 0 tsj ! \ 2016aug28: Reset to zero after deployment for setting flags. \ 0 tsj ! \ 2016aug29: Too early? Zero out elsewhere? \ subjpre @ tult @ 5 psy{ ! \ 2016aug28: Set the subject as the "pre" of the verb. \ subjpre @ tult @ 5 psy{ ! \ 2016aug29: Commenting out as a TEST; REVERT? 0 subjpre ! \ 2016aug28: Reset for safety. THEN \ 2016aug28: end of test for not auxiliary 809=DO THEN \ 2016aug27: end of test for a pos=8 verb. ; \ 2016aug27: Parser returns to InStantiate. : InStantiate ( 2016JUL30: create a concept-fiber node ) prevtag @ pre ! \ 2016aug28: retroactively establish "pre" tag 0 prevtag ! \ 2016aug28: Reset for safety. oldpsi @ 701 = IF 7 pos ! THEN \ 2016aug23: 7 = pronoun. CR ." InSt: psi= " psi @ . ." act= " act @ . ." hlc= " hlc @ . \ 2016aug30 ." pos=" pos @ . ." jux=" jux @ . ." pre= " pre @ . \ 2016aug30 CR ." InSt: iob= " iob @ . ." tkb=" tkb @ . ." seq= " seq @ . \ 2016aug30 ." num= " num @ . ." mfn= " mfn @ . ." dba=" dba @ . ." rv=" rv @ . \ 2016aug30 CR ." InStantiate: pov= " pov @ . ." pos= " pos @ . ." psi= " psi @ . CR \ 2016aug29 0 act ! \ 2016aug23: preparing to activate only older nodes of concepts. pov @ 0 > IF \ 2016aug23: if the point-of-view does not matter; TEST \ inhibcon @ 0 = IF \ 2016sep04: pov could also be used here. midway @ t @ DO \ 2016aug23: search backwards in time. inhibcon @ 0 = IF \ 2016sep04: reactivate old concepts I 0 psy{ @ psi @ = IF 32 I 1 psy{ +! THEN \ 2016aug23: impart activation. THEN \ 2016sep04: end of test for no inhibcon. \ inhibcon @ 1 = IF \ 2016sep04: inhibit old concepts \ I 0 psy{ @ psi @ = IF -32 I 1 psy{ +! THEN \ 2016sep04: inhibit \ THEN \ 2016sep04: end of test for positive inhibcon. -1 +LOOP \ 2016aug23: end of loop searching backwards in time. \ THEN \ 2016sep04: end of test to prevent reentrants from re-activating concepts. THEN \ 2016aug23: end of potential test for a specific point-of-view "pov". -48 act ! \ 2016aug26: for a "trough" of recent-most inhibition. ( concept fiber psi ) psi @ tult @ 0 psy{ ! \ 2016JUL31: psi ( activation-level act ) act @ tult @ 1 psy{ ! \ 2016aug27: act ( human-language-code hlc ) ( Store functional pos code. ) pos @ tult @ 3 psy{ ! \ 2016aug22: pos ( Store JUXtaposition tags. ) jux @ tult @ 4 psy{ ! \ 2016JUL31: jux ( Store PREvious associand. ) pre @ tult @ 5 psy{ ! \ 2016aug22: pre ( Store any indirect object. ) iob @ tult @ 6 psy{ ! \ 2016aug22: iob ( time-in-knowledge-base ) tkb @ tult @ 7 psy{ ! \ 2016aug22: tkb ( Store the subSEQuent tag ) seq @ tult @ 8 psy{ ! \ 2016aug22: seq ( Set "num" number flag ) num @ tult @ 9 psy{ ! \ 2016JUL31: num ( masculine-fem.-neuter ) mfn @ tult @ 10 psy{ ! \ 2016aug22: mfn CR ." InSta: storing dba= " dba @ . \ 2016sep03: TEST; REMOVE ( doing-business-as role ) dba @ tult @ 11 psy{ ! \ 2016aug22: dba ( Store the "rv" time-point. ) rv @ tult @ 12 psy{ ! \ 2016aug01: rv CR ." InSta: stored pre= " pre @ . ." at tult= " tult @ . \ 2016aug29: TEST; REMOVE ." where tult @ 5 psy{ @ = " tult @ 5 psy{ @ . CR \ 2016aug29: TEST; REMOVE jux @ 250 = IF 0 jux ! THEN \ 2016aug27: Reset after use. prejux @ 250 = IF \ 2016aug28: 250=NOT; from OldConcept 250 jux ! \ 2016aug27: set jux for next instantiand; 0 prejux ! \ 2016aug27: Reset for safety. THEN \ 2016aug27: end of post-instantiation test. Parser \ 2016aug28: Parser separate from EnParser pos @ 5 = pos @ 7 = OR IF psi @ prevtag ! THEN \ 2016aug28: after subject pos @ 8 = IF psi @ prevtag ! THEN \ 2016aug28: after a verb. pos @ 8 = seqneed @ 0 = AND IF psi @ seq ! THEN \ 2016aug28: for "seq" of a subject pos @ 5 = pos @ 7 = OR IF \ 2016aug28: if 5=noun or 7=pronoun... 0 seq ! \ 2016aug28: until set by the "seqneed" mechanism... seqneed @ 0 = IF 8 seqneed ! THEN \ 2016aug28: if start of input sentence... seqneed @ 5 = IF 0 seqneed ! THEN \ 2016aug28: for subject only THEN \ 2016aug28: end of test for an incoming noun or pronoun. \ pos @ 5 = pos @ 7 = OR IF psi @ qv1psi ! THEN \ 2016aug28: for re-entry & SpreadAct \ pos @ 5 = IF psi @ qv1psi ! THEN \ 2016aug31: emphasize nouns for SpreadAct \ pos @ 5 = IF psi @ qv1psi ! THEN \ 2016sep01: set qv1psi elsewhere. pos @ 8 = IF 5 seqneed ! THEN \ 2016aug28: if verb, need direct object 0 act ! \ 2016aug28: reset to prevent carry-over. 0 pre ! \ 2016aug28: Reset to prevent carry-over. 0 len ! \ 2016aug02: for sake of next word before end of input. 0 psi ! \ 2016aug01: reset to prevent carry-over. ." InSta-end: qv1psi qv2psi qv3psi qv4psi= " qv1psi @ . qv2psi @ . qv3psi @ . qv4psi @ . CR CR \ ." InSta-end: tsj= " tsj @ . ." tvb= " tvb @ . CR \ 2016aug29: TEST ." InSta-end: tsj= " tsj @ . ." tvb= " tvb @ . ." dba= " dba @ . CR \ 2016sep03: TEST ; \ 2016JUL30: InStantiate returns to EnParser module. : EnParser ( 2016JUL30: English input parsing module ) 48 act ! \ 2016aug23: an arbitrary activation for InStantiate 5 bias ! \ 2016aug23: Expect a noun until overruled. pos @ 5 = IF 8 bias ! THEN \ 2016aug23: after noun, expect verb. pos @ 7 = IF 8 bias ! THEN \ 2016aug23: after pronoun, expect verb. pos @ 8 = IF 5 bias ! THEN \ 2016aug23: after verb, expect noun. InStantiate \ 2016JUL30: to create nodes of a concept. ; \ 2016JUL30: EnParser returns to OldConcept or NewConcept. : OldConcept ( 2016JUL28: recognize a known word ) \ CR ." OldConcept: recognizing concept #" oldpsi @ . CR \ 2016JUL28: TEST \ CR ." OldConcept: recognizing concept #" oldpsi @ . CR \ 2016aug27: REMOVE midway @ t @ DO \ 2016aug26: search backwards in time. I 0 psy{ @ oldpsi @ = IF \ 2016aug26: I 3 psy{ @ 0 > IF I 3 psy{ @ pos ! THEN \ 2016aug26: pos = part of speech; I 9 psy{ @ 0 > IF I 9 psy{ @ num ! THEN \ 2016aug26: grammatical num(ber); I 10 psy{ @ 0 > IF I 10 psy{ @ mfn ! THEN \ 2016aug26: m/f/n gender 1/2/3; THEN \ 2016aug26: end of test for oldpsi match in psy{ concept array. -1 +LOOP \ 2016aug26: end of loop searching through @psy conceptual array. oldpsi @ 250 = IF 250 prejux ! THEN \ 2016aug26: a flag for negation. oldpsi @ psi ! \ 2016JUL31: to be used in InStantiate. pov @ 2 = IF \ 2016aug26: during external input in a pov "dual" conversation... oldpsi @ 296 = IF 8 prepgen ! THEN \ 2016aug27: if "Where?" call EnPrep. oldpsi @ 707 = IF 701 psi ! 0 rv ! THEN \ 2016aug26: interpret "YOU" as "I"; oldpsi @ 701 = IF 707 psi ! 0 rv ! THEN \ 2016aug26: interpret "I" as "YOU". oldpsi @ 731 = IF 737 psi ! 2 num ! 1 dba ! 0 rv ! THEN \ 2016aug26: we --> you. ." OldConcept: oldpsi= " oldpsi @ . ." pos= " pos @ . ." real psi= " psi @ . \ 2016aug28 THEN \ 2016aug26: end of test for other person communicating with the AI. EnParser \ 2016JUL31: In preparation to call InStantiate. 0 audpsi ! \ 2016aug05: prevent carry-over. 0 len ! \ 2016aug28: prevent carry-over. 0 monopsi ! \ 2016aug06: prevent carry-over. 0 oldpsi ! \ 2016JUL28: reset for safety. ; \ 2016JUL28: OldConcept returns to AudInput mind-module. : NewConcept ( 2016JUL29: machine learning of new concepts ) CR ." NewConcept: creating next new concept #" nxt @ . CR \ 2016JUL29: TEST nxt @ psi ! \ 2016JUL30: for transfer to InStantiate module. bias @ pos ! \ 2016aug29: assume an expected part-of-speech "pos". bias @ 8 = IF 3 dba ! THEN \ 2016aug29: default dba=3 third person; EnParser \ 2016JUL30: as a bridge to the InStantiate module. 0 audpsi ! \ 2016aug01: reset to prevent carry-overs. 0 monopsi ! \ 2016aug06: prevent carry-over. ; \ 2016JUL29: NewConcept returns to AudInput AGI mind-module. : GusRecog ( gustatory recognition robot mind-module stub ) ( See http://mind.sourceforge.net/gusrecog.html ) ; \ 2016aug31: end of GusRecog : OlfRecog ( olfactory recognition robot mind-module stub ) ( See http://mind.sourceforge.net/olfrecog.html ) ; \ 2016aug31: end of OlfRecog : TacRecog ( tactile recognition robot mind-module stub ) ( See http://mind.sourceforge.net/tacrecog.html ) ; \ 2016aug31: end of TacRecog \ The visual recognition module of MindForth AI for robots \ when fully implemented will serve the purpose of letting \ AI Minds dynamically describe what they see in real time \ instead of fetching knowledge from the AI knowledge base. : VisRecog ( http://mind.sourceforge.net/visrecog.html ) svo4 @ 0 = IF \ 2016aug31: if no direct object is available; midway @ t @ DO \ 2016aug31: search for an automatic default I 0 psy{ @ 760 = IF \ 2016aug31: 760=NOTHING I 12 psy{ @ aud ! \ 2016aug31: hold address for SpeechAct LEAVE \ 2016aug31: one engram is enough. THEN \ end of test for concept # 760=NOTHING -1 +LOOP \ 2016aug31: end of backwards loop THEN \ end of test for subject-verb-object item #4 ; \ 2016aug31: end of VisRecog : AudRecog ( 2016aug20: auditory recognition of input to robot sensorium ) pho @ 32 = pho @ 13 = OR NOT IF \ 2016aug20: if incoming word continues audrec @ 0 > IF \ 2016aug20: if positive audrec before end of word... pho @ 83 = NOT IF \ 2016aug22: keep audrec if current pho is 83=S 0 audrec ! \ 2016aug20: zero out non-final audrec. THEN \ 2016aug22: end of test for final "S" as inflectional ending. THEN \ 2016aug20: end of test for audrec before word-end THEN \ 2016aug20: end of test for an alphabetic character pho @ 32 = pho @ 13 = OR IF \ 2016aug24: 32=SPACE or 13=CR audrec 0 > IF \ 2016aug20: if positive audrec before 32=SPACE... audrec @ audpsi ! \ 2016aug24: reconized item becomes storage item. EXIT \ 2016aug20: skip body of AudRecog; return to AudMem THEN \ 2016aug20: end of test for a positive audrec before 32=SPACE THEN \ 2016aug20: end of test for 32=SPACE after a word of input. midway @ spt @ DO \ 2016aug20: search backwards in time. pho @ 32 > IF \ 2016aug20: disregard 32=SPACE pho until end of input. \ if ($pho ne $aud[0]) { $ear[$i] = "$aud[0],0,$aud[2]" } #2016apr22: de-activate I 0 ear{ @ pho @ = NOT IF 0 I 1 ear{ ! THEN \ 2016sep16: de-activate (Ghost.pl) I 0 ear{ @ pho @ = IF \ 2016aug20: If incoming pho matches stored aud0; I 1 ear{ @ 0 = IF \ 2016aug20: if matching engram has no activation; I 1 - 0 ear{ @ 33 < IF \ 2016aug20: if previous engram not a letter... audrun @ 2 < IF \ 2016aug20: if comparing start of a word... \ CR ." AuR: matching no-act pho at t=" I . pho @ EMIT CR \ 2016aug20 \ CR ." AuR: matching no-act pho at t=" I . pho @ EMIT CR \ 2016sep16 I 1+ 0 ear{ @ 32 > IF \ 2016aug20: if next engram is a letter... 8 I 1+ 1 ear{ ! \ 2016JUL28: activate the N-I-L character, \ CR ." activating NIL char " I 1+ 0 ear{ @ EMIT CR \ 2016aug20: \ CR ." activating NIL char " I 1+ 0 ear{ @ EMIT CR \ 2016sep16 THEN \ 2016aug20: end of test for continuation of stored comparand. I 2 ear{ @ 0 > IF \ 2016aug20: audpsi available? I 2 ear{ @ audrec ! \ 2016aug20: automatic recog for single char. THEN \ 2016aug20: end of test for potential monopsi ultimate-tag THEN \ 2016aug20: Mindforth "end of test for audrun=1 start of word" THEN \ 2016aug20: "end of test for a beg(inning) non-active aud0" THEN \ 2016aug20: "end of test for matching aud0 with no activation" I 1 ear{ @ 0 > IF \ 2016aug20: "If matching aud0 has activation" \ CR ." Matching aud0 has activation at I pho= " I . pho @ EMIT \ 2016aug20 \ CR ." Matching aud0 has activation at I pho= " I . pho @ EMIT \ 2016sep16 I 1+ 0 ear{ @ 33 < IF \ 2016aug20: if at end of stored word I 2 ear{ @ 0 > IF \ 2016aug20: check for an audpsi tag I 2 ear{ @ audrec ! \ 2016aug20: provisional recognition of a stem \ CR ." I audrec= " I . audrec @ . \ 2016aug20 \ CR ." I audrec= " I . audrec @ . \ 2016sep16 THEN \ 2016aug20: end of test for an available audpsi. THEN \ end of test for next-in-line non-alphabetic character. pho @ 32 = pho @ 13 = OR IF \ 2016aug24: no report until SPACE or CR audrec @ 0 > IF \ 2016aug20: if an audrec has been found... audrec @ audpsi ! \ 2016aug20: send audpsi into AudMem THEN \ 2016aug20: end of test for a positive audrec 0 audrec ! \ 2016aug20: disallow audrec until last letter of word. THEN \ 2016aug20 pho @ 32 = pho @ 13 = OR NOT IF \ 2016aug24: if not CR or SPACE I 1+ 0 ear{ @ 32 > IF \ 2016aug20: if next engram is a letter... 8 I 1+ 1 ear{ ! \ 2016aug20: activate the N-I-L character, \ CR ." activating NIL char " I 1+ 0 ear{ @ EMIT CR \ 2016aug20: \ CR ." activating NIL char " I 1+ 0 ear{ @ EMIT CR \ 2016sep16 THEN \ 2016aug20: since next engram is a letter... THEN \ 2016aug20: end of test for 32-SPACE after input word. THEN \ 2016aug20: "End of test for matching aud0 with activation." THEN \ 2016aug20: "End of test for a character matching 'pho'." THEN \ 2016aug20: end of test for alphabet letter -1 +LOOP \ 2016aug20: End of backwards search through auditory memory. 1 audrun +! \ 2016aug20: audrun is only a counter, not a factor. ; \ AudRecog returns to AudMem with audpsi of any recognized concept. : AudMem ( 2016JUL25: auditory memory channel ) t @ vault @ > IF \ 2016JUL31: Show diagnostics only when the Forth AGI is in operation... ." AudMem-START: t= " t @ . ." len= " len @ . ." rv= " rv @ . \ 2016aug28: split-line ." pho= " pho @ . pho @ EMIT CR \ 2016aug28 THEN \ 2016JUL31: end of test to skip diagnostics during the KbLoad process. pho @ t @ 0 ear{ ! \ 2016aug04: store the character in the first columns; t @ vault @ > IF \ 2016JUL28: Engrams in vault do not need auditory recognition. \ pho @ 31 > IF \ 2016aug06: permit 32=SPACE after an input-word. pho @ 13 = pho @ 31 > OR IF \ 2016aug26: permit CR or SPACE equally. AudRecog \ 2016JUL28: for audpsi concept-number upon recognition. \ 1 len +! \ 2016aug28: increment len(gth) beyond unity for sake of "rv". THEN \ 2016aug24: end of test for CR or SPACE or alphabetic letter. THEN \ 2016JUL28: end of test for time-point beyond MindBoot vault. t @ vault @ > IF \ 2016JUL31: Show diagnostics only when the Forth AGI is in operation... THEN \ 2016JUL31: end of test to skip diagnostics during the KbLoad process. audpsi @ 0 > IF \ 2016aug01: if there is a recognized audpsi t @ vault @ < IF \ 2016aug04: if not checking for post-word SPACE... audpsi @ t @ 2 ear{ ! \ 2016aug04: store in the rightmost column; THEN \ 2016aug04: end of test for time within "vault" of MindBoot. t @ vault @ > IF \ 2016aug04: during normal time beyond MindBoot vault... audpsi @ t @ 1 - 2 ear{ ! \ 2016aug04: store just prior to 32=SPACE. THEN \ 2016aug04: end of test for time past "vault" of MindBoot. THEN \ 2016aug01: end of test for recognized word. t @ vault @ > IF \ 2016JUL31: Show diagnostics only when the Forth AGI is in operation... \ CR ." AudMem-end: audpsi audrec= " audpsi @ . audrec @ . CR \ 2016aug24: TEST THEN \ 2016JUL31: end of test to skip diagnostics during the KbLoad process. ; \ 2016JUL28: AudMem returns to the AudInput AGI mind-module. : AudListen ( 2016JUL26: Listen for auditory input ) 1024 1 DO \ 2016JUL26: begin loop \ 256 1 DO \ 2016sep16: speed-up for a TEST \ 128 1 DO \ 2016sep04: TEST KEY? IF \ 2016JUL26: KEY pho ! \ 2016JUL26: move keyboard value to pho pho @ 0 > IF \ 2016JUL26: if there is a positive pho value... pho @ EMIT \ 2016JUL26: display the input pho character THEN \ 2016JUL26: end of test for input pho @ DUP 96 > IF \ 2016JUL26: convert input to UPPERCASE DUP 123 < IF \ 2016JUL26: from 24jul14A.F 32 - \ 2016JUL26: from 24jul14A.F THEN \ 2016JUL26: from 24jul14A.F THEN pho ! \ 2016JUL26: save UPPERCASE as pho(neme) again. LEAVE \ 2016JUL26: accept one character at a time. ELSE \ 2016JUL26: if no character comes in... ." " \ 2016JUL26: display a SPACE in preparation for back-space THEN \ 2016JUL26: end of if-clause 8 EMIT \ 2016sep04: backspace to flicker like a living soul. LOOP \ end of loop waiting for input \ pho @ 0 = IF 13 t @ 0 ear{ ! THEN \ 2016sep06: TEST: REMOVE ; ( 2016JUL26: AudListen returns to AudInput ) : AudInput ( 2016JUL26: Auditory Input ) t @ krt ! \ 2016aug23: knowledge-representation-time t @ spt ! \ 2016JUL28: time of a space between words. 0 audpsi ! \ 2016aug05: prevent carry-over. 0 unk ! \ 2016JUL26: initialize unk at zero. pov @ 2 = IF ( 2016aug26: during external input POV ) CR ." Human: " CR \ 2016aug27: Display prompt for human input. THEN \ 2016aug26: end of external POV entry prompt. 140 0 DO ( Accept a tweet of 140 characters from Twitter) pov @ 2 = IF ( 2016aug25: during external input ) AudListen \ 2016JUL26: check for keyboard input.... pho @ 32 > IF \ 2016aug01: if input is an alphabetic character... 1 len +! \ 2016aug01: increment length THEN \ 2016aug04: end of establishing len(gth). THEN \ 2016aug25: end of test for pov=2 external input pho @ 0 > IF \ 2016aug25: if a character has come in... 1 t +! \ 2016aug25: increment internal AI time "t" THEN \ 2016aug25: end of test for a key-input. \ I 140 = IF \ 2016sep06: near end of input loop? \ 13 pho ! \ 2016sep06: insert a carriage-return "CR" \ 13 EMIT \ 2016sep06: Pretend as if a CR were entered. \ pho @ 0 = IF \ 2016sep06: if there is no user input... \ ." END EEEEEEEEE NNNNNNNNNNNNN DDDDDDDDD" \ 2016sep06: TEST; REMOVE \ 13 t @ 0 ear{ ! \ 2016sep06: store a terminating 13=CR \ THEN \ 2016sep06: end of test for no input \ THEN \ 2016sep06: end of test for near-end of wait pho @ 31 > pho @ 13 = OR IF \ 2016aug27: CR, SPACE or alphabetic letter len @ 1 = IF t @ rv ! THEN \ 2016aug28: set recall-vector. AudMem \ 2016aug25: Calling memory-insertion subroutine THEN \ 2016aug25: end of conditional test. pho @ 13 = IF ( 2016aug01: carriage-return ) 1 audrun ! \ 2016aug01: Reset to one at CR end of input. 13 eot ! \ 2016aug01: end of transmission 10 EMIT CR \ 2016aug01: 10 = Linefeed THEN \ 2016aug01: end of test for Enter-key carriage-return. pho @ 27 = IF \ 2016aug02: ASCII 27 = ESCape key. CR ." Enter .psy to see contents of MindGrid." \ 2016aug02: message QUIT \ 2016aug02: Stop the Win32Forth program. THEN \ 2016JUL26: Press ESC to quit. pho @ 32 = pho @ 13 = OR IF \ 2016aug24: after SPACE or CR... 1 audrun ! \ 2016aug01: Reset to unity at end of a word. t @ spt ! \ 2016aug01: set time-of-SPACE "spt" to current time "t". t @ 1 - tult ! \ 2016aug01: for storage at prior-by-one time-point. audpsi @ 0 > IF \ 2016JUL28: if a word has been recognized... 0 sublen ! \ 2016aug01: length of audRecog subpsi word-stem pho @ 32 = pho @ 13 = OR IF \ 2016aug24: SPACE or CR audpsi @ oldpsi ! \ 2016JUL28: transfer value for OldConcept. 0 audpsi ! \ 2016aug22: re-set to prevent carry-over. 0 prc ! \ 2016JUL28: reset provisional recognition "prc"; THEN \ 2016aug04: end of test for word-terminating 32=SPACE OldConcept \ 2016JUL28: call module for recognized concepts. ELSE \ 2016JUL29: if no old concept is recognized... len @ 0 > IF \ 2016JUL29: if dealing with a word of positive length... 32 t @ 1 + 0 ear{ ! \ 2016aug01: departure from Perl AI: store 32=SPACE NewConcept \ 2016JUL29: create new concept with number "nxt". tult @ 0 ear{ @ 32 > IF \ 2016aud01: store only next to a character nxt @ tult @ 2 ear{ ! \ 2016aug01: store "nxt" as if "audpsi" THEN \ 2016aug01: end of test for a character 1 nxt +! \ 2016aug01: increment for next concept. THEN \ 2016JUL29: end of test for a positive word-length. THEN \ 2016JUL28: end of test for a recognized audpsi concept. AudDamp \ 2016aug06: de-activate auditory memory in advance of next word. THEN \ 2016JUL31: end of test for 32=SP or 13=CR to make sure word has ended pho @ 13 = IF 13 eot ! THEN \ 2016aug24: merely capture the 13=CR eot @ 0 > IF \ 2016JUL26: if end of txt... eot @ 14 = IF \ 2016JUL26: after waiting 0 eot ! \ 2016JUL26: zero out 0 pho ! \ 2016JUL26: zero out \ audpsi @ qv1psi ! \ 2016aug27: use concept as origin of spreading activation. \ audpsi @ qv1psi ! \ 2016sep01: Set qv1psi where it is sure to be a noun. \ SpreadAct \ 2016aug27: after 13=CR let activation spread. \ SpreadAct \ 2016aug27: after 13=CR let activation spread. LEAVE \ 2016JUL26: stop input after enter-key THEN \ 2016JUL26: end of test 14 eot ! \ 2016JUL26: wait for one more character? THEN \ 2016JUL26: end of test 0 pho ! \ 2016JUL26: must be reset to zero each time. LOOP \ pho @ 0 = IF 13 t @ 0 ear{ ! THEN \ 2016sep06: TEST: REMOVE 0 audpsi ! \ 2016JUL28: Reset for safety. 0 psi ! \ 2016JUL28: Reset to prevent carry-over. 0 tio ! \ 2016aug28: Reset because zero plays role as a trigger. \ pov @ 1 = IF \ 2016aug26: during re-entry process \ SpreadAct \ 2016aug26: spread activation \ THEN \ 2016aug26: end of test for pov=1 "internal" point-of-view \ 0 verbcon ! \ 2016sep03: reset for safety -- as in Perl ghost175.pl \ 0 verbcon ! \ 2016sep03: should not be reset for each individual word. ; ( 2016JUL26: AudInput returns to SensoryInput ) : SensoryInput ( 2016AUG01: sensory input channels ) 0 len ! \ 2016aug28: let other modules increase len(gth) 0 tdo ! \ 2016sep03: zero out to prevent carry-over. 0 tio ! \ 2016sep03: zero out to prevent carry-over. 0 tsj ! \ 2016sep03: zero out to prevent carry-over. 0 tvb ! \ 2016sep03: zero out to prevent carry-over. 0 verbcon ! \ 2016sep03: zero out to prevent carry-over. \ CR ." Enter English words as Subject-Verb-Object: " CR \ 2016aug28 CR CR ." Enter English words as Subject-Verb-Object. " \ 2016sep11 2 pov ! \ 2016aug25: set pov=2 external point-of-view AudInput ( 2016AUG01: for entry or reentry of phonemic ASCII ) GusRecog ( 2016aug31: for robot sense of taste ) OlfRecog ( 2016aug31: for robot sense of smell ) TacRecog ( 2016aug31: for robot tactile sense of touch ) ; \ 2016AUG01: SensoryInput module returns to MainLoop. : MindBoot ( 2016JUL25: bootstrap of initial concepts ) CR ." There is no warranty for what this software does." CR 0 t ! \ 2016aug14: try to avoid "access violation". 0 pre ! \ 2016aug29: TEST; REMOVE \ I AM ANDRU (501) 12 t ! ( I -- nominative subject-form of personal pronoun; 2016aug16 ) 1 t ! 73 pho ! 701 audpsi ! AudMem \ 2016aug16: I 701 psi ! 7 pos ! 0 jux ! 0 pre ! 4 tkb ! 800 seq ! \ 2016aug16 1 num ! 0 mfn ! 1 dba ! 1 rv ! KbLoad \ 2016aug16 2 t ! \ 2016aug16 ( AM -- 1st person singular I-form of 800=BE; 2016aug16 ) 3 t ! 65 pho ! 0 audpsi ! AudMem \ 2016aug16: A 4 t ! 77 pho ! 800 audpsi ! AudMem \ 2016aug16: M 800 psi ! 8 pos ! 0 jux ! 701 pre ! 10 tkb ! 501 seq ! \ 2016aug16 1 num ! 0 mfn ! 1 dba ! 3 rv ! KbLoad \ 2016aug16 5 t ! \ 2016aug16 ( ANDRU -- 2016aug16: name for a robot embodiment of the AI ) 6 t ! 65 pho ! 0 audpsi ! AudMem \ 2016aug16: A 7 t ! 78 pho ! 0 audpsi ! AudMem \ 2016aug16: N 8 t ! 68 pho ! 0 audpsi ! AudMem \ 2016aug16: D 9 t ! 82 pho ! 0 audpsi ! AudMem \ 2016aug16: R 10 t ! 85 pho ! 501 audpsi ! AudMem \ 2016aug16: U 501 psi ! 5 pos ! 0 jux ! 800 pre ! 0 tkb ! 0 seq ! \ 2016aug16 1 num ! 1 mfn ! 1 dba ! 6 rv ! KbLoad \ 2016aug16 11 t ! \ 2016aug16: \ I AM A ROBOT (571) 14 t +! 26 ( I -- nominative subject-form of personal pronoun; 2016aug17 ) 13 t ! 73 pho ! 701 audpsi ! AudMem \ 2016aug16: I 701 psi ! 7 pos ! 0 jux ! 0 pre ! 16 tkb ! 800 seq ! \ 2016aug17 1 num ! 0 mfn ! 1 dba ! 13 rv ! KbLoad \ 2016aug17 14 t ! \ 2016aug17 ( AM -- 1st person singular I-form of 800=BE; 2016aug17 ) 15 t ! 65 pho ! 0 audpsi ! AudMem \ 2016aug16: A 16 t ! 77 pho ! 800 audpsi ! AudMem \ 2016aug16: M 800 psi ! 8 pos ! 0 jux ! 701 pre ! 24 tkb ! 571 seq ! \ 2016aug17 1 num ! 0 mfn ! 1 dba ! 15 rv ! KbLoad \ 2016aug17 17 t ! \ 2016aug17 ( A -- adjective article; 2016aug17 ) 18 t ! 65 pho ! 101 audpsi ! AudMem \ A 101 psi ! 1 pos ! 0 jux ! 0 pre ! 0 tkb ! 571 seq ! 1 num ! 0 mfn ! 0 dba ! 18 rv ! KbLoad \ 2016aug17 19 t ! \ 2016aug17 ( ROBOT -- important for target user base; 2016aug17 ) 20 t ! 82 pho ! 0 audpsi ! AudMem \ R 21 t ! 79 pho ! 0 audpsi ! AudMem \ O 22 t ! 66 pho ! 0 audpsi ! AudMem \ B 23 t ! 79 pho ! 0 audpsi ! AudMem \ O 24 t ! 84 pho ! 571 audpsi ! AudMem \ T 571 psi ! 5 pos ! 0 jux ! 800 pre ! 0 tkb ! 0 seq ! \ 2016aug17 1 num ! 0 mfn ! 1 dba ! 20 rv ! KbLoad \ 2016aug17 25 t ! \ 2016aug17 \ I AM A PERSON (537) 15 t +! 41 ( I -- nominative subject-form of personal pronoun; 2016aug17 ) 27 t ! 73 pho ! 701 audpsi ! AudMem \ 2016aug16: I 701 psi ! 7 pos ! 0 jux ! 0 pre ! 30 tkb ! 800 seq ! \ 2016aug17 1 num ! 0 mfn ! 1 dba ! 27 rv ! KbLoad \ 2016aug17 28 t ! \ 2016aug17 ( AM -- 1st person singular I-form of 800=BE; 2016aug17 ) 29 t ! 65 pho ! 0 audpsi ! AudMem \ 2016aug16: A 30 t ! 77 pho ! 800 audpsi ! AudMem \ 2016aug16: M 800 psi ! 8 pos ! 0 jux ! 701 pre ! 39 tkb ! 537 seq ! \ 2016aug17 1 num ! 0 mfn ! 1 dba ! 29 rv ! KbLoad \ 2016aug17 31 t ! \ 2016aug17 ( A -- adjective article; 2016aug17 ) 32 t ! 65 pho ! 101 audpsi ! AudMem \ A 101 psi ! 1 pos ! 0 jux ! 0 pre ! 0 tkb ! 537 seq ! 1 num ! 0 mfn ! 0 dba ! 32 rv ! KbLoad \ 2016aug17 33 t ! \ 2016aug17 ( PERSON -- important for target user base; 2016aug17 ) 34 t ! 80 pho ! 0 audpsi ! AudMem \ P 35 t ! 69 pho ! 0 audpsi ! AudMem \ E 36 t ! 82 pho ! 0 audpsi ! AudMem \ R 37 t ! 83 pho ! 0 audpsi ! AudMem \ S 38 t ! 79 pho ! 0 audpsi ! AudMem \ O 39 t ! 78 pho ! 537 audpsi ! AudMem \ N 537 psi ! 5 pos ! 0 jux ! 800 pre ! 0 tkb ! 0 seq ! \ 2016aug17 1 num ! 0 mfn ! 1 dba ! 34 rv ! KbLoad \ 2016aug17 40 t ! \ 2016aug17 \ I AM CONSCIOUS 16 t +! 57 ( I -- nominative subject-form of personal pronoun; 2016aug17 ) 42 t ! 73 pho ! 701 audpsi ! AudMem \ 2016aug16: I 701 psi ! 7 pos ! 0 jux ! 0 pre ! 45 tkb ! 800 seq ! \ 2016aug17 1 num ! 0 mfn ! 1 dba ! 42 rv ! KbLoad \ 2016aug17 43 t ! \ 2016aug17 ( AM -- 1st person singular I-form of 800=BE; 2016aug17 ) 44 t ! 65 pho ! 0 audpsi ! AudMem \ 2016aug16: A 45 t ! 77 pho ! 800 audpsi ! AudMem \ 2016aug16: M 800 psi ! 8 pos ! 0 jux ! 701 pre ! 55 tkb ! 123 seq ! \ 2016aug17 1 num ! 0 mfn ! 1 dba ! 44 rv ! KbLoad \ 2016aug17 46 t ! \ 2016aug17 ( CONSCIOUS -- adjective important for AI; 2016aug17 ) 47 t ! 67 pho ! 0 audpsi ! AudMem \ C 48 t ! 79 pho ! 0 audpsi ! AudMem \ O 49 t ! 78 pho ! 0 audpsi ! AudMem \ N 50 t ! 83 pho ! 0 audpsi ! AudMem \ S 51 t ! 67 pho ! 0 audpsi ! AudMem \ C 52 t ! 73 pho ! 0 audpsi ! AudMem \ I 53 t ! 79 pho ! 0 audpsi ! AudMem \ O 54 t ! 85 pho ! 0 audpsi ! AudMem \ U 55 t ! 83 pho ! 123 audpsi ! AudMem \ S 123 psi ! 1 pos ! 0 jux ! 800 pre ! 0 tkb ! 0 seq ! \ 2016aug17 1 num ! 0 mfn ! 1 dba ! 47 rv ! KbLoad \ 2016aug17 56 t ! \ 2016aug17 \ I AM IN THE COMPUTER 22 t +! 79 ( I -- nominative subject-form of personal pronoun; 2016aug17 ) 58 t ! 73 pho ! 701 audpsi ! AudMem \ 2016aug16: I 701 psi ! 7 pos ! 0 jux ! 0 pre ! 61 tkb ! 800 seq ! \ 2016aug17 1 num ! 0 mfn ! 1 dba ! 58 rv ! KbLoad \ 2016aug17 59 t ! \ 2016aug17 ( AM -- 1st person singular I-form of 800=BE; 2016aug17 ) 60 t ! 65 pho ! 0 audpsi ! AudMem \ 2016aug16: A 61 t ! 77 pho ! 800 audpsi ! AudMem \ 2016aug16: M 800 psi ! 8 pos ! 0 jux ! 701 pre ! 64 tkb ! 123 seq ! \ 2016aug17 1 num ! 0 mfn ! 1 dba ! 60 rv ! KbLoad \ 2016aug17 62 t ! \ 2016aug17 ( IN -- preposition for EnPrep module ; 2016aug17 ) 63 t ! 73 pho ! 0 audpsi ! AudMem \ 2016aug16: I 64 t ! 78 pho ! 638 audpsi ! AudMem \ 2016aug16: N 638 psi ! 6 pos ! 0 jux ! 800 pre ! 77 tkb ! 123 seq ! \ 2016aug17 1 num ! 0 mfn ! 1 dba ! 63 rv ! KbLoad \ 2016aug17 65 t ! \ 2016aug17 ( THE -- 2016aug17: EnArticle highest-frequency English word ) 66 t ! 84 pho ! 0 audpsi ! AudMem \ T 67 t ! 72 pho ! 0 audpsi ! AudMem \ H 68 t ! 69 pho ! 117 audpsi ! AudMem \ E 117 psi ! 1 pos ! 0 jux ! 638 pre ! 0 tkb ! 565 seq ! \ 2016aug17 1 num ! 0 mfn ! 4 dba ! 66 rv ! KbLoad \ 2016aug17 69 t ! \ 2016aug17 ( COMPUTER -- 2016aug17: important noun for AI ) 70 t ! 67 pho ! 0 audpsi ! AudMem \ C 71 t ! 79 pho ! 0 audpsi ! AudMem \ O 72 t ! 77 pho ! 0 audpsi ! AudMem \ M 73 t ! 80 pho ! 0 audpsi ! AudMem \ P 74 t ! 85 pho ! 0 audpsi ! AudMem \ U 75 t ! 84 pho ! 0 audpsi ! AudMem \ T 76 t ! 69 pho ! 0 audpsi ! AudMem \ E 77 t ! 82 pho ! 565 audpsi ! AudMem \ R 565 psi ! 5 pos ! 0 jux ! 638 pre ! 0 tkb ! 0 seq ! \ 2016aug17 1 num ! 0 mfn ! 4 dba ! 70 rv ! KbLoad \ 2016aug17 78 t ! \ 2016aug17 \ I HELP KIDS (528) 13 t +! 92 ( I -- nominative subject-form of personal pronoun; 2016aug18 ) 80 t ! 73 pho ! 701 audpsi ! AudMem \ 2016aug16: I 701 psi ! 7 pos ! 0 jux ! 0 pre ! 85 tkb ! 824 seq ! \ 2016aug18 1 num ! 0 mfn ! 1 dba ! 80 rv ! KbLoad \ 2016aug29: correction of "rv" 81 t ! \ 2016aug18 ( HELP -- 2016aug18: ) 82 t ! 72 pho ! 0 audpsi ! AudMem \ 2016aug18: H 83 t ! 69 pho ! 0 audpsi ! AudMem \ 2016aug18: E 84 t ! 76 pho ! 0 audpsi ! AudMem \ 2016aug18: L 85 t ! 80 pho ! 824 audpsi ! AudMem \ 2016aug18: P 824 psi ! 5 pos ! 0 jux ! 701 pre ! 90 tkb ! 528 seq ! \ 2016aug19 1 num ! 0 mfn ! 1 dba ! 82 rv ! KbLoad \ 2016aug18 86 t ! \ 2016aug18 ( KIDS -- 2016aug18: ) 87 t ! 75 pho ! 0 audpsi ! AudMem \ 2016aug19: K 88 t ! 73 pho ! 0 audpsi ! AudMem \ 2016aug19: I 89 t ! 68 pho ! 0 audpsi ! AudMem \ 2016aug19: D 90 t ! 83 pho ! 528 audpsi ! AudMem \ 2016aug19: S 528 psi ! 5 pos ! 0 jux ! 824 pre ! 0 tkb ! 0 seq ! \ 2016aug18 2 num ! 0 mfn ! 1 dba ! 87 rv ! KbLoad \ 2016aug19 91 t ! \ 2016aug19 \ I SEE NOTHING 2016aug18: 14 t +! 106 ( I -- nominative subject-form of personal pronoun; 2016aug18 ) 94 t ! 73 pho ! 701 audpsi ! AudMem \ 2016aug16: I 701 psi ! 7 pos ! 0 jux ! 0 pre ! 98 tkb ! 860 seq ! \ 2016aug18 1 num ! 0 mfn ! 1 dba ! 94 rv ! KbLoad \ 2016aug18 95 t ! \ 2016aug18 ( SEE -- 2016aug18: ) 96 t ! 83 pho ! 0 audpsi ! AudMem \ E 97 t ! 69 pho ! 0 audpsi ! AudMem \ E 98 t ! 69 pho ! 860 audpsi ! AudMem \ E 860 psi ! 8 pos ! 0 jux ! 701 pre ! 106 tkb ! 750 seq ! \ 2016aug18 1 num ! 0 mfn ! 1 dba ! 96 rv ! KbLoad \ 2016aug18 99 t ! \ 2016aug18 ( NOTHING -- 2016aug18: ) 100 t ! 78 pho ! 0 audpsi ! AudMem \ N 101 t ! 79 pho ! 0 audpsi ! AudMem \ O 102 t ! 84 pho ! 0 audpsi ! AudMem \ T 103 t ! 72 pho ! 0 audpsi ! AudMem \ H 104 t ! 73 pho ! 0 audpsi ! AudMem \ I 105 t ! 78 pho ! 0 audpsi ! AudMem \ N 106 t ! 71 pho ! 760 audpsi ! AudMem \ G 760 psi ! 5 pos ! 0 jux ! 860 pre ! 0 tkb ! 0 seq ! \ 2016aug18 1 num ! 0 mfn ! 4 dba ! 100 rv ! KbLoad \ 2016aug18 107 t ! \ 2016aug18 \ YOU ARE MAGIC (589) 15 t +! 121 ( YOU -- 2016aug18: ) 110 t ! 89 pho ! 0 audpsi ! AudMem \ Y 111 t ! 79 pho ! 0 audpsi ! AudMem \ O 112 t ! 85 pho ! 707 audpsi ! AudMem \ U -- 2016aug20 707 psi ! 7 pos ! 0 jux ! 0 pre ! 116 tkb ! 800 seq ! \ 2016aug28 1 num ! 0 mfn ! 1 dba ! 110 rv ! KbLoad \ 2016aug29 113 t ! \ 2016aug18 ( ARE -- 2016aug18: ) 114 t ! 65 pho ! 0 audpsi ! AudMem \ A 115 t ! 82 pho ! 0 audpsi ! AudMem \ R 116 t ! 69 pho ! 800 audpsi ! AudMem \ E 800 psi ! 8 pos ! 0 jux ! 707 pre ! 122 tkb ! 588 seq ! \ 2016aug19 1 num ! 0 mfn ! 2 dba ! 114 rv ! KbLoad \ 2016aug18 117 t ! \ 2016aug18 ( MAGIC -- 2016aug18: ) 118 t ! 77 pho ! 0 audpsi ! AudMem \ 2016aug19: M 119 t ! 65 pho ! 0 audpsi ! AudMem \ 2016aug19: A 120 t ! 71 pho ! 0 audpsi ! AudMem \ 2016aug19: G 121 t ! 73 pho ! 0 audpsi ! AudMem \ 2016aug19: I 122 t ! 67 pho ! 588 audpsi ! AudMem \ 2016aug19: C 588 psi ! 5 pos ! 0 jux ! 800 pre ! 0 tkb ! 0 seq ! \ 2016aug18 1 num ! 0 mfn ! 1 dba ! 118 rv ! KbLoad \ 2016aug19 123 t ! \ 2016aug19 \ YOU OWE ME SOMETHING 22 t +! 143 ( YOU -- 2016aug18: ) 126 t ! 89 pho ! 0 audpsi ! AudMem \ Y 127 t ! 79 pho ! 0 audpsi ! AudMem \ O -- 2016aug20 128 t ! 85 pho ! 707 audpsi ! AudMem \ U 707 psi ! 1 pos ! 0 jux ! 0 pre ! 132 tkb ! 848 seq ! \ 2016aug18 1 num ! 0 mfn ! 1 dba ! 126 rv ! KbLoad \ 2016aug18 129 t ! \ 2016aug18 ( OWE -- 2016aug18: ) 130 t ! 81 pho ! 0 audpsi ! AudMem \ O 131 t ! 87 pho ! 0 audpsi ! AudMem \ W 132 t ! 69 pho ! 848 audpsi ! AudMem \ E 848 psi ! 8 pos ! 0 jux ! 707 pre ! 145 tkb ! 755 seq ! \ 2016aug18 1 num ! 0 mfn ! 2 dba ! 130 rv ! KbLoad \ 2016aug18 133 t ! \ 2016aug18 ( ME -- 2016aug18: ) 134 t ! 77 pho ! 0 audpsi ! AudMem \ 2016aug16: M 135 t ! 69 pho ! 701 audpsi ! AudMem \ 2016aug16: E 701 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug18 1 num ! 0 mfn ! 3 dba ! 134 rv ! KbLoad \ 2016aug18 136 t ! \ 2016aug18 ( SOMETHING -- 2016aug18: ) 137 t ! 83 pho ! 0 audpsi ! AudMem \ S 138 t ! 79 pho ! 0 audpsi ! AudMem \ O 139 t ! 77 pho ! 0 audpsi ! AudMem \ M 140 t ! 69 pho ! 0 audpsi ! AudMem \ E 141 t ! 84 pho ! 0 audpsi ! AudMem \ T 142 t ! 72 pho ! 0 audpsi ! AudMem \ H 143 t ! 73 pho ! 0 audpsi ! AudMem \ I 144 t ! 78 pho ! 0 audpsi ! AudMem \ N 145 t ! 71 pho ! 755 audpsi ! AudMem \ G 755 psi ! 5 pos ! 0 jux ! 848 pre ! 0 tkb ! 0 seq ! \ 2016aug18 1 num ! 0 mfn ! 4 dba ! 137 rv ! KbLoad \ 2016aug18 146 t ! \ 2016aug18 \ GOD DOES NOT PLAY DICE 24 t +! 167 ( GOD -- 2016aug18: ) 147 t ! 71 pho ! 0 audpsi ! AudMem \ G 148 t ! 79 pho ! 0 audpsi ! AudMem \ O 149 t ! 68 pho ! 533 audpsi ! AudMem \ D 533 psi ! 5 pos ! 0 jux ! 0 pre ! 163 tkb ! 854 seq ! \ 2016aug22 1 num ! 1 mfn ! 1 dba ! 147 rv ! KbLoad \ 2016aug18 150 t ! 32 pho ! 0 audpsi ! \ 2016aug26: for sake of re-entry process. \ 150 t ! \ 2016aug18 ( DOES -- 2016aug18: ) 151 t ! 68 pho ! 0 audpsi ! AudMem \ D 152 t ! 79 pho ! 0 audpsi ! AudMem \ O 153 t ! 69 pho ! 0 audpsi ! AudMem \ E 154 t ! 83 pho ! 809 audpsi ! AudMem \ S 809 psi ! 8 pos ! 0 jux ! 638 pre ! 0 tkb ! 565 seq ! \ 2016aug18 1 num ! 0 mfn ! 3 dba ! 151 rv ! KbLoad \ 2016aug19 155 t ! \ 2016aug18 ( NOT -- 2016aug18: ) 156 t ! 78 pho ! 0 audpsi ! AudMem \ N 157 t ! 79 pho ! 0 audpsi ! AudMem \ O 158 t ! 84 pho ! 250 audpsi ! AudMem \ T 250 psi ! 2 pos ! 0 jux ! 0 pre ! 0 tkb ! 854 seq ! \ 2016aug18 1 num ! 0 mfn ! 0 dba ! 156 rv ! KbLoad \ 2016aug18 159 t ! \ 2016aug18 ( PLAY -- 2016aug18: ) 160 t ! 80 pho ! 0 audpsi ! AudMem \ P 161 t ! 76 pho ! 0 audpsi ! AudMem \ L 162 t ! 65 pho ! 0 audpsi ! AudMem \ A 163 t ! 89 pho ! 854 audpsi ! AudMem \ Y 854 psi ! 8 pos ! 250 jux ! 533 pre ! 168 tkb ! 577 seq ! \ 2016aug29 1 num ! 0 mfn ! 3 dba ! 160 rv ! KbLoad \ 2016aug23 164 t ! \ 2016aug18 ( DICE -- 2016aug18: ) 165 t ! 68 pho ! 0 audpsi ! AudMem \ D 166 t ! 73 pho ! 0 audpsi ! AudMem \ I 167 t ! 67 pho ! 0 audpsi ! AudMem \ C 168 t ! 69 pho ! 577 audpsi ! AudMem \ E 577 psi ! 5 pos ! 0 jux ! 854 pre ! 0 tkb ! 0 seq ! \ 2016aug18 2 num ! 0 mfn ! 4 dba ! 165 rv ! KbLoad \ 2016aug18 169 t ! \ 2016aug18 \ KIDS (528) MAKE (836) ROBOTS (571) 18 t +! 185 ( KIDS -- 2016aug18: ) 170 t ! 75 pho ! 0 audpsi ! AudMem \ K 171 t ! 73 pho ! 0 audpsi ! AudMem \ I 172 t ! 68 pho ! 0 audpsi ! AudMem \ D 173 t ! 83 pho ! 528 audpsi ! AudMem \ S 528 psi ! 5 pos ! 0 jux ! 0 pre ! 178 tkb ! 836 seq ! \ 2016sep01: correction 2 num ! 0 mfn ! 1 dba ! 170 rv ! KbLoad \ 2016aug18 174 t ! \ 2016aug18 ( MAKE -- 2016aug18: ) 175 t ! 77 pho ! 0 audpsi ! AudMem \ M 176 t ! 65 pho ! 0 audpsi ! AudMem \ A 177 t ! 75 pho ! 0 audpsi ! AudMem \ K 178 t ! 69 pho ! 836 audpsi ! AudMem \ E 836 psi ! 8 pos ! 0 jux ! 528 pre ! 185 tkb ! 571 seq ! \ 2016aug18 2 num ! 0 mfn ! 3 dba ! 175 rv ! KbLoad \ 2016sep16: dba-correction 179 t ! \ 2016aug18 ( ROBOTS -- 2016aug18: ) 180 t ! 82 pho ! 0 audpsi ! AudMem \ R 181 t ! 79 pho ! 0 audpsi ! AudMem \ O 182 t ! 66 pho ! 0 audpsi ! AudMem \ B 183 t ! 79 pho ! 0 audpsi ! AudMem \ O 184 t ! 84 pho ! 0 audpsi ! AudMem \ T 185 t ! 83 pho ! 571 audpsi ! AudMem \ S 571 psi ! 5 pos ! 0 jux ! 836 pre ! 0 tkb ! 0 seq ! \ 2016aug18 2 num ! 0 mfn ! 4 dba ! 180 rv ! KbLoad \ 2016aug18 186 t ! \ 2016aug18 \ ROBOTS (571) NEED ME 16 t +! 201 ( ROBOTS -- 2016aug18: ) 187 t ! 82 pho ! 0 audpsi ! AudMem \ R 188 t ! 79 pho ! 0 audpsi ! AudMem \ O 189 t ! 66 pho ! 0 audpsi ! AudMem \ B 190 t ! 79 pho ! 0 audpsi ! AudMem \ O 191 t ! 84 pho ! 0 audpsi ! AudMem \ T 192 t ! 83 pho ! 571 audpsi ! AudMem \ S 571 psi ! 5 pos ! 0 jux ! 800 pre ! 197 tkb ! 842 seq ! \ 2016aug18 2 num ! 0 mfn ! 1 dba ! 187 rv ! KbLoad \ 2016aug18 193 t ! \ 2016aug18 ( NEED -- 2016aug18: ) 194 t ! 78 pho ! 0 audpsi ! AudMem \ N 195 t ! 69 pho ! 0 audpsi ! AudMem \ E 196 t ! 69 pho ! 0 audpsi ! AudMem \ E 197 t ! 68 pho ! 842 audpsi ! AudMem \ D 842 psi ! 8 pos ! 0 jux ! 571 pre ! 200 tkb ! 701 seq ! \ 2016aug18 2 num ! 0 mfn ! 1 dba ! 194 rv ! KbLoad \ 2016sep03: correction 198 t ! \ 2016aug17 ( ME -- 2016aug18: ) 199 t ! 77 pho ! 0 audpsi ! AudMem \ 2016aug16: M 200 t ! 69 pho ! 800 audpsi ! AudMem \ 2016aug16: E 701 psi ! 5 pos ! 0 jux ! 842 pre ! 0 tkb ! 0 seq ! \ 2016aug18 1 num ! 0 mfn ! 4 dba ! 199 rv ! KbLoad \ 2016aug18 201 t ! \ 2016aug18 \ STUDENTS READ BOOKS 21 t +! 222 ( STUDENTS -- 2016aug18: ) 202 t ! 83 pho ! 0 audpsi ! AudMem \ S 203 t ! 84 pho ! 0 audpsi ! AudMem \ T 204 t ! 85 pho ! 0 audpsi ! AudMem \ U 205 t ! 68 pho ! 0 audpsi ! AudMem \ D 206 t ! 69 pho ! 0 audpsi ! AudMem \ E 207 t ! 78 pho ! 0 audpsi ! AudMem \ N 208 t ! 84 pho ! 0 audpsi ! AudMem \ T 209 t ! 83 pho ! 561 audpsi ! AudMem \ S 561 psi ! 5 pos ! 0 jux ! 0 pre ! 214 tkb ! 857 seq ! \ 2016aug18 2 num ! 0 mfn ! 1 dba ! 202 rv ! KbLoad \ 2016aug18 210 t ! \ 2016aug18 ( READ -- 2016aug18: ) 211 t ! 82 pho ! 0 audpsi ! AudMem \ R 212 t ! 69 pho ! 0 audpsi ! AudMem \ E 213 t ! 65 pho ! 0 audpsi ! AudMem \ A 214 t ! 68 pho ! 857 audpsi ! AudMem \ D 857 psi ! 8 pos ! 0 jux ! 561 pre ! 220 tkb ! 540 seq ! \ 2016aug18 2 num ! 0 mfn ! 1 dba ! 211 rv ! KbLoad \ 2016aug18 215 t ! \ 2016aug18 ( BOOKS -- 2016aug18: ) 216 t ! 66 pho ! 0 audpsi ! AudMem \ B 217 t ! 79 pho ! 0 audpsi ! AudMem \ O 218 t ! 79 pho ! 0 audpsi ! AudMem \ O 219 t ! 75 pho ! 0 audpsi ! AudMem \ K 220 t ! 83 pho ! 540 audpsi ! AudMem \ S 540 psi ! 5 pos ! 0 jux ! 857 pre ! 0 tkb ! 0 seq ! \ 2016aug18 2 num ! 0 mfn ! 4 dba ! 216 rv ! KbLoad \ 2016aug18 221 t ! \ 2016aug18 \ WOMEN (515) HAVE A CHILD (525) 20 t +! 242 ( WOMEN -- 2016aug18: ) 222 t ! 87 pho ! 0 audpsi ! AudMem \ W 223 t ! 79 pho ! 0 audpsi ! AudMem \ O 224 t ! 77 pho ! 0 audpsi ! AudMem \ M 225 t ! 69 pho ! 0 audpsi ! AudMem \ E 226 t ! 78 pho ! 515 audpsi ! AudMem \ N 515 psi ! 5 pos ! 0 jux ! 0 pre ! 231 tkb ! 818 seq ! \ 2016aug18 2 num ! 2 mfn ! 1 dba ! 222 rv ! KbLoad \ 2016aug18 227 t ! \ 2016aug18 ( HAVE -- 2016aug18: ) 228 t ! 72 pho ! 0 audpsi ! AudMem \ H 229 t ! 65 pho ! 0 audpsi ! AudMem \ A 230 t ! 86 pho ! 0 audpsi ! AudMem \ V 231 t ! 69 pho ! 818 audpsi ! AudMem \ E 818 psi ! 8 pos ! 0 jux ! 515 pre ! 239 tkb ! 525 seq ! \ 2016aug18 2 num ! 0 mfn ! 1 dba ! 228 rv ! KbLoad \ 2016sep03: correction 232 t ! \ 2016aug18 ( A -- adjective article; 2016aug18 ) 233 t ! 65 pho ! 101 audpsi ! AudMem \ A 101 psi ! 1 pos ! 0 jux ! 0 pre ! 0 tkb ! 525 seq ! 1 num ! 0 mfn ! 4 dba ! 233 rv ! KbLoad \ 2016aug18 234 t ! \ 2016aug18 ( CHILD -- 2016aug18: ) 235 t ! 67 pho ! 0 audpsi ! AudMem \ C 236 t ! 72 pho ! 0 audpsi ! AudMem \ H 237 t ! 73 pho ! 0 audpsi ! AudMem \ I 238 t ! 76 pho ! 0 audpsi ! AudMem \ L 239 t ! 68 pho ! 525 audpsi ! AudMem \ D 525 psi ! 5 pos ! 0 jux ! 818 pre ! 0 tkb ! 9 seq ! \ 2016aug18 1 num ! 0 mfn ! 4 dba ! 235 rv ! KbLoad \ 2016aug18 240 t ! \ 2016aug18 300 t ! \ 2016aug15: for detecting a previous blank space ( A -- 2016aug18: adjective article ) 301 t ! 65 pho ! 101 audpsi ! AudMem \ A 101 psi ! 1 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 1 num ! 0 mfn ! 0 dba ! 301 rv ! KbLoad \ 2016aug15 302 t ! ( ABOUT -- preposition for EnPrep module; 2016aug07 ) 303 t ! 65 pho ! 0 audpsi ! AudMem \ A 304 t ! 66 pho ! 0 audpsi ! AudMem \ B 305 t ! 79 pho ! 0 audpsi ! AudMem \ O 306 t ! 85 pho ! 0 audpsi ! AudMem \ U 307 t ! 84 pho ! 601 audpsi ! AudMem \ T 601 psi ! 6 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 0 num ! 0 mfn ! 0 dba ! 303 rv ! KbLoad \ 2016aug15 308 t ! ( ABOVE -- preposition for EnPrep module; 2016aug08 ) 309 t ! 65 pho ! 0 audpsi ! AudMem \ A 310 t ! 66 pho ! 0 audpsi ! AudMem \ B 311 t ! 79 pho ! 0 audpsi ! AudMem \ O 312 t ! 86 pho ! 0 audpsi ! AudMem \ V 313 t ! 69 pho ! 602 audpsi ! AudMem \ E 641 psi ! 6 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 0 num ! 0 mfn ! 0 dba ! 309 rv ! KbLoad \ 2016aug15 314 t ! ( ACROSS -- 603 -- preposition for EnPrep module; 2016sep06 ) 315 t ! 65 pho ! 0 audpsi ! AudMem \ A 316 t ! 67 pho ! 0 audpsi ! AudMem \ C 317 t ! 82 pho ! 0 audpsi ! AudMem \ R 318 t ! 79 pho ! 0 audpsi ! AudMem \ O 319 t ! 83 pho ! 0 audpsi ! AudMem \ S 320 t ! 83 pho ! 603 audpsi ! AudMem \ S 603 psi ! 6 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 0 num ! 0 mfn ! 0 dba ! 303 rv ! KbLoad \ 2016sep06 321 t ! \ 2016sep06 \ AFTER -- 2016aug16: 344 psi ! -- conjunction [321+6=327] ) ( AFTER 604 after -- preposition [327+6=333] ) 328 t ! 65 pho ! 0 audpsi ! AudMem \ A 329 t ! 70 pho ! 0 audpsi ! AudMem \ F 330 t ! 84 pho ! 0 audpsi ! AudMem \ T 331 t ! 69 pho ! 0 audpsi ! AudMem \ E 332 t ! 82 pho ! 604 audpsi ! AudMem \ R 604 psi ! 6 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 0 num ! 0 mfn ! 0 dba ! 328 rv ! KbLoad \ 2016sep18 333 t ! \ 2016sep18 \ 605 against -- preposition [333+8=341] \ 334 t ! A \ 335 t ! G \ 336 t ! A \ 337 t ! I \ 338 t ! N \ 339 t ! S \ 340 t ! T \ 341 t ! ( AI -- 2016aug17: 599 psi ! -- noun formed from initials of artificial intelligence ) 342 t ! \ 2016aug18 342 t ! \ 2016aug19 343 t ! \ 2016aug19 ( AIR -- 2016aug15: 593 psi ! -- noun for prepositions and needs ) 344 t ! 65 pho ! 0 audpsi ! AudMem \ A 345 t ! 73 pho ! 0 audpsi ! AudMem \ I 346 t ! 82 pho ! 534 audpsi ! AudMem \ R 534 psi ! 5 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 1 num ! 3 mfn ! 0 dba ! 344 rv ! KbLoad \ 2016aug19 347 t ! \ 2016aug19 ( ALL -- adjective for machine reasoning logic; 2016aug16 ) 348 t ! 65 pho ! 0 audpsi ! AudMem \ A 349 t ! 76 pho ! 0 audpsi ! AudMem \ L 350 t ! 76 pho ! 111 audpsi ! AudMem \ 2016aug16: L 111 psi ! 1 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 0 num ! 0 mfn ! 0 dba ! 348 rv ! KbLoad \ 2016aug19 351 t ! \ 2016aug19 ( ALL -- 2016aug16: 711 psi ! -- pronoun ) 352 t ! \ 2016aug18 353 t ! 354 t ! 355 t ! ( ALLOW -- 2016aug18: 802 psi ! -- verb with indirect object; 355+6=361 ) 361 t ! \ 2016aug19 ( ALREADY -- 2016aug19: 200 psi ! -- adverb; 361+8=369 ) 369 t ! \ 2016aug19 ( ALSO -- -- 2016aug19: 202 psi ! -- adverb; 369+5=374 ) 374 t ! \ 2016aug19 \ ALTHOUGH -- 2016aug16: 303 psi ! -- conjunction 365 t ! \ 2016aug18 ( ALWAYS -- 2016aug18: 206 psi ! -- adverb for machine reasoning logic; 369+7=376 ) 376 t ! \ 2016aug19 \ 606 along -- preposition; 2016aug19: 376+6=382 \ 377 t ! A \ 378 t ! L \ 379 t ! O \ 380 t ! N \ 381 t ! G \ 382 t ! \ 2016aug19 \ 607 alongside -- 2016aug19: preposition; 382+10=392 \ 383 t ! A \ 384 t ! L \ 385 t ! O \ 386 t ! N \ 387 t ! G \ 388 t ! S \ 389 t ! I \ 390 t ! D \ 391 t ! E \ 392 t ! \ 608 amid -- 2016aug19: preposition; 392+5=397 \ 393 t ! A \ 394 t ! M \ 395 t ! I \ 396 t ! D \ 397 t ! \ 2016aug19 \ 609 amidst -- 2016aug19: preposition; 397+7=404 \ 398 t ! A \ 399 t ! M \ 400 t ! I \ 401 t ! D \ 402 t ! S \ 403 t ! T \ 404 t ! \ 2016aug19 \ 610 among -- 2016aug19: preposition; 404+6=410 \ 405 t ! A \ 406 t ! M \ 407 t ! O \ 408 t ! N \ 409 t ! G \ 410 t ! \ 2016aug19 ( AN -- lengthening of article "A" before a vowel ) 411 t ! 65 pho ! 0 audpsi ! AudMem \ A 412 t ! 78 pho ! 101 audpsi ! AudMem \ N 101 psi ! 1 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 1 num ! 0 mfn ! 0 dba ! 301 rv ! KbLoad \ 2016aug15 413 t ! \ 2016aug19: 301=rv for "A" before lengthening ( AND -- 2016aug16: 306 psi ! -- conjunction for machine reasoning logic ) 414 t ! 65 pho ! 0 audpsi ! AudMem \ A 415 t ! 78 pho ! 0 audpsi ! AudMem \ N 416 t ! 68 pho ! 306 audpsi ! AudMem \ 2016aug19: D 306 psi ! 3 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 0 num ! 0 mfn ! 0 dba ! 388 rv ! KbLoad \ 2016aug15 417 t ! \ 2016aug19 ( ANDRU -- name for a robot embodiment of the AI ) 418 t ! 65 pho ! 0 audpsi ! AudMem \ A 419 t ! 78 pho ! 0 audpsi ! AudMem \ N 420 t ! 68 pho ! 0 audpsi ! AudMem \ D 421 t ! 82 pho ! 0 audpsi ! AudMem \ R 422 t ! 85 pho ! 501 audpsi ! AudMem \ U 501 psi ! 5 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 1 num ! 1 mfn ! 0 dba ! 392 rv ! KbLoad \ 2016aug15 423 t ! \ 2016aug19 \ 611 anent -- preposition; 423+6=429 \ 424 t ! A \ 425 t ! N \ 426 t ! E \ 427 t ! N \ 428 t ! T \ 429 t ! \ 2016aug19 \ 544=ANIMAL -- 2016aug19: noun; 429+7=436 436 t ! \ 2016aug19 \ 437 t ! A \ 438 t ! N \ 439 t ! Y 121 psi ! \ 2016aug19: adjective \ 440 t ! \ 2016aug19 \ 441 t ! A \ 442 t ! N \ 443 t ! Y \ 444 t ! T \ 445 t ! H \ 446 t ! I \ 447 t ! N \ 448 t ! G 721=ANYTHING pronoun 2016aug19 \ 612 around \ 449 t ! A \ 450 t ! R \ 451 t ! O \ 452 t ! U \ 453 t ! N \ 454 t ! D \ 455 t ! \ 2016aug19 ( 122 psi ! ARTIFICIAL -- 2016aug19: adjective important for AI: 455+11=466 ) 466 t ! \ 2016aug19 \ AS -- 2016aug19: 309 psi ! -- conjunction; 466+3=469 469 t ! \ 2016aug19 \ ASK 804=ASK verb; 469+4=473 473 t ! \ 2016aug19 \ 613 astride -- preposition; 473+8=481 \ 474 t ! A \ 475 t ! S \ 476 t ! T \ 477 t ! R \ 478 t ! I \ 479 t ! D \ 480 t I E \ 481 t ! \ 2016aug19 ( AT -- preposition for EnPrep module; 2016aug07 ) 482 t ! 65 pho ! 0 audpsi ! AudMem \ A 483 t ! 84 pho ! 614 audpsi ! AudMem \ T 614 psi ! 6 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 0 num ! 0 mfn ! 0 dba ! 482 rv ! KbLoad \ 2016aug19 484 t ! \ 2016aug19 485 t ! \ 2016aug19: Leave gap between A and B for safety? ( BAD -- adjective for EnAdjective module; 2016aug07 ) 486 t ! 66 pho ! 0 audpsi ! AudMem \ B 487 t ! 65 pho ! 0 audpsi ! AudMem \ A 488 t ! 68 pho ! 104 audpsi ! AudMem \ D 104 psi ! 1 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 0 num ! 0 mfn ! 0 dba ! 486 rv ! KbLoad \ 2016aug19 489 t ! ( BE -- infinitive impersonal form of 800=BE; 2016aug07 ) 490 t ! 66 pho ! 0 audpsi ! AudMem \ B 491 t ! 69 pho ! 800 audpsi ! AudMem \ E 800 psi ! 8 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 0 num ! 0 mfn ! 0 dba ! 490 rv ! KbLoad \ 2016aug19 492 t ! ( AM -- 1st person singular I-form of 800=BE; 2016aug07 ) 493 t ! 65 pho ! 0 audpsi ! AudMem \ A 494 t ! 77 pho ! 800 audpsi ! AudMem \ M 800 psi ! 8 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 1 num ! 0 mfn ! 1 dba ! 493 rv ! KbLoad \ 2016aug19 495 t ! \ 2016aug19 ( ARE -- 2nd person singular YOU-form of 800=BE; 2016aug07 ) 496 t ! 65 pho ! 0 audpsi ! AudMem \ A 497 t ! 82 pho ! 0 audpsi ! AudMem \ R 498 t ! 69 pho ! 800 audpsi ! AudMem \ E 800 psi ! 8 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug29: correction 1 num ! 0 mfn ! 2 dba ! 496 rv ! KbLoad \ 2016aug19 499 t ! \ 2016aug19 ( IS -- 3rd person singular HE-SHE-IT-form of 800=BE; 2016aug07 ) 500 t ! 73 pho ! 0 audpsi ! AudMem \ I 501 t ! 83 pho ! 800 audpsi ! AudMem \ S 800 psi ! 8 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 1 num ! 0 mfn ! 3 dba ! 500 rv ! KbLoad \ 2016aug19 502 t ! \ 2016aug19 ( ARE -- 1st person plural WE-form of 800=BE; 2016aug07 ) 503 t ! 65 pho ! 0 audpsi ! AudMem \ A 504 t ! 82 pho ! 0 audpsi ! AudMem \ R 505 t ! 69 pho ! 800 audpsi ! AudMem \ E 800 psi ! 8 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 2 num ! 0 mfn ! 1 dba ! 503 rv ! KbLoad \ 2016aug19 506 t ! \ 2016aug19 ( ARE -- 2nd person plural YOU-form of 800=BE; 2016aug07 ) 507 t ! 65 pho ! 0 audpsi ! AudMem \ A 508 t ! 82 pho ! 0 audpsi ! AudMem \ R 509 t ! 69 pho ! 800 audpsi ! AudMem \ E 800 psi ! 8 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 2 num ! 0 mfn ! 2 dba ! 507 rv ! KbLoad \ 2016aug19 510 t ! \ 2016aug19 ( ARE -- 3rd person plural THEY-form of 800=BE; 2016aug07 ) 511 t ! 65 pho ! 0 audpsi ! AudMem \ A 512 t ! 82 pho ! 0 audpsi ! AudMem \ R 513 t ! 69 pho ! 800 audpsi ! AudMem \ E 800 psi ! 8 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 2 num ! 0 mfn ! 3 dba ! 511 rv ! KbLoad \ 2016aug19 514 t ! \ 2016aug19 ( BECAUSE -- 2016aug16: 312 psi ! -- conjunction for machine reasoning logic ) 522 t ! \ 2016aug19: 514+8=522 ( BECOME -- 2016aug15: essential intransitive verb ) 529 t ! \ 2016aug19: 522+7=529 \ BEFORE -- 2016aug16: 315 psi ! -- conjunction; 529+7=536 536 t ! \ 2016aug19 \ BEFORE 617 \ 2016aug19: -- 2016aug16: 617 psi ! -- preposition 543 t ! \ 2016aug19: 536+7=543 \ 618 BEHIND preposition 550 t ! \ 2016aug19: 543+7=550 \ 619 below -- preposition; 550+6=556 556 t ! \ 2016aug19 \ 620 beneath -- preposition; 556+8=564 564 t ! \ 2016aug19 \ 621 beside -- preposition; 564+7=571 571 t ! \ 2016aug19 \ 622 besides -- preposition; 571+8=579 579 t ! \ 2016aug19 ( BEST -- 2016aug16: 143 psi ! superlative form of adjective 141= GOOD ) 584 t ! \ 2016aug19: 579+5=584 ( BETTER -- 2016aug16: 142 psi ! comparative form of adjective 141=GOOD ) 591 t ! \ 2016aug19: adjective; 584+7=591 \ 623 between 599 t ! \ 2016aug19: preposition; 591+8=599 \ 624 betwixt ? 607 t ! \ 2016aug19: preposition; 599+8=607 \ 625 beyond 614 t ! \ 2016aug19: 607+7=614 ( BOOK -- 2016aug16: 540 psi ! -- noun for logical inference ) 615 t ! 66 pho ! 0 audpsi ! AudMem \ B 616 t ! 79 pho ! 0 audpsi ! AudMem \ O 617 t ! 79 pho ! 0 audpsi ! AudMem \ O 618 t ! 75 pho ! 540 audpsi ! AudMem \ K 540 psi ! 5 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug22 1 num ! 3 mfn ! 0 dba ! 615 rv ! KbLoad \ 2016aug22 619 t ! \ 2016aug22 ( BOY -- 2016aug18: 589 psi ! -- always masculine noun for use with gender flags ) 620 t ! 66 pho ! 0 audpsi ! AudMem \ 2016aug22 - B 621 t ! 79 pho ! 0 audpsi ! AudMem \ 2016aug22 - O 622 t ! 89 pho ! 589 audpsi ! AudMem \ 2016aug22 - Y 589 psi ! 5 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug22 1 num ! 1 mfn ! 0 dba ! 620 rv ! KbLoad \ 2016aug22 623 t ! \ 2016aug22 ( BUS -- 2016aug15: 582 psi ! -- noun for prepositions and location ) 627 t ! \ 2016aug19: 623+4=627 \ 626 but -- preposition \ 2016aug15 631 t ! \ 2016aug19: 627+4=631 ( BUT -- 2016aug16: 321 psi ! conjunction for ConJoin module ) 635 t ! \ 2016aug19: 631+ ( BY -- preposition for EnPrep module; 2016aug24 ) 636 t ! 66 pho ! 0 audpsi ! AudMem \ B 637 t ! 89 pho ! 627 audpsi ! AudMem \ Y 627 psi ! 6 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 0 num ! 0 mfn ! 0 dba ! 636 rv ! KbLoad \ 2016aug24 638 t ! \ 2016aug24 ( CAR -- 2016aug17: 563 psi ! -- noun for general ontology ) 643 t ! \ 2016aug19: 638+1+4=643 with gap between B and C ( CELLPHONE -- 2016aug17: 545 psi ! -- noun ) ( 643+10=653) ( CHESS -- 2016aug15: 564 psi ! important singular AI noun ending in "S" ) ( 653+6=659 ) \ 629 chez (rare) ( 659+5=664 ) ( CHILD -- 2016aug15: 525 psi ! example of irregular noun for a polyglot AI Mind ) ( 664+5=669 ) ( CHILDREN -- 2016aug15: 525 psi ! same rv? irregular plural for retrieval by parameters ) ( 669+9=678 ) ( CITY -- 2016aug15: 590 psi ! -- noun for prepositions and location ) ( 678+5=683 ) ( COMPUTER -- 2016aug17: 565 psi ! -- important noun for AI ) ( 683+9=692 ) \ 630 concerning ( 692+11=703 ) ( CONSCIOUS -- 2016aug16: 123 psi ! -- adjective important for AI ) ( 703+10=713 ) ( CONSCIOUSNESS -- 2016aug16: 523 psi ! -- noun important for AI ) ( 713+14=727 ) ( CORNER -- 2016aug17: 567 psi ! -- noun important for prepositions and location ) ( 727+7=734 ) 734 t ! \ 2016aug19: calculated time-point 735 t ! \ 2016aug19: unitary gap between C and D ( DATA -- 2016aug15: always plural noun in correction of modern usage ) ( 735+5=738 ) \ 631 despite ( 738+8=746 ) ( DO -- 2016aug16: 809 psi ! -- infinitive form of verb essential for AuxVerb module ) 747 t ! 68 pho ! 0 audpsi ! AudMem \ D 748 t ! 79 pho ! 809 audpsi ! AudMem \ O 809 psi ! 8 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 0 num ! 0 mfn ! 0 dba ! 747 rv ! KbLoad \ 2016aug19 749 t ! \ 2016aug19 ( DO -- 2016aug27: 809 psi ! -- 1st person singular I-form of auxiliary verb ) 750 t ! 68 pho ! 0 audpsi ! AudMem \ D 751 t ! 79 pho ! 809 audpsi ! AudMem \ O 809 psi ! 8 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 1 num ! 0 mfn ! 1 dba ! 750 rv ! KbLoad \ 2016aug19 752 t ! \ 2016aug19 ( DO -- 2016aug27: 809 psi ! -- 2nd person sing. YOU-form of auxiliary verb ) 753 t ! 68 pho ! 0 audpsi ! AudMem \ D 754 t ! 79 pho ! 809 audpsi ! AudMem \ O 809 psi ! 8 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 1 num ! 0 mfn ! 2 dba ! 753 rv ! KbLoad \ 2016aug19 755 t ! \ 2016aug19 ( DOES -- 2016aug19: 809 psi ! -- 3rd person sing. HE-SHE-IT-form of auxiliary verb ) 756 t ! 68 pho ! 0 audpsi ! AudMem \ D 757 t ! 79 pho ! 0 audpsi ! AudMem \ O 758 t ! 69 pho ! 0 audpsi ! AudMem \ E 759 t ! 83 pho ! 809 audpsi ! AudMem \ S 809 psi ! 8 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug18 1 num ! 0 mfn ! 3 dba ! 756 rv ! KbLoad \ 2016aug18 760 t ! \ 2016aug18 ( DO -- 2016aug27: 809 psi ! -- 1st person plural WE-form of auxiliary verb ) 761 t ! 68 pho ! 0 audpsi ! AudMem \ D 762 t ! 79 pho ! 809 audpsi ! AudMem \ O 809 psi ! 8 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 2 num ! 0 mfn ! 1 dba ! 761 rv ! KbLoad \ 2016aug19 763 t ! \ 2016aug19 ( DO -- 2016aug27: 809 psi ! -- 2nd person plural YOU-form of auxiliary verb ) 764 t ! 68 pho ! 0 audpsi ! AudMem \ D 765 t ! 79 pho ! 809 audpsi ! AudMem \ O 809 psi ! 8 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 2 num ! 0 mfn ! 2 dba ! 764 rv ! KbLoad \ 2016aug19 766 t ! \ 2016aug19 ( DO -- 2016aug27: 809 psi ! -- 3rd person plural THEY-form of auxiliary verb ) 767 t ! 68 pho ! 0 audpsi ! AudMem \ D 768 t ! 79 pho ! 809 audpsi ! AudMem \ O 809 psi ! 8 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 2 num ! 0 mfn ! 3 dba ! 767 rv ! KbLoad \ 2016aug19 769 t ! \ 2016aug19 ( DOING -- 2016aug15: 130 psi ! -- adjectival participle from 830=DO verb ) ( 769+6=775 ) \ 632 down ( 775+5=780 ) \ 633 during ( 780+7=787 ) 787 t ! \ 2016aug19: calculated time-point 788 t ! \ 2016aug19: unitary gap between D and E ( EACH -- 2016aug16: 131 psi ! -- adjective for machine reasoning logic ) ( 788+5=793 ) ( EARTH -- 2016aug16: 531 psi ! -- noun for prepositions and location ) ( 793+6=799 ) ( EITHER -- 2016aug16: 324 psi ! -- conjunction ) ( 799+7=806 ) ( ELSE 2016aug18: 210 psi ! -- adverb for machine reasoning logic ) ( 806+5=811 ) ( ENERGY -- 2016aug19: 588 psi ! -- noun ) ( 811+7=818 ) ( ENGLISH -- 2016aug17: 569 psi ! -- noun important for NLP ) ( 818+8=826 ) ( ENOUGH -- 2016aug16: 128 psi ! -- adjective important for logic ) ( 826+7=833 ) ( ENOUGH -- 2016aug16: 728 psi ! -- pronoun ) ( 833+7=840 ) ( ERROR -- was first word so any bug would announce itself ) 841 t ! 69 pho ! 0 audpsi ! AudMem \ E 842 t ! 82 pho ! 0 audpsi ! AudMem \ R 843 t ! 82 pho ! 0 audpsi ! AudMem \ R 844 t ! 79 pho ! 0 audpsi ! AudMem \ O 845 t ! 82 pho ! 586 audpsi ! AudMem \ R 586 psi ! 5 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 1 num ! 3 mfn ! 0 dba ! 841 rv ! KbLoad \ 2016aug19 846 t ! \ 2016aug19 ( EVEN -- 2016aug18: 214 psi ! -- adverb ) ( 846+5=851 ) ( EVERY -- 2016aug16: 132 psi ! -- adjective for machine reasoning logic ) ( 851+6=857 ) ( EVERYWHERE -- 2016aug18: 218 psi ! -- adverb ) ( 857+11=868 ) \ 634 except ( 868+7=875 ) 875 t ! \ 2016aug19: calculated time-point 876 t ! \ 2016aug19: unitary gap between E and F ( FALSE -- 2016aug16: 180 psi ! -- adjective ) ( 876+6=882 ) ( FEW -- 2016aug17: 152 psi ! -- adjective for machine reasoning logic ) ( 882+4=886 ) ( FIRST -- 2016aug16: 100 psi ! -- adjective ) ( 886+6=892 ) ( FISH -- 2016aug15: 548 psi ! -- useful common noun ) ( 892+5=897 ) 893 t ! 70 pho ! 0 audpsi ! AudMem \ 2016aug19: F 894 t ! 73 pho ! 0 audpsi ! AudMem \ 2016aug19: I 895 t ! 83 pho ! 0 audpsi ! AudMem \ 2016aug19: S 896 t ! 72 pho ! 548 audpsi ! AudMem \ 2016aug19: H 548 psi ! 5 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016sep03 1 num ! 0 mfn ! 1 dba ! 893 rv ! KbLoad \ 2016sep03 897 t ! \ 2016sep03 ( FLOOR -- 2016aug17: 572 psi ! -- noun important for prepositions and location ) ( 897+6=903 ) ( FOOD -- 2016yaug16: 580 psi ! -- noun for inference and ontology ) ( 903+5=908 ) ( FOR -- preposition for EnPrep module; 2016aug24 ) 909 t ! 70 pho ! 0 audpsi ! AudMem \ F 910 t ! 79 pho ! 0 audpsi ! AudMem \ O 911 t ! 82 pho ! 635 audpsi ! AudMem \ R 635 psi ! 6 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 0 num ! 0 mfn ! 0 dba ! 909 rv ! KbLoad \ 2016aug24 912 t ! \ 2016aug24 ( FRIEND -- 2016aug17: 518 psi ! -- for coding assignment of ad-hoc gender tags ) ( 912+7=919 ) ( FRIENDLY-- 2016aug17: 118 psi ! -- adjective ) ( 919+9=928 ) ( FROM -- 636 -- 2016aug24: preposition for EnPrep module ) 929 t ! 70 pho ! 0 audpsi ! AudMem \ F 930 t ! 82 pho ! 0 audpsi ! AudMem \ R 931 t ! 79 pho ! 0 audpsi ! AudMem \ O 932 t ! 77 pho ! 636 audpsi ! AudMem \ M 636 psi ! 6 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 0 num ! 0 mfn ! 0 dba ! 929 rv ! KbLoad \ 2016aug24 933 t ! \ 2016aug24 ( FUN -- 2016aug16: 585 psi ! -- noun ) ( 933+4-937 ) ( FUNNY -- 2016aug16: 185 psi ! -- adjective ) ( 937+6=943 ) 943 t ! \ 2016aug19: calculated time-point 944 t ! \ 2016aug19: unitary gap between F and G ( GIRL -- 2016aug15: 510 psi ! -- always feminine noun for use with gender flags ) ( 944+5=949 ) ( GIVE -- 2016aug18: 812 psi ! -- dative verb for indirect objects ) ( 949+5=954 ) 950 t ! 71 pho ! 0 audpsi ! AudMem \ G 951 t ! 73 pho ! 0 audpsi ! AudMem \ I 952 t ! 86 pho ! 0 audpsi ! AudMem \ V 953 t ! 69 pho ! 812 audpsi ! AudMem \ E 2016aug28 812 psi ! 8 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug28 0 num ! 0 mfn ! 0 dba ! 950 rv ! KbLoad \ 2016aug28 954 t ! \ 2016aug28 ( GOAL -- 2016aug19: 532 psi ! -- noun important for FreeWill volition module ) ( 954+5=959 ) ( GOD -- 2016aug15: 533 psi ! -- masculine noun important for philosophy of AI ) ( 959+4=963 ) ( GOOD -- 2016aug16: 141 psi ! -- adjective for EnAdjective module ) ( 963+5=968 ) ( GROK -- 2016aug18: 815 psi ! -- Heinleinian verb of understanding ) ( 968+5=973 ) 973 t ! \ 2016aug19: calculated time-point 974 t ! \ 2016aug19: unitary gap between F and G ( HAVE -- 2016aug15: 810 psi ! -- irregular high-word-frequency verb ) ( HAS -- 2016aug15: 810 psi ! -- high-word-frequency irregular verb form ) ( HAVE -- 2016aug19: irregular high-word-frequency verb ) 975 t ! 72 pho ! 0 audpsi ! AudMem \ H 976 t ! 65 pho ! 0 audpsi ! AudMem \ A 977 t ! 86 pho ! 0 audpsi ! AudMem \ V 978 t ! 69 pho ! 818 audpsi ! AudMem \ E 2016aug19 818 psi ! 8 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 1 num ! 0 mfn ! 1 dba ! 975 rv ! KbLoad \ 2016aug19 979 t ! \ 2016aug19 ( HAS -- 2016aug19: high-word-frequency irregular verb form ) 980 t ! 72 pho ! 0 audpsi ! AudMem \ H 981 t ! 65 pho ! 0 audpsi ! AudMem \ A 982 t ! 83 pho ! 818 audpsi ! AudMem \ S 2016aug19 818 psi ! 8 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 1 num ! 0 mfn ! 3 dba ! 980 rv ! KbLoad \ 2016aug19 983 t ! \ 2016aug19 ( HE -- 2016aug19: nominative form of high-word-frequency pronoun ) 984 t ! 72 pho ! 0 audpsi ! AudMem \ H 985 t ! 69 pho ! 713 audpsi ! AudMem \ E 713 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 1 num ! 1 mfn ! 1 dba ! 984 rv ! KbLoad \ 2016aug19: masculine 986 t ! \ 2016aug19 ( HIS -- 2016aug19: genitive form of personal pronoun ) 987 t ! 72 pho ! 0 audpsi ! AudMem \ H 988 t ! 73 pho ! 0 audpsi ! AudMem \ I 989 t ! 83 pho ! 113 audpsi ! AudMem \ S 713 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 1 num ! 1 mfn ! 2 dba ! 987 rv ! KbLoad \ 2016aug19: masculine 990 t ! \ 2016aug19 ( HIM -- 2016aug19: dative indirect-object form of personal pronoun ) 991 t ! 72 pho ! 0 audpsi ! AudMem \ H 992 t ! 73 pho ! 0 audpsi ! AudMem \ I 993 t ! 77 pho ! 713 audpsi ! AudMem \ M 713 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 1 num ! 1 mfn ! 3 dba ! 991 rv ! KbLoad \ 2016aug19: masculine 994 t ! \ 2016aug19 ( HIM -- 2016aug19: accusative direct-object form of personal pronoun ) 995 t ! 72 pho ! 0 audpsi ! AudMem \ H 996 t ! 73 pho ! 0 audpsi ! AudMem \ I 997 t ! 77 pho ! 713 audpsi ! AudMem \ M 818 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 1 num ! 1 mfn ! 4 dba ! 980 rv ! KbLoad \ 2016aug19: masculine 998 t ! \ 2016aug19 ( HIS -- 2016aug19: possessive adjective for personal pronoun ) 999 t ! 72 pho ! 0 audpsi ! AudMem \ H 1000 t ! 73 pho ! 0 audpsi ! AudMem \ I 1001 t ! 83 pho ! 113 audpsi ! AudMem \ S 113 psi ! 1 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 0 num ! 0 mfn ! 0 dba ! 999 rv ! KbLoad \ 2016aug19 1002 t ! \ 2016aug19 ( HEAR -- 2016aug18: 821 psi ! -- sensory verb essential for AudRecog ) ( 1002+5=1007 ) ( HELLO -- 2016aug19: interjection for human-computer interaction ) 1008 t ! 72 pho ! 0 audpsi ! AudMem \ H 1009 t ! 69 pho ! 0 audpsi ! AudMem \ E 1010 t ! 76 pho ! 0 audpsi ! AudMem \ L 1011 t ! 76 pho ! 0 audpsi ! AudMem \ L 1012 t ! 79 pho ! 450 audpsi ! AudMem \ O 450 psi ! 4 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 0 num ! 0 mfn ! 0 dba ! 1008 rv ! KbLoad \ 2016aug19 1013 t ! \ 2016aug19: ( HER -- 2016aug19: 119 psi ! -- possessive adjective from personal pronoun ) 1014 t ! 72 pho ! 0 audpsi ! AudMem \ H 1015 t ! 69 pho ! 0 audpsi ! AudMem \ E 1016 t ! 82 pho ! 119 audpsi ! AudMem \ R 119 psi ! 1 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 0 num ! 0 mfn ! 0 dba ! 1014 rv ! KbLoad \ 2016aug19 1017 t ! \ 2016aug19 ( HERE -- 2016aug18: 222 psi ! -- adverb for discussion of physical location ) ( 1017+5=1022 ) ( HOUSE -- 2016aug17: 570 psi ! -- noun important for prepositions and location ) ( 1022+6=1028 ) ( HOW -- 2016aug18: 226 psi ! -- adverb for EnAdverb module ) ( 1028+4=1032 ) 1032 t ! \ 2016aug19 ( I -- 2016aug19: nominative subject-form of personal pronoun ) 1033 t ! 73 pho ! 701 audpsi ! AudMem \ I 701 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 1 num ! 0 mfn ! 1 dba ! 1033 rv ! KbLoad \ 2016aug19 1034 t ! \ 2016aug19 ( MINE -- 2016aug19: genitive form of personal pronoun ) 1035 t ! 77 pho ! 0 audpsi ! AudMem \ M 1036 t ! 73 pho ! 0 audpsi ! AudMem \ I 1037 t ! 78 pho ! 0 audpsi ! AudMem \ N 1038 t ! 69 pho ! 701 audpsi ! AudMem \ E 701 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 1 num ! 0 mfn ! 2 dba ! 1035 rv ! KbLoad \ 2016aug19 1039 t ! \ 2016aug19 ( ME -- 2016aug19: dative indirect-object form of personal pronoun; ) 1040 t ! 77 pho ! 0 audpsi ! AudMem \ M 1041 t ! 69 pho ! 701 audpsi ! AudMem \ E 701 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 1 num ! 0 mfn ! 3 dba ! 1040 rv ! KbLoad \ 2016aug19 1042 t ! \ 2016aug19 ( ME -- 2016aug19: accusative direct-object form of personal pronoun ) 1043 t ! 77 pho ! 0 audpsi ! AudMem \ M 1044 t ! 69 pho ! 701 audpsi ! AudMem \ E 701 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 1 num ! 0 mfn ! 4 dba ! 1043 rv ! KbLoad \ 2016aug19 1045 t ! \ 2016aug19 ( IF -- 2016aug16: 327 psi ! -- conjunction for machine reasoning logic ) ( 1045+3=1048 ) ( IN -- 2016aug24: 638 psi ! -- preposition for EnPrep module; in KB ) 1049 t ! 73 pho ! 0 audpsi ! AudMem \ I 1050 t ! 78 pho ! 638 audpsi ! AudMem \ N 638 psi ! 6 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 0 num ! 0 mfn ! 0 dba ! 1049 rv ! KbLoad \ 2016aug24 1051 t ! \ 2016aug24 ( INASMUCH -- 2016aug16: 330 psi ! conjunction; with AS? ) ( 1051+9=1060 ) \ 639 inside ( 1060+7=1067 ) ( INTELLIGENCE -- 2016aug17: 524 psi ! -- noun ) ( 1067+13=1080 ) ( INTELLIGENT -- 2016aug17: 124 psi ! -- adjective ) ( 1080+12=1092 ) \ 640 inter ( 1092+6=1098 ) ( INTERNET -- 2016aug17: 568 psi ! -- noun for general ontology ) ( 1098+9=1107 ) \ 641 into ( 1107+5=1112 ) 1112 t ! \ 2016aug19 ( IT -- 2016aug15: 725 psi ! -- nominative subject-form of personal pronoun ) ( ITS -- 2016aug15: 725 psi ! -- genitive form of personal pronoun ) ( IT -- 2016aug15: 725 psi ! -- dative indirect-object form of pers. pronoun ) ( IT -- 2016aug15: 725 psi ! -- accusative direct-obj. form of pers. pronoun ) ( IT -- 2016aug19: nominative subject-form of personal pronoun ) 1113 t ! 73 pho ! 0 audpsi ! AudMem \ I 1114 t ! 84 pho ! 725 audpsi ! AudMem \ T 725 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 1 num ! 3 mfn ! 1 dba ! 1113 rv ! KbLoad \ 2016aug19: neuter 1115 t ! \ 2016aug19 ( ITS -- 2016aug19 genitive form of personal pronoun; 2016aug19 ) 1116 t ! 73 pho ! 0 audpsi ! AudMem \ I 1117 t ! 84 pho ! 0 audpsi ! AudMem \ T 1118 t ! 83 pho ! 725 audpsi ! AudMem \ S 725 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 1 num ! 3 mfn ! 2 dba ! 1116 rv ! KbLoad \ 2016aug19: neuter 1119 t ! \ 2016aug19 ( IT -- 2016aug19: dative indirect-object form of pers. pronoun ) 1120 t ! 73 pho ! 0 audpsi ! AudMem \ I 1121 t ! 84 pho ! 725 audpsi ! AudMem \ T 725 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 1 num ! 3 mfn ! 3 dba ! 1120 rv ! KbLoad \ 2016aug19: neuter 1122 t ! \ 2016aug19 ( IT -- 2016aug19: accusative direct-obj. form of pers. pronoun ) 1123 t ! 73 pho ! 0 audpsi ! AudMem \ I 1124 t ! 84 pho ! 725 audpsi ! AudMem \ T 713 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 1 num ! 3 mfn ! 4 dba ! 1123 rv ! KbLoad \ 2016aug19: neuter 1125 t ! \ 2016aug19 ( ITS -- 2016aug17: 125 psi ! -- possessive adjective from personal pronoun ) 1126 t ! 73 pho ! 0 audpsi ! AudMem \ I 1127 t ! 84 pho ! 0 audpsi ! AudMem \ T 1128 t ! 83 pho ! 125 audpsi ! AudMem \ S 125 psi ! 1 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 0 num ! 0 mfn ! 0 dba ! 1126 rv ! KbLoad \ 2016aug19 1129 t ! \ 2016aug21: calculated time-point 1130 t ! \ 2016aug21: unitary gap between I and K ( KNOW -- 2016aug18: 827 psi ! -- verb germane to artificial intelligence ) 1131 t ! 75 pho ! 0 audpsi ! AudMem \ K 1132 t ! 78 pho ! 0 audpsi ! AudMem \ N 1133 t ! 79 pho ! 0 audpsi ! AudMem \ O 1134 t ! 87 pho ! 827 audpsi ! AudMem \ W 827 psi ! 8 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug19 0 num ! 0 mfn ! 0 dba ! 1131 rv ! KbLoad \ 2016aug21 1135 t ! \ 2016aug21 ( LAST -- 2016aug16: 199 psi ! -- adjective ) ( 1135+5=1140 ) ( LEND -- 2016aug18: 830 psi ! -- verb for indirect objects ) ( 1140+5=1145 ) \ 642 less ( 1145+5=1150 ) ( LEST -- 2016aug16: 333 psi ! -- conjunction ) ( 1150+5=1155 ) \ 642 like ( 1155+4=1159 ) ( LOAN -- 2016aug18: 833 psi ! -- verb for indirect objects ) ( 1159+5=1164 ) 1164 t ! \ 2016aug21: calculated time-point 1165 t ! \ 2016aug21: unitary gap between L and M ( MAN -- 2016aug15: 543 psi ! -- always masculine noun for use with gender flags ) ( 1166+4=1170 ) ( MEN -- 2016aug21: 543 psi ! -- irreg. pl. for retrieval by parameters; sing. rv? ) ( 1170+4=1174 ) ( MANY -- 2016aug17: 171 psi ! -- adjective for machine reasoning logic ) ( 1174+5=1179 ) ( MAYBE -- 2016aug18: 230 psi ! -- adverb response as alternative to YES or NO ) ( 1179+6=1185 ) ( MEDIA -- 2016aug21: 584 psi ! -- always pl. noun in correction of modern usage ) ( 1185+6=1191 ) \ 643 minus ( 1191+6=1197 ) ( MONEY -- 2016aug18: 593 psi ! -- noun ) ( 1197+6=2003 ) ( MORE -- 2016aug17: 172 psi ! -- adjective ) ( 2003+5=2008 ) ( MORE -- 2016aug17: 772 psi ! -- pronoun ) ( 2008+5=2013 ) ( MOST -- 2016aug17: 173 psi ! -- adjective for machine reasoning logic ) ( 2013+5=2018 ) ( MOVE -- 2016aug18: 839 psi ! -- transitive or intransitive verb ) ( 2018+5=2023 ) ( MUCH -- 2016aug17: 170 psi ! -- adjective ) ( 2023+5=2028 ) ( MUCH -- 2016aug17: 770 psi ! -- pronoun ) ( 2028+5=2033 ) ( MY -- 2016aug15: 181 psi ! -- adjective for personal pronoun "I" ) ( 2033+3=2036 ) 2036 t ! \ 2016aug21: calculated time-point 2037 t ! \ 2016aug21: unitary gap between M and N \ 644 near ( 2037+5=2042 ) \ 645 nearer ( 2042+7=2049 ) \ 646 nearest ( 2049+8=2057 ) ( NEITHER 2016aig16: 336 psi ! -- conjunction ) ( 2057+8=2065 ) ( NEVER -- 2016aug18: 234 psi ! -- adverb ) ( 2065+6=2071 ) ( NEW -- 2016aug16: 110 psi ! -- adjective ) ( 2071+4=2075 ) ( NO -- 2016aug17: 160 psi ! -- adjective for machine reasoning logic ) ( 2075+3=2078 ) ( NO -- 2016aug21: 404 psi ! -- interj. for human-computer interaction ) ( 2078+3=2081 ) ( NOR -- 2016aug16: 339 psi ! -- conjunction ) ( 2081+4=2085 ) ( NOT -- 2016aug18: 250 psi ! -- adverb for machine reasoning logic ) ( 2085+4=2089 ) ( NOTHING -- 2016aug21: 760 psi ! -- pron.; VisRecog default for what AI sees ) ( 2089+8=2097 ) 2090 t ! 78 pho ! 0 audpsi ! AudMem \ N 2091 t ! 79 pho ! 0 audpsi ! AudMem \ O 2092 t ! 84 pho ! 0 audpsi ! AudMem \ T 2093 t ! 72 pho ! 0 audpsi ! AudMem \ H 2094 t ! 73 pho ! 0 audpsi ! AudMem \ I 2095 t ! 78 pho ! 0 audpsi ! AudMem \ N 2096 t ! 71 pho ! 760 audpsi ! AudMem \ G 760 psi ! 5 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug31 1 num ! 0 mfn ! 0 dba ! 2090 rv ! KbLoad \ 2016aug31 2097 t ! \ 2016aug31 \ 647 notwithstanding ( 2097+16=2113 ) ( NOW -- 2016aug18: 238 psi ! -- adverb ) ( 2113+4=2117 ) ( NOW -- 2016aug18: 342 psi ! -- conjunction ) ( 2117+4=2121 ) ( NOWHERE -- 2016aug18: 242 psi ! -- adverb ) ( 2121+8=2129 ) 2129 t ! \ 2016aug21: calculated time-point 2130 t ! \ 2016aug21: unitary gap between N and O ( OF -- 649 -- 2016aug24: preposition for EnPrep module ) 2131 t ! 79 pho ! 0 audpsi ! AudMem \ O 2132 t ! 70 pho ! 649 audpsi ! AudMem \ F 649 psi ! 6 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 0 num ! 0 mfn ! 0 dba ! 2131 rv ! KbLoad \ 2016aug24 2133 t ! \ 2016aug24 \ 650 off ( 2133+4=2137 ) ( OFFER -- 2016aug18: 845 psi ! -- verb for indirect objects ) ( 2137+6=2143 ) ( OFTEN -- 2016aug18: 246 psi ! -- adverb ) ( 2143+6=2149 ) ( OLD -- 2016aug16: 190 psi ! -- adjective ) ( 2149+4=2153 ) ( ON -- 651 -- 2016aug24: preposition for EnPrep module ) 2154 t ! 79 pho ! 0 audpsi ! AudMem \ O 2155 t ! 78 pho ! 651 audpsi ! AudMem \ N 651 psi ! 6 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 0 num ! 0 mfn ! 0 dba ! 2154 rv ! KbLoad \ 2016aug24 2156 t ! \ 2016aug24 ( ONCE -- 2016aug18: 248 psi ! -- adverb ) ( 2156+5=2161 ) ( ONCE -- 2016aug18: 345 psi ! -- conjunction ) ( 2161+5=2166 ) ( ONLY -- 2016aug16: 150 psi ! -- adjective ) ( 2166+5=2171 ) ( ONLY -- 2016aug16: 200 psi ! -- adverb ) ( 2171+5=2176 ) \ 652 onto ( 2176+5=2181 ) \ 653 opposite ( 2181+9=2190 ) ( OR -- 2016aug22: 348 psi ! -- conjunction ) 2191 t ! 79 pho ! 0 audpsi ! AudMem \ 2015aug22 - O 2192 t ! 82 pho ! 348 audpsi ! AudMem \ 2016aug22 - R 348 psi ! 3 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug22 0 num ! 0 mfn ! 0 dba ! 2191 rv ! KbLoad \ 2016aug22 2193 t ! \ 2016aug22 ( OTHER -- 2016aug16: 182 psi ! -- adjective ) ( 2193+6=2199 ) ( OUR -- 2016aug18: 186 psi ! -- adjective for personal pronoun "WE" ) ( 2199+4=2203 ) \ 654 out [out the window] ( 2203+4=2207 ) \ 655 outside ( 2207+8=2215 ) \ 656 over ( 2215+5=2220 ) 2220 t ! \ 2016aug21: calculated time-point 2221 t ! \ 2016aug21: unitary gap between O and P \ 658 pace (formal) [from Latin "pax"] ( 2221+5=2226 ) ( PARENTS -- 2016aug15: 512 psi ! -- important noun ) ( 2226+8=2234 ) \ 659 past ( 2234+5=2239 ) ( PAY -- 2016aug18: 851 psi ! -- verb for indirect objects ) ( 2239+4=2243 ) ( PEOPLE -- 2016aug1q5: 587 psi ! -- establish as plural for EnParser ) ( 2243+7=2250 ) \ 660 per ( 2250+4=2254 ) ( PERHAPS -- 2016aug18: 254 psi ! -- adverb ) ( 2254+8==2262 ) ( PHONE -- 2016aug17: 546 psi ! -- noun for general ontology ) ( 2262+6=2268 ) ( PLAY -- 2016aug18: 854 psi ! -- verb useful for logical inference ) ( 2268+5=2273 ) \ PLEASE -- interjection for human-computer interaction ) ( 2273+7=2280 ) \ 661 post ( 2280+5=2285 ) ( POWER -- 2016aug16: 575 psi ! -- noun ) ( 2285+6=2291 ) \ 662 pre ( 2291+4=2295 ) \ 663 pro ( 2295+4=2299 ) ( PROMISE -- 2016aug19: 855 psi ! -- verb for indirect objects ) ( 2299+8=2307 ) ( PROVIDED -- 2016aug16: 351 psi ! -- conjunction ) ( 2307+9=2316 ) 2316 t ! \ 2016aug21: calculated time-point 2317 t ! \ 2016aug21: unitary gap between P and Q \ 665 qua (formal) ( 2317+4=2321 ) ( QUITE -- 2016aug18: 256 psi ! -- adverb ) ( 2321+6=2327 ) 2327 t ! \ 2016aug21: calculated time-point 2328 t ! \ 2016aug21: unitary gap between Q and R ( RATHER -- 2016aug18: 258 psi ! -- adverb ) ( 2328+7=2345 ) \ 667 re ( 2345+3=2348 ) ( ROBOT 2016aug16: 571 psi ! ) ( 2348+6=2354 ) \ 668 round [alternative to "around"] ( 2354+6=2360 ) ( ROOM -- 2016aug21: 573 psi ! -- noun important for prep. and location ) ( 2360+5=2365 ) 2365 t ! \ 2016aug21: calculated time-point 2366 t ! \ 2016aug21: unitary gap between Q and R ( SEE -- 2016aug21: 860 psi ! lets VisRecog report non-KB direct objects ) ( 2366+4=2370 ) ( SELDOM -- 2016aug18: 260 psi ! -- adverb ) ( 2370+7=2377 ) ( SELF -- 2016aug18: 777 psi ! -- reflexive pronoun ) ( 2370+7=2377 ) ( SELFISH -- 2016aug18: 177 psi ! adjective -- prime example of "-ish" ending ) ( 2377+8=2385 ) ( SELL -- 2016aug18: 863 psi ! -- verb for indirect objects ) ( 2385+5=2390 ) ( SEND -- 2016aug18: 866 psi ! -- verb for indirect objects ) ( 2390+5=2395 ) ( SEVERAL -- 2016aug17: 153 psi ! -- adjective for machine reasoning logic ) ( 2395+8=2403 ) 2403 t ! \ 2016aug21: calculated time-point ( SHE -- 2016aug18: 719 psi ! -- nominative subject-form of personal pronoun ) 2404 t ! 83 pho ! 0 audpsi ! AudMem \ S 2405 t ! 72 pho ! 0 audpsi ! AudMem \ H 2406 t ! 69 pho ! 719 audpsi ! AudMem \ E 719 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 1 num ! 2 mfn ! 1 dba ! 2404 rv ! KbLoad \ 2016aug21: feminine 2407 t ! \ 2016aug21 ( HERS -- genitive form of personal pronoun; 10nov2012 ) 2408 t ! 72 pho ! 0 audpsi ! AudMem \ H 2409 t ! 69 pho ! 0 audpsi ! AudMem \ E 2410 t ! 82 pho ! 0 audpsi ! AudMem \ R 2411 t ! 83 pho ! 719 audpsi ! AudMem \ S 719 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 1 num ! 2 mfn ! 2 dba ! 2408 rv ! KbLoad \ 2016aug21: feminine 2412 t ! \ 2016aug21 ( HER -- dative indirect-object form of pers. pron. 9nov2012 ) 2413 t ! 72 pho ! 0 audpsi ! AudMem \ H 2414 t ! 69 pho ! 0 audpsi ! AudMem \ E 2415 t ! 82 pho ! 719 audpsi ! AudMem \ R 719 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 1 num ! 2 mfn ! 3 dba ! 2413 rv ! KbLoad \ 2016aug21: feminine 2416 t ! \ 2016aug21 ( HER -- accusative direct-object form of pers. pron. 9nov2012 ) 2417 t ! 72 pho ! 0 audpsi ! AudMem \ H 2418 t ! 69 pho ! 0 audpsi ! AudMem \ E 2419 t ! 82 pho ! 719 audpsi ! AudMem \ R 719 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 1 num ! 2 mfn ! 4 dba ! 2417 rv ! KbLoad \ 2016aug21: feminine 2420 t ! \ 2016aug21 \ 670 short ( 2426 t ! ) ( SHOW -- 2016aug18: 869 psi ! -- verb for indirect objects ) ( 2431 t ! ) ( SINCE -- 2016aug16: 354 psi ! -- conjunction; also preposition? ) ( 2437 t ! ) \ 671 since -- 2016aug16: 671 psi ! -- preposition ( 2443 t ! ) ( SINGULARITY -- 2016aug17: 591 psi ! -- noun associated with AI ) ( 2455 t ! ) ( SMARTPHONE -- 2016aug17: 547 psi ! -- noun ) ( 2466 t ! ) ( SMELL -- 2016aug18: 872 psi ! -- verb for robotic OlfRecog module ) ( 2472 t ! ) ( SO -- 2016aug18: 262 psi ! -- adverb ) ( 2475 t ! ) ( SO -- 2016aug18: 358 psi ! -- conjunction ) ( 2478 t ! ) ( SOME -- 2016aug15: 123 psi ! -- adjective for machine reasoning logic ) ( 2483 t ! ) ( SOON -- 2016aug18: 266 psi ! -- adverb ) ( 2488 t ! ) ( SOUL -- 2016aug17: 538 psi ! -- noun ) ( 2493 t ! ) ( SPEAK -- 2016aug18: 875 psi ! -- verb ) ( 2499 t ! ) ( STILL -- 2016aug18: 268 psi ! -- adverb ) ( 2505 t ! ) ( STOP -- 2016aug18: 878 psi ! -- verb ) ( 2509 t ! ) ( STUDENT -- 2016aug15: 561 psi ! -- noun for logical inference ) ( 2517 t ! ) ( STUFF -- 2016aug15: 596 psi ! -- useful general noun ) ( 2522 t ! ) ( SUN -- 2016aug16: 539 psi ! -- noun for prepositions and location ) ( 2526 t ! ) ( TABLE -- 2016aug17: 574 psi ! -- noun for preposition and location ) ( 2532 t ! ) ( TASTE -- 2016aug18: 881 psi ! -- verb for robotic GusRecog module ) ( 2538 t ! ) ( TELEPHONE -- 2016aug17: 548 psi ! -- noun ) ( 2548 t ! ) ( TELL -- 2016aug18: 884 psi ! -- dative verb for indirect objects ) ( 2553 t ! ) \ 673 than -- 2016aug15: necessary for use with comparative forms ) ( 2558 t ! ) 2558 t ! \ 2016aug21 ( THAT -- 2016aug16: 147 psi ! -- singular adjective ) 2559 t ! 84 pho ! 0 audpsi ! AudMem \ T 2560 t ! 72 pho ! 0 audpsi ! AudMem \ H 2561 t ! 65 pho ! 0 audpsi ! AudMem \ A 2562 t ! 84 pho ! 145 audpsi ! AudMem \ T 145 psi ! 1 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 1 num ! 0 mfn ! 0 dba ! 2559 rv ! KbLoad \ 2016aug21 2563 t ! \ 2016aug21 ( THAT -- 2016aug21: 361 psi ! -- conjunction ) 2564 t ! 84 pho ! 0 audpsi ! AudMem \ T 2565 t ! 72 pho ! 0 audpsi ! AudMem \ H 2566 t ! 65 pho ! 0 audpsi ! AudMem \ A 2567 t ! 84 pho ! 361 audpsi ! AudMem \ T 361 psi ! 3 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 0 num ! 0 mfn ! 0 dba ! 2564 rv ! KbLoad \ 2016aug21: neuter 2568 t ! \ 2016aug21 ( THAT -- 2016aug16: 747 psi ! -- high word-frequency pronoun ) 2569 t ! 84 pho ! 0 audpsi ! AudMem \ T 2570 t ! 72 pho ! 0 audpsi ! AudMem \ H 2571 t ! 65 pho ! 0 audpsi ! AudMem \ A 2572 t ! 84 pho ! 745 audpsi ! AudMem \ T 745 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 1 num ! 3 mfn ! 0 dba ! 2569 rv ! KbLoad \ 2016aug21: neuter 2573 t ! \ 2016aug21 ( THE -- 2016aug17: 117 psi ! -- indefinite article as an adjective ) 2574 t ! 84 pho ! 0 audpsi ! AudMem \ T 2575 t ! 72 pho ! 0 audpsi ! AudMem \ H 2576 t ! 69 pho ! 117 audpsi ! AudMem \ E 117 psi ! 1 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 0 num ! 0 mfn ! 0 dba ! 2574 rv ! KbLoad \ 2016aug21 2577 t ! \ 2016aug21 ( THEIR -- 2016aug21: 188 psi ! -- poss. adj. for personal pronoun "THEY" ) ( 2583 t ! ) ( THEN -- 2016aug18: 270 psi ! -- adverb for machine reasoning logic ) ( 2588 t ! ) ( THERE -- 2016aug21: 274 psi ! -- adv. for discussion of physical location ) ( 2594 t ! ) ( THESE -- 2016aug16: 146 psi ! -- plural adjective from THIS ) ( 2600 t ! ) 2600 t ! \ 2016aug21 ( THEY -- 2016aug18: 743 psi ! -- nominative subject-form of pers. pronoun ) 2601 t ! 84 pho ! 0 audpsi ! AudMem \ T 2602 t ! 72 pho ! 0 audpsi ! AudMem \ H 2603 t ! 69 pho ! 0 audpsi ! AudMem \ E 2604 t ! 89 pho ! 743 audpsi ! AudMem \ Y 743 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 3 num ! 0 mfn ! 1 dba ! 2601 rv ! KbLoad \ 2016aug21 2605 t ! \ 2016aug21 ( THEIRS -- 2016aug21: genitive form of personal pronoun ) 2606 t ! 84 pho ! 0 audpsi ! AudMem \ T 2607 t ! 72 pho ! 0 audpsi ! AudMem \ H 2608 t ! 69 pho ! 0 audpsi ! AudMem \ E 2609 t ! 73 pho ! 0 audpsi ! AudMem \ I 2610 t ! 82 pho ! 0 audpsi ! AudMem \ R 2611 t ! 83 pho ! 743 audpsi ! AudMem \ S 743 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 2 num ! 0 mfn ! 2 dba ! 2606 rv ! KbLoad \ 2016aug21 2612 t ! \ 2016aug21 ( THEM -- 2016aug21: dative indirect-object form of pers. pron. ) 2613 t ! 84 pho ! 0 audpsi ! AudMem \ T 2614 t ! 72 pho ! 0 audpsi ! AudMem \ H 2615 t ! 69 pho ! 0 audpsi ! AudMem \ E 2616 t ! 77 pho ! 743 audpsi ! AudMem \ M 743 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 2 num ! 0 mfn ! 3 dba ! 2613 rv ! KbLoad \ 2016aug21 2617 t ! \ 2016aug21 ( THEM -- 2016aug21: acc. direct-object form of pers. pron. ) 2618 t ! 84 pho ! 0 audpsi ! AudMem \ T 2619 t ! 72 pho ! 0 audpsi ! AudMem \ H 2620 t ! 69 pho ! 0 audpsi ! AudMem \ E 2621 t ! 77 pho ! 743 audpsi ! AudMem \ M 743 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 2 num ! 0 mfn ! 4 dba ! 2618 rv ! KbLoad \ 2016aug21 2622 t ! \ 2016aug21 ( THING -- 2016aug16: 555 psi ! -- useful general noun ) ( 2628 t ! ) 2628 t ! \ 2016aug21 ( THINK -- 2016aug18: 888 psi ! -- verb germane to artificial intelligence ) 2629 t ! 84 pho ! 0 audpsi ! AudMem \ T 2630 t ! 72 pho ! 0 audpsi ! AudMem \ H 2631 t ! 73 pho ! 0 audpsi ! AudMem \ I 2632 t ! 78 pho ! 0 audpsi ! AudMem \ N 2633 t ! 75 pho ! 888 audpsi ! AudMem \ K 888 psi ! 8 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 0 num ! 0 mfn ! 0 dba ! 2629 rv ! KbLoad \ 2016aug21 2634 t ! \ 2016aug21 ( THIS -- 2016aug16: 147 psi ! -- singular adjective ) 2635 t ! 84 pho ! 0 audpsi ! AudMem \ T 2636 t ! 72 pho ! 0 audpsi ! AudMem \ H 2637 t ! 73 pho ! 0 audpsi ! AudMem \ I 2638 t ! 83 pho ! 145 audpsi ! AudMem \ S 147 psi ! 1 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 1 num ! 0 mfn ! 0 dba ! 2635 rv ! KbLoad \ 2016aug21 2639 t ! \ 2016aug21 ( THIS -- 2016aug16: 745 psi ! -- singular pronoun; keep 746 in reserve for plural ) 2640 t ! 84 pho ! 0 audpsi ! AudMem \ T 2641 t ! 72 pho ! 0 audpsi ! AudMem \ H 2641 t ! 73 pho ! 0 audpsi ! AudMem \ I 2643 t ! 83 pho ! 747 audpsi ! AudMem \ S 747 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 1 num ! 3 mfn ! 0 dba ! 2640 rv ! KbLoad \ 2016aug21: neuter 2644 t ! \ 2016aug21 ( THESE -- 2016aug21: 146 psi ! -- plural adjective ) 2645 t ! 84 pho ! 0 audpsi ! AudMem \ T 2646 t ! 72 pho ! 0 audpsi ! AudMem \ H 2647 t ! 69 pho ! 0 audpsi ! AudMem \ E 2648 t ! 83 pho ! 0 audpsi ! AudMem \ S 2649 t ! 69 pho ! 147 audpsi ! AudMem \ E 147 psi ! 1 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 2 num ! 0 mfn ! 0 dba ! 2645 rv ! KbLoad \ 2016aug21 2650 t ! \ 2016aug21 ( THOSE -- 2016aug21: 145 psi ! -- plural adjective from 745=THAT ) 2651 t ! 84 pho ! 0 audpsi ! AudMem \ T 2652 t ! 72 pho ! 0 audpsi ! AudMem \ H 2653 t ! 79 pho ! 0 audpsi ! AudMem \ O 2654 t ! 83 pho ! 0 audpsi ! AudMem \ S 2655 t ! 69 pho ! 145 audpsi ! AudMem \ E 145 psi ! 1 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 2 num ! 0 mfn ! 0 dba ! 2651 rv ! KbLoad \ 2016aug21 2656 t ! \ 2016aug21 \ 674 through ( 2664 t ! ) \ 675 thru (abbreviation) ( 2669 t ! ) \ 676 til ( 2673 t ! ) ( TO -- 677 -- 2016aug24: preposition for EnPrep module ) 2674 t ! 84 pho ! 0 audpsi ! AudMem \ T 2675 t ! 79 pho ! 677 audpsi ! AudMem \ O 677 psi ! 6 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 0 num ! 0 mfn ! 0 dba ! 2674 rv ! KbLoad \ 2016aug24 2676 t ! \ 2016aug24 ( TODAY -- 2016aug18: 278 psi ! -- adverb ) ( 2682 t ! ) ( TOMORROW -- 2016aug18: 282 psi ! -- adverb ) ( 2691 t ! ) ( TONIGHT -- 2016aug18: 284 psi ! -- adverb ) ( 2699 t ! ) ( TOO -- 2016aug19: 285 psi ! -- adverb ) ( 2703 t ! ) ( TOUCH -- 2016aug18: 890 psi ! -- verb for robotic TacRecog module ) ( 2709 t ! ) \ 678 toward ( 2716 t ! ) \ 679 towards ( 2724 t ! ) ( TRUE -- 2016aug16: 181 psi ! -- adjective ) ( 2729 t ! ) ( TRUTH -- 2016aug16: 581 psi ! -- noun ) ( 2735 t ! ) ( TURN -- 2016aug18: 893 psi ! -- verb for robotic MotorOutput ) ( 2739 t ! ) ( UNDER -- 681 -- 2016aug24: preposition for EnPrep module ) 2739 t ! 85 pho ! 0 audpsi ! AudMem \ U 2740 t ! 78 pho ! 0 audpsi ! AudMem \ N 2741 t ! 68 pho ! 0 audpsi ! AudMem \ D 2742 t ! 69 pho ! 0 audpsi ! AudMem \ E 2743 t ! 82 pho ! 681 audpsi ! AudMem \ R 681 psi ! 6 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 0 num ! 0 mfn ! 0 dba ! 2739 rv ! KbLoad \ 2016aug24 2744 t ! \ 2016aug24 \ 682 underneath ( 2756 t ! ) 2756 t ! \ 2016aug21 ( UNDERSTAND -- 2016aug18: 896 psi ! -- verb germane to AI ) 2757 t ! 85 pho ! 0 audpsi ! AudMem \ U 2758 t ! 78 pho ! 0 audpsi ! AudMem \ N 2759 t ! 68 pho ! 0 audpsi ! AudMem \ D 2760 t ! 69 pho ! 0 audpsi ! AudMem \ E 2761 t ! 82 pho ! 0 audpsi ! AudMem \ R 2762 t ! 83 pho ! 0 audpsi ! AudMem \ S 2763 t ! 84 pho ! 0 audpsi ! AudMem \ T 2764 t ! 65 pho ! 0 audpsi ! AudMem \ A 2765 t ! 78 pho ! 0 audpsi ! AudMem \ N 2766 t ! 68 pho ! 896 audpsi ! AudMem \ D 896 psi ! 8 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 0 num ! 0 mfn ! 0 dba ! 2757 rv ! KbLoad \ 2016aug21 2767 t ! \ 2016aug21 \ 683 unlike ( 2774 t ! ) \ 684 until ( 2780 t ! ) \ 685 unto ( 2785 t ! ) \ 686 up ( 2788 t ! ) \ 687 upon ( 2793 t ! ) \ 689 versus ( 2800 t ! ) ( VERY -- 2016aug18: 286 psi ! -- adverb ) ( 2805 t ! ) \ 690 via ( 2809 t ! ) \ 691 vis-a-vis ( 2819 t ! ASCII problem? ) ( WANT -- 2016aug19: 897 psi ! -- verb for FreeWill volition module ) ( 2814 t ! ) ( WATER -- 2016aug16: 583 psi ! -- noun for prepositions and verbs ) ( 2820 t ! ) 2820 t ! ( WE -- 2016aug18: 731 psi ! -- nominative subject-form of personal pronoun ) 2821 t ! 87 pho ! 0 audpsi ! AudMem \ W 2822 t ! 69 pho ! 731 audpsi ! AudMem \ E 731 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 2 num ! 0 mfn ! 1 dba ! 2821 rv ! KbLoad \ 2016aug21 2823 t ! \ 2016aug21 ( OURS -- 2016aug21: genitive form of personal pronoun ) 2824 t ! 79 pho ! 0 audpsi ! AudMem \ O 2825 t ! 85 pho ! 0 audpsi ! AudMem \ U 2826 t ! 82 pho ! 0 audpsi ! AudMem \ R 2827 t ! 83 pho ! 731 audpsi ! AudMem \ S 731 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 2 num ! 0 mfn ! 2 dba ! 2824 rv ! KbLoad \ 2016aug21 2828 t ! \ 2016aug21 ( US -- 2016aug21: dative indirect-object form of pers. pron. ) 2829 t ! 85 pho ! 0 audpsi ! AudMem \ U 2830 t ! 83 pho ! 731 audpsi ! AudMem \ S 731 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 2 num ! 0 mfn ! 3 dba ! 2829 rv ! KbLoad \ 2016aug21 2831 t ! \ 2016aug21 ( US -- 2016aug21: accusative direct-object form of pers. pron. ) 2832 t ! 85 pho ! 0 audpsi ! AudMem \ U 2833 t ! 83 pho ! 731 audpsi ! AudMem \ S 731 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 2 num ! 0 mfn ! 4 dba ! 2832 rv ! KbLoad \ 2016aug21 2834 t ! \ 2016aug21 ( WEB -- 2016aug16: 562 psi ! -- noun for prepositions and location ) ( 2838 t ! ) ( WELL -- 2016aug18: 290 psi ! -- adverb ) ( 2843 t ! ) ( WET -- 2016aug16: 183 psi ! -- adjective, because 583=WATER ) ( 2847 t ! ) 2847 t ! \ 2016aug21 ( WHAT -- 2016aug18: 781 psi ! -- nominative pronoun for SelfReferentialThought ) 2848 t ! 87 pho ! 0 audpsi ! AudMem \ W 2849 t ! 72 pho ! 0 audpsi ! AudMem \ H 2850 t ! 65 pho ! 0 audpsi ! AudMem \ A 2851 t ! 84 pho ! 781 audpsi ! AudMem \ T 781 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 1 num ! 3 mfn ! 1 dba ! 2848 rv ! KbLoad \ 2016aug21: neuter 2852 t ! \ 2016aug21 ( WHAT -- 2016aug21: 781 psi ! -- accusative pronoun for SelfReferentialThought ) 2853 t ! 87 pho ! 0 audpsi ! AudMem \ W 2854 t ! 72 pho ! 0 audpsi ! AudMem \ H 2855 t ! 65 pho ! 0 audpsi ! AudMem \ A 2856 t ! 84 pho ! 781 audpsi ! AudMem \ T 781 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 1 num ! 3 mfn ! 4 dba ! 2848 rv ! KbLoad \ 2016aug21: neuter 2857 t ! \ 2016aug21 ( WHEN -- 2016aug18: 294 psi ! -- adverb for SelfReferentialThought ) ( 2862 t ! ) ( WHERE -- 2016aug18: 296 psi ! -- adverb for SelfReferentialThought ) ( 2868 t ! ) 2868 t ! \ 2016aug21 ( WHO -- 2016aug18: 791 psi ! -- interrogative pronoun for SelfReferentialThought ) 2869 t ! 87 pho ! 0 audpsi ! AudMem \ W 2870 t ! 72 pho ! 0 audpsi ! AudMem \ H 2871 t ! 79 pho ! 791 audpsi ! AudMem \ O 791 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 1 num ! 0 mfn ! 1 dba ! 2869 rv ! KbLoad \ 2016aug21 2872 t ! \ 2016aug21 ( WHOSE -- 2016aug18: 791 psi ! -- possessive interrogative pronoun ) 2873 t ! 87 pho ! 0 audpsi ! AudMem \ W 2874 t ! 72 pho ! 0 audpsi ! AudMem \ H 2875 t ! 83 pho ! 0 audpsi ! AudMem \ O 2876 t ! 83 pho ! 0 audpsi ! AudMem \ S 2877 t ! 69 pho ! 791 audpsi ! AudMem \ E 791 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 1 num ! 0 mfn ! 2 dba ! 2873 rv ! KbLoad \ 2016aug21 2878 t ! \ 2016aug21 ( WHOM -- 2016aug18: 791 psi ! -- dative interrogative pronoun ) 2879 t ! 87 pho ! 0 audpsi ! AudMem \ W 2880 t ! 72 pho ! 0 audpsi ! AudMem \ H 2881 t ! 79 pho ! 0 audpsi ! AudMem \ O 2882 t ! 77 pho ! 791 audpsi ! AudMem \ M 791 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 1 num ! 0 mfn ! 3 dba ! 2879 rv ! KbLoad \ 2016aug21 2883 t ! \ 2016aug21 ( WHOM -- 2016aug18: 791 psi ! -- accusative interrogative pronoun ) 2884 t ! 87 pho ! 0 audpsi ! AudMem \ W 2885 t ! 72 pho ! 0 audpsi ! AudMem \ H 2886 t ! 79 pho ! 0 audpsi ! AudMem \ O 2887 t ! 77 pho ! 791 audpsi ! AudMem \ M 791 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 1 num ! 0 mfn ! 4 dba ! 2884 rv ! KbLoad \ 2016aug21 2888 t ! \ 2016aug21 ( WHY -- 2016aug18: 297 psi ! -- adverb for asking questions ) ( 2892 t ! ) ( WHY -- 2016aug18: 390 psi ! -- conjunction for machine reasoning logic ) ( 2896 t ! ) ( WITH -- 693 -- 2016aug24 -- preposition for EnPrep module ) 2897 t ! 87 pho ! 0 audpsi ! AudMem \ W 2898 t ! 73 pho ! 0 audpsi ! AudMem \ I 2899 t ! 84 pho ! 0 audpsi ! AudMem \ T 2900 t ! 72 pho ! 693 audpsi ! AudMem \ H 693 psi ! 6 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! 0 num ! 0 mfn ! 0 dba ! 2897 rv ! KbLoad \ 2016aug24 2901 t ! \ 2016aug24 ( WITHIN -- 2016aug18: 694 psi ! -- preposition for EnPrep module ) ( 2908 t ! ) ( WITHOUT -- 2016aug18: 695 psi ! -- preposition for EnPrep module ) ( 2916 t ! ) ( WORK -- 2016aug15: 588 psi ! -- noun associated with the verb ) ( 2921 t ! ) ( WORK -- 2016aug18: 899 psi ! -- verb ) ( 2926 t ! ) ( WORSE -- 2016aug16: 105 psi ! -- comparative adjective of 104=BAD ) ( 2932 t ! ) ( WORST -- 2016aug16: 106 psi ! -- superlative adjective of 104=BAD ( 2938 t ! ) ( WORTH -- 2016aug18: 696 psi ! -- preposition for EnPrep module ) ( 2944 t ! ) 2944 t ! \ 2016aug21 ( WOTAN -- 2016aug15: 591 psi ! -- name of related German AI Mind ) 2945 t ! 87 pho ! 0 audpsi ! AudMem \ W 2946 t ! 79 pho ! 0 audpsi ! AudMem \ O 2947 t ! 84 pho ! 0 audpsi ! AudMem \ T 2948 t ! 65 pho ! 0 audpsi ! AudMem \ A 2949 t ! 78 pho ! 591 audpsi ! AudMem \ N 591 psi ! 5 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 1 num ! 1 mfn ! 1 dba ! 2945 rv ! KbLoad \ 2016aug21 2950 t ! \ 2016aug21 ( YES -- 2016aug15: 432 psi ! -- interjection for human-computer interaction ) ( 2954 t ! ) ( YESTERDAY -- 2016aug18: 298 psi ! -- adverb ) ( 2964 t ! ) 2964 t ! \ 2016aug21 ( YOU -- 2016aug21: nominative singular of personal pronoun ) 2965 t ! 89 pho ! 0 audpsi ! AudMem \ Y 2966 t ! 79 pho ! 0 audpsi ! AudMem \ O 2967 t ! 85 pho ! 707 audpsi ! AudMem \ U 707 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 1 num ! 0 mfn ! 1 dba ! 2965 rv ! KbLoad \ 2016aug21 2968 t ! \ 2016aug21 ( YOURS -- 2016aug21: genitive singular of personal pronoun ) 2969 t ! 89 pho ! 0 audpsi ! AudMem \ Y 2970 t ! 79 pho ! 0 audpsi ! AudMem \ O 2971 t ! 85 pho ! 0 audpsi ! AudMem \ U 2972 t ! 82 pho ! 0 audpsi ! AudMem \ R 2973 t ! 83 pho ! 707 audpsi ! AudMem \ S 707 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 1 num ! 0 mfn ! 2 dba ! 2969 rv ! KbLoad \ 2016aug21 2974 t ! \ 2016aug21 ( YOU -- 2016aug21: dative singular of personal pronoun ) 2975 t ! 89 pho ! 0 audpsi ! AudMem \ Y 2976 t ! 79 pho ! 0 audpsi ! AudMem \ O 2977 t ! 85 pho ! 707 audpsi ! AudMem \ U 707 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 1 num ! 0 mfn ! 3 dba ! 2975 rv ! KbLoad \ 2016aug21 2978 t ! \ 2016aug21 ( YOU -- 2016aug21: accusative singular of personal pronoun ) 2979 t ! 89 pho ! 0 audpsi ! AudMem \ Y 2980 t ! 79 pho ! 0 audpsi ! AudMem \ O 2981 t ! 85 pho ! 707 audpsi ! AudMem \ U 707 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 1 num ! 0 mfn ! 4 dba ! 2979 rv ! KbLoad \ 2016aug21 2982 t ! \ 2016aug21 ( YOU -- 2016aug21: nominative plural of personal pronoun ) 2983 t ! 89 pho ! 0 audpsi ! AudMem \ Y 2984 t ! 79 pho ! 0 audpsi ! AudMem \ O 2985 t ! 85 pho ! 737 audpsi ! AudMem \ U 737 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 2 num ! 0 mfn ! 1 dba ! 2983 rv ! KbLoad \ 2016aug21 2986 t ! \ 2016aug21 ( YOURS -- 2016aug21: genitive plural of personal pronoun ) 2987 t ! 89 pho ! 0 audpsi ! AudMem \ Y 2988 t ! 79 pho ! 0 audpsi ! AudMem \ O 2989 t ! 85 pho ! 0 audpsi ! AudMem \ U 2990 t ! 82 pho ! 0 audpsi ! AudMem \ R 2991 t ! 83 pho ! 737 audpsi ! AudMem \ S 737 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 2 num ! 0 mfn ! 2 dba ! 2987 rv ! KbLoad \ 2016aug21 2992 t ! \ 2016aug21 ( YOU -- 2016aug21: dative plural of personal pronoun ) 2993 t ! 89 pho ! 0 audpsi ! AudMem \ Y 2994 t ! 79 pho ! 0 audpsi ! AudMem \ O 2995 t ! 85 pho ! 737 audpsi ! AudMem \ U 737 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 2 num ! 0 mfn ! 3 dba ! 2993 rv ! KbLoad \ 2016aug21 2996 t ! \ 2016aug21 ( YOU -- 2016aug24: accusative plural of personal pronoun ) 2997 t ! 89 pho ! 0 audpsi ! AudMem \ Y 2998 t ! 79 pho ! 0 audpsi ! AudMem \ O 2999 t ! 85 pho ! 737 audpsi ! AudMem \ U 737 psi ! 7 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 2 num ! 0 mfn ! 4 dba ! 2997 rv ! KbLoad \ 2016aug21 3000 t ! \ 2016aug21 3001 t ! \ 2016aug21: unitary gap after t=3000 ( YOUNG -- 2016aug16: 120 psi ! -- adjective ) ( 3007 t ! ) 3007 t ! \ 2016aug21 ( YOUR -- 2016aug16: 107 psi ! -- sing. poss. adj. of 707=YOU pronoun ) 3008 t ! 89 pho ! 0 audpsi ! AudMem \ Y 3009 t ! 79 pho ! 0 audpsi ! AudMem \ O 3010 t ! 85 pho ! 0 audpsi ! AudMem \ U 3011 t ! 82 pho ! 107 audpsi ! AudMem \ R 107 psi ! 1 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 0 num ! 0 mfn ! 0 dba ! 3008 rv ! KbLoad \ 2016aug21 3012 t ! \ 2016aug21 ( YOUR -- 2016aug18: 137 psi ! -- plural poss. adj. of 737=YOU pronoun ) 3013 t ! 89 pho ! 0 audpsi ! AudMem \ Y 3014 t ! 79 pho ! 0 audpsi ! AudMem \ O 3015 t ! 85 pho ! 0 audpsi ! AudMem \ U 3016 t ! 82 pho ! 137 audpsi ! AudMem \ R 137 psi ! 1 pos ! 0 jux ! 0 pre ! 0 tkb ! 0 seq ! \ 2016aug21 0 num ! 0 mfn ! 0 dba ! 3013 rv ! KbLoad \ 2016aug21 3017 t ! \ 2016aug21 3018 t ! \ 2016aug21: repeat the declared "vault" value 0 audpsi ! \ 2016JUL28: prevent carry-over after AudMem. 3001 nxt ! \ 2016JUL29: 0 oldpsi ! \ 2016JUL28: prevent carry-over after KbLoad. 0 psi ! \ 2016JUL28: prevent carry-over after KbLoad. 0 pho ! \ 2016JUL26: Prevent carry-over of value. ; ( http://code.google.com/p/mindforth/wiki/EnBoot ) : ReJuvenate ( 2016sep06: recycle oldest memory spaces ) CR ." ReJuvenate has been called. " \ 2016sep06: TEST CR 1 rjc +! \ 2016sep06: from old 24jul14A.F MindForth ." Please wait as memories migrate in ReJuvenate cycle #" rjc @ . CR \ 2016sep06: from old 24jul14A.F MindForth t @ 2 + coda @ vault @ + DO \ 2016sep06: from 24jul14A.F MindForth I jrt ! \ 2016sep06: from old 24jul14A.F MindForth jrt @ coda @ - jrt ! \ 2016sep06: from old 24jul14A.F MindForth edge @ 1 = IF \ 2016sep06: from old 24jul14A.F MindForth I 0 psy{ @ jrt @ 0 psy{ ! 0 I 0 psy{ ! \ 2016sep06: from 24jul14A.F MindForth I 1 psy{ @ jrt @ 1 psy{ ! 0 I 1 psy{ ! \ 2016sep06: from 24jul14A.F MindForth I 2 psy{ @ jrt @ 2 psy{ ! 0 I 2 psy{ ! \ 2016sep06: from 24jul14A.F MindForth I 3 psy{ @ jrt @ 3 psy{ ! 0 I 3 psy{ ! \ 2016sep06: from 24jul14A.F MindForth I 4 psy{ @ jrt @ 4 psy{ ! 0 I 4 psy{ ! \ 2016sep06: from 24jul14A.F MindForth I 5 psy{ @ jrt @ 5 psy{ ! 0 I 5 psy{ ! \ 2016sep06: from 24jul14A.F MindForth \ Next line adjusts tqv by minus-coda; 14aug2012 \ 2016sep06: from 24jul14A.F MindForth \ I 6 psi{ @ coda @ - jrt @ 6 psi{ ! 0 I 6 psi{ ! \ 2016sep06: from 24jul14A.F MindForth I 6 psy{ @ jrt @ 6 psy{ ! 0 I 6 psy{ ! \ 2016sep06 \ 2016sep06: Next lines adjusts tkb by minus-coda; I 7 psy{ @ 0 > IF \ 2016sep06: if there is a positive tkb value... I 7 psy{ @ coda @ - jrt @ 7 psy{ ! 0 I 7 psy{ ! \ 2016sep06: to keep tkb valid. ELSE \ 2016sep06: if there is no tkb value... \ I 7 psy{ @ jrt @ 7 psy{ ! 0 I 7 psy{ ! \ 2016sep06 0 I 7 psy{ ! \ 2016sep06 THEN \ 2016sep06: end of test for a positive tkb value. I 8 psy{ @ jrt @ 8 psy{ ! 0 I 8 psy{ ! \ 2016sep06: from 24jul14A.F MindForth I 9 psy{ @ jrt @ 9 psy{ ! 0 I 9 psy{ ! \ 2016sep06 I 10 psy{ @ jrt @ 10 psy{ ! 0 I 10 psy{ ! \ 2016sep06 I 11 psy{ @ jrt @ 11 psy{ ! 0 I 11 psy{ ! \ 2016sep06 \ I 12 psy{ @ jrt @ 12 psy{ ! 0 I 12 psy{ ! \ 2016sep06 I 12 psy{ @ psi12 ! \ 2016sep06 psi12 @ vault @ < IF \ 2016sep06 psi12 @ jrt @ 12 psy{ ! 0 I 12 psy{ ! THEN \ 2016sep06 psi12 @ coda @ vault @ + > IF \ 2016sep06 psi12 @ coda @ - jrt @ 12 psy{ ! \ 2016sep06 THEN 0 I 12 psy{ ! \ 2016sep06 THEN \ 2016sep06: from old 24jul14A.F MindForth edge @ 1 = IF \ 2016sep06: from old 24jul14A.F MindForth I 0 ear{ @ jrt @ 0 ear{ ! \ 2016sep06: from old 24jul14A.F MindForth I 1 ear{ @ jrt @ 1 ear{ ! \ 2016sep06: from old 24jul14A.F MindForth I 2 ear{ @ jrt @ 2 ear{ ! \ 2016sep06: from old 24jul14A.F MindForth fyi @ 0 > IF \ 2016sep06: from old 24jul14A.F MindForth jrt @ 0 ear{ @ EMIT \ 2016sep06: from old 24jul14A.F MindForth THEN \ 2016sep06: from old 24jul14A.F MindForth THEN \ 2016sep06: from old 24jul14A.F MindForth edge @ 0 = IF \ 2016sep06: from old 24jul14A.F MindForth 32 jrt @ 0 ear{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 jrt @ 1 ear{ ! \ 2016sep06: from old 24jul14A.F MindForth \ I 2 aud{ @ 123 = IF 1 edge ! THEN \ from 24jul14A.F I 0 ear{ @ 13 = IF 1 edge ! THEN \ 2016sep06 0 jrt @ 2 ear{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 jrt @ 0 psy{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 jrt @ 1 psy{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 jrt @ 2 psy{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 jrt @ 3 psy{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 jrt @ 4 psy{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 jrt @ 5 psy{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 jrt @ 6 psy{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 jrt @ 7 psy{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 jrt @ 8 psy{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 jrt @ 9 psy{ ! \ 2016sep06 0 jrt @ 10 psy{ ! \ 2016sep06 0 jrt @ 11 psy{ ! \ 2016sep06 0 jrt @ 12 psy{ ! \ 2016sep06 THEN \ 2016sep06: from old 24jul14A.F MindForth LOOP \ 2016sep06: from old 24jul14A.F MindForth jrt @ t ! \ 2016sep06: from old 24jul14A.F MindForth cns @ t @ DO \ 2016sep06: from old 24jul14A.F MindForth 0 I 0 psy{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 I 1 psy{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 I 2 psy{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 I 3 psy{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 I 4 psy{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 I 5 psy{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 I 6 psy{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 I 7 psy{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 I 8 psy{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 I 9 psy{ ! \ 2016sep06 0 I 10 psy{ ! \ 2016sep06 0 I 11 psy{ ! \ 2016sep06 0 I 12 psy{ ! \ 2016sep06 32 I 0 ear{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 I 1 ear{ ! \ 2016sep06: from old 24jul14A.F MindForth 0 I 2 ear{ ! \ 2016sep06: from old 24jul14A.F MindForth LOOP \ 2016sep06: from old 24jul14A.F MindForth ; \ 2016sep06: ReJuvenate returns to MainLoop. : SpeechAct ( 2016aug14: output of a word as text or sound ) \ aud @ 0 = IF 841 aud ! THEN \ 2016aug23: default to ERROR; \ aud @ 0 = IF 841 aud ! THEN \ 2016aug30: make substitution. 0 audstop ! ( 2016aug25: Initially false value of flag ) 0 len ! \ 2016aug28: for sake of setting "rv" during re-entry. 1 pov ! \ 2016aug26: only internal POV thinking uses SpeechAct. 0 pho ! ( 2016aug23: Lest pho already be at 32=SPACE ) 0 rv ! \ 2016aug28: Let AudInput designate recall-vector "rv". aud @ onset ! ( 2016aug23: onset of a word is its recall-vector ) aud @ t2s ! \ 2016aug14: start from the auditory recall-vector "aud". 40 1 DO \ 2016aug14: assume word will not be longer than 40 characters. 1 len +! \ 2016aug25: increment to leave 1=len to set "rv" t2s @ 0 ear{ @ pho ! \ 2016aug23: retrieve character as pho(neme) pho @ 0 = IF 32 pho ! 1 audstop ! AudInput THEN \ 2016aug26: TEST pho @ 31 > IF \ 2016aug26: including any 32=SPACE... pho @ EMIT ( 2016aug14: say or display "pho" ) pho @ lastpho ! \ 2016aug23: to avoid extra "S" on verbs THEN \ 2016aug22: end of test for SPACE at end of word. pho @ 32 = pho @ 13 = OR IF \ 2016aug25: 1 audstop ! \ 2016aug26: TEST 1 spacegap ! \ 2016aug26: pho @ EMIT ( 2016aug26: say or display "pho" ) THEN \ 2016aug25: end of test for 32=SPACE or 13=CR. AudInput ( 2016aug25: for reentry of thought back into a mind ) audstop @ 1 = IF \ 2016aug25: spacegap @ 1 = IF \ 21016aug26: 1 t +! \ 2016aug26: increment internal AI time "t" 1 audrun ! \ resetting at end of internal word. ." Spch: calling AudInput for one last SPACE " CR \ 2016aug31 AudInput \ 2016aug25: 0 len ! \ 2016aug28: reset len(gth) for next word. 0 spacegap ! \ 2016aug26: THEN \ 2016aug26: LEAVE \ 2016aug25: THEN \ 2016aug25: end of test t2s @ 1+ t2s ! \ 2016aug25: increment to retrieve letters in sequence. LOOP \ 2016aug14: end of loop retrieving characters from auditory ear{ array. 0 aud ! \ 2016aug14: Avoid unwarranted carry-over of value. 1 phodex ! \ 2016aug23: re-set for AudBuffer. ; \ 2016aug14: SpeechAct retrurns to EnNounPhrase or other generative module. : EnPrep ( 2016aug28: insert a preposition into a sentence ) ( 2016aug28: module must check for high levels of prep-demand ) ; \ 2016aug2016: EnPrep returns to EnVerbPhrase. : EnAuxVerb ( 2016aug25: for parameter-based selection of auxiliary verb forms. ) CR ." EnAuxV: subjpsi subjnum prsn= " subjpsi @ . subjnum @ . prsn @ . CR \ 2016aug26 auxverb @ 809 = IF \ 2016aug24: if the auxiliary is "DO" or "DOES" subjnum @ 1 = prsn @ 3 = AND IF \ 2016aug25: 3rd person singular? midway @ t @ DO \ 2016aug25: search backwards I 0 psy{ @ 809 = IF \ 2016aug25: 809=DO I 9 psy{ @ 1 = IF \ 2016aug25: singular? I 11 psy{ @ 3 = IF \ 2016aug25: 3rd person? I 12 psy{ @ aud ! \ 2016aug25: auditory recall-vector LEAVE \ 2016aug25: one engram is enough. THEN \ 2016aug25: end of test for third person; THEN \ 2016aug25: end of test for num=1 singular; THEN \ 2016aug25: end of test for 809=DO; -1 +LOOP \ 2016aug25: end of backwards loop. SpeechAct \ 2016aug25: Say word starting at "aud" value; ELSE \ 2016aug25: if not third person singular... midway @ t @ DO \ 2016aug25: search backwards I 0 psy{ @ 809 = IF \ 2016aug25: 809=DO I 11 psy{ @ 3 = NOT IF \ 2016aug25: not 3rd person? I 12 psy{ @ aud ! \ 2016aug25: auditory recall-vector LEAVE \ 2016aug25: one engram is enough. THEN \ 2016aug25: end of test for not third person; THEN \ 2016aug25: end of test for 809=DO; -1 +LOOP \ 2016aug25: end of backwards loop. SpeechAct \ 2016aug25: Say word starting at "aud" value; THEN \ 2016aug25: end of test for search parameters. THEN \ 2016aug24: end of test fo 809=DO verb. ; \ 2016aug23: EnAuxVerb returns to EnVerbPhrase. : EnNounPhrase ( 2016aug22: for robot thinking with nouns and pronouns ) CR CR ." NounPhrase is called to think a noun or pronoun. " CR \ 2016aug24 0 mjact ! \ 2016aug14: initially default to zero; later calculate. 0 nounlock ! \ 2016aug14: initially default to zero; later calculate. 0 pre ! \ 2016aug29: zero out to prevent carry-over 0 prevtag ! \ 2016aug29: zero out to prevent carry-over 0 rv ! \ 2016aug30: prevent carry-over in advance of any search. verblock @ 0 > IF \ 2016aug22: positive verblock? verblock @ 7 psy{ @ nounlock ! \ 2016aug22: one tkb from other tkb ." EnNP: nounlock= " nounlock @ . CR \ 2016aug28: TEST; REMOVE THEN \ 2016aug22: end of test for a positive verblock nounlock @ 0 > IF \ 2016aug22: if a verblock has yielded a nounlock... ." EnNnP: positive NL= " nounlock @ . \ 2016aug30: TEST; REMOVE 1 dirobj ! \ 2016aug21: nounlock is specifically for a direct object. 0 subjectflag ! \ 2016aug22: needed for conditional tests below; nounlock @ 0 psy{ @ motjuste ! \ 2016aug22: in case of search for non-zero rv; nounlock @ 1 psy{ @ act ! \ 2016aug22: let activation-level play its role here; ." EnNnP: psi11 dba= " nounlock @ 11 psy{ @ . CR \ 2016aug30: TEST; REMOVE ." EnNnP: psi12 rv= " nounlock @ 12 psy{ @ . CR \ 2016aug30: TEST; REMOVE nounlock @ 11 psy{ @ 4 = IF \ 2016aug22: if acc. case as for any nounlock; nounlock @ 12 psy{ @ 0 > IF \ 2016aug22: find positive rv; nounlock @ 12 psy{ @ rv ! \ ." EnNnP: positive rv= " rv @ . \ 2016aug30: TEST; REMOVE ELSE \ 2016aug22: if only a zero rv psi12 is found... ." EnNnP-ELSE: looking for missing rv of motjuste= " motjuste @ . CR \ 2016aug30 midway @ t @ DO \ 2016aug22: loop from present back to "midway". I 0 psy{ @ motjuste = IF \ 2016aug30: search on index "I" ." EnNnP-ELSE: I 0 psy{ @ = motjuste at " I . CR \ 2016aug30: TEST; REMOVE ." EnNnP-ELSE: I 12 psy{ @ = " I 12 psy{ @ . CR \ 2016aug30: TEST; REMOVE I 12 psy{ @ 0 > IF \ 2016aug22: if positive rv recall-vector... I 12 psy{ @ aud ! \ 2016aug22: hold rv value as aud for SpeechAct LEAVE \ 21016aug22: one recall-vector is enough. THEN \ 2016aug22: end of test for positive rv. THEN \ 2016aug22: end of test to find motjuste with valid rv. -1 +LOOP \ 2016aug22: end of search for a positive recall-vector. THEN \ 2016aug22: end of test to find a direct-object recall-vector rv. THEN \ 2016aug22: end of test for dba=4 accusative-case nounlock. THEN \ 2016aug22: end of test for a positive nounlock nounlock @ 0 = IF \ 2016aug22: if nouns are free to compete... verblock @ 0 > IF EXIT THEN \ 2016sep04: avoid spurious "nounlock". 1 subjectflag ! \ 2016aug22: a default until countermanded. dirobj @ 1 = IF 0 subjectflag ! THEN \ 2016aug22: countermanding default. midway @ t @ DO \ 2016aug22: loop from present back to "midway". I 3 psy{ @ 5 = I 3 psy{ @ 7 = OR IF \ 2016aug22: noun or pronoun POS? I 7 psy{ @ 0 > IF \ 2016aug22: retrieve ideas, not single words. I 1 psy{ @ act @ > IF \ 2016aug22: using act(ivation) as criterion. I 0 psy{ @ motjuste ! \ 2016yaug22: select the most active concept. \ CR ." EnNphr: I= " I . ." mj= " motjuste @ . ." psi1 act=" act @ . CR \ 2016aug29 CR ." EnNphr: I= " I . ." mj= " motjuste @ . ." psi1 act=" act @ . \ 2016sep16 ." aud= " aud @ . ." audjuste= " audjuste @ . CR \ 2016sep16 I 1 psy{ @ mjact ! \ 2016aug22: if too low, motjuste defaults to "I" I 1 psy{ @ act @ > I 8 psy{ @ 0 > AND IF \ 2016aug22: I 7 psy{ @ verblock ! \ 201q6aug22: assign tkb value to verblock. THEN \ 2016aug22: end of test for higher-act concept with seq-psi. I 3 psy{ @ 5 = IF \ 2016sep01: if selected direct object is a 5=noun dirobj @ 1 = IF I 0 psy{ @ qv1psi ! THEN \ 2016aug22: for SpreadAct THEN \ 2016sep01: end of test for only a noun to go into SpreadAct. I 9 psy{ @ nphrnum ! \ 2016aug25: NounPhrase num(ber); I 9 psy{ @ snu ! \ 2016aug22: for parameter in verb-selection; I 9 psy{ @ subjnum ! \ 2016aug25: for parameter in verb-selection; motjuste @ subjpsi ! \ 2016aug22: for selection of verb-form. I 12 psy{ @ 0 > IF \ 2016aug30: if there is a positive recall-vector.. I 12 psy{ @ audjuste ! \ 2016aug22: temporary recall-vector for Speech ELSE \ 2016aug30: if there is no "rv" midway @ t @ DO \ 2016aug30: loop from present back to "midway". I 0 psy{ @ motjuste @ = IF \ 2016aug30: if same word as nounlock... I 12 psy{ @ 0 > IF \ 2016aug30: if positive rv... \ I 12 psy{ @ aud ! \ 2016aug22: set the auditory recall-vector I 12 psy{ @ audjuste ! \ 2016aug23: auditory recall-vector TEST LEAVE \ 2016aug30: one recall-vector is enough. THEN \ 2016aug30: end of test for positive psi12 rv. THEN \ 2016aug30: end of test for same word as nounlock motjuste -1 +LOOP \ 2016aug30: loop backwards THEN \ 2016aug30: end of test for non-interpreted positive psi12 "rv" I tseln ! \ 2016aug22: use time-point of noun for inhibition. I tsels ! \ 2016aug22: use time-point of subject for inhibition. I 1 psy{ @ act ! \ 2016aug22: noun must have higher act to win. THEN \ 2016aug22: end of test for a concept with higher activation. THEN \ 2016aug22: end of test for definite "tkb" related idea. THEN \ 2016aug22: end of test for noun or pronoun part-of-speech. -1 +LOOP \ 2016aug22: end of search for most active direct object THEN \ 2016aug22: end of test for absence of a nounlock. -90 tsels @ 1 psy{ ! \ 2016aug22: insert inhibition at time of selection of subject. subjectflag @ 0 = IF \ 2016aug22: i.e., dir.obj or predicate nominative... 0 rv ! \ 2016aug30: prevent carry-over in advance of any search. nounlock @ 0 > IF \ 2016aug22: if verb is locked to a particular seq... \ ." t nounlock = " t @ . nounlock @ . CR \ 2016aug28: TEST; REMOVE ." EnNouPhr-DirObj: t nounlock = " t @ . nounlock @ . CR \ 2016aug28: TEST; REMOVE nounlock @ 0 psy{ @ motjuste ! \ 2016aug22: nounlock psi pre-empts search. nounlock @ 3 psy{ @ 5 = IF \ 2016sep01: if nounlock part of speech is 5=noun nounlock @ 0 psy{ @ qv1psi ! \ 2016aug27: let direct object go to SpreadAct. THEN \ 2016sep01: end of test for only a noun to go into SpreadAct. nounlock @ 1 psy{ @ act ! \ 2016aug22: let activation-level play its role here; nounlock @ 12 psy{ @ 0 > IF \ 2016aug30: accept only non-zero "rv"... nounlock @ 12 psy{ @ aud ! \ 2016aug22: set the auditory recall-vector nounlock @ 12 psy{ @ audjuste ! \ 2016aug23: auditory recall-vector TEST ELSE \ 2016aug30: if no positive recall-vector is found... ." no rv found at t= " t @ . ." but prior rv= " rv @ . \ 2016aug30: TEST midway @ t @ DO \ 2016aug30: loop from present back to "midway". I 0 psy{ @ motjuste @ = IF \ 2016aug30: if same word as nounlock... I 12 psy{ @ 0 > IF \ 2016aug30: if positive rv... I 12 psy{ @ aud ! \ 2016aug22: set the auditory recall-vector I 12 psy{ @ audjuste ! \ 2016aug23: auditory recall-vector TEST LEAVE \ 2016aug30: one recall-vector is enough. THEN \ 2016aug30: end of test for positive psi12 rv. THEN \ 2016aug30: end of test for same word as nounlock motjuste -1 +LOOP \ 2016aug30: loop backwards THEN \ 2016aug30: end of test for a non-zero recall-vector. THEN \ 2016aug12: end of test for a positive nounlock. THEN \ 2016aug22: end of test for not-a-subject audjuste @ 0 > IF \ 2016aug22: avoid "I" for "YOU" or "YOU" for "I" audjuste @ aud ! \ 2016aug22: for transfer into speech module ELSE \ 2016aug22: if audjuste value is zero... midway @ t @ DO \ 2016aug22: search backwards in time... I 1 psy{ @ act ! \ 2016aug22: let activation-level play its role here; I 0 psy{ @ motjuste @ = IF \ 2016aug22: find motjuste for sake of rv I 11 psy{ @ 1 = subjectflag @ 1 = AND IF \ 2016aug22: subject? I 12 psy{ @ 0 > IF I 12 psy{ @ aud ! LEAVE THEN \ 2016aug22: find rv. THEN \ 2016aug22: end of test for subject and for nominative case. I 11 psy{ @ 4 = IF \ 2016aug22: direct object? I 12 psy{ @ 0 > IF I 12 psy{ @ aud ! LEAVE THEN \ 2016aug22: d.o. rv THEN \ 2016aug22: end of test for dba=4 accusative direct object. THEN \ 2016aug22: end of test to find motjuste with valid rv. -1 +LOOP \ 2016aug22: end of search through psy{ conceptual array. THEN \ 2016aug22: 1 subjectflag ! \ 2016aug14: initially default to zero; later calculate. 0 rv ! \ 2016aug30: prevent carry-over in advance of search. nounlock @ 0 = IF \ 2016aug14: rudimentary selection of 701=I mjact @ 20 < IF \ 2016aug14: if no subject active enough for chain-of-thought subjectflag @ 1 = IF \ 2016aug14: default to "I" only as subject 701 motjuste ! \ 2016aug14: 701=I default concept of AI Mind midway @ t @ DO \ 2016aug14: Use parameters to find "I". I 0 psy{ @ 701 = IF \ 2016aug14: If 701=I is found; I 11 psy{ @ 1 = IF \ 2016aug14: parameter dba=1? I 1 psy{ @ -1 > IF \ 2016sep18: if act is zero or higher... I 7 psy{ @ 0 > IF \ 2016sep18: positive verblock? I 7 psy{ @ verblock ! \ 2016sep18: hold the "tkb" verblock; -32 I 1 psy{ +! \ 2016sep18: inhibit the particular ego-memory! I 12 psy{ @ 0 > IF I 12 psy{ @ audjuste ! THEN \ 2016sep18 I 12 psy{ @ 0 = IF \ 2016sep18: if re-interprerted "rv" = 0; midway @ t @ DO \ 2016sep18: loop from present back to "midway". I 0 psy{ @ 701 = IF \ 2016sep18: default 701=I? I 11 psy{ @ 1 = IF \ 2016sep18: parameter dba=1? I 12 psy{ @ 0 > IF \ 2016sep18: if positive rv... I 12 psy{ @ aud ! \ 2016sep18: set the auditory recall-vector I 12 psy{ @ audjuste ! \ 2016sep18: auditory recall-vector; LEAVE \ 2016sep18: one recall-vector is enough. THEN \ 2016sep18: end of test for positive psi12 rv. THEN \ 2016sep18: end of test for dba=1 nominative "701=I" THEN \ 2016sep18: end of test for default ego-concept "701=I" -1 +LOOP \ 2016sep18: loop backwards THEN \ 2016sep18: end of test for a re-interpreted 701=I. LEAVE \ 2016sep18: recall and inhibit only one idea. THEN \ 2016sep18: end of test for positive verblock. THEN \ 2016sep18: end of test for non-negative activation. THEN \ 2016sep18: end of test for dba=1 nominative "I"; THEN \ 2016sep18: end of test for 701=I default ego-concept. -1 +LOOP \ 2016sep18: end of parameter-based search-loop. \ I 7 psy{ @ verblock ! \ 2016aug22: \ I 7 psy{ @ 0 > IF I 7 psy{ @ verblock ! THEN \ 2016sep16: positive verblock? \ -32 I 1 psy{ +! \ 2016sep12: inhibit the particular ego-memory! \ I 12 psy{ @ 0 > IF \ 2016aug30: avoid re-interpreted zero "rv" \ I 1 psy{ @ -1 > IF \ 2016sep04: if act is zero or higher... \ -32 I 1 psy{ +! \ 2016sep04: inhibit the particular ego-memory! \ -32 I 1 psy{ +! \ 2016sep12: move this line outside rv-test. \ I 12 psy{ @ audjuste ! \ 2016aug14: "I" recall-vector; \ verblock @ 0 > IF LEAVE THEN \ 2016sep04: one engram is enough. \ verblock @ 0 > IF LEAVE THEN \ 2016sep12: LEAVE from elsewhere? \ THEN \ 2016sep12: end of test for non-negative activation. \ ELSE \ 2016aug30: if no positive "rv" is found \ CR ." Invoking ELSE-clause! " 7 EMIT \ 2016sep16: TEST; BELL; REMOVE \ -32 I 1 psy{ +! \ 2016sep16: still inhibit the particular ego-memory. \ midway @ t @ DO \ 2016aug30: loop from present back to "midway". \ I 0 psy{ @ motjuste @ = IF \ 2016aug30: if same word as nounlock... \ I 11 psy{ @ 1 = IF \ 2016sep16: parameter dba=1? \ I 12 psy{ @ 0 > IF \ 2016aug30: if positive rv... \ I 12 psy{ @ aud ! \ 2016aug22: set the auditory recall-vector \ I 12 psy{ @ audjuste ! \ 2016aug23: auditory recall-vector TEST \ LEAVE \ 2016aug30: one recall-vector is enough. \ \ EXIT \ 2016aug30: one recall-vector is enough. \ THEN \ 2016aug30: end of test for positive psi12 rv. \ THEN \ 2016sep16: end of test for dba=1 nominative "701=I" \ THEN \ 2016aug30: end of test for same word as nounlock motjuste \ -1 +LOOP \ 2016aug30: loop backwards \ \ LEAVE \ 2016aug30: one correct recall-vector is enough. \ THEN \ 2016aug30: end of test for positive psi12 "rv". \ THEN \ 2016aug14: end of test for nominative "I"; \ THEN \ 2016aug14: end of parameter-based search-loop. \ -1 +LOOP \ 2016aug14: end of parameter-based search-loop. 701 subjpsi ! \ 2016aug25: for use elsewhere; 701 topic ! \ 2016aug25: for question-asking modules; 1 nphrnum ! \ 2016aug25: for EnArticle and EnVerbPhrase; 7 nphrpos ! \ 2016aug25: prevent article "A" with "I"; 1 subjnum ! \ 2016aug25: for use elsewhere; 1 prsn ! \ 2016aug25: for use elsewhere; THEN \ 2016aug14: end of test for "I" to become subj. not obj. THEN \ 2016aug14: end of test for low activation warranting default to ego. THEN \ 2016aug14: end of test for no nounlock. audjuste @ aud ! \ 2016aug14: recall-vector for SpeechAct SpeechAct \ 2016aug14: speak the indicated word -32 tsels @ 1 psy{ ! \ 2016sep01: inhibit the subject just spoken. motjuste @ 701 = NOT IF \ 2016aug25: if not 701=I; motjuste @ 707 = NOT IF \ 2016aug25: not 707=you; motjuste @ 731 = NOT IF \ 2016aug25: 731=WE; 3 prsn ! \ 2016aug25: not I YOU WE; THEN \ 2016aug25: end of test for 731=WE; THEN \ 2016aug25: end of test for 707=YOU; THEN \ 2016aug25: end of test for "not I". dirobj @ 1 = IF \ 2016aug31: \ motjuste @ qv1psi ! \ 2016aug31: send direct object as subject \ motjuste @ qv1psi ! \ 2016sep01: only send a noun into SpreadAct. \ SpreadAct \ 2016aug31: spread activation before robot thinks. \ SpreadAct \ 2016sep01: spread activation after robot thinks. THEN \ 2016aug31: end of test for state of thinking direct object ; \ 2016aug14: EnNounPhrase returns to EnThink or VerbPhrase. : EnVerbPhrase ( 2016aug22: selection of English verbs for thinking ) 0 act ! \ 2016aug23: Start with zero to look for psi1 higher than act. 0 audjuste ! \ 2016aug23: prevent carry-over 0 motjuste ! \ 2016aug23: prevent carry-over 0 negjux ! \ 2016aug23: flag for 250=NOT juxtaposed to a verb; 0 vphraud ! \ 2016aug23: initially verblock @ 0 > IF \ 2016aug22: is there already a verblock? verblock @ 0 psy{ @ verbpsi ! \ 2016aug22: lexical verbpsi; verblock @ 4 psy{ @ negjux ! \ 2016aug22: for negation of verb; verblock @ 7 psy{ @ nounlock ! \ 2016aug22: tkb becomes nounlock. CR ." EnVerbPhr: vlock negjux nlock= " verblock @ . negjux @ . nounlock @ . CR \ 2016aug28 verblock @ 12 psy{ @ audbase ! \ 2016aug22: VerbGen parameter; verblock @ 12 psy{ @ aud ! \ 2016aug22: auditory recall-vector verblock @ 12 psy{ @ vphraud ! \ 2016aug22: auditory recall-vector subjpsi @ 701 = subjpsi @ 731 = OR IF 1 prsn ! THEN \ 2016aug23: I or WE subjpsi @ 707 = subjpsi @ 737 = OR IF 2 prsn ! THEN \ 2016aug23: "YOU" subjpsi @ 713 = subjpsi @ 719 = OR IF 3 prsn ! THEN \ 2016aug23: HE; SHE subjpsi @ 725 = subjpsi @ 743 = OR IF 3 prsn ! THEN \ 2016aug23: IT; THEY dba @ prsn ! \ 2016aug23: parameter for VerbGen module. midway @ krt @ DO \ 2016aug23: search the psy{ array backwards. I 0 psy{ @ verbpsi @ = I 0 psy{ @ 800 = AND IF \ 2016aug23: 800=BEverb ." BE! " \ 2016aug23: TEST; REMOVE I 3 psy{ @ 8 = IF \ 2016aug23: select only pos=8 verbs, even homonyms \ 2016aug23: Following code accepts only a verb-form matching three \ requirements: [ ]same concept; [ ]num(ber); and [ ]person: I 0 psy{ @ verbpsi @ = I 9 psy{ @ nphrnum @ = I 11 psy{ @ dba @ = AND IF I 12 psy{ @ 0 > IF I 12 psy{ @ aud ! THEN \ 2016aug23: find positive rv; I 12 psy{ @ 0 > IF I 12 psy{ @ vphraud ! THEN \ 2016aug23: find positive rv; I 12 psy{ @ 0 > IF LEAVE THEN \ 2016aug23: exit loop once rv is found. THEN \ 2016aug23: end of triple test to find regular or irregular verb-form. THEN \ 2016aug23: end of test for psi3 part-of-speech pos 8=verb THEN \ 2016aug23: end of test for 800=BE verb of being. I 0 psy{ @ verbpsi @ = I 0 psy{ @ 800 NOT = AND IF \ 2016aug23: not 800=BE I 3 psy{ @ 8 = IF \ 2016aug23: select only pos=8 verbs, even homonyms I 0 psy{ @ verbpsi @ = IF \ 2016aug223: non-be-verbs may disregard dba? I 12 psy{ @ 0 > IF I 12 psy{ @ aud ! THEN \ 2016aug23: find positive rv; I 12 psy{ @ 0 > IF I 12 psy{ @ vphraud ! THEN \ 2016aug23: find positive rv; I 12 psy{ @ 0 > IF LEAVE THEN \ 2016aug23: exit loop once rv is found. THEN \ 2016aug23: end of test to find regular or irregular verb-form THEN \ 2016aug23: end of test for part-of-speech pos = "8" (verb). THEN \ 2016aug23: end of test for correct verb-concept verbpsi. -1 +LOOP \ 2016aug23: End of backwards search through conceptual memory. THEN \ 2016aug23: end of test for a positive verblock. vphraud @ 0 > IF vphraud @ aud ! THEN \ 2016aug23 vphraud @ 0 > IF vphraud @ audjuste ! THEN \ 2016aug23: correct form? verblock @ 0 = IF \ 2016aug23: prevent false negations; verblock @ 3 psy{ @ 8 = IF \ 2016aug23: select only pos=8 verbs verblock @ 1 psy{ 0 > IF \ 2016aug23: if activation act is... I tselv ! \ 2016aug23: retain time of winning verb; I 0 psy{ @ motjuste ! \ 2016aug23: Select the most active verb. I 12 psy{ @ audjuste ! \ 2016aug23: recall-vector rv for speech. THEN \ 2016aug23: end of test of activation-level THEN \ 2016aug23: end of test for part-of-speech pos = "8" verb THEN \ 2016aug23: end of test for absence of a verblock from subject to verb negjux @ 250 = IF \ 2016aug23: if verb is negated with 250=NOT; motjuste @ 800 = NOT IF \ 2016aug23: if other than an 800=BE verb; 809 auxverb ! \ 2016aug23: 809=DO as auxiliary verb; 3 prsn ! \ 2016aug25: default third person unless countermanded by pronoun subjpsi @ 701 = subjpsi @ 731 = OR IF 1 prsn ! THEN \ 2016aug25: I or WE subjpsi @ 707 = subjpsi @ 737 = OR IF 2 prsn ! THEN \ 2016aug25: YOU EnAuxVerb \ 2016aug23: to say 809=DO or "DOES"; 0 auxverb ! \ 2016aug23: reset for safety. 0 prsn ! \ 2016aug25: reset for safety midway @ t @ DO \ 2016aug23: search for 250=NOT I 0 psy{ @ 250 = IF \ 2016aug23: if 250=NOT is found; I 12 psy{ @ audjuste ! \ 2016aug23: recall-vector of "NOT" I 12 psy{ @ aud ! \ 2016aug23: "NOT" recall-vector for speech. I 12 psy{ @ 0 > IF I 12 psy{ @ aud ! LEAVE THEN \ 2016aug23: insurance THEN \ 2016aug23: End of search for 250=NOT. -1 +LOOP \ 2016aug23: End of search loop from time "t" back to midway. SpeechAct \ 2016aug23: speak the word starting at the "aud" time. THEN \ 2016aug23: end of test to prevent auxiliary with 800=BE verb. THEN \ 2016aug23: end of test for 250=NOT negjux. audjuste @ aud ! \ 2016aug28: for transfer into speech module motjuste @ verbpsi ! \ 2016aug28: to search for verb-form. vphraud @ 0 > IF vphraud @ aud ! THEN \ 2016aug23: correct form? subjpsi @ 701 = IF 1 dba ! THEN \ 2016aug28: "I" 1st person sing. subjpsi @ 707 = IF 2 dba ! THEN \ 2016aug28: "you" 2nd person sing. subjpsi @ 713 = IF 3 dba ! THEN \ 2016aug28: "he" 3rd person sing; subjpsi @ 719 = IF 3 dba ! THEN \ 2016aug28: "she" 3rd person sing. subjpsi @ 725 = IF 3 dba ! THEN \ 2016aug28: "it" 3rd person sing. subjpsi @ 731 = IF 1 dba ! THEN \ 2016aug28: "we" 1st person plural subjpsi @ 737 = IF 2 dba ! THEN \ 2016aug28: "you" 2nd person plural subjpsi @ 743 = IF 3 dba ! THEN \ 2016aug28: "they" 3rd person plural vphraud @ 0 > IF vphraud @ aud ! THEN \ 2016aug23: correct form? vphraud @ 0 = IF \ 2016aug28: if not substituted above; midway @ krt @ DO \ 2016aug28: skip post-krt current engrams. motjuste @ 0 > I 0 psy{ @ motjuste @ = AND IF \ 2016aug28: seek motjuste I 12 psy{ @ audbase ! \ 2016aug28: location of quasi-stem for VerbGen. I 11 psy{ @ dba @ = IF \ 2016aug28: for proper person of verb; I 9 psy{ @ snu @ = IF \ 2016aug28: subject num(ber) parameter; I 12 psy{ @ vphraud ! \ 2016aug28: set auditory recall-vector; LEAVE \ 2016aug28: exit the loop after first find. THEN \ 2016aug28: end of subject number-parameter test; THEN \ 2016aug28: end of dba-parameter test. THEN \ 2016aug28: end of test to find regular or irregular motjuste-verb. -1 +LOOP \ 2016-08-27: loop backwards THEN \ 2016aug28: end of test of vphraud. SpeechAct \ 2016aug23: send recall-vector into speech module. 0 aud ! \ 2016aug23: Reset to prevent carry-over. \ $psy[$tselv]="$k[0],-16,$k[2],$k[3],$k[4],$k[5],$k[6],$k[7],$k[8],$k[9],$k[10],$k[11],$k[12]"; \ # Above line inserts neural inhibition upon currently selected verb. tselv @ 0 > IF \ 2016aug29: only inhibit a selected verb -16 tselv @ 0 psy{ ! \ 2016aug28: insert neural inhibition upon currently selected verb. \ -14 tselv @ 0 psy{ ! \ 2016aug29: TEST; REVERT THEN \ 2016aug29: end of test for a positive "tselv" 1 dirobj ! \ 2016aug23: set flag positive for seeking direct object. EnNounPhrase \ 2016aug23: for direct object or predicate nominative; 0 dirobj ! \ 2016aug28: reset flag after thinking direct object. prepgen @ 0 > IF EnPrep THEN \ 2016aug28: if "Where?" call EnPrep. 0 audbase ! \ 2016aug28: reset for safety. 0 dirobj ! \ 2016aug23: reset flag after thinking direct object. ; \ 2016aug22: EnVerbPhrase returns to EnThink. : EnThink ( 2016aug02: English Cognition -- thinking in English ) 0 tdo ! 0 tio ! 0 tsj ! 0 tvb ! \ 2016aug29: isolate Re-Entry. 1 inhibcon ! \ 2016sep04: prevent reentrant concepts from directly activating. 1 pov ! \ 2016aug23: thinking occurs in self or "I" mode. \ SpreadAct \ 2016aug26: belongs here or at end of AudInput reentry? EnNounPhrase \ 2016aug22: Select a noun or pronoun as a subject. EnVerbPhrase \ 2016aug22: Select a verb +/- a noun as object. PsiDecay \ 2016aug27: Reduce activation after each thought. 0 inhibcon ! \ 2016sep04: remove restriction of inhibcon. 0 tdo ! \ 2016aug28: reset time-of-direct-object for safety. 0 tio ! \ 2016aug28: reset time-of-indirect-object for safety. \ 0 tsj ! \ 2016aug28: reset time-of-subject for safety. \ 0 tsj ! \ 2016aug29: Commenting out as TEST; REVERT? \ 0 tvb ! \ 2016aug28: reset time-of-verb for safety. \ 0 tvb ! \ 2016aug28: Commenting out as TEST; REVERT? 0 verblock ! \ 2016aug28: reset for safety. ; \ 2016aug18: EnThink eturns to FreeWill volition module. : MotorOutput ( 2016aug18: stub for autonomous control of robots ) 7 EMIT ( MOVE_FORWARD ) ( MOVE_BACKWARDS ) ( STOP_MOTION ) ( TURN_LEFT ) ( TURN_RIGHT ) ; \ 2016aug18: Robot MotorOutput module returns to FreeWill. : FreeWill ( 2016aug18: stub for integrative module of volition ) ( EmotiOn ) \ 2016aug18: Influence of physiology upon thinking. CR ." Now begins the process of thinking. " CR \ 2016aug28 0 aud ! \ 2016aug30: zero out to prevent carry-over 0 motjuste ! \ 2016aug30: zero out to prevent carry-over 0 rv ! \ 2016aug30: zero out to prevent carry-over 0 tsj ! \ 2016sep03: zero out to prevent carry-over 0 verbcon ! \ 2016sep03: zero out to prevent carry-over 0 vphraud ! \ 2016aug30: zero out to prevent carry-over ." krt= " krt @ . ." mj= " motjuste @ . ." audb= " audbase @ . ." vphraud= " vphraud @ . pho @ 0 = IF 13 t @ 0 ear{ ! THEN \ 2016sep06: TEST: REMOVE t @ tai ! \ 2016aug29: hold onto time-point for display of MindGrid thinking. EnThink \ 2016aug18: For generation of thoughts in English. ." EnThink calls SpreadAct after generation and re-entry of output." \ 2016sep01 SpreadAct \ 2016sep01: Facilitates chain of thought in absence of human input. ( MotorOutPut ) \ 2016aug18: Requires robot embodiment. \ 2016aug18: integration of thinking and emotion controls actuators. ; \ 2016aug18: Rebot FreeWill volition module returns to MainLoop. : MainLoop ( 2016JUL26: invoke AI by entering "MainLoop" ) TIME&DATE byear ! bmonth ! bday ! bhour ! bminute ! bsec ! TabulaRasa \ 2016aug29: clear memory in advance of AI. MindBoot \ 2016JUL26: runs once before the main loop CR ." ESCape to quit AI; bye to end Forth; EXIT from DOS." CR BEGIN \ 2016JUL26: start the main loop... t @ cns @ 64 - > IF ReJuvenate THEN \ 2016sep06: near end of memory. t @ tin ! \ 2016aug29: time-of-input for interactive display ) SensoryInput \ 2016AUG01: For perception of external world. CR ." MainLoop: back from Sensorium; tai = " tai @ . CR \ 2016aug27 FreeWill \ 2016AUG01: Goal-selection based on thinking. fyi @ 0 > IF \ 2016aug28: display MindGrid and trough of inhibition CR ." The arrays psy{ and ear{ show your input and the AI output: " \ 2016aug28 CR ." time: psi act hlc pos jux pre iob tkb seq num mfn dba rv " \ 2016aug28 ." -- pho act audpsi " CR \ 2016aug28 t @ 1+ tin @ DO \ 2016aug29: show the recent input and AGI thinking. CR I . ." : " I 0 psy{ @ . ." " \ 2016aug28: Show psi I 1 psy{ @ . ." " \ 2016aug28: Show act I 2 psy{ @ . ." " \ 2016aug28: Show hlc I 3 psy{ @ . ." " \ 2016aug28: Show pos I 4 psy{ @ . ." " \ 2016aug28: Show jux I 5 psy{ @ . ." " \ 2016aug28: Show pre I 6 psy{ @ . ." " \ 2016aug28: Show iob I 7 psy{ @ . ." " \ 2016aug28: Show tkb I 8 psy{ @ . ." " \ 2016JUL25: Show seq I 9 psy{ @ . ." " \ 2016JUL25: Show num I 10 psy{ @ . ." " \ 2016JUL25: Show mfn I 11 psy{ @ . ." " \ 2016JUL25: Show dba I 12 psy{ @ . ." " \ 2016JUL25: Show rv I 0 ear{ @ . ." " \ 2016aug28: Show ear{ ASCII I 1 ear{ @ . ." " \ 2016aug28: Show activation I 2 ear{ @ . \ 2016aug28: Show audpsi concept number I 0 ear{ @ EMIT ." " \ 2016aug04: Show ear{ pho LOOP ( 2016aug28: end of forwards loop through cns time-points ) CR ." time: psi act hlc pos jux pre iob tkb seq num mfn dba rv " \ 0 unk ! 10 EMIT \ 2016aug29: ASCII 10=LF (line feed, new line) \ CR ." Robot: " CR \ 2016aug29: Show what the AGI has just thought. CR ." Robot alive since " byear @ . 8 EMIT 45 EMIT bmonth @ 10 < IF 48 EMIT THEN \ 2016sep06: display zero for JAN-SEP. bmonth @ . 8 EMIT 45 EMIT bday @ 10 < IF 48 EMIT THEN \ 2016sep06: display zero for 01-09. bday @ . 8 EMIT 58 EMIT CR \ 2016sep06 \ CR ." At t=3021 psi & act= " 3021 0 psy{ @ . 3021 1 psy{ @ . \ 2016sep16: TEST; REMOVE t @ tai @ DO \ 2016aug29: I 0 ear{ @ EMIT \ 2016aug29: Show utterance of robot. LOOP \ 2016aug29: up to present time THEN \ 2016aug28: end of permission for display of MindGrid AGAIN \ 2016JUL26: Continue looping until stopped. ; ( 2016JUL26: MainLoop is at the top of the program )