papa
/
forth
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
forth/Mind.4th

5174 lines
226 KiB
Forth
Executable File
Raw Permalink Blame History

( 24jan13A.F -- modification of 2jan13A.F MindForth )
( Released under GNU General Public License V2 )
( http://gpl-violations.org -- see NYT Sun.26.SEP.2010. )
( May be ported to new language and app store marketed. )
( May be named "Mind.F" or any "Filename.F" you choose. )
( Rename any Mind.F.txt as simply Mind.F for Win32Forth. )
( http://home.planet.nl/~josv/w32for42_671.exe )
( http://prdownloads.sourceforge.net/win32forth/W32FOR42_671.zip?download )
( http://code.google.com/p/mindforth/wiki/IntelForth )
( http://store.kagi.com/cgi-bin/store.cgi?storeID=AMP_Live )
( http://www.winzip.com/aboutzip.htm tells about WinZip. )
( Download and unzip W32FOR42_671.zip to run MindForth. )
( Run the AI with Win32Forth by issuing three commands: )
( win32for.exe [ENTER] )
( fload Mind.f [ENTER] )
( MainLoop [ENTER]. )
( To halt the AI Mind, press the ESCAPE key at any time. )
( Ask or answer questions about MindForth AI on Usenet. )
( AI codebase below fills blank space with Usenet links )
( http://groups.google.com/group/comp.lang.forth/topics )
( http://www.scn.org/~mentifex/DeKi.txt German Wotan AI )
( http://www.scn.org/~mentifex/DeKiUser.html AI Manual )
( http://www.scn.org/~mentifex/mindforth.txt Win32Forth )
( http://www.scn.org/~mentifex/AiMind.html in JavaScript )
( http://www.scn.org/~mentifex/Dushka.html is Russian AI )
( http://www.scn.org/~mentifex/RuAiUser.html AI Manual )
( http://bookstore.iuniverse.com/Products/SKU-000540906/AI4U.aspx )
( http://www.amazon.com/The-Art-Meme-ebook/dp/B007ZI66FS )
( http://code.google.com/p/mindforth/wiki/UserManual )
( Please make a copy of this AI and host it on your website. )
( http://code.google.com/p/mindforth/wiki/ChangeLog data )
\ 12nov12A.F moves input words through AudBuffer and OutBuffer.
\ 15nov12A.F stubs in the VerbGen module for generating verbs.
\ 20dec12A.F introduces InFerence module for machine reasoning.
\ 21dec12A.F troubleshoots InFerence with diagnostic messages.
\ 22dec12A.F finds alternate auditory engrams for inferences.
\ 25dec12A.F achieves inferences about new input not held in KB.
\ 27dec12A.F feeds inference into AskUser for a yes-or-no query.
\ 28dec12A.F displays internal mental time and ReJuvenate count.
\ 29dec12A.F asks user to confirm or deny inference; adjusts KB.
\ 2jan13A.F prevents inference about a subject lacking a verb.
\ 23jan13A.F troubleshoots the comprehension of objectless verbs.
\ 24jan13A.F comprehends quasi-intransitive verbs without objects.
DECIMAL ( use decimal numbers )
variable abc ( AudBuffer transfer character; 8nov2012 )
variable act 0 act ! ( activation level )
variable actbase ( AudRecog discrimination activation base)
variable actran ( PsiDecay holder of act-levels; 16may2011 )
variable adverbact 0 adverbact ! ( 29aug2008 adverb test )
variable adjcon ( insert-adjective condition-flag; 16sep2011 )
variable aftjux ( after-jux for negation of verb of being )
variable anset ( Before vowel set article AN insertion )
variable atcd ( 30dec2009 "antecedent" for EnPronoun )
variable aud ( auditory recall-tag for activating engrams)
variable audbase ( recall-vector for VerbGen; 8nov2012 )
variable audjuste ( NounPhrase motjuste aud to SpeechAct )
variable audme ( tag to find "ME" in auditory memory )
variable audnum ( de-globalizing the "num" variable; 8nov2012 )
variable audpsi ( de-globalizing the "psi" variable )
variable audrec ( 6may2009 replacing "psi" in AudRecog )
variable audrun 1 audrun ! ( counter of loops through AudRecog )
variable audstop ( flag to stop SpeechAct after one word )
variable audverb ( psi number of an input verb; 27dec2012 )
variable b01 ( buffer character 01 in OutBuffer; 12nov2012 )
variable b02 ( buffer character 02 in OutBuffer; 12nov2012 )
variable b03 ( buffer character 03 in OutBuffer; 12nov2012 )
variable b04 ( buffer character 04 in OutBuffer; 12nov2012 )
variable b05 ( buffer character 05 in OutBuffer; 12nov2012 )
variable b06 ( buffer character 06 in OutBuffer; 12nov2012 )
variable b07 ( buffer character 07 in OutBuffer; 12nov2012 )
variable b08 ( buffer character 08 in OutBuffer; 12nov2012 )
variable b09 ( buffer character 09 in OutBuffer; 12nov2012 )
variable b10 ( buffer character 10 in OutBuffer; 12nov2012 )
variable b11 ( buffer character 11 in OutBuffer; 12nov2012 )
variable b12 ( buffer character 12 in OutBuffer; 12nov2012 )
variable b13 ( buffer character 13 in OutBuffer; 12nov2012 )
variable b14 ( buffer character 14 in OutBuffer; 12nov2012 )
variable b15 ( buffer character 15 in OutBuffer; 12nov2012 )
variable b16 ( buffer character 16 in OutBuffer; 12nov2012 )
variable bday ( day of birth reveals oldest living AI Mind)
variable becon 0 becon ! ( detect be-verb for InFerence 18dec2012 )
variable beflag 0 beflag ! ( 23apr2009 for InStantiate )
variable beg 1 beg ! ( "beginning" flag for word engrams )
variable bhour ( hour of birth for user interface display )
variable bias 5 bias ! ( Parser; newConcept: expected POS )
variable binc ( OutBuffer "b" increment for VerbGen 12nov2012 )
variable bminute ( minute of birth: user interface display)
variable bmonth ( month of birth: user interface display )
variable bsec ( second of birth: user interface display)
variable byear ( MainLoop; TuringTest HCI -- year of birth)
variable c01 ( character in AudBuffer; 12nov2012 )
variable c02 ( character in AudBuffer; 12nov2012 )
variable c03 ( character in AudBuffer; 12nov2012 )
variable c04 ( character in AudBuffer; 12nov2012 )
variable c05 ( character in AudBuffer; 12nov2012 )
variable c06 ( character in AudBuffer; 12nov2012 )
variable c07 ( character in AudBuffer; 12nov2012 )
variable c08 ( character in AudBuffer; 12nov2012 )
variable c09 ( character in AudBuffer; 12nov2012 )
variable c10 ( character in AudBuffer; 12nov2012 )
variable c11 ( character in AudBuffer; 12nov2012 )
variable c12 ( character in AudBuffer; 12nov2012 )
variable c13 ( character in AudBuffer; 12nov2012 )
variable c14 ( character in AudBuffer; 12nov2012 )
variable c15 ( character in AudBuffer; 12nov2012 )
variable c16 ( character in AudBuffer; 12nov2012 )
variable caller ( debug-identifier of calling module )
variable cns 2048 cns ! ( MindGrid size; doubled 3aug2012 )
variable coda 128 coda ! ( memory recycled in ReJuvenate)
variable cognum ( grammatical number of cogpsi; 22oct2011 )
variable cogpsi ( new noun being learned; 17oct2011 )
variable conj ( OldConcept; ConJoin: conjunction )
variable ctu ( continuation-flag for "Aud" array phonemes )
variable dba ( case for nouns; person for verbs; 8nov2012 )
variable defact ( default activation for NounPhrase; 9oct2011 )
variable defartcon ( set definite article condition )
variable dirobj ( indicates seeking for a direct object )
variable dobseq ( for transfer within InFerence; 22dec2012 )
variable dopsi ( direct-object-psi to calculate "thotnum")
variable edge 0 edge ! ( Rejuvenate: edge-of-thought flag)
variable en8 ( EnVocab recall-vector "aud" in Rejuvenate )
variable enx ( holds concept-number in transfer to English)
variable eot ( end-of-text for use in AudInput )
variable fex ( holds fiber-out concept up from Psi memory )
variable fin ( holds fiber-in concept for Psi array access)
variable firstword ( for identifying input of a query 19aug2011 )
variable flex1 ( "I" or "S" element of SpeechAct inflection )
variable flex2 ( "N" as part of "ING" SpeechAct inflection )
variable flex3 ( "G" as part of "ING" SpeechAct inflection )
variable fyi 0 fyi ! ( rotates through display modalities )
variable fyipsi ( psi source-node in SpreadAct; 17oct2011 )
variable gencon ( VerbGen status flag from Wotan; 22dec2012 )
variable ghost 0 ghost ! ( to switch from "a" to "the" )
variable glot 1 glot ! ( flag for which language to think in )
variable greet 640 greet ! ( greeting-trigger; 16oct2010 )
variable guspsi ( concept-tag attached to taste-memories )
variable gusrec ( for external recognition by GusRecog )
variable hipsi ( "high-psi" tag on wavecrest concept )
variable hl ( possible standard instead of "glot"; 20aug2011 )
variable holdnum ( transfer from subject to verb; 8nov2012 )
( I = Index in loops; does not require a fetch "@" )
variable img ( visRecog: for future use as "image" )
variable indefartcon ( set indefinite article condition )
variable indefmust ( force saying of "A" or "AN"; 20oct2011 )
variable inert 0 inert ! ( marker of no recent interaction )
variable inft ( inference-time for AskUser 27dec2012 )
variable instnum ( instantiation number for WhatBe questions )
variable IQ 1 IQ ! ( an invitation to code an IQ algorithm)
variable jrt ( ReJuvenate "junior time" for memories moved)
variable jux 0 jux ! ( holds Psi # of a JUXtaposed word )
variable kbcon ( flag for awaiting a yes-or-no answer 2jul2011 )
variable kbpsi ( 20jan2008 an interim knowledge-base psi )
variable kbquiz 0 kbquiz ! ( flag to call kbSearch )
variable kbtv 0 kbtv ! ( KbTraversal trigger; 7aug2010 )
variable kbtqv ( time of seq-concept found in KB; 7oct0211 )
variable kbyn ( holds kbtv values for asking Y/N 24jun2011 )
variable kibosh ( suppresses concepts failing to win selection )
variable krt ( Knowledge Representation time "t" for later)
variable lastpho ( 24may2009 to avoid extra "S" on verbs )
variable lastword 0 lastword ! ( for zeroing "seq" tags.)
variable len ( length, for avoiding non-words in AudInput)
variable lexact ( testing a lexical "act" for EnReify )
variable lopsi ( "low-psi" tag on just-crested concept )
variable lurk ( counter to activate initial thinking; 19sep2010 )
variable match ( end-of-word flag for control )
variable memoire ( instead of "motjuste" in kbSearch )
variable mfn ( "masculine feminine neuter" gender flag )
variable mfnflag ( gender flag to cause a who-query; 17aug2010 )
variable midway 1 midway ! ( limit for searching backwards)
variable monopsi ( 26jul2002 For use in audRecog module )
variable moot ( flag to prevent associations in DO-queries )
variable morphpsi ( for audRecog recognition of morphemes )
variable motjuste ( best word for inclusion in a thought )
variable nacpsi ( 9may2009 de-globalized psi for NounAct)
variable negjux ( flag for 12=NOT juxtaposed to a verb; 9oct2011 )
variable nen 0 nen ! ( English lexical concept number )
variable newpsi ( for singular-nounstem assignments )
variable nlt 0 nlt ! ( not-later-than among time-points )
variable nounlock ( for a verb to lock onto a seq-nounl 8oct2011 )
variable nounval 0 nounval ! ( from NounPhrase to MounAct )
variable nphrnum 0 nphrnum ! ( NounPhrase number )
variable nphrpos 0 nphrpos ! ( for testing in EnCog )
variable num 0 num ! ( number-flag for the psi array )
variable numflag ( 4dec2009 for selection of verb-forms )
variable numsubj ( 13apr2010 for number of subject )
variable nwc ( new-word-count for noun-stem recog )
variable objold ( a test for optimizing slosh-over; 12oct2010 )
variable obstat ( Lets AudInput psi-damp a reentrant word.)
variable ocn ( old-concept-number for EnVocab; 14oct2011 )
variable oldact ( show the source of spreading activations)
variable oldpos ( old part-of-speech for use with verbs )
variable oldpsi ( used in OldConcept to de-globalize "psi")
variable olfpsi ( concept-tag attached to smells in memory)
variable olfrec ( for external recognition by OlfRecog )
variable onset 0 onset ! ( of an auditory memory engram )
variable opt ( option, for flushing out a part of speech )
variable ordo 0 ordo ! ( from JSAI; AudInput word-order )
variable pcn ( predicate concept number; 17jul2012 )
variable penultpho ( 17may2009 next-to-last phoneme )
variable pho ( phoneme of input/output & internal reentry )
variable phodex 0 phodex ! ( pho-index for AudBuffer 14nov2012 )
variable pos ( old- & newConcept; enVocab: part-of-speech)
variable pov ( point-of-view: #35 internal; *42 external )
variable prc ( provisional recognition in AudRecog; 27dec2012 )
variable pre ( previous concept associated with a concept )
variable precand ( inviolate "pre" candidate from JSAI )
variable predflag ( indicates predicate nominative 11sep2010 )
variable prednom ( predicate nominative for InFerence; 18dec2012 )
variable predpos 0 predpos ! ( Predicate part of speech )
variable prejux ( previous jux to carry NOT to verb 21jul2011 )
variable prepho ( 17may2009 previous phoneme )
variable prepsi ( synaptic deglobalized "pre" in SpreadAct)
variable preset 0 preset ! ( for setting InStantiate "pre")
variable prevtag ( from JSAI; for use in InStantiate )
variable prox1 ( first proximate concept of input cluster )
variable prox2 ( for determining association among engrams )
variable prox3 ( for ReActivate to impose unequal activation )
variable proxcon ( flag to indicate usage of prox variables )
variable prsn 0 prsn ! ( 1st, 2nd, 3rd person )
variable psi ( identifier of a psi concept in Psi mindcore)
variable psi1 ( activation-level at each node of verb )
variable psi3 0 psi3 ! ( for VerbPhrase to find negation 25jun2011 )
variable psi8 ( tutorial enx in tutorial or diagnostics; 12oct2011 )
variable psibase ( winning psibase with winning actbase )
variable putdbav ( putative dba for verbs; 27dec2012 )
variable putnum ( putative number for subj-verb agreement )
variable questype ( oldConcept; Conjoin: "question-type" )
variable quiet 1 quiet ! ( status flag for auditory input )
variable quo ( 27dec2009 query-object for EnCog response )
variable quobj ( query-object for yes-or-no questions 24jun2011 )
variable qup ( 28dec2009 query-predicate if verb not given )
variable qusub ( internal provisional query-subject; 3oct2010 )
variable quverb ( query-verb for yes-or-no questions 24jun2011 )
variable recnum ( recognized number of a recognized word 19jul2011 )
variable retropsi ( for AudInput and Audmem noun-stems )
variable residuum 0 residuum ! ( activation after PsiDamp )
variable rjc 0 rjc ! ( rejuvenation counter for tracking )
variable rsvp 1000 rsvp ! ( user-response delay-counter)
variable rv ( "recall-vector" for diagnostic display )
variable scn ( subject concept number; 17jul2012 )
variable seq ( subSEQuent concept associated with another)
variable seqneed ( noun/pronoun or verb needed as a "seq" )
variable seqpos ( "seq" concept part-of-sppeech 1oct2011 )
variable seqpsi ( synaptic deglobalized "seq" in SpreadAct)
variable seqtqv ( for transfer during InFerence; 18dec2012 )
variable seqverb ( interstitial carrier for InFerence; 18dec2012 )
variable singflag ( singularity flag for singular nouns )
variable snu ( subj# as parameter for verb-selection 21dec2012 )
variable spacegap ( to add gap of one space in SpeechAct )
variable spike ( 1aug2005: for potential use in SpreadAct)
variable spt ( AudMem; AudInput: blank space time )
variable stemgap ( for avoiding false audRecog stems )
variable stempsi ( for singular noun-stem recognition )
variable subj ( flag to supercharge subject-nouns )
variable subjectflag ( 3dec2009 a default for NounPhrase )
variable subjnom ( subject-nominative for InFerence; 18dec2012 )
variable subjnum ( for agreement with predicate nominative )
variable subjold ( old subject as default candidate 28sep2010 )
variable subjpsi ( parameter to govern person of verb-forms )
variable sublen ( length of audRecog subpsi word-stem )
variable subpsi ( for AudRecog of sub-component wordstems )
variable supsi ( subject-psi for calculating "thotnum" )
variable svo2 ( second item among subj-verb-obj; 3sep2011 )
variable svo3 ( third item among subj-verb-obj; 28aug2011 )
variable t 0 t ! ( time incremented during AudMem storage)
variable t2s ( auditory text-to-speech index for SpeechAct)
variable tacpsi ( concept-tag attached to tactile engrams)
variable tacrec ( for external recognition by TacRecog )
variable tbev ( time of be-verb for use with aftjux 27jul2011 )
variable tkbn ( time of KbRetro noun adjustment; 2jul2011 )
variable tkbv ( time of KbRetro verb adjustment; 2jul2011 )
variable topic ( topic for a question to be asked )
variable topicnum ( grammatical number of question "topic" )
variable tov 1 tov ! ( time-of-voice for keeping track )
variable tpeg ( pegging the time-slice of a subject-noun )
variable tqv ( tempus quod vide for specific psi instance )
variable transcon 1 transcon ! ( transitive verb? 24jan2013 )
variable trc ( 20dec2009 tabula-rasa-counter like rjc )
variable tsday ( for AudListen transcript-mode headers )
variable tseln ( time of selection of noun; 8may2011 )
variable tselo ( time of selection of object 30jul2011 )
variable tsels ( time of selection of subj. 28jul2011 )
variable tselv ( time of selection of verb; 8may2011 )
variable tshour ( AudListen )
variable tsminute ( AudListen )
variable tsmonth ( AudListen )
variable tsn ( time of seqneed for InStantiate; 1jul2012 )
variable tssecond ( AudListen )
variable tsyear ( AudListen )
variable tult ( t penultimate, or time-minus-one )
variable unk ( "unknown" variable for general use )
variable upnext ( Flag lets new input de-crest previous. )
variable urpre ( original pre during call to other module )
variable urpsi ( original psi for use in psiDamp, etc. )
variable vacpsi ( de-globalized psi for VerbAct; 27sep2010 )
variable vault 611 vault ! ( size of EnBoot; 8nov2012 )
variable vbpsi ( verb-psi for calculating "thotnum" )
variable verblock ( for subject-noun to lock onto seq-verb; 8oct2011 )
variable verbpsi ( for transit into WhatAuxSVerb 13jun2011 )
variable verbval ( transfer from VerbPhrase to VerbAct )
variable vispsi ( concept-tag attached to images in memory)
variable visrec ( for external recognition by VisRecog )
variable vphract ( verb phrase activation level 19jun2011 )
variable vphraud ( holds aud-fetch for SpeechAct; 25jun2011 )
variable vpos ( verb part of speech for inflections )
variable vrsn 20130124 vrsn ! ( version identifier; 24jan2013 )
variable whoflag 0 whoflag ! ( for InStantiate )
variable wordend ( for singular noun-stem assignments )
variable yesorno 0 yesorno ! ( in conjunction w. KbSearch )
variable yncon ( statuscon to trigger yes-or-no query 2jul2011 )
variable ynverb ( yes-or-no verb for AskUser; 24jun2011 )
variable zone ( time-zone for "pre" and "seq" searches )
: 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 )
;
cns @ 9 CHANNEL psi{ ( Mindcore concept array "psi" )
cns @ 9 CHANNEL en{ ( English lexicon array "en" )
cns @ 6 CHANNEL aud{ ( Auditory memory channel "aud" )
: PsiClear ( set Psi activations to zero; 26sep2010 )
1 t @ 1 + DO
0 I 1 psi{ !
-1 +LOOP
; ( End of PsiClear )
: TabulaRasa
0 trc ! ( 20dec2009 tabula-rasa-counter like jrc )
1 tov !
BEGIN cns @ 1 DO
0 I trc @ psi{ !
LOOP
1 trc +!
trc @ 9 < WHILE \ Cover 9 columns 0-8; 29sep2011
REPEAT
0 trc !
1 tov !
BEGIN cns @ 1 DO
0 I trc @ en{ !
LOOP
1 trc +!
trc @ 9 < WHILE \ Cover #0 to #8, i.e. 9; 10nov2012
REPEAT
0 trc !
1 tov !
BEGIN cns @ 1 DO
0 I trc @ aud{ !
LOOP
1 trc +!
trc @ 6 < WHILE
REPEAT
cns @ 1 DO
32 I 0 aud{ !
LOOP
; ( End of TabulaRasa )
\ NounClear is a mechanism called by NounPhrase to set
\ activation on nouns and pronouns to zero just before
\ a pair of old and new noun-engrams is reduced even
\ further into negative activation by neural inhibition.
\ The purpose is to prevent the build-up of stray activations.
: NounClear ( remove activation from all nouns ) \ 20dec2009
midway @ cns @ DO \ Loop backwards over time.
I 5 psi{ @ 5 = I 5 psi{ @ 7 = OR IF \ pro(noun) 18aug2011
I 1 psi{ @ 0 > IF \ avoid inhibited engrams; 26aug2011
0 I 1 psi{ ! \ 20dec2009 Set noun to zero activation.
THEN \ end of test for positive activation; 26aug2011
THEN \ 20dec2009 End of test for pos=5 nouns.
-1 +LOOP \ End of backwards loop looking for pos=5 nouns.
; ( End of NounClear; return to NounPhrase; 18aug2011 )
: VerbClear ( remove activation from all verbs )
midway @ t @ DO
I 5 psi{ @ 8 = IF
I 1 psi{ @ 0 > IF \ avoid inhibited engrams; 26aug2011
0 I 1 psi{ !
THEN \ end of test for positive activation; 26aug2011
THEN
-1 +LOOP
; ( End of VerbClear )
: VerbClip ( lower activation on all verbs )
midway @ t @ DO
I 5 psi{ @ 8 = IF
I 1 psi{ @ 12 > IF \ test; REMOVE? 25aug2010
6 I 1 psi{ +! \ test; 25aug2010
THEN
THEN
-1 +LOOP
; ( End of VerbClip; return to AudInput )
: PsiDecay ( let conceptual activations dwindle )
fyi @ 2 > IF CR
." PsiDecay called to reduce all "
." conceptual activations." CR
THEN
midway @ t @ DO
I 1 psi{ @ 0 > IF \ avoid inhibited nodes; 9sep2010
I 1 psi{ @ 40 > IF 34 actran ! THEN \ 4aug2011
I 1 psi{ @ 50 > IF 35 actran ! THEN \ 4aug2011
I 1 psi{ @ 60 > IF 36 actran ! THEN \ 4aug2011
I 1 psi{ @ 70 > IF 37 actran ! THEN \ 4aug2011
I 1 psi{ @ 80 > IF 38 actran ! THEN \ 4aug2011
I 1 psi{ @ 90 > IF 39 actran ! THEN \ 4aug2011
actran @ 0 > IF actran @ I 1 psi{ ! THEN \ 16may2011
0 actran ! \ Reset to zero for safety; 16may2011
I 1 psi{ @ 1 - I 1 psi{ !
THEN \ end of test to skip inhibited nodes; 9sep2010
I 1 psi{ @ 0 < IF 1 I 1 psi{ +! THEN \ 6sep2010
I 0 psi{ @ 830 = IF 0 I 1 psi{ ! THEN \ 830=DO
I 0 psi{ @ 781 = IF 0 I 1 psi{ ! THEN \ 781=WHAT
I 0 psi{ @ 117 = IF 0 I 1 psi{ ! THEN \ 117=THE
-1 +LOOP
; ( http://code.google.com/p/mindforth/wiki/PsiDecay )
: PsiDamp ( reduce activation of a concept )
( 33-48 = consciousness tier where concepts win selection. )
( 17-32 = subconscious where concepts remain available. )
( 1-16 = noise tier below logical association threshold. )
16 residuum !
fyi @ 2 > IF CR
." PsiDamp called for urpsi = " urpsi @ .
." by module ID #" caller @ .
caller @ 42 = IF ." WhatAuxSDo " THEN
caller @ 51 = IF ." AuxVerb " THEN
caller @ 62 = IF ." VerbPhrase " THEN
caller @ 66 = IF ." NounPhrase " THEN
caller @ 104 = IF ." AudInput " THEN
caller @ 148 = IF ." Activate " THEN
caller @ 3535 = IF ." AudInput " THEN
caller @ 6967 = IF ." EnCog " THEN \ test; 26sep2010
caller @ 8766 = IF ." WhoBe " THEN \ test; 26sep2010
caller @ 8773 = IF ." WhatBe " THEN \ changed; 25feb2011
0 caller !
THEN
urpsi @ 791 = IF \ if urpsi is 791=WHO; 10nov2012
1 residuum ! \ deemphasize WHO; test; 25jul2010
THEN \ test; 25jul2010
( code to prevent psi-damping inhibited concepts; 6sep2010 )
midway @ t @ DO
I 0 psi{ @ urpsi @ = IF \ concept found; 6sep2010
I 1 psi{ @ -1 > IF \ positive act.? 16aug2011
residuum @ I 1 psi{ ! \ psi-damp only high activations
THEN \ end of test for only positive act.; 6sep2010
THEN \ end of test for particular concept; 6sep2010
-1 +LOOP
0 residuum !
; ( http://code.google.com/p/mindforth/wiki/PsiDamp )
: EnDamp ( deactivate English lexicon concepts )
midway @ t @ DO
0 I 1 en{ !
-1 +LOOP
; ( End of EnDamp )
: AudDamp ( deactivate auditory engrams )
midway @ t @ DO
0 I 1 aud{ !
-1 +LOOP
; ( End of AudDamp )
: .psi ( show concepts in the Psi array )
CR ." Psi mindcore concepts"
CR ." time: psi act num jux pre pos seq enx "
t @ 1+ midway @ DO
I 0 psi{ @ 0 > IF
CR I . ." : "
I 0 psi{ @ . ." "
I 1 psi{ @ . ." "
I 2 psi{ @ . ." "
I 3 psi{ @ . ." "
I 4 psi{ @ . ." "
I 5 psi{ @ . ." "
I 6 psi{ @ . ." " \ Show tqv-point; 12oct2011
I 7 psi{ @ . ." " \ new "seq" position 12oct2011
I 8 psi{ @ enx ! enx @ . \ new "enx"; 12oct2011
enx @ 0 > IF
." to "
I unk !
0 aud !
midway @ unk @ DO
I 0 en{ @ enx @ = IF
I 8 en{ @ aud ! \ with dba; 10nov2012
aud @ 0= NOT IF
BEGIN
aud @ 0 aud{ @ EMIT
1 aud +!
aud @ 0 aud{ @ 32 =
UNTIL
." "
THEN
0 aud !
LEAVE ( One engrammed word is enough. )
THEN
-1 +LOOP
THEN
THEN
LOOP
CR ." time: psi act num jux pre pos tqv seq enx " 0 unk !
CR ." You may enter .psi or .en or .aud to view memory "
." engrams or "
CR ." MainLoop [ENTER] to erase all memories "
." and restart the Mind."
CR
; ( End of .psi post-Escape report )
: .en ( show vocabulary in the English lexicon array )
CR ." English lexical fibers"
CR ." t nen act num mfn dba fex pos fin aud:" \ 18dec2012
t @ 1+ midway @ DO
I 0 en{ @ unk !
unk @ 0 > IF ( display positive data )
CR I . unk @ . ." "
I 1 en{ @ . ." "
I 2 en{ @ . ." "
I 3 en{ @ . ." "
I 4 en{ @ . ." "
I 5 en{ @ . ." " \ dba; 10nov2012
I 6 en{ @ . ." "
I 7 en{ @ . ." "
I 8 en{ @ aud ! aud @ . ." to "
BEGIN
aud @ 0 aud{ @ EMIT 1 aud +!
aud @ 0 aud{ @ 32 =
UNTIL
." "
0 aud !
THEN
LOOP
0 unk !
CR ." t nen act num mfn dba fex pos fin aud" CR
CR ." You may enter .psi or .en or .aud to view memory "
." engrams or "
CR ." MainLoop [ENTER] to erase all memories "
." and restart the Mind."
CR
; ( End of .en post-Escape report )
: .aud ( show engrams in the auditory memory array )
CR ." Auditory memory nodes"
CR ." t pho act pov beg ctu audpsi"
t @ 1+ 1 DO ( Show the entire Aud channel.)
CR I . ." "
I 2 aud{ @ 123 = IF
." { "
THEN
I 0 aud{ @ 33 < IF
." " ( show a blank )
ELSE
I 0 aud{ @ EMIT ." "
I 1 aud{ @ . ." "
I 2 aud{ @ EMIT ." "
I 3 aud{ @ . ." "
I 4 aud{ @ . ." "
I 5 aud{ @ .
THEN
I 2 aud{ @ 125 = IF
." } "
THEN
I cns @ > IF QUIT THEN \ safety measure; 26jul2010
LOOP
CR ." You may enter .psi or .en or .aud to view memory "
." engrams or "
CR ." MainLoop [ENTER] to erase all memories "
." and restart the Mind."
CR
; ( End of .aud post-Escape report )
: .out ( show characters in the OutBuffer; 12nov2012 )
CR ." AudBuffer word = " CR \ 15nov2012
c01 @ EMIT c02 @ EMIT c03 @ EMIT c04 @ EMIT
c05 @ EMIT c06 @ EMIT c07 @ EMIT c08 @ EMIT
c09 @ EMIT c10 @ EMIT c11 @ EMIT c12 @ EMIT
c13 @ EMIT c14 @ EMIT c15 @ EMIT c16 @ EMIT
CR ." OutBuffer word = " CR \ 14nov2012
b01 @ EMIT b02 @ EMIT b03 @ EMIT b04 @ EMIT
b05 @ EMIT b06 @ EMIT b07 @ EMIT b08 @ EMIT
b09 @ EMIT b10 @ EMIT b11 @ EMIT b12 @ EMIT
b13 @ EMIT b14 @ EMIT b15 @ EMIT b16 @ EMIT
CR ." 1234567890123456 " \ show right-justification
CR \ Return to left margin for Forth ok prompt.
; ( End of OutBuffer report; 12nov2012 )
: .echo ( show what the robot just said )
( As on Usenet, user responds _below_ the AI output. )
fyi @ 2 = IF
CR ." Tutorial mode is now in effect. "
." Enter input or wait for output."
THEN
CR ." Robot: "
tov @ t @ = IF \ 12jan2010 Test for equality.
tov @ 1 - tov ! \ 12jan2010 Prevent infinite loops.
THEN \ 12jan2010 End of test for tov @ t equality.
t @ tov @ DO
I 0 aud{ @ 0 = IF
." "
ELSE
I 2 aud{ @ 42 = NOT IF
I 0 aud{ @ EMIT
THEN
THEN
LOOP
; ( End of .echo )
: SpreadAct ( spreading activation )
PsiDecay \ to differentiate among activations; 10aug2012
prepsi @ 0 > IF \ From NounAct or VerbAct; 30jun2012
zone @ 7 - zone @ DO
I 0 psi{ @ prepsi @ = IF \ now prepsi; 15sep2010
\ CR ." SprAct: augmenting activation at time " \ 10aug2012
\ I . ." of prepsi " prepsi @ . \ test; 10aug2012
\ 1 I 1 psi{ +! \ C-ing outl 10aug2012
8 I 1 psi{ +! \ for queries; 10aug2012
I zone @ 6 - > IF LEAVE THEN
THEN
-1 +LOOP
THEN
seqpsi @ 0 > IF \ replacing seqsyn; 15sep2010
fyi @ 3 = IF
CR ." SprA seqpsi & spike = " seqpsi @ . spike @ . CR
THEN
zone @ 32 + zone @ DO \ Search past non-seq psi.
I 0 psi{ @ seqpsi @ = IF \ replacement 15sep2010
fyi @ 3 = IF
CR ." SprA matching seqpsi w. spike = " \ 24sep2010
seqpsi @ . spike @ . CR \ non-global 24sep2010
THEN
fyi @ 1 > IF
pov @ 35 = IF
0 psi8 ! \ new flag-panel location of "enx"; 12oct2011
fyi @ 3 = IF
CR ." sprdAct: seqpsi = " seqpsi @ . CR \ 24sep2010
THEN
midway @ t @ DO
I 0 psi{ @ fyipsi @ = IF \ 17oct2011
I 8 psi{ @ psi8 ! \ new "enx"; 12oct2011
LEAVE
THEN
-1 +LOOP
midway @ t @ DO
I 0 en{ @ psi8 @ = IF \ new "enx"; 12oct2011
I 7 en{ @ rv !
LEAVE
THEN
-1 +LOOP
0 rv !
midway @ t @ DO
I 0 psi{ @ seqpsi @ = IF \ 15sep2010
I 8 psi{ @ psi8 ! \ new "enx"; 12oct2011
LEAVE
THEN
-1 +LOOP
midway @ t @ DO
I 0 en{ @ psi8 @ = IF \ "enx"; 12oct2011
I 7 en{ @ rv !
LEAVE
THEN
-1 +LOOP
rv @ 0 > IF
BEGIN
rv @ 0 aud{ @ EMIT 1 rv +!
rv @ 0 aud{ @ 32 =
UNTIL
THEN
0 rv !
." "
THEN
THEN \ end of FYI=1; 2aug2011
fyi @ 2 > IF
pov @ 35 = IF
CR
0 psi8 ! \ new "enx"; 12oct2011
midway @ t @ DO
I 0 psi{ @ fyipsi @ = IF \ 17oct2011
I 8 psi{ @ psi8 ! \ "enx"; 12oct2011
LEAVE
THEN
-1 +LOOP
midway @ t @ DO
I 0 en{ @ psi8 @ = IF \ "enx"; 12oct2011
I 8 en{ @ rv ! \ with dba; 10nov2012
LEAVE
THEN
-1 +LOOP
rv @ 0 > IF
BEGIN
rv @ 0 aud{ @ EMIT 1 rv +!
rv @ 0 aud{ @ 32 =
UNTIL
THEN
0 rv !
." #" fyipsi @ . ." act " oldact @ . \ 17oct2011
." at i " I . ." sprA spike "
spike @ . ." to seqpsi #" seqpsi @ . \ 20sep2010
midway @ t @ DO
I 0 psi{ @ seqpsi @ = IF \ 15sep2010
I 8 psi{ @ psi8 ! \ "enx"; 12oct2011
LEAVE
THEN
-1 +LOOP
midway @ t @ DO
I 0 en{ @ psi8 @ = IF \ "enx"; 12oct2011
I 8 en{ @ rv ! \ with dba; 10nov2012
LEAVE
THEN
-1 +LOOP
rv @ 0 > IF
BEGIN
rv @ 0 aud{ @ EMIT 1 rv +!
rv @ 0 aud{ @ 32 =
UNTIL
THEN
0 rv !
CR
." at act " I 1 psi{ @ . ." yields "
THEN
THEN \ end of FYI=2+ 2aug2011
fyi @ 3 = IF
." SprA: spiking seqpsi " spike @ . seqpsi @ .
THEN
subjectflag @ 1 = IF \ onto verb-nodes; 18oct2010
( insert diagnostic code here to troubleshoot 5aug2011 )
spike @ I 1 psi{ +! ( add spike to seqpsi 15sep2010 )
ELSE \ in all other cases, e.g. dirobj; 25jun2011
( insert diagnostic code here to troubleshoot 5aug2011 )
spike @ I 1 psi{ ! ( Xfer absolute act; 25jun2011 )
THEN \ end of test for subject-nodes; 18oct2010
fyi @ 2 > IF
pov @ 35 = IF
I 1 psi{ @ .
fyi @ 2 > IF
." and zone = " zone @ .
THEN
THEN
THEN
fyi @ 3 = IF
I 1 psi{ @ . ." (lim = 63) for t=" I rv !
BEGIN
-1 rv +!
rv @ 3 aud{ @ 1 =
UNTIL
rv @ .
BEGIN
rv @ 0 aud{ @ EMIT 1 rv +!
rv @ 0 aud{ @ 32 =
UNTIL
." engram; in sprA spike = " spike @ .
0 rv !
THEN
I zone @ 6 + > IF
fyi @ 2 > IF
CR ." executing LEAVE at zone = " zone @ .
THEN
LEAVE
THEN
LEAVE \ After finding one seqpsi; 13oct2010
THEN \ end of test for matching Psi#; 8aug2011
LOOP
THEN
; ( http://code.google.com/p/mindforth/wiki/SpreadAct )
: NounAct ( re-activate all recent nodes of a concept )
0 unk ! \ reset before using in NounAct; 8aug2011
28 nounval ! \ test; 1sep2011
fyi @ 2 > IF CR \ 5jan2010 Altering the next line:
." Calling NounAct (not in AI4U). nacpsi = " nacpsi @ . CR
THEN
nacpsi @ 0 > IF
fyi @ 2 > IF
CR ." NounAct calls SpreadAct to transfer "
CR ." proportionate activation from each node of "
CR ." concept #" psi @ .
THEN
midway @ t @ DO
I 0 psi{ @ nacpsi @ = IF
-3 unk +! \ for decrementing spike over time; 8aug2011
( insert diagnostic code here; 7sep2011 )
I 1 psi{ @ -1 > IF \ avoid inhibition; 3sep2011
nounval @ I 1 psi{ ! \ 3sep2011
THEN ( http://greenarraychips.com )
I 0 psi{ @ 781 = IF \ 781=WHAT; 10nov2012
0 I 1 psi{ !
THEN ( http://www.calcentral.com/~forth/forth )
12 spike ! ( Aim for ample spikes.)
I 4 psi{ @ prepsi ! ( for SpreadAct 15sep2010 )
I 7 psi{ @ seqpsi ! ( for SpreadAct 12oct2011 )
I zone ! ( for use in SpreadAct )
I 1 psi{ @ 0 = IF 0 spike ! THEN
I 1 psi{ @ 5 > IF 12 spike ! THEN
I 1 psi{ @ 10 > IF 24 spike ! THEN \ 3nov2010
I 1 psi{ @ 15 > IF 26 spike ! THEN \ 3nov2010
I 1 psi{ @ 20 > IF 28 spike ! THEN \ 3nov2010
I 1 psi{ @ 25 > IF 30 spike ! THEN \ 4jun2011
I 1 psi{ @ 30 > IF 32 spike ! THEN \ 4jun2011
I 1 psi{ @ 35 > IF 34 spike ! THEN \ 4jun2011
I 1 psi{ @ 40 > IF 36 spike ! THEN \ 4jun2011
I 1 psi{ @ 45 > IF 38 spike ! THEN \ 4jun2011
I 1 psi{ @ 50 > IF 40 spike ! THEN \ 4jun2011
I 1 psi{ @ 55 > IF 42 spike ! THEN \ 4jun2011
I 1 psi{ @ 60 > IF 44 spike ! THEN \ 4jun2011
nacpsi @ fyipsi ! \ 17oct2011
I 1 psi{ @ oldact !
I 5 psi{ @ oldpos !
seqpsi @ 0 > IF \ replacement; 15sep2010
seqpsi @ 791 = IF \ 791=WHO; 10nov2012
1 spike ! \ not 24 act; 11aug2010
THEN \ end of experiment; 11aug2010
( insert diagnostic code here; 8aug2011 )
unk @ -10 < IF -10 unk ! THEN \ limit decrement 8aug2011
unk @ spike +! \ decrement spike; 8aug2011
7865 caller !
SpreadAct ( for spreading activation )
0 caller !
0 prepsi ! \ replacing presyn; 15sep2010
0 seqpsi ! \ replacing seqsyn; 15sep2010
THEN
precand @ pre !
0 oldpos !
0 fyipsi ! \ 17oct2011
0 oldact !
0 pre !
THEN
0 spike ! \ reset for each new loop; 14oct2010
-1 +LOOP
THEN
0 spike !
; ( http://code.google.com/p/mindforth/wiki/NounAct )
: VerbAct ( re-activate all recent nodes of a verb )
17 verbval ! \ lowering to promote warranted assoc; 27aug2011
fyi @ 2 > IF CR
." Calling verbAct (not in AI4U). psi = " psi @ . CR
THEN
vacpsi @ 0 > IF \ if a vacpsi exists; 9nov2010
fyi @ 2 > IF
CR ." VerbAct calls SpreadAct to transfer "
CR ." proportionate activation from each node of "
CR ." concept #" psi @ .
THEN
vacpsi @ fyipsi ! \ a replacement variable; 17oct2011
midway @ t @ DO
I 0 psi{ @ vacpsi @ = IF \ deglobalized psi; 8oct2010
fyi @ 2 > IF
I 1 psi{ @ 8 > IF
." +"
THEN
THEN
I 1 psi{ @ psi1 !
I 1 psi{ @ -1 > IF \ avoid inhibited nodes; 9sep2010
( insert diagnostic code here; 27aug2011 )
moot @ 0 = IF \ deprive queries of tags; 20aug2011
verbval @ I 1 psi{ +! \ CUMULATIVE for slosh-over.
THEN \ end of test for a moot query input; 20aug2011
THEN \ end of test to skip inhibited nodes; 9sep2010
I 0 psi{ @ 781 = IF \ 781=WHAT; 11nov2012
0 I 1 psi{ !
THEN
I 4 psi{ @ prepsi ! ( for SpreadAct 15sep2010 )
I 7 psi{ @ seqpsi ! ( for SpreadAct 12oct2011 )
I zone ! ( for use in SpreadAct )
I 1 psi{ @ 0 = IF 0 spike ! THEN
I 1 psi{ @ 0 > IF 1 spike ! THEN
I 1 psi{ @ 5 > IF 3 spike ! THEN
I 1 psi{ @ 10 > IF 6 spike ! THEN
I 1 psi{ @ 15 > IF 9 spike ! THEN
I 1 psi{ @ 20 > IF 12 spike ! THEN
I 1 psi{ @ 25 > IF 15 spike ! THEN
I 1 psi{ @ 30 > IF 16 spike ! THEN
I 1 psi{ @ 35 > IF 17 spike ! THEN
I 1 psi{ @ 40 > IF 18 spike ! THEN
I 1 psi{ @ 45 > IF 19 spike ! THEN
I 1 psi{ @ 50 > IF 30 spike ! THEN
I 1 psi{ @ 55 > IF 33 spike ! THEN
I 1 psi{ @ 60 > IF 36 spike ! THEN
I 1 psi{ @ 65 > IF 39 spike ! THEN
I 1 psi{ @ 70 > IF 42 spike ! THEN
I 1 psi{ @ 75 > IF 45 spike ! THEN
I 1 psi{ @ 80 > IF 48 spike ! THEN
I 1 psi{ @ 85 > IF 50 spike ! THEN
I 1 psi{ @ 90 > IF 52 spike ! THEN
I 1 psi{ @ 95 > IF 54 spike ! THEN
vacpsi @ fyipsi ! \ a replacement variable; 17oct2011
I 1 psi{ @ oldact !
I 5 psi{ @ oldpos !
fyi @ 2 = IF \ In Tutorial mode show slosh-over; 17oct2010
CR ." VerbAct calls SpreadAct with activation "
spike @ . ." for Psi #" seqpsi @ . \ 18oct2010
THEN \ End of test for Tutorial mode; 17oct2010
seqpsi @ 0 > IF \ replacement; 15sep2010
( insert diagnostic code here; 6aug2011 )
5 spike +! \ for sake of direct objects; 3sep2011
8665 caller !
SpreadAct ( for spreading activation )
0 caller !
0 prepsi ! \ replacing presyn; 15sep2010
0 seqpsi ! \ replacing seqsyn; 15sep2010
THEN
0 oldpos !
0 fyipsi ! \ 17oct2011
0 oldact !
0 pre !
0 seq !
THEN
( perhaps reset spike to zero for each loop? 14oct2010 )
0 spike ! \ reset to start each loop again; 14oct2010
-1 +LOOP
THEN
; ( http://code.google.com/p/mindforth/wiki/VerbAct )
: ReActivate ( re-activate recent nodes of a concept )
fyi @ 2 > IF CR
." Calling ReActivate. psi = " psi @ . CR
THEN
0 spike !
psi @ 0 > IF
fyi @ 2 > IF
CR ." ReActivate calls SpreadAct to transfer "
CR ." proportionate activation from each node of "
CR ." concept #" psi @ .
THEN
midway @ tov @ DO \ Omitting current input; 29may2011
I 0 psi{ @ psi @ = IF
pov @ 42 = IF \ Only during "*" external POV; 7may2011
moot @ 0 = IF \ deprive queries of tags; 20aug2011
I 1 psi{ @ 0 < IF \ if inhibited; 29aug2011
1 I 1 psi{ +! \ reactivate only slightly; 29aug2011
proxcon @ 1 = IF \ if clustering input; 7sep2011
prox3 @ psi @ = IF \ 7sep2011
I 7 psi{ @ prox2 @ = IF \ seq; 12oct2011
40 I 1 psi{ ! \ extra act; 7sep2011
THEN \ 7sep2011
THEN \ 7sep2011
THEN \ end of proxcon test; 7sep2011
ELSE \ otherwise impose full reactivation; 29aug2011
I 1 psi{ @ -1 > IF \ avoid inhibition; 3sep2011
35 I 1 psi{ +! \ Relative not absolute 12aug2011
I 5 psi{ 8 = IF \ Test for a verb; 28jun2012
16 I 1 psi{ +! \ Accentuate verbs; 28jun2012
THEN \ End of test for verbs; 28jun2012
proxcon @ 1 = IF \ if clustering input; 7sep2011
prox2 @ psi @ = IF \ 7sep2011
THEN \ 7sep2011
prox3 @ psi @ = IF \ 7sep2011
I 7 psi{ @ prox2 @ = IF \ seq; 12oct2011
10 I 1 psi{ +! \ extra act; 7sep2011
THEN \ 7sep2011
THEN \ 7sep2011
THEN \ end of proxcon test; 7sep2011
THEN ( http://www.ez-robot.com )
THEN \ end of test for inhibited concept; 29aug2011
THEN \ end of test for a moot query input; 20aug2011
THEN \ End of new test for external POV; 7may2011
I 0 psi{ @ 781 = IF \ 781=WHAT; 10nov2012
0 I 1 psi{ !
THEN
I 0 psi{ @ 791 = IF \ 791=WHO; 10nov2012
0 I 1 psi{ ! \ As in InStantiate; 3may2011
THEN \ end of test for 791=WHO 10nov2012
I 0 psi{ @ 830 = IF \ 830=DO; 10nov2012
0 I 1 psi{ ! \ 12jan2010 For what-do queries.
THEN \ End of 830=DO test; 10nov2012
1 spike ! \ 30jun2012
I 1 psi{ @ 0 = IF 0 spike ! THEN
I 1 psi{ @ 5 > IF 7 spike ! THEN
I 1 psi{ @ 10 > IF 8 spike ! THEN
I 1 psi{ @ 15 > IF 9 spike ! THEN
I 1 psi{ @ 20 > IF 10 spike ! THEN
I 1 psi{ @ 25 > IF 11 spike ! THEN
I 1 psi{ @ 30 > IF 12 spike ! THEN
I 1 psi{ @ 35 > IF 13 spike ! THEN
I 1 psi{ @ 40 > IF 14 spike ! THEN
I 1 psi{ @ 45 > IF 15 spike ! THEN
I 1 psi{ @ 50 > IF 16 spike ! THEN
I 1 psi{ @ 55 > IF 17 spike ! THEN
I 1 psi{ @ 60 > IF 18 spike ! THEN
I 4 psi{ @ prepsi ! ( for SpreadAct 30jun2012 )
I 7 psi{ @ seqpsi ! ( for SpreadAct 30jun2012 )
I zone ! ( for SpreadAct 30jun2012 )
148 caller !
SpreadAct ( for spreading activation 30jun2012 )
0 oldpos !
0 fyipsi ! \ 17oct2011
0 oldact !
0 pre !
0 prepsi !
0 seq !
0 seqpsi !
0 psi1 !
1 spike !
THEN
-1 +LOOP
0 caller !
0 urpsi !
THEN
; ( http://code.google.com/p/mindforth/wiki/ReActivate )
: InNativate ( quasi-instantiate the EnBoot sequence )
( concept fiber psi ) psi @ t @ 0 psi{ !
( Set "num" number flag ) num @ t @ 2 psi{ !
( Store PREvious associand. ) pre @ t @ 4 psi{ !
( Store functional pos code. ) pos @ t @ 5 psi{ !
( Store the "tqv" time-point. ) tqv @ t @ 6 psi{ !
( Store the subSEQuent tag. ) seq @ t @ 7 psi{ !
( Store the EN-transfer tag. ) enx @ t @ 8 psi{ !
; ( http://code.google.com/p/mindforth )
: OutBuffer ( right-justifies a word in memory )
32 b01 ! 32 b02 ! 32 b03 ! 32 b04 ! 32 b05 !
32 b06 ! 32 b07 ! 32 b08 ! 32 b09 ! 32 b10 !
32 b11 ! 32 b12 ! 32 b13 ! 32 b14 ! 32 b15 !
32 b16 !
c16 @ 32 > IF \ if the AudBuffer is full; 14nov2012
c16 @ b16 ! c15 @ b15 ! c14 @ b14 ! c13 @ b14 !
c12 @ b12 ! c11 @ b11 ! c10 @ b10 @ c09 @ b09 !
c08 @ b08 ! c07 @ b07 ! c06 @ c06 ! c05 ! b05 !
c04 @ b04 ! c03 @ c03 ! c02 @ b02 ! c01 @ c01 !
EXIT \ abandon remainder of function; 13nov2012
THEN \ end of transfer of 16-character word; 13nov2012
c15 @ 32 > IF \ word only 15 chars long? 14nov2012
c15 @ b16 ! c14 @ b15 ! c13 @ b14 ! c12 @ b13 !
c11 @ b12 ! c10 @ b11 ! c09 @ b10 ! c08 @ b09 !
c07 @ b08 ! c06 @ b07 ! c05 @ b06 ! c04 @ b05 !
c03 @ b04 ! c02 @ b03 ! c01 @ b02 ! EXIT
THEN \ transfer of a 15-character word; 13nov2012
c14 @ 32 > IF
c14 @ b16 ! c13 @ b15 ! c12 @ b14 ! c11 @ b13 !
c10 @ b12 ! c09 @ b11 ! c08 @ b10 ! c07 @ b09 !
c06 @ b08 ! c05 @ b07 ! c04 @ b06 ! c03 @ b05 !
c02 @ b04 ! c01 @ b03 ! EXIT
THEN
c13 @ 32 > IF
c13 @ b16 ! c12 @ b15 ! c11 @ b14 ! c10 @ b13 !
c09 @ b12 ! c08 @ b11 ! c07 @ b10 ! c06 @ b09 !
c05 @ b08 ! c04 @ b07 ! c03 @ b06 ! c02 @ b05 !
c01 @ b04 ! EXIT
THEN
c12 @ 32 > IF
c12 @ b16 ! c11 @ b15 ! c10 @ b14 ! c09 @ b13 !
c08 @ b12 ! c07 @ b11 ! c06 @ b10 ! c05 @ b09 !
c04 @ b08 ! c03 @ b07 ! c02 @ b06 ! c01 @ b05 !
EXIT
THEN
c11 @ 32 > IF
c11 @ b16 ! c10 @ b15 ! c09 @ b14 ! c08 @ b13 !
c07 @ b12 ! c06 @ b11 ! c05 @ b10 ! c04 @ b09 !
c03 @ b08 ! c02 @ b07 ! c01 @ b06 ! EXIT
THEN
c10 @ 32 > IF
c10 @ b16 ! c09 @ b15 ! c08 @ b14 ! c07 @ b13 !
c06 @ b12 ! c05 @ b11 ! c04 @ b10 ! c03 @ b09 !
c02 @ b08 ! c01 @ b07 ! EXIT
THEN
c09 @ 32 > IF
c09 @ b16 ! c08 @ b15 ! c07 @ b14 ! c06 @ b13 !
c05 @ b12 ! c04 @ b11 ! c03 @ b10 ! c02 @ b09 !
c01 @ b08 ! EXIT
THEN
c08 @ 32 > IF
c08 @ b16 ! c07 @ b15 ! c06 @ b14 ! c05 @ b13 !
c04 @ b12 ! c03 @ b11 ! c02 @ b10 ! c01 @ b09 !
EXIT
THEN
c07 @ 32 > IF
c07 @ b16 ! c06 @ b15 ! c05 @ b14 ! c04 @ b13 !
c03 @ b12 ! c02 @ b11 ! c01 @ b10 !
EXIT
THEN
c06 @ 32 > IF
c06 @ b16 ! c05 @ b15 ! c04 @ b14 ! c03 @ b13 !
c02 @ b12 ! c01 @ b11 !
EXIT
THEN
c05 @ 32 > IF
c05 @ b16 ! c04 @ b15 ! c03 @ b14 ! c02 @ b13 !
c01 @ b12 !
EXIT
THEN
c04 @ 32 > IF
c04 @ b16 ! c03 @ b15 ! c02 @ b14 ! c01 @ b13 !
EXIT
THEN
c03 @ 32 > IF
c03 @ b16 ! c02 @ b15 ! c01 @ b14 !
EXIT
THEN
c02 @ 32 > IF
c02 @ b16 ! c01 @ b15 !
EXIT
THEN
c01 @ 32 > IF
c01 @ b16 !
EXIT
THEN
; \ end of OutBuffer; return to AudBuffer or VerbGen.
: AudBuffer ( for transfer of words to OutBuffer; 12nov2012 )
1 phodex +! \ increment; 12nov2012
phodex @ 1 = IF \ Erase any left-over old data;
abc @ c01 ! \ fill in first item of new data.
32 c02 ! 32 c03 ! 32 c04 ! 32 c05 ! 32 c06 !
32 c07 ! 32 c08 ! 32 c09 ! 32 c10 ! 32 c11 !
32 c12 ! 32 c13 ! 32 c14 ! 32 c15 ! 32 c16 !
THEN \ end of blanking out with 32=SPACE
phodex @ 2 = IF abc @ c02 ! THEN \ 12nov2012
phodex @ 3 = IF abc @ c03 ! THEN \ 12nov2012
phodex @ 4 = IF abc @ c04 ! THEN \ 12nov2012
phodex @ 5 = IF abc @ c05 ! THEN \ 12nov2012
phodex @ 6 = IF abc @ c06 ! THEN \ 12nov2012
phodex @ 7 = IF abc @ c07 ! THEN \ 12nov2012
phodex @ 8 = IF abc @ c08 ! THEN \ 12nov2012
phodex @ 9 = IF abc @ c09 ! THEN \ 12nov2012
phodex @ 10 = IF abc @ c10 ! THEN \ 12nov2012
phodex @ 11 = IF abc @ c11 ! THEN \ 12nov2012
phodex @ 12 = IF abc @ c12 ! THEN \ 12nov2012
phodex @ 13 = IF abc @ c13 ! THEN \ 12nov2012
phodex @ 14 = IF abc @ c14 ! THEN \ 12nov2012
phodex @ 15 = IF abc @ c15 ! THEN \ 12nov2012
phodex @ 16 = IF abc @ c16 ! THEN \ 12nov2012
OutBuffer \ right-justify each input word; 15nov2012
0 abc ! \ reset for non-persistence; 14nov2012
; \ end of AudBuffer; return to AudInput or VerbGen
: InStantiate ( create a concept-fiber node )
seqneed @ 0 = IF 5 seqneed ! THEN \ test; 27jul2012
precand @ 0 > IF precand @ pre ! THEN
ordo @ 1 = IF 0 prevtag ! THEN
firstword @ 830 = IF \ DO or DOES; 10nov2012
1 moot ! \ deprive queries of pre and seq tags; 19aug2011
THEN \ end of test for a DO-query; 19aug2011
firstword @ 781 = firstword @ 791 = OR IF \ 10nov2012
1 proxcon ! \ set for 781=WHAT or 791=WHO; 10nov2012
THEN
lastword @ 1 = IF
0 seq !
THEN ( http://home.iae.nl/users/mhx/i4faq.html )
t @ 610 > IF \ Avoid the EnBoot vault; 11nov2012
whoflag @ 1 = IF
psi @ 800 = IF 800 beflag ! THEN \ 10nov2012
pos @ 5 = pos @ 7 = OR IF
beflag @ seq !
0 beflag !
THEN
THEN
psi @ 781 = IF \ Special handling of 781=WHAT; 10nov2012
1 indefartcon ! \ indefinite article condition 16apr2011
0 act ! \ To suppress "WHAT" during answer.
THEN \ End of test for input of "WHAT"
psi @ 791 = IF \ Special handling of 791=WHO; 10nov2012
1 defartcon ! \ Set definite article condition 16apr2011
1 whoflag !
0 act ! \ To suppress "WHO" during answer.
THEN
singflag @ 1 = IF
pos @ 5 = IF
1 num !
0 singflag !
THEN
THEN
psi @ 1 = psi @ 83 = OR IF \ "A" or "AN"; 6aug2011
1 singflag !
0 act !
THEN
THEN \ end of InStantiate t-test clause; 14jul2012
pos @ 5 = IF \ noun either external or internal; 6aug2011
recnum @ 0 > IF \ If positive recog-num; 6aug2022
recnum @ num ! \ Override num(ber); 6aug2011
\ 0 recnum ! \ reset for safety; 6aug2011; 14jul2012
THEN \ End of test for positive recog-num; 6aug2011
THEN \ End of test for a 5=pos noun; 6aug2011
pov @ 42 = IF \ If POV is external; 24jun2011
num @ 0 = IF \ if no num(ber) is assigned; 24jun2011
putnum @ 0 > IF \ if putative number is positive
putnum @ num ! \ replace zero with putative num
THEN \ end of test for positive putnum; 24jun2011
THEN \ end of test for missing num-value; 24jun2011
pos @ 8 = IF putnum @ num ! THEN \ test; 24jun2011
pos @ 5 = IF psi @ quobj ! THEN \ for AskUser; 6aug2011
THEN \ End of test for "*" external POV; 20aug2011
pov @ 35 = IF \ If POV is pound-sign internal; 3may2011
num @ 0 = IF \ if no num(ber) is assigned; 24jun2011
putnum @ 0 > IF \ if putative number is positive
putnum @ num ! \ replace zero with putative num
0 putnum ! \ zero for safety; test; 5aug2011
THEN \ end of test for positive putnum; 24jun2011
THEN \ end of test for missing num-value; 24jun2011
pos @ 8 = IF putnum @ num ! THEN \ test; 24jun2011
0 act ! \ 0 activation for ReEntry concepts; 26apr2011
THEN \ End of test for #internal POV; 7may2011
prevtag @ pre !
t @ vault @ < IF 0 pre ! THEN \ for safety; 22sep2011
( concept fiber psi ) psi @ t @ 0 psi{ !
moot @ 0 = IF \ deprive queries of tags; 20aug2011
( Set "act" activation level. ) act @ t @ 1 psi{ +!
pos @ 8 = IF \ Re-using code; test for a verb; 28jun2012
16 t @ 1 psi{ +! \ Accentuate verbs; 28jun2012
THEN \ End of test for verbs; 28jun2012
THEN \ end of test for a moot query input; 20aug2011
( Set "num" number flag ) num @ t @ 2 psi{ !
( Store JUXtaposition tags. ) jux @ t @ 3 psi{ !
moot @ 0 = IF \ deprive queries of tags; 19aug2011
( Store PREvious associand. ) pre @ t @ 4 psi{ !
THEN \ end of test for a moot query input; 19aug2011
( Store functional pos code. ) pos @ t @ 5 psi{ !
seq @ 0 > IF \ avoid spurious carry-over tqv; 1aug2012
( Store the "tqv" time-point. ) tqv @ t @ 6 psi{ !
THEN \ only store "tqv" if there is a "seq"; 1aug2012
moot @ 0 = IF \ deprive queries of tags; 19aug2011
( Store the subSEQuent tag. ) seq @ t @ 7 psi{ !
THEN \ end of test for a moot query input; 19aug2011
( Store the EN-transfer tag. ) enx @ t @ 8 psi{ !
t @ vault @ < IF \ store only during EnBoot; 29sep2011
\ ( Store the "tqv" time-point. ) tqv @ t @ 8 psi{ !
THEN \ otherwise store "tqv" retroactively; 29sep2011
num @ instnum !
pos @ 5 = IF num @ putnum ! THEN \ noun to verb; 24jun2011
0 num !
jux @ 250 = IF 0 jux ! THEN \ reset after use; 10nov2012
prejux @ 250 = IF \ 250=NOT from OldConcept; 10nov2012
250 jux ! \ set jux for next instantiand; 10nov2012
0 prejux ! \ reset for safety; 21jul2011
THEN \ end of post-instantiation test; 21jul2011
mfn @ 1 = mfn @ 2 = OR IF \ masc or fem; 17aug2010
mfn @ mfnflag ! \ 17aug2010
THEN \ 17aug2010
mfn @ 0 = IF 0 mfnflag ! THEN \ test; 25aug2010
0 mfn ! \ Test code applies only to En array.
0 preset !
pos @ 5 = pos @ 7 = OR IF
psi @ prevtag !
THEN
psi @ 830 = NOT IF \ DO? DOES? 10nov2012
psi @ 830 = NOT IF \ 830=DO/DOES; 10nov2012
seqneed @ 8 = IF \ if looking for a verb; 2oct2011
pos @ 8 = IF \ if part-of-speech is verb; 2oct2011
psi @ seq ! \ verb has arrived; 2oct2011
0 seqneed ! \ zero out after use; 2oct2011
1 transcon ! \ until noun fails to come in; 24jan2013
pos @ seqpos ! \ possibly for tqv; 2oct2011
THEN \ end of test for 8=pos verb; 2oct2011
tsn @ t @ 2 - DO \ look for noun needing seq; 1jul2012
I 5 psi{ @ 5 = I 5 psi{ @ 7 = OR IF \ (pro)noun 2oct2011
moot @ 0 = IF \ deprive queries of tags; 5oct2011
seq @ I 7 psi{ ! \ insert the seq; 12oct2011
seqpos @ 8 = IF \ a verb? 2oct2011
t @ I 6 psi{ ! \ insert "tqv" value; 12oct2011
t @ tqv ! \ assign "tqv" value; 2oct2011
THEN \ end of seqpos=verb test; 2oct2011
THEN \ end of test for a moot query input; 5oct2011
LEAVE \ insert only one seq; 2oct2011
THEN \ end of test for subject noun or pronoun 2oct2011
-1 +LOOP \ end of backwards loop; 2oct2011
THEN \ end of test for needing a verb; 2oct2011
THEN \ end of skipping auxiliary DOES; 6oct2011
THEN \ end of skipping auxiliary verb DO; 6oct2011
seqneed @ 5 = IF \ if looking for a noun; 5oct2011
pos @ 5 = pos @ 7 = OR IF \ if noun or pronoun; 5oct2011
4 dba ! \ from DeKi: assuming acc. dir. obj.; 27dec2012
psi @ seq ! \ because a (pro)noun has arrived; 5oct2011
0 seqneed ! \ zero out after use; 5oct2011
pos @ seqpos ! \ possibly for tqv; 5oct2011
ELSE \ if no direct object is found; 24jan2012
0 transcon ! \ declare intransitive verb; 24jan2013
THEN \ end of test for 5=pos noun or 7=pos pronoun; 5oct2011
tsn @ t @ 2 - DO \ look for verb needing "seq"; 1jul2012
I 5 psi{ @ 8 = IF \ verb? 5oct2011
moot @ 0 = IF \ deprive queries of tags; 5oct2011
transcon @ 1 = IF \ verb transitive? 24jan2012
seq @ I 7 psi{ ! \ insert the seq; 12oct2011
seqpos @ 5 = seqpos @ 7 = OR IF \ (pro)noun? 5oct2011
t @ I 6 psi{ ! \ insert "tqv" value; 12oct2011
t @ tqv ! \ assign "tqv" value; 5oct2011
THEN \ end of seqpos=(pro)noun test; 5oct2011
THEN \ end of test for positive "transcon"; 24jan2013
THEN \ end of test for a moot query input; 5oct2011
LEAVE \ insert only one seq; 5oct2011
THEN \ end of test for a verb; 5oct2011
-1 +LOOP \ end of backwards loop; 5oct2011
THEN \ end of test for needing a noun; 5oct2011
ordo @ 2 = IF \ 7sep2011
psi @ prox2 ! \ 7sep2011
THEN \ 7sep2011
ordo @ 3 = IF \ 7sep2011
psi @ prox3 ! \ 7sep2011
THEN \ 7sep2011
pos @ 5 = pos @ 7 = OR IF \ (pro)noun? 2oct2011
8 seqneed ! \ need "8=verb" seq; 2oct2011
THEN \ end of test for a noun or a pronoun; 2oct2011
pos @ 6 = IF \ if preposition; 2oct2011
5 seqneed ! \ need noun or pronoun; 2oct2011
THEN ( http://home.hccnet.nl/a.w.m.van.der.horst/ciforth.html )
psi @ 830 = NOT IF \ skip auxiliary verb "830=DO"; 10nov2012
psi @ 830 = NOT IF \ skip auxiliary "830=DOES"; 10nov2012
pos @ 8 = IF \ if verb then need noun as "seq"; 5oct2011
5 seqneed ! \ seek noun or pronoun as "seq"; 5oct2011
THEN \ end of test for 8=verb; 5oct2011
THEN \ end of test to skip auxiliary DOES; 6oct2011
THEN \ end of test to skip auxiliary DO; 6oct2011
lastword @ 1 = IF 0 lastword ! THEN \ for seqneed; 30jun2012
0 dba ! \ from DeKi: reset for safety; 27dec2012
0 recnum ! \ lest carry-over to other words; 19jul2011
0 seq !
; ( http://code.google.com/p/mindforth/wiki/InStantiate )
: EnVocab ( English Vocabulary node creation; 8jul2012 )
( Number "nen" of English ) nen @ t @ 0 en{ !
( Do not store the activation level; it is a transient.)
( Store "num" number tag. ) num @ t @ 2 en{ !
( Store "mfn" gender tag. ) mfn @ t @ 3 en{ !
( Store case or person tag. ) dba @ t @ 4 en{ !
( Store mindcore EXit tag. ) fex @ t @ 5 en{ !
( Store part of speech "pos".) pos @ t @ 6 en{ !
( Store mindcore IN tag. ) fin @ t @ 7 en{ !
( Store the auditory "aud" tag. ) aud @ t @ 8 en{ !
0 dba ! \ reset for safety; 27dec2012
; ( http://code.google.com/p/mindforth/wiki/EnVocab )
: EnParser ( determine the part of speech )
5 bias !
35 act ! \ Activate lower than ReActivate; 29may2011
pov @ 42 = IF \ only during external input; 9oct2010
act @ ordo @ - act ! \ reduce S-V-O act's; 9oct2010
THEN \ end of test for external POV; 9oct2010
InStantiate \ create a Psi concept node; 6nov2010
pos @ 5 = IF 8 bias ! THEN
pos @ 7 = IF 8 bias ! THEN
pos @ 8 = IF 5 bias ! 0 singflag ! THEN \ 4nov2011
; ( http://code.google.com/p/mindforth/wiki/EnParser )
: EnReify ( express abstract concepts as real words )
0 act !
midway @ t @ DO
I 1 psi{ @ 0 > IF
I 1 psi{ @ lexact !
I 2 psi{ @ num !
lexact @ I 1 en{ !
num @ I 2 en{ !
0 lexact !
THEN ( http://home.vrweb.de/~stephan.becher/forth )
0 enx !
0 act !
0 lexact !
-1 +LOOP
0 act !
; ( http://code.google.com/p/mindforth/wiki/EnReify )
: KbSearch ( knowledge base search )
ordo @ 2 = IF
NounAct ( may need a "nacpsi" value )
EnReify
THEN ( http://www.ccreweb.org/software/kforth )
ordo @ 3 = IF
0 act !
midway @ t @ DO
I 5 en{ @ 8 = IF \ Test part-of-speech.
I 1 en{ @ act @ > IF ( if en1 is higher )
I 0 en{ @ memoire ! ( store psi-tag of word )
I 1 en{ @ act ! ( to test for a higher en1 )
THEN
THEN
-1 +LOOP
yesorno @ 0 > IF
memoire @ psi @ = IF
1 yesorno +!
ELSE
0 yesorno !
THEN
THEN
psi @ vacpsi ! \ deglobalizing; 27sep2010
VerbAct
0 vacpsi ! \ reset for safety; 27sep2010
EnReify
THEN
ordo @ 4 = IF
0 act !
0 memoire !
midway @ t @ DO
I 5 en{ @ 5 = I 5 en{ @ 7 = OR IF
I 1 en{ @ act @ > IF ( if en1 is higher )
I 0 en{ @ memoire ! ( store psi-tag of word )
I 1 en{ @ act ! ( to test for a higher en1 )
THEN
THEN
-1 +LOOP
yesorno @ 0 > IF
memoire @ psi @ = IF
1 yesorno +!
ELSE
0 yesorno !
THEN
THEN ( http://www.lifeai.com )
THEN
0 kbquiz !
ordo @ 4 = IF 0 ordo ! THEN
; ( http://code.google.com/p/mindforth/wiki/KbSearch )
: KbRetro ( retroactive adjustment of knowledge base )
oldpsi @ 432 = oldpsi @ 404 = OR IF \ yes or no 10nov2012
oldpsi @ 404 = IF \ 404=NO; 10nov2012
64 tkbn @ 1 psi{ ! \ high noun activation 21jul2011
64 tkbv @ 1 psi{ ! \ set high activation? 2jul2011
250 tkbv @ 3 psi{ ! \ set 250=NOT jux flag 27dec2012
\ CR ." KbRetro: answer is No " \ 29dec2012
THEN \ End of test for "No" answer; 2jul2011
oldpsi @ 432 = IF \ 432=YES; 10nov2012
64 tkbv @ 1 psi{ ! \ set high activation? 2jul2011
\ CR ." KbRetro: answer is Yes " \ 29dec2012
THEN \ End of test for "Yes" answer; 2jul2011
ELSE \ if neither; 2jul2011
0 tkbn @ 4 psi{ ! \ delete pre-tag for noun; 2jul2011
0 tkbn @ 7 psi{ ! \ delete seq-tag for noun; 12oct2011
0 tkbv @ 4 psi{ ! \ delete pre-tag for verb; 2jul2011
0 tkbv @ 7 psi{ ! \ delete seq-tag for verb; 12oct2011
\ CR ." KbRetro: answer is neither Yes nor No " \ 29dec2012
THEN ( http://retroforth.org )
0 kbcon ! \ temporarily here turn off kbcon; 2jul2011
0 tkbn ! \ reset for safety; 2jul2011
0 tkbv ! \ reset for safety; 2jul2011
; ( http://code.google.com/p/mindforth/wiki/KbRetro )
: OldConcept ( recognize a known word )
28 act ! \ A value subject to optimization; 28sep2010
midway @ t @ DO
\ I 0 en{ @ oldpsi @ = IF
I 0 en{ @ oldpsi @ = I 8 en{ @ 0 > AND IF \ 29dec2012
I 2 en{ @ 0 > IF
I 2 en{ @ ocn ! THEN \ "unk" is too global; 14jul2012
I 3 en{ @ 0 > IF
I 3 en{ @ mfn ! THEN
( I 4 en{ @ dba ! is not trustworthy for verbs 28dec2012 )
I 5 en{ @ 0 > IF \ adding dba; 10nov2012
I 5 en{ @ fex ! THEN \ adding dba; 10nov2012
I 6 en{ @ 0 > IF \ adding dba; 10nov2012
I 6 en{ @ pos ! THEN \ adding dba; 10nov2012
I 7 en{ @ 0 > IF \ adding dba; 10nov2012
I 7 en{ @ fin ! THEN \ adding dba; 10nov2012
LEAVE
THEN ( http://home.iae.nl/users/mhx/eforth.html )
-1 +LOOP
pos @ 8 = IF \ verb? for WhatAuxSVerb 13jun2011
numsubj @ unk ! \ assume agreement; 19jun2011
3 dba ! \ 3rd person default before changes; 27dec2012
putdbav @ 0 > IF \ positive putdbav? 27dec2012
putdbav @ dba ! \ transfer; 27dec2012
0 putdbav ! \ reset after use; 27dec2012
THEN \ end of test for putative dba; 27dec2012
THEN \ end of test for verb \ 13jun2011
oldpsi @ 800 = IF t @ tbev ! THEN \ 800=BE; 10nov2012
pos @ 5 = pos @ 7 = OR IF \ noun or pron.? 27dec2012
1 dba ! \ default before changes; 27dec2012
audverb @ 0 > IF \ preceded by a verb? 27dec2012
audverb @ 800 = NOT IF \ except be-verbs; 27dec2012
4 dba ! \ accusative direct object; 27dec2012
THEN \ code snippet taken from Wotan DeKi; 27dec2012
0 audverb ! \ reset after use; 27dec2012
THEN \ end of test for positive audverb; 27dec2012
THEN \ end of test for noun or pronoun; 27dec2012
oldpsi @ 701 = oldpsi @ 731 = OR IF 1 putdbav ! THEN
oldpsi @ 707 = oldpsi @ 737 = OR IF 2 putdbav ! THEN
subjectflag @ 1 = IF 1 dba ! THEN \ nom. subj. 27dec2012
dirobj @ 1 = IF 4 dba ! THEN \ acc. dir. obj. 27dec20122012
pov @ 42 = IF \ external POV during input; 18dec2012
oldpsi @ 800 = IF 1 becon ! THEN \ InFerence; 18dec2012
THEN \ only set becon during external input; 18dec2012
( oldpsi found by AudRecog ) oldpsi @ t @ 0 en{ !
( Add zero activation 28jul2011 ) 0 t @ 1 en{ +!
ocn @ 0 > IF \ from AudInput for old nouns; 14oct2011
( Store old-concept-number tag ) ocn @ t @ 2 en{ !
0 ocn ! \ reset to zero after use; 14oct2011
THEN \ leaving only one space in "2 en{" etc 8jul2012
pcn @ 0 > IF \ from NounPhrase predicate selection; 17jul2012
( Store pred-concept-number tag ) pcn @ t @ 2 en{ !
\ 0 pcn ! \ reset to zero after use; 17jul2012
THEN \ leaving one search-space in "2 en{" etc 17jul2012
( Store "mfn" gender tag. ) mfn @ t @ 3 en{ !
( Store "dba" tag; 10nov2012 ) dba @ t @ 4 en{ !
( Store mindcore EXit tag. ) fex @ t @ 5 en{ !
( Store part of speech "pos".) pos @ t @ 6 en{ !
( Store mindcore IN tag. ) fin @ t @ 7 en{ !
( Store the auditory "aud" tag. ) aud @ t @ 8 en{ !
pov @ 35 = IF fex @ oldpsi ! THEN ( internal pov )
pov @ 42 = IF fin @ oldpsi ! THEN ( external pov )
oldpsi @ enx !
oldpsi @ 250 = IF \ 250=NOT; 10nov2012
tbev @ 0 > IF \ if positive be-verb time; 27jul2011
250 tbev @ 3 psi{ ! \ set verb "jux" to NOT 10nov2012
0 tbev ! \ reset for safety; 27jul2011
THEN \ end of test for a positive tbev; 27jul2011
THEN \ end of test for input of 250=NOT; 10nov2012
oldpsi @ 781 = IF 8 act ! THEN ( 781=WHAT; 10nov2012 )
oldpsi @ 791 = IF 8 act ! THEN ( 791=WHO; 10nov2012 )
ordo @ 1 = IF
oldpsi @ 830 = IF ( 830=DO; 10nov2012 )
1 kbquiz !
THEN
THEN
oldpsi @ 830 = IF 0 act ! THEN ( 830=DO; 10nov2012 )
oldpsi @ 117 = IF 1 act ! THEN ( 117=THE; 10nov2012 )
kbcon @ 0 > IF \ if awaiting answer; 2jul2011
KbRetro \ retroactively adjust knowledge base; 2jul2011
THEN \ 2jul2011
oldpsi @ 250 = IF \ 250=NOT; 10nov2012
250 prejux ! \ set flag for verb; 10nov2012
250 aftjux ! \ set flag for a be-verb; 10nov2012
THEN \ end of test for 250=NOT negation; 10nov2012
oldpsi @ psi !
EnParser
fyi @ 2 > IF CR
." from OldConcept "
THEN
pov @ 42 = IF \ external POV during input; 18dec2012
pos @ 5 = IF \ nouns only, not pronouns; 27dec2012
subjnom @ 0 > IF \ already subjnom? 27dec2012
oldpsi @ prednom ! \ 27dec2012
THEN \ end of test for pre-existing subjnom; 27dec2012
prednom @ 0 = IF \ 27dec2012
oldpsi @ subjnom ! \ grab for InFerence; 27dec2012
THEN \ alternate between subjnon and prednom; 27dec2012
THEN \ end of test for a noun; 27dec2012
pos @ 8 = IF \ verb part-of-speech? 27dec2012
oldpsi @ 800 = NOT IF \ other than be-verb? 27dec2012
0 subjnom ! \ cancel out any subjnom; 27dec2012
THEN \ end of test for a be-verb; 27dec2012
THEN \ end of test for a verb; 27dec2012
\ subjnom @ 0 = IF \ not yet declared? 18dec2012
\ pos @ 5 = IF \ nouns only, not pronouns; 18dec2012
\ oldpsi @ subjnom ! \ grab for InFerence; 18dec2012
\ THEN \ end of test for a noun; 18dec2012
\ THEN \ end of test for no subjnom yet; 18dec2012
\ subjnom @ 0 > IF \ already declared? 18dec2012
\ becon @ 1 = IF \ be-verb in use? 18dec2012
\ pos @ 5 = IF \ nouns only, not pronouns; 18dec2012
\ oldpsi @ prednom ! \ grab for InFerence; 18dec2012
\ THEN \ end of test for a noun; 18dec2012
\ THEN \ end of test for be-verb input; 18dec2012
\ THEN \ end of test for positive subjnom; 18dec2012
THEN \ end of test for external-input POV; 18dec2012
pov @ 42 = IF ( external pov )
ReActivate
THEN
0 act !
pov @ 35 = IF ( internal pov )
1 match !
THEN
\ pos @ 8 = IF psi @ quverb ! THEN \ for yes-or-no; 24jun2011
\ pos @ 8 = IF psi @ quverb ! THEN \ Commenting out 29dec2012
pos @ 8 = IF oldpsi @ audverb ! THEN \ for "dba"; 27dec2012
kbquiz @ 0 > IF
1 yesorno !
KbSearch
THEN
yesorno @ 0 > IF
KbSearch
THEN
0 pos ! \ Reset no longer above but down here.
; ( http://code.google.com/p/mindforth/wiki/OldConcept )
: NewConcept ( machine learning of new concepts )
0 newpsi !
1 nen +!
1 nwc +!
nen @ newpsi !
nen @ stempsi !
nen @ psi !
nen @ fex !
nen @ fin !
bias @ pos !
bias @ 8 = IF \ 4nov2011
putnum @ num ! \ 4nov2011
0 putnum ! \ 4nov2011
0 singflag ! \ prevent carry-over; 4nov2011
3 dba ! \ default dba=3 third person; 26dec2012
putdbav @ 0 > IF \ positive putdbav? 27dec20122012
putdbav @ dba ! \ transfer; 27dec20122012
0 putdbav ! \ reset after use; 27dec2012
THEN \ 27dec2012
THEN \ 4nov2011
bias @ 5 = IF \ expecting a noun? 27dec2012
1 dba ! \ default before changes; 27dec2012
audverb @ 0 > IF \ preceded by a verb? 27dec2012
audverb @ 800 = NOT IF \ except be-verbs; 27dec2012
4 dba ! \ accusative direct object; 27dec2012
THEN \ part of code snippet from Wotan DeKi 27dec2012
0 audverb ! \ reset after use; 27dec2012
THEN \ end of test for positive audverb; 27dec2012
THEN \ end of test for expecting a noun; 27dec2012
EnVocab ( to create an English vocabulary node )
0 fex !
0 fin !
nen @ enx !
EnParser
pos @ 8 = IF nen @ quverb ! THEN \ for yes-or-no; 24jun2011
pos @ 5 = IF \ if a new noun is encountered; 22oct2011
nen @ cogpsi ! \ hold onto new noun for WhatBe; 22oct2011
instnum @ cognum ! \ keep track of the num(ber); 22oct2011
THEN \ end of test of "pos" part-of-speech; 22oct2011
pov @ 42 = IF \ external POV during input? 18dec2012
pos @ 5 = IF \ nouns only, not pronouns; 27dec2012
subjnom @ 0 > IF \ already subjnom? 27dec2012
newpsi @ prednom ! \ 27dec2012
THEN \ end of test for pre-existing subjnom; 27dec2012
prednom @ 0 = IF \ 27dec2012
newpsi @ subjnom ! \ grab for InFerence; 27dec2012
THEN \ alternate between subjnon and prednom; 27dec2012
THEN \ end of test for a noun; 27dec2012
\ pos @ 8 = IF \ verb part-of-speech? 27dec2012
\ newpsi @ 800 = NOT IF \ other than be-verb? 27dec2012
\ 0 subjnom ! \ cancel out any subjnom; 27dec2012
\ THEN \ end of test for a be-verb; 27dec2012
\ THEN \ end of test for a verb; 27dec2012
\ subjnom @ 0 = IF \ not yet declared? 18dec2012
\ pos @ 5 = IF \ nouns only, not pronouns; 18dec2012
\ newpsi @ subjnom ! \ grab for InFerence; 18dec2012
\ THEN \ end of test for a noun; 18dec2012
\ THEN \ end of test for no subjnom yet; 18dec2012
\ subjnom @ 0 > IF \ already declared? 18dec2012
\ becon @ 1 = IF \ be-verb in use? 18dec2012
\ pos @ 5 = IF \ nouns only, not pronouns; 18dec2012
\ newpsi @ prednom ! \ grab for InFerence; 18dec2012
\ THEN \ end of test for a noun; 18dec2012
\ THEN \ end of test for be-verb input; 18dec2012
\ THEN \ end of test for positive subjnom; 18dec2012
THEN \ end of test for external-input POV; 18dec2012
kbcon @ 0 > IF \ if awaiting answer; 2jul2011
KbRetro \ retroactively adjust knowledge base; 2jul2011
THEN ( http://www.gnu.org/software/gforth )
0 pos !
0 act !
; ( http://code.google.com/p/mindforth/wiki/NewConcept )
\ 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 ( identification of objects seen by a robot )
svo3 @ 0 = IF \ if no direct object is available;
midway @ t @ DO \ search for an automatic default
I 0 en{ @ 760 = IF \ 760=NOTHING; 10nov2012
I 8 en{ @ aud ! \ hold address for SpeechAct
LEAVE ( http://aimind-i.com )
THEN ( http://www.vicariousinc.com )
-1 +LOOP \ end of looping through English lexical array
THEN ( http://opencv.willowgarage.com )
; ( http://code.google.com/p/mindforth/wiki/VisRecog )
: AudRecog ( auditory recognition )
0 audrec !
0 psi !
8 act !
0 actbase !
midway @ spt @ DO
I 0 aud{ @ pho @ = IF \ If incoming pho matches stored aud0;
I 1 aud{ @ 0 = IF \ if matching engram has no activation;
I 3 aud{ @ 1 = IF \ if beg=1 on matching no-act aud engram;
\ audrun @ 1 = IF \ if comparing start of a word; 8may2010
audrun @ 2 < IF \ if comparing start of a word; 8may2010
I 4 aud{ @ 1 = IF \ If beg-aud has ctu=1 continuing,
8 I 1+ 1 aud{ ! \ activate the N-I-L character,
0 audrec !
I 5 aud{ @ 0 > IF \ audpsi available? 27dec2012
I 5 aud{ @ prc ! \ provisional recognition 27dec2012
THEN \ end of test for an early audpsi; 27dec2012
ELSE
len @ 1 = IF
I 5 aud{ @ monopsi !
THEN \ End of test for one char length.
THEN \ end of test for continuation of beg-aud
THEN \ end of test for audrun=1 start of word.
THEN \ end of test for a beg(inning) non-active aud0
THEN \ end of test for matching aud0 with no activation
I 1 aud{ @ 0 > IF \ If matching aud0 has activation,
0 audrec ! \ Zero out any previous audrec.
I 4 aud{ @ 1 = IF \ If act-match aud0 has ctu=1 continuing,
2 act +! \ Increment act for discrimination.
0 audrec ! \ because match-up is not complete.
act @ I 1+ 1 aud{ ! \ Increment for discrimination.
THEN \ end of test for active-match aud0 continuation
I 4 aud{ @ 0 = IF \ If ctu=0 indicates end of word
len @ 2 = IF \ If len(gth) is only two characters.
I 1 aud{ @ 7 > IF \ testing for eight (8).
I 5 aud{ @ psibase ! \ Assume a match.
THEN \ End of test for act=8 or positive.
THEN \ End of test for two-letter words.
THEN \ End of test in AudRecog for end of word.
I 1 aud{ @ 8 > IF \ If activation higher than initial
8 actbase ! \ Since act is > 8 anyway; 8may2010
I 4 aud{ @ 0 = IF \ If matching word-engram now ends,
I 1 aud{ @ actbase @ > IF \ Testing for high act.
I 5 aud{ @ audrec ! \ Fetch the potential tag
I 5 aud{ @ subpsi ! \ Seize a potential stem.
len @ sublen ! \ Hold length of word-stem.
I 5 aud{ @ psibase ! \ Hold onto winner.
I 2 psi{ @ recnum ! \ recognized number 19jul2011
I 4 en{ @ 0 > IF \ from German AI; 27dec2012
I 4 en{ @ dba ! \ verb-recognition; 27dec2012
THEN \ end of test for dba; 27nov20122012
I 1 aud{ @ actbase ! \ Winner is new actbase.
THEN \ End of test for act higher than actbase.
ELSE \ part of AudRecog code; 14jul2012
0 audrec !
monopsi @ 0 > IF
monopsi @ audrec !
0 monopsi !
THEN ( http://code.google.com/p/reda4 )
THEN \ End of test for final char that has a psi-tag.
THEN \ End of test for engram-activation above eight.
THEN \ End of test for matching aud0 with activation.
THEN \ End of test for a character matching "pho".
I midway @ = IF \ If a loop reaches midway; 8may2010
1 audrun +! \ Increment audrun beyond unity; 8may2010
THEN \ End of test for loop reaching midway; 8may2010
-1 +LOOP
0 act !
0 actbase !
psibase @ 0 > IF
psibase @ audrec !
THEN
audrec @ 0 = IF
monopsi @ 0 > IF
len @ 2 < IF
monopsi @ audrec !
THEN
0 monopsi !
audrec @ 0 = IF
psibase @ 0 > IF
psibase @ audrec !
THEN
THEN
THEN
THEN
audrec @ 0 = IF
morphpsi @ audrec !
sublen @ 0 > IF
len @ sublen @ - stemgap !
THEN
stemgap @ 0 < IF 0 stemgap ! THEN
stemgap @ 1 > IF 0 subpsi ! THEN
stemgap @ 1 > IF 0 morphpsi ! THEN
stemgap @ 1 > IF 0 audrec ! THEN
THEN
subpsi @ morphpsi !
0 psibase !
0 subpsi !
audrec @ 0 > IF
stemgap @ 2 > IF
0 audrec !
THEN
THEN
audrec @ audpsi !
0 stemgap ! \ safety measure; 22sep2011
; ( http://code.google.com/p/mindforth/wiki/AudRecog )
: AudMem ( auditory memory channel )
t @ vault @ > IF
pho @ 32 > IF
AudRecog
THEN ( ASCII 32 = SPACE-bar )
THEN ( http://pygmy.utoh.org/pygmyforth.html )
t @ 1- 0 aud{ @ 0 = IF 1 beg ! THEN
t @ 1- 0 aud{ @ 32 = IF 1 beg ! THEN
pho @ t @ 0 aud{ !
pov @ t @ 2 aud{ !
beg @ t @ 3 aud{ !
ctu @ t @ 4 aud{ !
ctu @ 0 = IF
audpsi @ 0 > IF
audpsi @ t @ 5 aud{ !
THEN
0 audpsi !
THEN ( http://home.earthlink.net/~gmayhak/M5_htm.htm )
pov @ 42 = IF
pho @ 83 = IF
0 stempsi !
wordend @ 1 = IF
0 t @ 1- 4 aud{ !
THEN
0 newpsi !
THEN
THEN
pho @ 32 = IF t @ spt ! THEN
; ( http://code.google.com/p/mindforth/wiki/AudMem )
: AudListen ( preparation for AudInput )
t @ 2 + tsn ! \ time when awaiting input; test; 1jul2012
rsvp @ 1 DO
KEY? IF
KEY pho !
0 inert ! \ User input cancels "inert" status; 16oct2011
0 quiet !
pho @ 8 = IF 7 EMIT THEN
pho @ 9 = IF
400 rsvp ! ( 23dec2009 From Supercomputer mind.frt )
pho @ 13 = IF 1 lastword ! THEN
fyi @ 0 = IF CR CR
TIME&DATE tsyear ! tsmonth ! tsday !
tshour ! tsminute ! tssecond !
." Transcript of Forthmind "
vrsn @ . ." interview at " \ declare version; 3aug2012
tshour @ . tsminute @ . tssecond @ .
." o'clock on " tsday @ .
tsmonth @ 1 = IF ." January " THEN
tsmonth @ 2 = IF ." February " THEN
tsmonth @ 3 = IF ." March " THEN
tsmonth @ 4 = IF ." April " THEN
tsmonth @ 5 = IF ." May " THEN
tsmonth @ 6 = IF ." June " THEN
tsmonth @ 7 = IF ." July " THEN
tsmonth @ 8 = IF ." August " THEN
tsmonth @ 9 = IF ." September " THEN
tsmonth @ 10 = IF ." October " THEN
tsmonth @ 11 = IF ." November " THEN
tsmonth @ 12 = IF ." December " THEN
tsyear @ . 8 EMIT 46 EMIT CR
THEN
1 fyi +!
fyi @ 3 > IF 0 fyi ! THEN
fyi @ 0 = IF CR ." Normal display mode. Tab 1 = "
." Transcript; 2 = Tutorial; 3 = Diagnostic." CR
THEN
fyi @ 2 = IF CR
." Tutorial mode reveals the internal "
." thinking of the AI Mind." CR CR
THEN
fyi @ 3 = IF CR
." Diagnostic messages - ignore during input "
." until you press ENTER." CR
THEN
0 pho !
THEN
pho @ 27 = IF
0 nounval !
0 lopsi ! 0 hipsi !
CR
CR ." User Command: halt" 0 pho ! 0 rjc ! 0 fyi !
CR ." You may enter .psi or .en or .aud to view "
." memory engrams, or " CR ." MainLoop [ENTER] "
." to erase memories and restart the Mind."
CR ." Type 'bye' to quit Forth, EXIT to quit DOS."
CR
0 audpsi ! 0 newpsi ! 0 oldpsi ! 0 stempsi !
1 audrun ! \ 26jul2010 In case AI is run again.
0 defartcon ! \ 16apr2011 In case AI is run again.
0 indefartcon ! \ 16apr2011 In case AI is run again.
0 kbtv ! \ 28sep2010 In case AI is run again.
0 mfn ! \ 25aug2010 In case AI is run again.
0 mfnflag ! \ 23aug2010 In case AI is run again.
0 motjuste ! \ 29aug2010 In case AI is run again.
0 objold ! \ 12oct2010 In case AI is run again.
0 ordo ! \ 21dec2009 In case AI is run again.
0 prsn ! \ 29aug2010 In case AI is run again.
0 psi1 ! \ 25aug2010 In case AI is run again.
0 quo ! \ 27dec2009 In case AI is run again.
0 qup ! \ 28dec2009 In case AI is run again.
0 subjold ! \ 9oct2010 In case AI is run again.
0 subjpsi ! \ 1jan2010 In case AI is run again.
0 vphract ! \ 21jun2011 In case AI is run again.
0 whoflag ! \ 23jul2010 In case AI is run again.
QUIT
THEN
pho @ 0 > IF
pho @ EMIT
THEN
pho @ DUP 96 > IF \ convert input to UPPERCASE
DUP 123 < IF
32 -
THEN
THEN pho ! \ save UPPERCASE as pho(neme) again.
pho @ abc ! \ for transfer to AudBuffer; 12nov2012
LEAVE
ELSE
." "
THEN
8 EMIT
LOOP
pho @ 0 > IF \ if user enters data; 19sep2010
0 lurk ! \ reset; 19sep2010
THEN \ end of test for user entry; 19sep2010
1 lurk +! \ test; remove; 19sep2010
; ( http://code.google.com/p/mindforth/wiki/AudListen )
: AudInput ( accept auditory input )
0 match !
0 upnext !
0 urpsi !
t @ nlt !
pov @ 42 = IF
fyi @ 2 = IF
." AudInput calls AudListen "
." (Tab key will slow the AI down)." CR
THEN
t @ spt !
t @ 8 > IF .echo THEN ( show output of AI )
CR ." Human: "
THEN
140 0 DO ( Accept a tweet of 140 characters from Twitter)
pov @ 35 = IF ( during internal re-entry )
pho @ 13 = IF \ if a CR is declared; 8may2010
1 audrun ! \ Reset to one at CR end of input.
THEN \ end of test for a declared CR; 8may2010
1 upnext +!
upnext @ 1 = IF
obstat @ 0 = IF
kbpsi @ lopsi !
0 kbpsi !
lopsi @ urpsi !
3535 caller !
pho @ 64 > IF
urpsi @ qup @ = IF
urpsi @ vacpsi ! \ prep to deglobalize; 27sep2010
urpsi @ psi ! VerbAct
0 vacpsi ! \ reset for safety; 27sep2010
THEN
THEN
hipsi @ lopsi !
0 caller !
0 urpsi !
1 obstat !
THEN
THEN \ AudInput; 14jul2012
bias @ 5 = IF \ If EnParser expects a noun; 6aug2011
pho @ 83 = IF \ If "83=S"; 6aug2011
2 num ! \ Assign plural number; 6aug2011
2 ocn ! \ Dislodgeable old-concept number; 14oct2011
THEN \ Only terminating "S" governs "num" 6aug2011
pho @ 0 > IF \ Disregard empty pho; 6aug2011
pho @ 32 = NOT IF \ Disregard SPACE; 6aug2011
pho @ 13 = NOT IF \ Disregard CR; 6aug2011
pho @ 83 = NOT IF \ If other than "S"; 6aug2011
recnum @ 0 > IF \ if recognized; 4nov2011
recnum @ num ! \ transfer value; 14jul2012
recnum @ ocn ! \ transfer value; 14jul2012
ELSE \ for non-S words w. no recnum; 16jul2012
0 num ! \ default non-plural; 14jul2011
0 ocn ! \ default non-plural; 14jul2012
THEN \ end of recognition-test; 4nov2011
ELSE \ if there is a recnum; 16jul2012
recnum @ num ! \ transfer value; 16jul2012
recnum @ ocn ! \ transfer value; 16jul2012
THEN \ If last letter is not "S"; 6aug2011
THEN \ End of test for carriage-return 6aug2011
THEN \ End of test for SPACE; 6aug2011
THEN \ End of test for empty pho; 6aug2011
THEN \ End of test for noun-expected; 6aug2011
THEN \ end of test for pov "35=#" internal reentry
pov @ 42 = IF ( during external input )
AudListen
pho @ 0 > IF \ If a character comes in; 14nov2012
AudBuffer \ For external input; 14nov2012
THEN \ end of test for a positive "pho"; 14mov2012
pho @ 0 > IF
0 kbtv !
1 upnext +!
upnext @ 1 = IF
hipsi @ urpsi ! \ What-do queries require
hipsi @ lopsi ! \ Preventing a residuum lets
0 caller ! \ SelfRef answer I DO NOT KNOW
0 urpsi ! \ if no direct object is active.
THEN
400 rsvp ! ( give more time )
THEN
I 138 = IF
rsvp @ 250 > IF 100 rsvp ! THEN
THEN
I 139 = IF
pho @ 0 = IF
rsvp @ 1 - rsvp !
rsvp @ 2 < IF 400 rsvp ! THEN
THEN
THEN
pho @ 32 = pho @ 13 = OR IF
0 phodex ! \ Reset for AudBuffer; 14nov2012
pho @ 13 = IF 10 EMIT THEN
prepho @ 83 = IF
0 t @ 1 - 4 aud{ !
0 prepho !
THEN
THEN
bias @ 5 = IF \ If EnParser expects a noun 26may2011
pho @ 83 = IF \ If "S"
2 num ! \ Assign plural number; 26may2011
THEN \ Only terminating "S" governs "num" 26may2011
pho @ 0 > IF \ Disregard empty pho; 26may2011
pho @ 32 = NOT IF \ Disregard SPACE; 26may2011
pho @ 13 = NOT IF \ Disregard CR; 26may2011
pho @ 83 = NOT IF \ If other than "S" 26may2011
0 num ! \ Let "0" be default singular; 4nov2011
singflag @ 1 = IF \ article "a"? 4nov2011
1 num ! \ Assume singular number; 26may2011
THEN \ end of test to override default; 4nov2011
THEN \ If last letter is not "S"; 26may2011
THEN \ End of test for carriage-return 26may2011
THEN \ End of test for SPACE; 26may2011
THEN \ End of test for empty pho; 26may2011
THEN \ End of test for noun-expected; 26may2011
THEN \ End of test for external input
pho @ 0 > IF
1 t +!
THEN
I 139 = IF \ near end of input loop? 16oct2011
1 inert +! \ increment inert-flag by one; 16oct2011
THEN \ end of test for near-end of wait; 16oct2011
pho @ 13 = IF ( carriage-return; 24jan2013 )
1 audrun ! \ Reset to one at CR end of input.
1 beg !
13 eot !
1 lastword !
32 pho ! 10 EMIT CR \ 7sep2011
0 proxcon ! \ reset at end of input; 7sep2011
1 quiet !
\ 0 seqneed ! \ test; 30jun2012
\ 0 seqneed ! \ C-ing out for object-less verbs 24jan2013
THEN ( http://www.inventio.co.uk )
pho @ 27 = IF
CR ." AudInput: halt" 0 pho ! 0 fyi ! 0 nounval !
CR ." You may enter .psi .en .aud to view memory "
." engrams, or " CR ." MainLoop [ENTER] to erase "
." memories and run the AI again."
0 lopsi ! 0 hipsi !
0 audpsi ! 0 newpsi ! 0 oldpsi ! 0 stempsi !
QUIT
THEN
pho @ 32 = IF ( space-bar; 24jan2013 )
prepho @ penultpho !
1 audrun ! \ Reset to unity at end of a word.
1 ordo +!
audpsi @ urpsi !
ordo @ 1 = IF audpsi @ firstword ! THEN \ 19aug2011
0 upnext !
t @ spt !
t @ 1 - tult !
0 tult @ 4 aud{ !
audpsi @ 0 > IF
0 sublen !
onset @ aud !
0 onset !
audpsi @ tult @ 5 aud{ !
pov @ 42 = IF
tult @ 0 aud{ @ 83 = IF
tult @ 1- 5 aud{ @ audpsi @ = NOT IF
0 tult @ 1- 4 aud{ !
THEN
audpsi @ tult @ 1- 5 aud{ !
THEN
THEN
audpsi @ hipsi !
audpsi @ oldpsi !
OldConcept
eot @ 13 = IF
35 pov !
THEN
0 psi !
0 audpsi !
0 aud !
ELSE
len @ 0 > IF
onset @ aud !
hipsi @ lopsi !
1 wordend !
NewConcept
psi @ hipsi !
nen @ tult @ 5 aud{ !
nen @ tult @ 1- 5 aud{ !
nen @ retropsi !
THEN
THEN
AudDamp
0 len !
0 aud !
eot @ 13 = IF
5 bias !
THEN
0 psi !
THEN \ end of test for 13=SPACE; 24jan2013
1 beg !
1 ctu !
spt @ 1 + onset !
t @ onset @ = IF 1 beg ! ELSE 0 beg ! THEN
pho @ 32 > IF
1 len +!
AudMem
THEN
eot @ 13 = IF
5 bias !
1 quiet !
THEN
eot @ 0 > IF
eot @ 14 = IF
1 quiet !
0 eot !
0 pho !
LEAVE
THEN
14 eot !
THEN
pho @ 0 > IF
pho @ prepho !
THEN
0 pho !
LOOP
hipsi @ kbpsi !
0 newpsi !
0 wordend !
; ( http://code.google.com/p/mindforth/wiki/AudInput )
: SensoryInput ( sensory input channels )
( SMELL -- normal sensory stub for later implementation )
( VISION -- normal sensory stub for seed AI expansion )
( TOUCH -- normal haptics stub for cybernetic organisms )
( TASTE -- normal sensory stub for cyborg alife )
( SYNAESTHESIA -- an option in a multisensory AI )
fyi @ 2 = IF
." SensoryInput calls AudInput." CR
THEN
AudInput ( for entry or reentry of phonemic ASCII )
( COMPASS -- exotic sensory stub for use in robots )
( GEIGER -- exotic: Geiger counter )
( GPS -- exotic: Global Positioning System )
( INFRARED -- exotic )
( RADAR -- exotic: RAdio Detection And Ranging )
( SONAR -- exotic: SOund Navigation And Ranging )
( VSA -- exotic: Voice Stress Analyzer lie detector )
( Wi-Fi -- exotic: 802.11 wireless fidelity )
; ( http://code.google.com/p/mindforth/wiki/SensoryInput )
: EnBoot ( English bootstrap of initial concepts )
0 act ! 0 jux ! 35 pov ! 0 t ! t @ spt !
." clearing memory"
CR ." There is no warranty for what this software does."
( ERROR -- first word so any bug will announce itself )
1 t ! 69 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
2 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
3 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
4 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
5 t ! 82 pho ! 0 beg ! 0 ctu ! 586 audpsi ! AudMem \ R
586 nen ! 3 mfn ! 0 dba ! 586 fex ! 5 pos ! 586 fin ! 1 aud !
586 psi ! 1 num ! 0 pre ! 0 seq ! 586 enx ! EnVocab InNativate
( A -- English article for EnArticle module; 8 nov2012 )
7 t ! 65 pho ! 1 beg ! 0 ctu ! 101 audpsi ! AudMem \ A
101 nen ! 0 mfn ! 0 dba ! 101 fex ! 1 pos ! 101 fin ! 7 aud !
101 psi ! 1 num ! 0 pre ! 0 seq ! 101 enx ! EnVocab InNativate
( ALL -- for machine reasoning logic; 8nov2012 )
9 t ! 65 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
10 t ! 76 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ L
11 t ! 76 pho ! 0 beg ! 0 ctu ! 123 audpsi ! AudMem \ L
123 nen ! 0 mfn ! 0 dba ! 123 fex ! 1 pos ! 123 fin ! 9 aud !
123 psi ! 0 num ! 0 pre ! 0 seq ! 123 enx ! EnVocab InNativate
( AN -- to be selected instead of "A" before a vowel )
13 t ! 65 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
14 t ! 78 pho ! 0 beg ! 0 ctu ! 102 audpsi ! AudMem \ N
102 nen ! 0 mfn ! 0 dba ! 102 fex ! 1 pos ! 102 fin ! 13 aud !
102 psi ! 0 num ! 0 pre ! 0 seq ! 102 enx ! EnVocab InNativate
( AND -- for machine reasoning logic; 8nov2012 )
16 t ! 65 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
17 t ! 78 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ N
18 t ! 68 pho ! 0 beg ! 0 ctu ! 302 audpsi ! AudMem \ D
302 nen ! 0 mfn ! 0 dba ! 302 fex ! 3 pos ! 302 fin ! 16 aud !
302 psi ! 0 num ! 0 pre ! 0 seq ! 302 enx ! EnVocab InNativate
( ANY -- for machine reasoning logic; 8nov2012 )
20 t ! 65 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
21 t ! 78 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ N
22 t ! 89 pho ! 0 beg ! 0 ctu ! 111 audpsi ! AudMem \ Y
111 nen ! 0 mfn ! 0 dba ! 111 fex ! 1 pos ! 111 fin ! 20 aud !
111 psi ! 0 num ! 0 pre ! 0 seq ! 111 enx ! EnVocab InNativate
( ANYTHING -- a default direct object for AskUser; 8nov2012 )
24 t ! 65 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
25 t ! 78 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ N
26 t ! 89 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ Y
27 t ! 84 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ T
28 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
29 t ! 73 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
30 t ! 78 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ N
31 t ! 71 pho ! 0 beg ! 0 ctu ! 711 audpsi ! AudMem \ G
711 nen ! 0 mfn ! 4 dba ! 711 fex ! 7 pos ! 711 fin ! 24 aud !
711 psi ! 0 num ! 0 pre ! 0 seq ! 711 enx ! EnVocab InNativate
( BAD -- adjective for EnAdjective module; 8nov2012 )
33 t ! 66 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ B
34 t ! 65 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
35 t ! 68 pho ! 0 beg ! 0 ctu ! 186 audpsi ! AudMem \ D
186 nen ! 0 mfn ! 0 dba ! 186 fex ! 1 pos ! 186 fin ! 33 aud !
186 psi ! 0 num ! 0 pre ! 0 seq ! 186 enx ! EnVocab InNativate
( BE -- infinitive impersonal form of 800=BE; 8nov2012 )
37 t ! 66 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ B
38 t ! 69 pho ! 0 beg ! 0 ctu ! 800 audpsi ! AudMem \ E
800 nen ! 0 mfn ! 0 dba ! 800 fex ! 8 pos ! 800 fin ! 37 aud !
800 psi ! 0 num ! 0 pre ! 0 seq ! 800 enx ! EnVocab InNativate
( AM -- 1st person singular I-form of 800=BE; 8nov2012 )
40 t ! 65 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
41 t ! 77 pho ! 0 beg ! 0 ctu ! 800 audpsi ! AudMem \ M
800 nen ! 0 mfn ! 1 dba ! 800 fex ! 8 pos ! 800 fin ! 40 aud !
800 psi ! 1 num ! 0 pre ! 0 seq ! 800 enx ! EnVocab InNativate
( ARE -- 2nd person singular YOU-form of 800=BE; 8nov2012 )
43 t ! 65 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
44 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
45 t ! 69 pho ! 0 beg ! 0 ctu ! 800 audpsi ! AudMem \ E
800 nen ! 0 mfn ! 2 dba ! 800 fex ! 8 pos ! 800 fin ! 43 aud !
800 psi ! 1 num ! 0 pre ! 0 seq ! 800 enx ! EnVocab InNativate
( IS -- 3rd person singular HE-SHE-IT-form of 800=BE; 8nov2102 )
47 t ! 73 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
48 t ! 83 pho ! 0 beg ! 0 ctu ! 800 audpsi ! AudMem \ S
800 nen ! 0 mfn ! 3 dba ! 800 fex ! 8 pos ! 800 fin ! 47 aud !
800 psi ! 1 num ! 0 pre ! 0 seq ! 800 enx ! EnVocab InNativate
( ARE -- 1st person plural WE-form of 800=BE; 8nov2012 )
50 t ! 65 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
51 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
52 t ! 69 pho ! 0 beg ! 0 ctu ! 800 audpsi ! AudMem \ E
800 nen ! 0 mfn ! 1 dba ! 800 fex ! 8 pos ! 800 fin ! 50 aud !
800 psi ! 2 num ! 0 pre ! 0 seq ! 800 enx ! EnVocab InNativate
( ARE -- 2nd person plural YOU-form of 800=BE; 4nov2012 )
54 t ! 65 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
55 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
56 t ! 69 pho ! 0 beg ! 0 ctu ! 800 audpsi ! AudMem \ E
800 nen ! 0 mfn ! 2 dba ! 800 fex ! 8 pos ! 800 fin ! 54 aud !
800 psi ! 2 num ! 0 pre ! 0 seq ! 800 enx ! EnVocab InNativate
( ARE -- 3rd person plural THEY-form of 800=BE; 8nov2012 )
58 t ! 65 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
59 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
60 t ! 69 pho ! 0 beg ! 0 ctu ! 800 audpsi ! AudMem \ E
800 nen ! 0 mfn ! 3 dba ! 800 fex ! 8 pos ! 800 fin ! 58 aud !
800 psi ! 2 num ! 0 pre ! 0 seq ! 800 enx ! EnVocab InNativate
( BECAUSE -- for machine reasoning logic; 9nov2012 )
62 t ! 66 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ B
63 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
64 t ! 67 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ C
65 t ! 65 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
66 t ! 85 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ U
67 t ! 83 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ S
68 t ! 69 pho ! 0 beg ! 0 ctu ! 344 audpsi ! AudMem \ E
344 nen ! 0 mfn ! 0 dba ! 344 fex ! 3 pos ! 344 fin ! 62 aud !
344 psi ! 0 num ! 0 pre ! 0 seq ! 344 enx ! EnVocab InNativate
( BECOME -- essential intransitive verb; 9nov2012 )
70 t ! 66 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ B
71 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
72 t ! 67 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ C
73 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
74 t ! 77 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ M
75 t ! 69 pho ! 0 beg ! 0 ctu ! 808 audpsi ! AudMem \ E
808 nen ! 0 mfn ! 0 dba ! 808 fex ! 8 pos ! 808 fin ! 70 aud !
808 psi ! 0 num ! 0 pre ! 0 seq ! 808 enx ! EnVocab InNativate
( BOY -- always masculine noun for use with gender flags )
77 t ! 66 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ B
78 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
79 t ! 89 pho ! 0 beg ! 0 ctu ! 589 audpsi ! AudMem \ Y
589 nen ! 1 mfn ! 0 dba ! 589 fex ! 5 pos ! 589 fin ! 77 aud !
589 psi ! 1 num ! 0 pre ! 0 seq ! 589 enx ! EnVocab InNativate
( BUT -- conjunction for ConJoin module; 9nov2012 )
81 t ! 66 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ B
82 t ! 85 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ U
83 t ! 84 pho ! 0 beg ! 0 ctu ! 305 audpsi ! AudMem \ T
305 nen ! 0 mfn ! 0 dba ! 305 fex ! 3 pos ! 305 fin ! 81 aud !
305 psi ! 0 num ! 0 pre ! 0 seq ! 305 enx ! EnVocab InNativate
( CHESS -- important singular AI noun ending in "S"; 9nov2012 )
85 t ! 67 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ C
86 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
87 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
88 t ! 83 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ S
89 t ! 83 pho ! 0 beg ! 0 ctu ! 564 audpsi ! AudMem \ S
564 nen ! 0 mfn ! 0 dba ! 564 fex ! 5 pos ! 564 fin ! 85 aud !
564 psi ! 1 num ! 0 pre ! 0 seq ! 564 enx ! EnVocab InNativate
( CHILD -- example of irregular noun for a polyglot AI Mind )
91 t ! 67 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ C
92 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
93 t ! 73 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
94 t ! 76 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ L
95 t ! 68 pho ! 0 beg ! 0 ctu ! 525 audpsi ! AudMem \ D
525 nen ! 0 mfn ! 0 dba ! 525 fex ! 5 pos ! 525 fin ! 91 aud !
525 psi ! 1 num ! 0 pre ! 0 seq ! 525 enx ! EnVocab InNativate
( CHILDREN -- irregular plural for retrieval by parameters )
97 t ! 67 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ C
98 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
99 t ! 73 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
100 t ! 76 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ L
101 t ! 68 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ D
102 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
103 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
104 t ! 78 pho ! 0 beg ! 0 ctu ! 526 audpsi ! AudMem \ N
526 nen ! 0 mfn ! 0 dba ! 526 fex ! 5 pos ! 526 fin ! 97 aud !
526 psi ! 2 num ! 0 pre ! 0 seq ! 526 enx ! EnVocab InNativate
( DATA -- always plural noun in correction of modern usage )
106 t ! 68 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ D
107 t ! 65 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
108 t ! 84 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ T
109 t ! 65 pho ! 0 beg ! 0 ctu ! 599 audpsi ! AudMem \ A
599 nen ! 0 mfn ! 0 dba ! 599 fex ! 5 pos ! 599 fin ! 106 aud !
599 psi ! 2 num ! 0 pre ! 0 seq ! 599 enx ! EnVocab InNativate
( DO -- infinitive form of verb essential for AuxVerb module )
111 t ! 68 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ D
112 t ! 79 pho ! 0 beg ! 0 ctu ! 830 audpsi ! AudMem \ O
830 nen ! 0 mfn ! 0 dba ! 830 fex ! 8 pos ! 830 fin ! 111 aud !
830 psi ! 0 num ! 0 pre ! 0 seq ! 830 enx ! EnVocab InNativate
( DO -- 1st person singular I-form of auxiliary verb; 9nov2012 )
114 t ! 68 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ D
115 t ! 79 pho ! 0 beg ! 0 ctu ! 830 audpsi ! AudMem \ O
830 nen ! 0 mfn ! 1 dba ! 830 fex ! 8 pos ! 830 fin ! 114 aud !
830 psi ! 1 num ! 0 pre ! 0 seq ! 830 enx ! EnVocab InNativate
( DO -- 2nd person sing. YOU-form of auxiliary verb; 9nov2012 )
117 t ! 68 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ D
118 t ! 79 pho ! 0 beg ! 0 ctu ! 830 audpsi ! AudMem \ O
830 nen ! 0 mfn ! 2 dba ! 830 fex ! 8 pos ! 830 fin ! 117 aud !
830 psi ! 1 num ! 0 pre ! 0 seq ! 830 enx ! EnVocab InNativate
( DOES -- 3rd person sing. HE-SHE-IT-form of auxiliary verb )
120 t ! 68 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ D
121 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
122 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
123 t ! 83 pho ! 0 beg ! 0 ctu ! 830 audpsi ! AudMem \ S
830 nen ! 0 mfn ! 3 dba ! 830 fex ! 8 pos ! 830 fin ! 120 aud !
830 psi ! 1 num ! 0 pre ! 0 seq ! 830 enx ! EnVocab InNativate
( DO -- 1st person plural WE-form of auxiliary verb; 9nov2012 )
125 t ! 68 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ D
126 t ! 79 pho ! 0 beg ! 0 ctu ! 830 audpsi ! AudMem \ O
830 nen ! 0 mfn ! 1 dba ! 830 fex ! 8 pos ! 830 fin ! 125 aud !
830 psi ! 2 num ! 0 pre ! 0 seq ! 830 enx ! EnVocab InNativate
( DO -- 2nd person plural YOU-form of auxiliary verb; 9nov2012 )
128 t ! 68 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ D
129 t ! 79 pho ! 0 beg ! 0 ctu ! 830 audpsi ! AudMem \ O
830 nen ! 0 mfn ! 2 dba ! 830 fex ! 8 pos ! 830 fin ! 128 aud !
830 psi ! 2 num ! 0 pre ! 0 seq ! 830 enx ! EnVocab InNativate
( DO -- 3rd person plural THEY-form of auxiliary verb; 9nov2012 )
131 t ! 68 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ D
132 t ! 79 pho ! 0 beg ! 0 ctu ! 830 audpsi ! AudMem \ O
830 nen ! 0 mfn ! 3 dba ! 830 fex ! 8 pos ! 830 fin ! 131 aud !
830 psi ! 2 num ! 0 pre ! 0 seq ! 830 enx ! EnVocab InNativate
( DOING -- high word-frequency verb participle; 9nov2102 )
134 t ! 68 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ D
135 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
136 t ! 73 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
137 t ! 78 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ N
138 t ! 71 pho ! 0 beg ! 0 ctu ! 183 audpsi ! AudMem \ G
183 nen ! 0 mfn ! 0 dba ! 183 fex ! 1 pos ! 183 fin ! 134 aud !
183 psi ! 0 num ! 0 pre ! 0 seq ! 183 enx ! EnVocab InNativate
( ELSE -- adverb for machine reasoning logic; 9nov2012 )
140 t ! 69 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
141 t ! 76 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ L
142 t ! 83 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ S
143 t ! 69 pho ! 0 beg ! 0 ctu ! 266 audpsi ! AudMem \ E
266 nen ! 0 mfn ! 0 dba ! 266 fex ! 2 pos ! 266 fin ! 140 aud !
266 psi ! 0 num ! 0 pre ! 0 seq ! 266 enx ! EnVocab InNativate
( FOR -- preposition for EnPrep module; 9nov2012 )
145 t ! 70 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ F
146 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
147 t ! 82 pho ! 0 beg ! 0 ctu ! 640 audpsi ! AudMem \ R
640 nen ! 0 mfn ! 0 dba ! 640 fex ! 6 pos ! 640 fin ! 145 aud !
640 psi ! 0 num ! 0 pre ! 0 seq ! 640 enx ! EnVocab InNativate
( FRIEND -- for coding assignment of ad-hoc gender tags )
149 t ! 70 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ F
150 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
151 t ! 73 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
152 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
153 t ! 78 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ N
154 t ! 68 pho ! 0 beg ! 0 ctu ! 517 audpsi ! AudMem \ D
517 nen ! 0 mfn ! 0 dba ! 517 fex ! 5 pos ! 517 fin ! 149 aud !
517 psi ! 1 num ! 0 pre ! 0 seq ! 517 enx ! EnVocab InNativate
( GIRL -- always feminine noun for use with gender flags )
156 t ! 71 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ G
157 t ! 73 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
158 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
159 t ! 76 pho ! 0 beg ! 0 ctu ! 510 audpsi ! AudMem \ L
510 nen ! 2 mfn ! 0 dba ! 510 fex ! 5 pos ! 510 fin ! 156 aud !
510 psi ! 1 num ! 0 pre ! 0 seq ! 510 enx ! EnVocab InNativate
( GOD -- masculine noun important for philosophy of AI )
161 t ! 71 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ G
162 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
163 t ! 68 pho ! 0 beg ! 0 ctu ! 533 audpsi ! AudMem \ D
533 nen ! 1 mfn ! 0 dba ! 533 fex ! 5 pos ! 533 fin ! 161 aud !
533 psi ! 1 num ! 0 pre ! 0 seq ! 533 enx ! EnVocab InNativate
( GOOD -- adjective for EnAdjective module; 9nov2012 )
165 t ! 71 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ G
166 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
167 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
168 t ! 68 pho ! 0 beg ! 0 ctu ! 140 audpsi ! AudMem \ D
140 nen ! 0 mfn ! 0 dba ! 140 fex ! 1 pos ! 140 fin ! 165 aud !
140 psi ! 0 num ! 0 pre ! 0 seq ! 140 enx ! EnVocab InNativate
( HAVE -- irregular high-word-frequency verb; 9nov2012 )
170 t ! 72 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
171 t ! 65 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
172 t ! 86 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ V
173 t ! 69 pho ! 0 beg ! 0 ctu ! 810 audpsi ! AudMem \ E
810 nen ! 0 mfn ! 0 dba ! 810 fex ! 8 pos ! 810 fin ! 170 aud !
810 psi ! 0 num ! 0 pre ! 0 seq ! 810 enx ! EnVocab InNativate
( HAS -- high-word-frequency irregular verb form; 9nov2012 )
175 t ! 72 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
176 t ! 65 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
177 t ! 83 pho ! 0 beg ! 0 ctu ! 810 audpsi ! AudMem \ S
810 nen ! 0 mfn ! 3 dba ! 810 fex ! 8 pos ! 810 fin ! 175 aud !
810 psi ! 1 num ! 0 pre ! 0 seq ! 810 enx ! EnVocab InNativate
( HE -- nominative form of high-word-frequency pronoun; 9nov2012 )
179 t ! 72 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
180 t ! 69 pho ! 0 beg ! 0 ctu ! 713 audpsi ! AudMem \ E
713 nen ! 1 mfn ! 1 dba ! 713 fex ! 7 pos ! 713 fin ! 179 aud !
713 psi ! 1 num ! 0 pre ! 0 seq ! 713 enx ! EnVocab InNativate
( HIS -- genitive form of personal pronoun; 9nov2012 )
182 t ! 72 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
183 t ! 73 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
184 t ! 83 pho ! 0 beg ! 0 ctu ! 113 audpsi ! AudMem \ S
113 nen ! 1 mfn ! 2 dba ! 113 fex ! 1 pos ! 113 fin ! 182 aud !
113 psi ! 1 num ! 0 pre ! 0 seq ! 113 enx ! EnVocab InNativate
( HIM -- dative indirect-object form of personal pronoun )
186 t ! 72 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
187 t ! 73 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
188 t ! 77 pho ! 0 beg ! 0 ctu ! 713 audpsi ! AudMem \ M
713 nen ! 1 mfn ! 3 dba ! 713 fex ! 7 pos ! 713 fin ! 186 aud !
713 psi ! 1 num ! 0 pre ! 0 seq ! 713 enx ! EnVocab InNativate
( HIM -- accusative direct-object form of personal pronoun )
190 t ! 72 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
191 t ! 73 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
192 t ! 77 pho ! 0 beg ! 0 ctu ! 713 audpsi ! AudMem \ M
713 nen ! 1 mfn ! 4 dba ! 713 fex ! 7 pos ! 713 fin ! 190 aud !
713 psi ! 1 num ! 0 pre ! 0 seq ! 713 enx ! EnVocab InNativate
( HELLO -- interjection for human-computer interaction; 9nov2012 )
194 t ! 72 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
195 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
196 t ! 76 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ L
197 t ! 76 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ L
198 t ! 79 pho ! 0 beg ! 0 ctu ! 450 audpsi ! AudMem \ O
450 nen ! 0 mfn ! 0 dba ! 450 fex ! 4 pos ! 450 fin ! 194 aud !
450 psi ! 0 num ! 0 pre ! 0 seq ! 450 enx ! EnVocab InNativate
( HERE -- adverb for discussion of physical location; 9nov2012 )
200 t ! 72 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
201 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
202 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
203 t ! 69 pho ! 0 beg ! 0 ctu ! 201 audpsi ! AudMem \ E
201 nen ! 0 mfn ! 0 dba ! 201 fex ! 2 pos ! 201 fin ! 200 aud !
201 psi ! 0 num ! 0 pre ! 0 seq ! 201 enx ! EnVocab InNativate
( HOW -- adverb for EnAdverb module; 10nov2012 )
205 t ! 72 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
206 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
207 t ! 87 pho ! 0 beg ! 0 ctu ! 209 audpsi ! AudMem \ W
209 nen ! 0 mfn ! 0 dba ! 209 fex ! 2 pos ! 209 fin ! 205 aud !
209 psi ! 0 num ! 0 pre ! 0 seq ! 209 enx ! EnVocab InNativate
( I -- nominative subject-form of personal pronoun; 10nov2012 )
209 t ! 73 pho ! 1 beg ! 0 ctu ! 701 audpsi ! AudMem \ I
701 nen ! 0 mfn ! 1 dba ! 701 fex ! 7 pos ! 707 fin ! 209 aud !
701 psi ! 1 num ! 0 pre ! 0 seq ! 701 enx ! EnVocab InNativate
( MINE -- genitive form of personal pronoun; 10nov2012 )
211 t ! 77 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ M
212 t ! 73 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
213 t ! 78 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ N
214 t ! 69 pho ! 0 beg ! 0 ctu ! 701 audpsi ! AudMem \ E
701 nen ! 0 mfn ! 2 dba ! 701 fex ! 7 pos ! 707 fin ! 211 aud !
701 psi ! 1 num ! 0 pre ! 0 seq ! 701 enx ! EnVocab InNativate
( ME -- dative indirect-object form of pers. pronoun; 10nov2012 )
216 t ! 77 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ M
217 t ! 69 pho ! 0 beg ! 0 ctu ! 701 audpsi ! AudMem \ E
701 nen ! 0 mfn ! 3 dba ! 701 fex ! 7 pos ! 707 fin ! 216 aud !
701 psi ! 1 num ! 0 pre ! 0 seq ! 701 enx ! EnVocab InNativate
( ME -- accusative direct-obj. form of pers. pronoun; 10nov2012 )
219 t ! 77 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ M
220 t ! 69 pho ! 0 beg ! 0 ctu ! 701 audpsi ! AudMem \ E
701 nen ! 0 mfn ! 4 dba ! 701 fex ! 7 pos ! 707 fin ! 219 aud !
701 psi ! 1 num ! 0 pre ! 0 seq ! 701 enx ! EnVocab InNativate
( IF -- for machine reasoning logic; 10nov2012 )
222 t ! 73 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
223 t ! 70 pho ! 0 beg ! 0 ctu ! 390 audpsi ! AudMem \ F
390 nen ! 0 mfn ! 0 dba ! 390 fex ! 3 pos ! 390 fin ! 222 aud !
390 psi ! 0 num ! 0 pre ! 0 seq ! 390 enx ! EnVocab InNativate
( IN -- preposition for EnPrep module; 10nov2012 )
225 t ! 73 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
226 t ! 78 pho ! 0 beg ! 0 ctu ! 639 audpsi ! AudMem \ N
639 nen ! 0 mfn ! 0 dba ! 639 fex ! 6 pos ! 639 fin ! 225 aud !
639 psi ! 0 num ! 0 pre ! 0 seq ! 639 enx ! EnVocab InNativate
( IT -- nominative subject-form of personal pronoun; 10nov2012 )
228 t ! 73 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
229 t ! 84 pho ! 0 beg ! 0 ctu ! 725 audpsi ! AudMem \ T
725 nen ! 3 mfn ! 1 dba ! 725 fex ! 7 pos ! 725 fin ! 228 aud !
725 psi ! 1 num ! 0 pre ! 0 seq ! 725 enx ! EnVocab InNativate
( ITS -- genitive form of personal pronoun; 10nov2012
231 t ! 73 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
232 t ! 84 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ T
233 t ! 83 pho ! 0 beg ! 0 ctu ! 725 audpsi ! AudMem \ S
725 nen ! 3 mfn ! 2 dba ! 725 fex ! 7 pos ! 725 fin ! 231 aud !
725 psi ! 1 num ! 0 pre ! 0 seq ! 725 enx ! EnVocab InNativate
( IT -- dative indirect-object form of pers. pronoun; 10nov2012 )
235 t ! 73 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
236 t ! 84 pho ! 0 beg ! 0 ctu ! 725 audpsi ! AudMem \ T
725 nen ! 3 mfn ! 3 dba ! 725 fex ! 7 pos ! 725 fin ! 235 aud !
725 psi ! 1 num ! 0 pre ! 0 seq ! 725 enx ! EnVocab InNativate
( IT -- accusative direct-obj. form of pers. pronoun; 10nov2012 )
238 t ! 73 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
239 t ! 84 pho ! 0 beg ! 0 ctu ! 725 audpsi ! AudMem \ T
725 nen ! 3 mfn ! 4 dba ! 725 fex ! 7 pos ! 725 fin ! 238 aud !
725 psi ! 1 num ! 0 pre ! 0 seq ! 725 enx ! EnVocab InNativate
( KNOW -- germane to artificial intelligence; 10nov2012 )
241 t ! 75 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ K
242 t ! 78 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ N
243 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
244 t ! 87 pho ! 0 beg ! 0 ctu ! 850 audpsi ! AudMem \ W
850 nen ! 0 mfn ! 0 dba ! 850 fex ! 8 pos ! 850 fin ! 241 aud !
850 psi ! 0 num ! 0 pre ! 0 seq ! 850 enx ! EnVocab InNativate
( MAN -- always masculine noun for use with gender flags )
246 t ! 77 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ M
247 t ! 65 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
248 t ! 78 pho ! 0 beg ! 0 ctu ! 543 audpsi ! AudMem \ N
543 nen ! 1 mfn ! 1 dba ! 543 fex ! 5 pos ! 543 fin ! 246 aud !
543 psi ! 1 num ! 0 pre ! 0 seq ! 543 enx ! EnVocab InNativate
( MEN -- irregular plural for retrieval by parameters 10nov2012 )
250 t ! 77 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ M
251 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
252 t ! 78 pho ! 0 beg ! 0 ctu ! 543 audpsi ! AudMem \ N
543 nen ! 1 mfn ! 1 dba ! 543 fex ! 5 pos ! 543 fin ! 250 aud !
543 psi ! 2 num ! 0 pre ! 0 seq ! 543 enx ! EnVocab InNativate
( MAYBE -- adverb response alternative to YES or NO; 10nov2012 )
254 t ! 77 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ M
255 t ! 65 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
256 t ! 89 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ Y
257 t ! 66 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ B
258 t ! 69 pho ! 0 beg ! 0 ctu ! 270 audpsi ! AudMem \ E
270 nen ! 0 mfn ! 0 dba ! 270 fex ! 2 pos ! 270 fin ! 254 aud !
270 psi ! 0 num ! 0 pre ! 0 seq ! 270 enx ! EnVocab InNativate
( MEDIA -- always plural noun in correction of modern usage )
260 t ! 77 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ M
261 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
262 t ! 68 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ D
263 t ! 73 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
264 t ! 65 pho ! 0 beg ! 0 ctu ! 584 audpsi ! AudMem \ A
584 nen ! 0 mfn ! 0 dba ! 584 fex ! 5 pos ! 584 fin ! 260 aud !
584 psi ! 2 num ! 0 pre ! 0 seq ! 584 enx ! EnVocab InNativate
( MY -- adjective for personal pronoun "I"; 10nov2012 )
266 t ! 77 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ M
267 t ! 89 pho ! 0 beg ! 0 ctu ! 181 audpsi ! AudMem \ Y
181 nen ! 0 mfn ! 0 dba ! 181 fex ! 1 pos ! 182 fin ! 266 aud !
181 psi ! 0 num ! 0 pre ! 0 seq ! 181 enx ! EnVocab InNativate
( NO -- interjection for human-computer interaction; 10nov2012 )
269 t ! 78 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ N
270 t ! 79 pho ! 0 beg ! 0 ctu ! 404 audpsi ! AudMem \ O
404 nen ! 0 mfn ! 0 dba ! 404 fex ! 4 pos ! 404 fin ! 269 aud !
404 psi ! 0 num ! 0 pre ! 0 seq ! 404 enx ! EnVocab InNativate
( NOT -- adverb for machine reasoning logic; 10nov2012 )
272 t ! 78 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ N
273 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
274 t ! 84 pho ! 0 beg ! 0 ctu ! 250 audpsi ! AudMem \ T
250 nen ! 0 mfn ! 0 dba ! 250 fex ! 2 pos ! 250 fin ! 272 aud !
250 psi ! 0 num ! 0 pre ! 0 seq ! 250 enx ! EnVocab InNativate
( NOTHING -- VisRecog default for what the AI Mind sees )
276 t ! 78 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ N
277 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
278 t ! 84 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ T
279 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
280 t ! 73 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
281 t ! 78 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ N
282 t ! 71 pho ! 0 beg ! 0 ctu ! 760 audpsi ! AudMem \ G
760 nen ! 0 mfn ! 0 dba ! 760 fex ! 7 pos ! 760 fin ! 276 aud !
760 psi ! 1 num ! 0 pre ! 0 seq ! 760 enx ! EnVocab InNativate
( OF -- preposition for EnPrep module )
284 t ! 79 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
285 t ! 70 pho ! 0 beg ! 0 ctu ! 604 audpsi ! AudMem \ F
604 nen ! 0 mfn ! 0 dba ! 604 fex ! 6 pos ! 604 fin ! 284 aud !
604 psi ! 0 num ! 0 pre ! 0 seq ! 604 enx ! EnVocab InNativate
( OR -- conjunction for machine reasoning logic; 10nov2012 )
287 t ! 79 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
288 t ! 82 pho ! 0 beg ! 0 ctu ! 324 audpsi ! AudMem \ R
324 nen ! 0 mfn ! 0 dba ! 324 fex ! 3 pos ! 324 fin ! 287 aud !
324 psi ! 0 num ! 0 pre ! 0 seq ! 324 enx ! EnVocab InNativate
( OUR -- adjective for personal pronoun "WE"; 10nov2012 )
290 t ! 79 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
291 t ! 85 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ U
292 t ! 82 pho ! 0 beg ! 0 ctu ! 186 audpsi ! AudMem \ R
186 nen ! 0 mfn ! 0 dba ! 186 fex ! 1 pos ! 182 fin ! 290 aud !
186 psi ! 0 num ! 0 pre ! 0 seq ! 186 enx ! EnVocab InNativate
( PEOPLE -- establish as plural for EnParser )
294 t ! 80 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ P
295 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
296 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
297 t ! 80 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ P
298 t ! 76 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ L
299 t ! 69 pho ! 0 beg ! 0 ctu ! 587 audpsi ! AudMem \ E
587 nen ! 0 mfn ! 0 dba ! 587 fex ! 5 pos ! 587 fin ! 294 aud !
587 psi ! 2 num ! 0 pre ! 0 seq ! 587 enx ! EnVocab InNativate
( PERSON -- for ad-hoc gender tags and robot philosophy )
301 t ! 80 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ P
302 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
303 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
304 t ! 83 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ S
305 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
306 t ! 78 pho ! 0 beg ! 0 ctu ! 537 audpsi ! AudMem \ N
537 nen ! 0 mfn ! 0 dba ! 537 fex ! 5 pos ! 537 fin ! 301 aud !
537 psi ! 1 num ! 0 pre ! 0 seq ! 537 enx ! EnVocab InNativate
( PLEASE -- interjection for human-computer interaction )
308 t ! 80 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ P
309 t ! 76 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ L
310 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
311 t ! 65 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
312 t ! 83 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ S
313 t ! 69 pho ! 0 beg ! 0 ctu ! 410 audpsi ! AudMem \ E
410 nen ! 0 mfn ! 0 dba ! 410 fex ! 4 pos ! 410 fin ! 308 aud !
410 psi ! 0 num ! 0 pre ! 0 seq ! 410 enx ! EnVocab InNativate
( SEE -- lets VisRecog dynamically report non-KB direct objects )
315 t ! 83 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ S
316 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
317 t ! 69 pho ! 0 beg ! 0 ctu ! 820 audpsi ! AudMem \ E
820 nen ! 0 mfn ! 0 dba ! 820 fex ! 8 pos ! 820 fin ! 315 aud !
820 psi ! 0 num ! 0 pre ! 0 seq ! 820 enx ! EnVocab InNativate
( SHE -- nominative subject-form of personal pronoun; 10nov2012 )
319 t ! 83 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ S
320 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
321 t ! 69 pho ! 0 beg ! 0 ctu ! 719 audpsi ! AudMem \ E
719 nen ! 2 mfn ! 1 dba ! 719 fex ! 7 pos ! 719 fin ! 319 aud !
719 psi ! 1 num ! 0 pre ! 0 seq ! 719 enx ! EnVocab InNativate
( HERS -- genitive form of personal pronoun; 10nov2012 )
323 t ! 72 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
324 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
325 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
326 t ! 83 pho ! 0 beg ! 0 ctu ! 719 audpsi ! AudMem \ S
719 nen ! 2 mfn ! 2 dba ! 719 fex ! 7 pos ! 719 fin ! 323 aud !
719 psi ! 1 num ! 0 pre ! 0 seq ! 719 enx ! EnVocab InNativate
( HER -- dative indirect-object form of pers. pron. 9nov2012 )
328 t ! 72 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
329 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
330 t ! 82 pho ! 0 beg ! 0 ctu ! 719 audpsi ! AudMem \ R
719 nen ! 2 mfn ! 3 dba ! 719 fex ! 7 pos ! 719 fin ! 328 aud !
719 psi ! 1 num ! 0 pre ! 0 seq ! 719 enx ! EnVocab InNativate
( HER -- accusative direct-object form of pers. pron. 9nov2012 )
332 t ! 72 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
333 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
334 t ! 82 pho ! 0 beg ! 0 ctu ! 719 audpsi ! AudMem \ R
719 nen ! 2 mfn ! 4 dba ! 719 fex ! 7 pos ! 719 fin ! 332 aud !
719 psi ! 1 num ! 0 pre ! 0 seq ! 719 enx ! EnVocab InNativate
( SOME -- adjective for machine reasoning logic; 10nov2012 )
336 t ! 83 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ S
337 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
338 t ! 77 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ M
339 t ! 69 pho ! 0 beg ! 0 ctu ! 123 audpsi ! AudMem \ E
123 nen ! 0 mfn ! 0 dba ! 123 fex ! 1 pos ! 123 fin ! 336 aud !
123 psi ! 0 num ! 0 pre ! 0 seq ! 123 enx ! EnVocab InNativate
( THAT -- high word-frequency pronoun; 10nov2012 )
341 t ! 84 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ T
342 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
343 t ! 65 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
344 t ! 84 pho ! 0 beg ! 0 ctu ! 745 audpsi ! AudMem \ T
745 nen ! 0 mfn ! 0 dba ! 745 fex ! 7 pos ! 745 fin ! 341 aud !
745 psi ! 1 num ! 0 pre ! 0 seq ! 745 enx ! EnVocab InNativate
( THE -- EnArticle highest-frequency English word; 10nov2012 )
346 t ! 84 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ T
347 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
348 t ! 69 pho ! 0 beg ! 0 ctu ! 117 audpsi ! AudMem \ E
117 nen ! 0 mfn ! 0 dba ! 117 fex ! 1 pos ! 117 fin ! 346 aud !
117 psi ! 0 num ! 0 pre ! 0 seq ! 117 enx ! EnVocab InNativate
( THEIR -- adjective for personal pronoun "THEY"; 10nov2012 )
350 t ! 84 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ T
351 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
352 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
353 t ! 73 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
354 t ! 82 pho ! 0 beg ! 0 ctu ! 188 audpsi ! AudMem \ R
188 nen ! 0 mfn ! 0 dba ! 188 fex ! 1 pos ! 188 fin ! 350 aud !
188 psi ! 0 num ! 0 pre ! 0 seq ! 188 enx ! EnVocab InNativate
( THEN -- adverb for machine reasoning logic; 10nov2012 )
356 t ! 84 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ T
357 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
358 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
359 t ! 78 pho ! 0 beg ! 0 ctu ! 213 audpsi ! AudMem \ N
213 nen ! 0 mfn ! 0 dba ! 213 fex ! 2 pos ! 213 fin ! 356 aud !
213 psi ! 0 num ! 0 pre ! 0 seq ! 213 enx ! EnVocab InNativate
( THERE -- adv. for discussion of physical location; 10nov2012 )
361 t ! 84 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ T
362 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
363 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
364 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
365 t ! 69 pho ! 0 beg ! 0 ctu ! 205 audpsi ! AudMem \ E
205 nen ! 0 mfn ! 0 dba ! 205 fex ! 2 pos ! 205 fin ! 361 aud !
205 psi ! 0 num ! 0 pre ! 0 seq ! 205 enx ! EnVocab InNativate
( THEY -- nominative subject-form of pers. pronoun; 10nov2012 )
367 t ! 84 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ T
368 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
369 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
370 t ! 89 pho ! 0 beg ! 0 ctu ! 743 audpsi ! AudMem \ Y
743 nen ! 0 mfn ! 1 dba ! 743 fex ! 7 pos ! 743 fin ! 367 aud !
743 psi ! 2 num ! 0 pre ! 0 seq ! 743 enx ! EnVocab InNativate
( THEIRS -- genitive form of personal pronoun; 10nov2012 )
372 t ! 84 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ T
373 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
374 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
375 t ! 73 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
376 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
377 t ! 83 pho ! 0 beg ! 0 ctu ! 743 audpsi ! AudMem \ S
743 nen ! 0 mfn ! 2 dba ! 743 fex ! 7 pos ! 743 fin ! 372 aud !
743 psi ! 2 num ! 0 pre ! 0 seq ! 743 enx ! EnVocab InNativate
( THEM -- dative indirect-object form of pers. pron. 10nov2012 )
379 t ! 84 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ T
380 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
381 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
382 t ! 77 pho ! 0 beg ! 0 ctu ! 743 audpsi ! AudMem \ M
743 nen ! 0 mfn ! 3 dba ! 743 fex ! 7 pos ! 743 fin ! 379 aud !
743 psi ! 2 num ! 0 pre ! 0 seq ! 743 enx ! EnVocab InNativate
( THEM -- acc. direct-object form of pers. pron. 10nov2012 )
384 t ! 84 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ T
385 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
386 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
387 t ! 77 pho ! 0 beg ! 0 ctu ! 743 audpsi ! AudMem \ M
743 nen ! 0 mfn ! 4 dba ! 743 fex ! 7 pos ! 743 fin ! 384 aud !
743 psi ! 2 num ! 0 pre ! 0 seq ! 743 enx ! EnVocab InNativate
( THINK -- germane to artificial intelligence )
389 t ! 84 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ T
390 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
391 t ! 73 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
392 t ! 78 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ N
393 t ! 75 pho ! 0 beg ! 0 ctu ! 840 audpsi ! AudMem \ K
840 nen ! 0 mfn ! 0 dba ! 840 fex ! 8 pos ! 840 fin ! 389 aud !
840 psi ! 0 num ! 0 pre ! 0 seq ! 840 enx ! EnVocab InNativate
( WE -- nominative subject-form of personal pronoun; 10nov2012 )
395 t ! 87 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ W
396 t ! 69 pho ! 0 beg ! 0 ctu ! 731 audpsi ! AudMem \ E
731 nen ! 0 mfn ! 1 dba ! 731 fex ! 7 pos ! 737 fin ! 395 aud !
731 psi ! 2 num ! 0 pre ! 0 seq ! 731 enx ! EnVocab InNativate
( OURS -- genitive form of personal pronoun; 10nov2012 )
398 t ! 79 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
399 t ! 85 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ U
400 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
401 t ! 83 pho ! 0 beg ! 0 ctu ! 731 audpsi ! AudMem \ S
731 nen ! 0 mfn ! 2 dba ! 731 fex ! 7 pos ! 737 fin ! 398 aud !
731 psi ! 2 num ! 0 pre ! 0 seq ! 731 enx ! EnVocab InNativate
( US -- dative indirect-object form of pers. pron. 10nov2012 )
403 t ! 85 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ U
404 t ! 83 pho ! 0 beg ! 0 ctu ! 731 audpsi ! AudMem \ S
731 nen ! 0 mfn ! 3 dba ! 731 fex ! 7 pos ! 737 fin ! 403 aud !
731 psi ! 2 num ! 0 pre ! 0 seq ! 731 enx ! EnVocab InNativate
( US -- accusative direct-object form of pers. pron. 10nov2012 )
406 t ! 85 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ U
407 t ! 83 pho ! 0 beg ! 0 ctu ! 731 audpsi ! AudMem \ S
731 nen ! 0 mfn ! 4 dba ! 731 fex ! 7 pos ! 737 fin ! 406 aud !
731 psi ! 2 num ! 0 pre ! 0 seq ! 731 enx ! EnVocab InNativate
( WHAT -- nominative pronoun for SelfReferentialThought )
409 t ! 87 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ W
410 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
411 t ! 65 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
412 t ! 84 pho ! 0 beg ! 0 ctu ! 781 audpsi ! AudMem \ T
781 nen ! 3 mfn ! 1 dba ! 781 fex ! 7 pos ! 781 fin ! 409 aud !
781 psi ! 1 num ! 0 pre ! 0 seq ! 781 enx ! EnVocab InNativate
( WHAT -- accusative pronoun for SelfReferentialThought )
414 t ! 87 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ W
415 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
416 t ! 65 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
417 t ! 84 pho ! 0 beg ! 0 ctu ! 781 audpsi ! AudMem \ T
781 nen ! 3 mfn ! 4 dba ! 781 fex ! 7 pos ! 781 fin ! 414 aud !
781 psi ! 1 num ! 0 pre ! 0 seq ! 781 enx ! EnVocab InNativate
( WHEN -- adverb for SelfReferentialThought; 10nov2012 )
419 t ! 87 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ W
420 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
421 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
422 t ! 78 pho ! 0 beg ! 0 ctu ! 263 audpsi ! AudMem \ N
263 nen ! 0 mfn ! 0 dba ! 263 fex ! 2 pos ! 263 fin ! 419 aud !
263 psi ! 0 num ! 0 pre ! 0 seq ! 263 enx ! EnVocab InNativate
( WHERE -- adverb for SelfReferentialThought; 10nov2012 )
424 t ! 87 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ W
425 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
426 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
427 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
428 t ! 69 pho ! 0 beg ! 0 ctu ! 245 audpsi ! AudMem \ E
245 nen ! 0 mfn ! 0 dba ! 245 fex ! 2 pos ! 245 fin ! 424 aud !
245 psi ! 0 num ! 0 pre ! 0 seq ! 245 enx ! EnVocab InNativate
( WHO -- nominative subject-form of interrogative pronoun )
430 t ! 87 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ W
431 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
432 t ! 79 pho ! 0 beg ! 0 ctu ! 791 audpsi ! AudMem \ O
791 nen ! 0 mfn ! 1 dba ! 791 fex ! 7 pos ! 791 fin ! 430 aud !
791 psi ! 1 num ! 0 pre ! 0 seq ! 791 enx ! EnVocab InNativate
( WHOSE -- genitive form of interrogative pronoun; 11nov2012 )
434 t ! 87 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ W
435 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
436 t ! 83 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
437 t ! 83 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ S
438 t ! 69 pho ! 0 beg ! 0 ctu ! 794 audpsi ! AudMem \ E
794 nen ! 0 mfn ! 2 dba ! 794 fex ! 7 pos ! 794 fin ! 434 aud !
794 psi ! 1 num ! 0 pre ! 0 seq ! 794 enx ! EnVocab InNativate
( WHOM -- dative indirect-object form of interrogative pronoun )
440 t ! 87 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ W
441 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
442 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
443 t ! 77 pho ! 0 beg ! 0 ctu ! 794 audpsi ! AudMem \ M
794 nen ! 0 mfn ! 3 dba ! 794 fex ! 7 pos ! 794 fin ! 440 aud !
794 psi ! 1 num ! 0 pre ! 0 seq ! 794 enx ! EnVocab InNativate
( WHOM -- accusative direct-obj. form of interrogative pronoun )
445 t ! 87 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ W
446 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
447 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
448 t ! 77 pho ! 0 beg ! 0 ctu ! 794 audpsi ! AudMem \ M
794 nen ! 0 mfn ! 4 dba ! 794 fex ! 7 pos ! 794 fin ! 445 aud !
794 psi ! 1 num ! 0 pre ! 0 seq ! 794 enx ! EnVocab InNativate
( WHY -- conjunction or adverb for machine reasoning logic )
450 t ! 87 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ W
451 t ! 72 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
452 t ! 89 pho ! 0 beg ! 0 ctu ! 370 audpsi ! AudMem \ Y
370 nen ! 0 mfn ! 0 dba ! 370 fex ! 3 pos ! 370 fin ! 450 aud !
370 psi ! 0 num ! 0 pre ! 0 seq ! 370 enx ! EnVocab InNativate
( WITH -- preposition for use with EnPrep module; 10nov2012 )
454 t ! 87 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ W
455 t ! 73 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
456 t ! 84 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ T
457 t ! 72 pho ! 0 beg ! 0 ctu ! 680 audpsi ! AudMem \ H
680 nen ! 0 mfn ! 0 dba ! 680 fex ! 6 pos ! 680 fin ! 454 aud !
680 psi ! 0 num ! 0 pre ! 0 seq ! 680 enx ! EnVocab InNativate
( WOMAN -- always feminine noun for use with gender flags )
459 t ! 87 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ W
460 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
461 t ! 77 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ M
462 t ! 65 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
463 t ! 78 pho ! 0 beg ! 0 ctu ! 515 audpsi ! AudMem \ N
515 nen ! 2 mfn ! 0 dba ! 515 fex ! 5 pos ! 515 fin ! 459 aud !
515 psi ! 1 num ! 0 pre ! 0 seq ! 515 enx ! EnVocab InNativate
( WOMEN -- irregular plural for retrieval by parameters 10nov2012 )
465 t ! 87 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ W
466 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
467 t ! 77 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ M
468 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
469 t ! 78 pho ! 0 beg ! 0 ctu ! 515 audpsi ! AudMem \ N
515 nen ! 2 mfn ! 0 dba ! 515 fex ! 5 pos ! 515 fin ! 465 aud !
515 psi ! 2 num ! 0 pre ! 0 seq ! 515 enx ! EnVocab InNativate
( YES -- interjection for human-computer interaction; 10nov2012 )
471 t ! 89 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ Y
472 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
473 t ! 83 pho ! 0 beg ! 0 ctu ! 432 audpsi ! AudMem \ S
432 nen ! 0 mfn ! 0 dba ! 432 fex ! 4 pos ! 432 fin ! 471 aud !
432 psi ! 0 num ! 0 pre ! 0 seq ! 432 enx ! EnVocab InNativate
( YOU -- nominative singular of personal pronoun; 10nov2012 )
475 t ! 89 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ Y
476 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
477 t ! 85 pho ! 0 beg ! 0 ctu ! 707 audpsi ! AudMem \ U
707 nen ! 0 mfn ! 1 dba ! 707 fex ! 7 pos ! 701 fin ! 475 aud !
707 psi ! 1 num ! 0 pre ! 0 seq ! 707 enx ! EnVocab InNativate
( YOURS -- genitive singular of personal pronoun; 10nov2012 )
479 t ! 89 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ Y
480 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
481 t ! 85 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ U
482 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
483 t ! 83 pho ! 0 beg ! 0 ctu ! 707 audpsi ! AudMem \ S
707 nen ! 0 mfn ! 2 dba ! 707 fex ! 5 pos ! 701 fin ! 479 aud !
707 psi ! 1 num ! 0 pre ! 0 seq ! 707 enx ! EnVocab InNativate
( YOU -- dative singular of personal pronoun; 10nov2012 )
485 t ! 89 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ Y
486 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
487 t ! 85 pho ! 0 beg ! 0 ctu ! 707 audpsi ! AudMem \ U
707 nen ! 0 mfn ! 3 dba ! 707 fex ! 7 pos ! 701 fin ! 485 aud !
707 psi ! 1 num ! 0 pre ! 0 seq ! 707 enx ! EnVocab InNativate
( YOU -- accusatie singular of personal pronoun; 10nov2012 )
489 t ! 89 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ Y
490 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
491 t ! 85 pho ! 0 beg ! 0 ctu ! 707 audpsi ! AudMem \ U
707 nen ! 0 mfn ! 4 dba ! 707 fex ! 7 pos ! 701 fin ! 489 aud !
707 psi ! 1 num ! 0 pre ! 0 seq ! 707 enx ! EnVocab InNativate
( YOU -- nominative plural of personal pronoun; 10nov2012 )
493 t ! 89 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ Y
494 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
495 t ! 85 pho ! 0 beg ! 0 ctu ! 737 audpsi ! AudMem \ U
737 nen ! 0 mfn ! 1 dba ! 737 fex ! 7 pos ! 731 fin ! 493 aud !
737 psi ! 2 num ! 0 pre ! 0 seq ! 737 enx ! EnVocab InNativate
( YOURS -- genitive plural of personal pronoun; 10nov2012 )
497 t ! 89 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ Y
498 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
499 t ! 85 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ U
500 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
501 t ! 83 pho ! 0 beg ! 0 ctu ! 737 audpsi ! AudMem \ S
737 nen ! 0 mfn ! 2 dba ! 737 fex ! 5 pos ! 731 fin ! 497 aud !
737 psi ! 2 num ! 0 pre ! 0 seq ! 737 enx ! EnVocab InNativate
( YOU -- dative plural of personal pronoun; 10nov2012 )
503 t ! 89 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ Y
504 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
505 t ! 85 pho ! 0 beg ! 0 ctu ! 737 audpsi ! AudMem \ U
737 nen ! 0 mfn ! 3 dba ! 737 fex ! 7 pos ! 731 fin ! 503 aud !
737 psi ! 2 num ! 0 pre ! 0 seq ! 737 enx ! EnVocab InNativate
( YOU -- accusatie plural of personal pronoun; 10nov2012 )
507 t ! 89 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ Y
508 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
509 t ! 85 pho ! 0 beg ! 0 ctu ! 737 audpsi ! AudMem \ U
737 nen ! 0 mfn ! 4 dba ! 737 fex ! 7 pos ! 731 fin ! 507 aud !
737 psi ! 2 num ! 0 pre ! 0 seq ! 737 enx ! EnVocab InNativate
( YOUR -- adjective for personal pronoun "YOU"; 10nov2012 )
511 t ! 89 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ Y
512 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
513 t ! 85 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ U
514 t ! 82 pho ! 0 beg ! 0 ctu ! 182 audpsi ! AudMem \ R
182 nen ! 0 mfn ! 0 dba ! 182 fex ! 1 pos ! 181 fin ! 511 aud !
182 psi ! 0 num ! 0 pre ! 0 seq ! 182 enx ! EnVocab InNativate
( YOU -- innate response to who-am-i query; 10nov2012 )
516 t ! 89 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ Y
517 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
518 t ! 85 pho ! 0 beg ! 0 ctu ! 707 audpsi ! AudMem \ U
707 nen ! 0 mfn ! 1 dba ! 707 fex ! 7 pos ! 701 fin ! 516 aud !
707 psi ! 1 num ! 0 pre ! 388 tqv ! 800 seq ! 707 enx ! EnVocab InNativate
( ARE -- essential intransitive verb -- 800 with parameters )
520 t ! 65 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
521 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
522 t ! 69 pho ! 0 beg ! 0 ctu ! 800 audpsi ! AudMem \ E
800 nen ! 0 mfn ! 2 dba ! 800 fex ! 8 pos ! 800 fin ! 520 aud !
800 psi ! 1 num ! 707 pre ! 528 tqv ! 588 seq ! 800 enx ! EnVocab InNativate
( MAGIC -- all-purpose noun not preceded by article; 10nov2012 )
524 t ! 77 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ M
525 t ! 65 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
526 t ! 71 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ G
527 t ! 73 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
528 t ! 67 pho ! 0 beg ! 0 ctu ! 588 audpsi ! AudMem \ C
588 nen ! 0 mfn ! 1 dba ! 588 fex ! 5 pos ! 588 fin ! 524 aud !
588 psi ! 1 num ! 800 pre ! 0 tqv ! 0 seq ! 588 enx ! EnVocab InNativate
( I -- for SelfReferentialThought )
530 t ! 73 pho ! 1 beg ! 0 ctu ! 701 audpsi ! AudMem \ I
701 nen ! 0 mfn ! 1 dba ! 701 fex ! 7 pos ! 707 fin ! 530 aud !
701 psi ! 1 num ! 0 pre ! 533 tqv ! 800 seq ! 701 enx ! EnVocab InNativate
( AM -- for SelfReferentialThought )
532 t ! 65 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
533 t ! 77 pho ! 0 beg ! 0 ctu ! 800 audpsi ! AudMem \ M
800 nen ! 1 num ! 1 dba ! 0 mfn ! 800 fex ! 8 pos ! 800 fin ! 532 aud !
800 psi ! 701 pre ! 539 tqv ! 501 seq ! 800 enx ! EnVocab InNativate
( ANDRU -- for SelfReferentialThought )
535 t ! 65 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
536 t ! 78 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ N
537 t ! 68 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ D
538 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
539 t ! 85 pho ! 0 beg ! 0 ctu ! 501 audpsi ! AudMem \ U
501 nen ! 1 mfn ! 1 dba ! 501 fex ! 5 pos ! 501 fin ! 535 aud !
501 psi ! 1 num ! 800 pre ! 0 tqv ! 0 seq ! 501 enx ! EnVocab InNativate
( I -- innate KB-item for testing inhibition of idea-pairs )
541 t ! 73 pho ! 1 beg ! 0 ctu ! 701 audpsi ! AudMem \ I
701 nen ! 0 mfn ! 1 dba ! 701 fex ! 7 pos ! 707 fin ! 541 aud !
701 psi ! 1 num ! 0 pre ! 544 tqv ! 800 seq ! 701 enx ! EnVocab InNativate
( AM -- for SelfReferentialThought )
543 t ! 65 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
544 t ! 77 pho ! 0 beg ! 0 ctu ! 800 audpsi ! AudMem \ M
800 nen ! 0 mfn ! 1 dba ! 800 fex ! 8 pos ! 800 fin ! 543 aud !
800 psi ! 1 num ! 701 pre ! 552 tqv ! 571 seq ! 800 enx ! EnVocab InNativate
( A -- for EnArticle module )
546 t ! 65 pho ! 1 beg ! 0 ctu ! 101 audpsi ! AudMem \ A
101 nen ! 0 mfn ! 0 dba ! 101 fex ! 1 pos ! 101 fin ! 546 aud !
101 psi ! 1 num ! 0 pre ! 571 seq ! 101 enx ! EnVocab InNativate
( ROBOT -- important for target user base )
548 t ! 82 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
549 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
550 t ! 66 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ B
551 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
552 t ! 84 pho ! 0 beg ! 0 ctu ! 571 audpsi ! AudMem \ T
571 nen ! 3 mfn ! 1 dba ! 571 fex ! 5 pos ! 571 fin ! 548 aud !
571 psi ! 1 num 1 ! 800 pre ! 0 tqv ! 0 seq ! 571 enx ! EnVocab InNativate
( I -- innate KB-item for testing inhibition of idea-pairs )
554 t ! 73 pho ! 1 beg ! 0 ctu ! 701 audpsi ! AudMem \ I
701 nen ! 0 mfn ! 1 dba ! 701 fex ! 7 pos ! 707 fin ! 554 aud !
701 psi ! 1 num ! 0 pre ! 423 tqv ! 58 seq ! 701 enx ! EnVocab InNativate
( AM -- for SelfReferentialThought; 10nov2012 )
556 t ! 65 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
557 t ! 77 pho ! 0 beg ! 0 ctu ! 800 audpsi ! AudMem \ M
800 nen ! 0 mfn ! 1 dba ! 800 fex ! 8 pos ! 800 fin ! 556 aud !
800 psi ! 1 num ! 701 pre ! 566 tqv ! 537 seq ! 800 enx ! EnVocab InNativate
( A -- for EnArticle module )
559 t ! 65 pho ! 1 beg ! 0 ctu ! 101 audpsi ! AudMem \ A
101 nen ! 0 mfn ! 0 dba ! 101 fex ! 1 pos ! 101 fin ! 559 aud !
101 psi ! 1 num ! 0 pre ! 537 seq ! 101 enx ! EnVocab InNativate
( PERSON -- for ad-hoc gender tags and robot philosophy )
561 t ! 80 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ P
562 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
563 t ! 82 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
564 t ! 83 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ S
565 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
566 t ! 78 pho ! 0 beg ! 0 ctu ! 537 audpsi ! AudMem \ N
537 nen ! 0 mfn ! 1 dba ! 537 fex ! 5 pos ! 537 fin ! 561 aud !
537 psi ! 1 num ! 800 pre ! 0 tqv ! 0 seq ! 537 enx ! EnVocab InNativate
( I -- for SelfReferentialThought )
568 t ! 73 pho ! 1 beg ! 0 ctu ! 701 audpsi ! AudMem \ I
701 nen ! 0 mfn ! 1 dba ! 701 fex ! 7 pos ! 707 fin ! 568 aud !
701 psi ! 1 num 1 0 pre ! 573 tqv ! 895 seq ! 701 enx ! EnVocab InNativate
( HELP -- socially significant common verb )
570 t ! 72 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ H
571 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
572 t ! 76 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ L
573 t ! 80 pho ! 0 beg ! 0 ctu ! 895 audpsi ! AudMem \ P
895 nen ! 0 mfn ! 1 dba ! 895 fex ! 8 pos ! 895 fin ! 570 aud !
895 psi ! 1 num ! 701 pre ! 578 tqv ! 528 seq ! 895 enx ! EnVocab InNativate
( KIDS -- noun lends itself to educational purposes )
575 t ! 75 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ K
576 t ! 73 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
577 t ! 68 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ D
578 t ! 83 pho ! 0 beg ! 0 ctu ! 528 audpsi ! AudMem \ S
528 nen ! 2 num ! 4 dba ! 0 mfn ! 528 fex ! 5 pos ! 528 fin ! 575 aud !
528 psi ! 895 pre ! 0 tqv ! 0 seq ! 528 enx ! EnVocab InNativate
( KIDS -- noun lends itself to educational purposes )
580 t ! 75 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ K
581 t ! 73 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ I
582 t ! 68 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ D
583 t ! 83 pho ! 0 beg ! 0 ctu ! 528 audpsi ! AudMem \ S
528 nen ! 0 mfn ! 1 dba ! 528 fex ! 5 pos ! 528 fin ! 580 aud !
528 psi ! 2 num ! 0 pre ! 588 tqv ! 835 seq ! 528 enx ! EnVocab InStantiate
( MAKE -- common verb of high word-frequency )
585 t ! 77 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ M
586 t ! 65 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ A
587 t ! 75 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ K
588 t ! 69 pho ! 0 beg ! 0 ctu ! 835 audpsi ! AudMem \ E
835 nen ! 2 num ! 0 mfn ! 835 fex ! 8 pos ! 835 fin ! 585 aud !
835 psi ! 72 pre ! 595 tqv ! 571 seq ! 835 enx ! EnVocab InNativate
( ROBOTS -- important for target user base )
590 t ! 82 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
591 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
592 t ! 66 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ B
593 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
594 t ! 84 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ T
595 t ! 83 pho ! 0 beg ! 0 ctu ! 571 audpsi ! AudMem \ S
571 nen ! 3 mfn ! 4 dba ! 571 fex ! 5 pos ! 571 fin ! 590 aud !
571 psi ! 2 num ! 835 pre ! 0 tqv ! 0 seq ! 571 enx ! EnVocab InNativate
( ROBOTS -- important for target user base )
597 t ! 82 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ R
598 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
599 t ! 66 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ B
600 t ! 79 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ O
601 t ! 84 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ T
602 t ! 83 pho ! 0 beg ! 0 ctu ! 571 audpsi ! AudMem \ S
571 nen ! 3 mfn ! 1 dba ! 571 fex ! 5 pos ! 571 fin ! 597 aud !
571 psi ! 2 num ! 0 pre ! 473 tqv ! 849 seq ! 571 enx ! EnVocab InNativate
( NEED -- common verb used for describing goals )
604 t ! 78 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ N
605 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
606 t ! 69 pho ! 0 beg ! 1 ctu ! 0 audpsi ! AudMem \ E
607 t ! 68 pho ! 0 beg ! 0 ctu ! 849 audpsi ! AudMem \ D
849 nen ! 2 num ! 0 mfn ! 849 fex ! 8 pos ! 849 fin ! 604 aud !
849 psi ! 571 pre ! 610 tqv ! 701 seq ! 849 enx ! EnVocab InNativate
( ME -- for SelfReferentialThought )
609 t ! 77 pho ! 1 beg ! 1 ctu ! 0 audpsi ! AudMem \ M
610 t ! 69 pho ! 0 beg ! 0 ctu ! 701 audpsi ! AudMem \ E
701 nen ! 0 mfn ! 4 dba ! 701 fex ! 7 pos ! 707 fin ! 609 aud !
701 psi ! 1 num ! 849 pre ! 0 tqv ! 0 seq ! 701 enx ! EnVocab InNativate
( Declaration of "vault" must reflect final EnBoot "t".)
1 t +!
t @ vault !
t @ tov !
1 t +!
t @ nlt ! ( nlt may be basis for DAMP functions )
528 urpsi ! \ As if "KIDS" were the cresting concept.
900 nen ! \ segregate parts of speech by century; 9nov2012
5 bias !
0 lurk ! \ prepare to auto-start thinking; 19sep2010
0 num !
0 mfn ! \ Prevent carry-over.
0 mfnflag ! \ Prevent carry-over; 23aug2010
0 nwc !
0 pho !
0 pre ! 0 seq !
0 putnum ! \ prevent carry-over; 4nov2011
; ( http://code.google.com/p/mindforth/wiki/EnBoot )
: KbTraversal ( reactivate KB concepts )
35 pov !
kbtv @ 4 > IF 1 kbtv ! THEN
\ CR ." Knowledge base traversal with kbtv at " kbtv @ .
CR ." Time = " t @ . 8 EMIT \ as in Wotan AI; 28dec2012
." ; ReJuvenate count = " rjc @ . 8 EMIT \ 28dec2012
." ; activating " \ as in Wotan German AI 28dec2012
\ ." KbTraversal activates " \ 28dec2012
kbtv @ 1 = IF
1 kbyn ! \ for AskUser Y/N query subject; 24jun2011
707 nacpsi ! \ 707=YOU noun-activation psi; 10nov2012
707 qusub ! \ in case a query will be made; 10nov2012
707 subjpsi ! \ a test to help WhoBe; 10nov2012
1 subjnum ! \ for correct be-verb; 12oct2011
2 prsn ! \ for correct be-verb; 12oct2011
\ ." activating concept of YOU" CR \ for who-query; 7aug2010
34 EMIT ." YOU" 34 EMIT ." as a concept." CR \ 28dec2012
62 nounval !
NounAct
0 nacpsi !
THEN
kbtv @ 2 = IF \ for use in ThInk module; 14oct2011
2 kbyn ! \ for AskUser Y/N query subject; 24jun2011
\ ." activating concept of ROBOTS" CR ( 7aug2010 )
34 EMIT ." ROBOTS" 34 EMIT ." as a concept." CR \ 28dec2012
571 subjpsi ! \ external tagging as subject; 14oct2011
571 qusub ! \ in case a query will be made; 10nov2012
0 nacpsi !
THEN
kbtv @ 3 = IF
3 kbyn ! \ for AskUser Y/N query subject; 24jun2011
701 nacpsi ! \ 701=I noun-activation psi; 10nov2012
\ ." activating concept of I" CR ( 7aug2010 )
34 EMIT ." I" 34 EMIT ." as a concept." CR \ 28dec2012
701 qusub ! \ in case a query will be made; 10nov2012
701 subjpsi ! \ external tagging as subject; 10nov2012
NounAct
0 nacpsi !
THEN
kbtv @ 4 = IF
4 kbyn ! \ for AskUser Y/N query subject; 24jun2011
533 nacpsi ! \ 533=GOD noun-activation psi; 10nov2012
\ ." activating concept of GOD" CR ( 7aug2010 )
34 EMIT ." GOD" 34 EMIT ." as a concept." CR \ 28dec2012
533 qusub ! \ in case a query will be made; 10nov2012
533 subjpsi ! \ external tagging as subject; 10nov2012
62 nounval !
NounAct
0 nacpsi !
THEN ( http://www.quartus.net )
42 pov !
; ( http://code.google.com/p/mindforth/wiki/KbTraversal )
: ReJuvenate ( recycle oldest memory spaces )
fyi @ 2 = IF
CLS
THEN
0 edge !
CR 1 rjc +!
." Please wait as memories migrate in ReJuvenate cycle #"
rjc @ . CR
t @ 2 + coda @ vault @ + DO
I jrt !
jrt @ coda @ - jrt !
edge @ 1 = IF
I 0 psi{ @ jrt @ 0 psi{ ! 0 I 0 psi{ !
I 1 psi{ @ jrt @ 1 psi{ ! 0 I 1 psi{ !
I 2 psi{ @ jrt @ 2 psi{ ! 0 I 2 psi{ !
I 3 psi{ @ jrt @ 3 psi{ ! 0 I 3 psi{ !
I 4 psi{ @ jrt @ 4 psi{ ! 0 I 4 psi{ !
I 5 psi{ @ jrt @ 5 psi{ ! 0 I 5 psi{ !
\ Next line adjusts tqv by minus-coda; 14aug2012
I 6 psi{ @ coda @ - jrt @ 6 psi{ ! 0 I 6 psi{ !
I 7 psi{ @ jrt @ 7 psi{ ! 0 I 7 psi{ !
I 8 psi{ @ jrt @ 8 psi{ ! 0 I 8 psi{ !
THEN
edge @ 1 = IF
en8 @ 1 < IF 0 en8 ! THEN \ 10nov2012
I 0 en{ @ jrt @ 0 en{ ! 0 I 0 en{ !
I 1 en{ @ jrt @ 1 en{ ! 0 I 1 en{ !
I 2 en{ @ jrt @ 2 en{ ! 0 I 2 en{ !
I 3 en{ @ jrt @ 3 en{ ! 0 I 3 en{ !
I 4 en{ @ jrt @ 4 en{ ! 0 I 4 en{ !
I 5 en{ @ jrt @ 5 en{ ! 0 I 5 en{ !
I 6 en{ @ jrt @ 6 en{ ! 0 I 6 en{ !
I 7 en{ @ jrt @ 7 en{ ! 0 I 7 en{ ! \ 29dec2012
I 8 en{ @ en8 ! \ 10nov2012
en8 @ vault @ < IF
en8 @ jrt @ 8 en{ ! 0 I 8 en{ ! THEN
en8 @ coda @ vault @ + > IF \ 10nov2012
en8 @ coda @ - jrt @ 8 en{ ! \ 10nov2012
THEN 0 I 8 en{ ! \ 10nov2012
THEN
edge @ 1 = IF
I 0 aud{ @ jrt @ 0 aud{ !
I 1 aud{ @ jrt @ 1 aud{ !
I 2 aud{ @ jrt @ 2 aud{ !
I 3 aud{ @ jrt @ 3 aud{ !
I 4 aud{ @ jrt @ 4 aud{ !
I 5 aud{ @ jrt @ 5 aud{ !
fyi @ 1 > IF
jrt @ 0 aud{ @ EMIT
THEN
THEN
edge @ 0 = IF
32 jrt @ 0 aud{ !
0 jrt @ 1 aud{ !
I 2 aud{ @ 123 = IF 1 edge ! THEN
0 jrt @ 2 aud{ !
0 jrt @ 3 aud{ !
0 jrt @ 4 aud{ !
0 jrt @ 5 aud{ !
0 jrt @ 0 en{ !
0 jrt @ 1 en{ !
0 jrt @ 2 en{ !
0 jrt @ 3 en{ !
0 jrt @ 4 en{ !
0 jrt @ 5 en{ !
0 jrt @ 6 en{ !
0 jrt @ 7 en{ !
0 jrt @ 8 en{ ! \ with dba; 10nov2012
0 jrt @ 0 psi{ !
0 jrt @ 1 psi{ !
0 jrt @ 2 psi{ !
0 jrt @ 3 psi{ !
0 jrt @ 4 psi{ !
0 jrt @ 5 psi{ !
0 jrt @ 6 psi{ !
0 jrt @ 7 psi{ !
0 jrt @ 8 psi{ ! \ for "tqv"; 12oct2011
THEN
LOOP
jrt @ t !
cns @ t @ DO
32 I 0 aud{ !
0 I 1 aud{ !
0 I 2 aud{ !
0 I 3 aud{ !
0 I 4 aud{ !
0 I 5 aud{ !
0 I 0 en{ !
0 I 1 en{ !
0 I 2 en{ !
0 I 3 en{ !
0 I 4 en{ !
0 I 5 en{ !
0 I 6 en{ !
0 I 7 en{ !
0 I 8 en{ ! \ with "dba"; 10nov2012
0 I 0 psi{ !
0 I 1 psi{ !
0 I 2 psi{ !
0 I 3 psi{ !
0 I 4 psi{ !
0 I 5 psi{ !
0 I 6 psi{ !
0 I 7 psi{ !
0 I 8 psi{ ! \ with new "enx"; 12oct2011
LOOP
t @ 32 - tov ! \ 12jan2010 Avoid truncating thoughts.
CR CR ." End of ReJuvenate #" rjc @ .
." in the AI Mind display for science museum exhibits."
CR ." Tab key cycles through Normal, Transcript, "
." Tutorial, Diagnostic display-modes. " CR
1 kbtv +!
kbtv @ 0 > IF
CR ." For lack of human input, "
." ReJuvenate calls KbTraversal" CR
KbTraversal
THEN ( http://ronware.org/reva )
rsvp @ rjc @ - rsvp !
rsvp @ 2 < IF 2 rsvp ! THEN \ 23dec2009 Maintain speed.
; ( http://code.google.com/p/mindforth/wiki/ReJuvenate )
: SpeechAct ( output of a word as text or sound )
aud @ 0 = IF 1 aud ! THEN \ default to ERROR; 21jul2011
fyi @ 2 = IF CR THEN
0 audstop ! ( Initially false value of flag )
0 pho ! ( Lest pho already be at 32 )
aud @ onset ! ( onset of a word is its recall-vector )
aud @ t2s !
40 1 DO
t2s @ 0 aud{ @ pho !
pho @ 32 = NOT IF
pho @ EMIT ( say or display "pho" )
pho @ lastpho !
THEN \ End of test for pho=32 space-bar; 30aug2010
pho @ 32 = IF \ but instead of a blank space; 30aug2010
lastpho @ 83 = NOT IF \ not after "S"; 30aug2010
flex1 @ 0 > IF \ using shorter variable; 11sep2011
flex1 @ pho ! \ append inflection; 11sep2011
0 flex1 ! \ reset for safety; 11sep2011
THEN ( http://aimind-i.com )
1 spacegap !
0 vpos !
THEN \ End of test for previous "S"; 30aug2010
pho @ EMIT ( say or display "pho" )
1 audstop !
THEN \ end of test for 32=space; 30aug2010
35 pov ! ( internal point-of-view "#" like mindgrid )
AudInput ( for reentry of thought back into a mind )
audstop @ 1 = IF
spacegap @ 1 = IF
32 pho !
1 audrun ! \ resetting at end of internal word.
AudInput
0 spacegap !
THEN ( http://www.speechapi.com )
LEAVE
THEN ( http://aigroup.narod.ru )
t2s @ 1+ t2s !
t2s @ 4 aud{ @ 0 = IF 32 pho ! THEN ( If end of word )
match @ 1 = IF
0 match !
LEAVE
THEN
LOOP
0 aud ! \ Avoid unwarranted carry-over of value; 11sep2011
0 match !
0 obstat !
; ( http://code.google.com/p/mindforth/wiki/SpeechAct )
: SayYes ( to utter "YES" in response )
midway @ t @ DO
I 0 en{ @ 432 = IF \ 3-digit; 10nov2012
I 8 en{ @ aud ! \ with dba; 10nov2012
LEAVE
THEN ( http://aimind-i.com )
-1 +LOOP
SpeechAct
0 kbquiz !
0 yesorno !
; ( http://code.google.com/p/mindforth )
: EnArticle ( select "a" or "the" before a noun )
indefmust @ 1 = IF \ if required to say "A(N)"; 20oct2011
midway @ t @ DO \ search backwards in time; 20oct2011
I 0 en{ @ 101 = IF \ 101=A found? 8nov2012
I 8 en{ @ aud ! \ save auditory recall-vector
LEAVE \ one instance is enough; 20oct2011
THEN \ end of test for "101=A" engram; 8nov2012
-1 +LOOP \ end of backwards loop; 20oct2011
SpeechAct \ pronounce the requred article; 20oct2011
0 indefmust ! \ reset for safety; 20oct2011
EXIT \ abandon rest of EnArticle; 20oct2011
THEN \ end of test for a required "A(N); 20oct2011
nphrpos @ 7 = NOT IF
nphrnum @ 1 = IF
motjuste @ ghost @ = IF \
0 indefartcon ! \ do not say "A"; 15oct2011
1 defartcon ! \ say "THE"; 15oct2011
THEN \
motjuste @ ghost @ = NOT IF
subjnum @ 1 = IF \ if singular subject; 13sep2011
verbpsi @ 800 = IF \ AM or IS; 10nov0212
1 indefartcon ! \ indefinite article; 13sep2011
THEN \ end of test for "AM" or "IS"; 13sep2011
THEN \ 13sep2011
indefartcon @ 1 = IF \ from WHAT-query; 16apr2011
0 defartcon ! \ avoid "A THE"; 6oct2011
anset @ 0 = IF ( If no vowel is next )
midway @ t @ DO
I 0 en{ @ 101 = IF \ 101=A? 8nov2012
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN
-1 +LOOP
THEN ( End of test for absence of a vowel )
anset @ 0 > IF ( If anset-flag is positive )
midway @ t @ DO
I 0 en{ @ 102 = IF \ 102=AN? 8nov2012
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN
-1 +LOOP
THEN ( End of test for a vowel coming next )
1 numflag ! \ With "A" assume singular number.
SpeechAct
0 indefartcon ! \ Reset; 16apr2011
THEN \ End of test for positive indefartcon; 16apr2011
0 indefartcon ! \ Reset for safety; 6oct2011
THEN
motjuste @ ghost @ = IF
defartcon @ 1 = IF \ from WH0-query; 16apr2011
midway @ t @ DO
I 0 en{ @ 117 = IF \ If 117=THE found; 10nov2012
I 8 en{ @ aud ! \ with dba; 10nov2012
LEAVE
THEN
-1 +LOOP
SpeechAct
0 defartcon ! \ Reset; 16apr2011
THEN \ End of test for positive defartcon; 16apr2011
THEN
THEN
THEN
dirobj @ 1 = IF
motjuste @ ghost !
THEN ( http://thebeez.home.xs4all.nl/4tH )
0 whoflag ! \ call EnArticle only once; 15oct2011
; ( http://code.google.com/p/mindforth/wiki/EnArticle )
: EnAdjective ( insert an adjective into a sentence )
adjcon @ 1 = IF \ activation spreads to an adjective?
( find and speak the most active adjective; 16sep2011 )
THEN ( http://www.colorforth.com )
; ( http://code.google.com/p/mindforth )
: AuxVerb ( auxiliary Verb )
\ CR ." AuxV: subjnum prsn = " \ 29dec2012
\ subjnum @ . prsn @ . \ 29dec2012
subjnum @ 1 = prsn @ 3 = AND IF \ 19jul211
midway @ t @ DO
I 0 en{ @ 830 = IF \ 830=DO; 10nov2012
I 2 en{ @ 1 = IF \ singular? 10nov2012
I 4 en{ @ 3 = IF \ 3rd person? 10nov2012
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN \ end of test for third person; 10nov2012
THEN \ end ofbtest for num=1 singular; 10nov2012
THEN \ end of test for 830=DO; 10nov2012
-1 +LOOP
SpeechAct \ Say word starting at "aud" value; 20jul2011
830 urpsi ! \ 10nov2012
51 caller !
PsiDamp
0 urpsi ! \ reset for safety; 29dec2012
0 caller !
ELSE \ all other cases except 3rd prsn sing; 25jun2011
midway @ t @ DO \ may need parameters! 10nov2012
I 0 en{ @ 830 = IF \ 830=DO; 10nov2012
I 4 en{ @ 0 = IF \ 0=dba infinitive 29dec2012
I 8 en{ @ 0 > IF \ non-zer? 29dec2012
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN \ end of test for non-zero aud; 29dec2012
THEN \ end of test to accept infinitive; 29dec2012
THEN
-1 +LOOP
SpeechAct
fyi @ 2 > IF CR
." from AuxVerb after speaking of DO, "
." psiDamping concept #830 DO"
THEN
830 urpsi ! \ 830=DO; 10nov2012
51 caller !
PsiDamp
0 urpsi ! \ reset for safety; 29dec2012
0 caller !
THEN \ end of test for both sing & 3rd prsn; 25jun2011
; ( http://code.google.com/p/mindforth/wiki/AuxVerb )
: WhatAuxSVerb ( What DO Subjects Verb; 13jun2011 )
midway @ t @ DO
I 0 en{ @ 781 = IF \ 781=WHAT 10nov2012
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN
-1 +LOOP
SpeechAct \ Say word starting at "aud" value; 20jul2011
781 urpsi ! \ 781=WHAT; 10nov2012
PsiDamp
AuxVerb \ Say DOES or DO depending on num(ber) 20jul2011
0 motjuste !
midway @ t @ DO
I 0 en{ @ topic @ = IF \ 13jun2011
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN ( http://sourceforge.net/projects/calforth )
-1 +LOOP
topic @ urpsi ! \ 14aug2011
PsiDamp
SpeechAct
verbpsi @ 0 = IF 830 verbpsi ! THEN \ 830=DO DeFault 10nov2012
verbpsi @ unk ! \ use a short "unk"; 28aug2011
verbpsi @ 800 = IF \ 800 cover AM IS ARE BE; 10nov2012
830 verbpsi ! \ replace be-verbs with 830=DO; 10nov2012
THEN \ end of default switching be-verb to 830=DO; 10nov2012
midway @ t @ DO
I 0 en{ @ verbpsi @ = IF \ 13jun2011
I 2 en{ @ 2 = IF \ as if infinitive; 13jun2011
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN \ End of test for plural as if infinitive
THEN
-1 +LOOP
aud @ 0 = IF \ if no plural accept singular 14aug2011
midway @ t @ DO \ search English vocab; 14aug2011
I 0 en{ @ verbpsi @ = IF \ 14aug2011
I 8 en{ @ aud ! \ for SpeechAct; 10nov2012
LEAVE \ one engram is enough; 14aug2011
THEN \ end of test for verbpsi; 14aug2011
-1 +LOOP \ end of backwards search loop; 14aug2011
THEN \ end of test for no engram found; 14aug2011
( http://www.intelligent-systems.com.ar/intsyst/proposedBrain.htm )
SpeechAct
verbpsi @ urpsi ! \ 13jun2011
PsiDamp
; ( http://code.google.com/p/mindforth )
: WhatAuxSDo ( What DO Subjects DO )
midway @ t @ DO
I 0 en{ @ 781 = IF \ 781=WHAT; 10nov2012
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN
-1 +LOOP
SpeechAct
781 urpsi ! \ 781=WHAT for PsiDamp; 10nov2012
42 caller !
PsiDamp
0 caller !
AuxVerb \ to include DO or DOES; 14aug2011
subjnum @ 1 = IF \ for singular subject; 14oct2011
topic @ motjuste ! \ test; 14oct2011
0 ghost ! \ test; 14oct2011
1 nphrnum ! \ required for "A"' 14oct2011
1 indefartcon ! \ to say "A"; 14oct2011
EnArticle \ 14oct2011
THEN \ end of test for singular subject; 14oct2011
midway @ t @ DO
I 0 en{ @ topic @ = IF
I 2 en{ @ subjnum @ = IF \ agreement? 14oct2011
I 8 en{ @ aud ! \ 10nov2012
LEAVE \ only after finding match; 14oct2011
THEN \ end of grammatical-number test; 14oct2011
THEN
-1 +LOOP
topic @ urpsi ! \ 14aug2011
42 caller !
PsiDamp
SpeechAct
midway @ t @ DO
I 0 en{ @ 830 = IF \ 830=DO; 10nov2012
I 4 en{ @ 0 = IF \ dba=0 infinitive; 25dec2012
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN \ end of tist for infinitive dba=0; 25dec2012
THEN
-1 +LOOP
SpeechAct
fyi @ 2 > IF CR
." from whatAuxSDo after speaking of DO, "
." psiDamping concept #59 DO"
THEN
830 urpsi ! \ 830=DO for PsiDamp; 10nov2012
42 caller !
PsiDamp
0 caller !
; ( http://code.google.com/p/mindforth/wiki/WhatAuxSDo )
: WhoBe ( for asking WHO IS-AM-ARE; 9aug2010 )
1 moot ! \ prevent associative tagging inside query; 24oct2011
0 tqv ! \ prevent spurious carry-over values; 1aug2012
topic @ 0 > IF topic @ qusub ! THEN \ review; 30jul2011
midway @ t @ DO \ Say the word "WHO"; 19aug2010
I 0 en{ @ 791 = IF ( 791=WHO; 10nov2012 )
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN
-1 +LOOP
SpeechAct
8766 caller ! \ ASCII 87=W 66=B; test; 26sep2010
55 urpsi ! \ Designate concept to be psi-damped; 19aug2010
PsiDamp
0 caller ! \ reset after use; 26sep2010
qusub @ 701 = IF 1 prsn ! THEN \ 1st person "I" 10nov2012
qusub @ 731 = IF 1 prsn ! THEN \ 1st person WE 10nov2012
qusub @ 707 = IF 2 prsn ! THEN \ 2nd person YOU 10nov2012
qusub @ 737 = IF 2 prsn ! THEN \ 2nd person YOU 10nov2012
qusub @ 713 = IF 3 prsn ! THEN \ 3rd person HE 10nov2012
qusub @ 719 = IF 3 prsn ! THEN \ 3rd person SHE 10nov2012
qusub @ 725 = IF 3 prsn ! THEN \ 3rd person IT 10nov2012
qusub @ 743 = IF 3 prsn ! THEN \ 3rd person THEY 10nov2012
prsn @ 3 = IF \ only for 3rd person; 1sep2010
midway @ t @ DO \ Say "IS" after "WHO"; 19aug2010
I 0 en{ @ 800 = IF ( 800=BE; 10nov2012 )
I 2 en{ @ 1 = IF ( singular? 10nov2012 )
I 4 en{ @ 3 = IF ( 3rd person? 10nov2012 )
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN \ end of test for 3rd person "IS" 10nov2012
THEN \ end of test for singular; 10nov2012
THEN \ end of test for be-verb; 10nov2012
-1 +LOOP
SpeechAct \ to say "IS"; 17aug2010
0 mfn ! \ test; remove; 25aug2010
0 mfnflag ! \ Reset after use; 19aug2010
THEN \ end of test for prsn=1; 1sep2010
qusub @ 701 = IF ( I; 10nov2012 )
1 prsn ! \ first person; 1sep2010
1 nphrnum ! \ singular; 1sep2010
midway @ t @ DO
I 0 en{ @ 800 = IF ( 800=BE; 10nov2012 )
I 2 en{ @ 1 = IF ( singular? 10nov2012 )
I 4 en{ @ 1 = IF ( 1st person? 10nov2012 )
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN \ end ofb test for first person; 10nov2012
THEN \ end of test for singular 800=BE; 10nov2012
THEN \ end of test for be-verb; 10nov2012
-1 +LOOP
SpeechAct \ to say "AM"; 17oct2011
THEN \ 9aug2010
qusub @ 701 = IF \ treat ME like 701=I; 10nov2012
midway @ t @ DO
I 0 en{ @ 800 = IF ( 800=BE; 10nov2012 )
I 2 en{ @ 1 = IF ( singular? 10nov2012 )
I 4 en{ @ 1 = IF ( 1st person? 10nov2012 )
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN \ end of test for first person; 10nov2012
THEN \ end of test for singular; 10nov2012
THEN \ end of test for be-verb; 10nov2012
-1 +LOOP
SpeechAct \ moved inside the IF-clause; 10aug2010
THEN \ 9aug2010
qusub @ 707 = IF ( 707=YOU; 10nov2012 )
2 prsn ! \ second person; 1sep2010
midway @ t @ DO
I 0 en{ @ 800 = IF ( 800=BE; 10nov2012 )
I 2 en{ @ 1 = IF ( singular? 10nov2012 )
I 4 en{ @ 2 = IF ( 2nd person? 10nov2012 )
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN \ end of test for 2nd person; 10nov2012
THEN \ end of test for singular; 10nov2012
THEN \ end of test for be-verb; 10nov2012
-1 +LOOP
SpeechAct \ to say "ARE"; 10aug2010
THEN \ 9aug2010
qusub @ 713 = IF ( 713=HE; 10nov2012 )
3 prsn ! \ third person; 1sep2010
1 nphrnum ! \ singular; 1sep2010
midway @ t @ DO
I 0 en{ @ 800 = IF ( 800=BE; 10nov2012 )
I 2 en{ @ 1 = IF ( singular? 10nov2012 )
I 4 en{ @ 3 = IF ( 3rd person? 10nov2012 )
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN \ enmd of test for 3rd person; 10nov2012
THEN \ end of test for singular; 10nov2012
THEN \ end of test for be-verb; 10nov2012
-1 +LOOP
THEN ( http://minforth.net.ms )
midway @ t @ DO \ search for who-query subject; 23aug2010
I 0 en{ @ qusub @ = IF \ if qusub found; 3oct2010
I 8 en{ @ aud ! \ recall-tag; 10nov2012
LEAVE \ one exemplar is enough; 23aug2010
THEN \ end of test for subject; 23aug2010
-1 +LOOP \ end of search-loop; 23aug2010
SpeechAct \ speak (WHO IS) qusub query-subject; 3oct2010
0 moot ! \ end of not tagging query-concepts; 24oct2011
; ( http://code.google.com/p/mindforth )
: WhatBe ( what AM/IS/ARE Subjects ) \ 10oct2011
1 moot ! \ prevent storage of spurious ideas; 24oct2011
0 tqv ! \ prevent spurious carry-over values; 1aug2012
qusub @ 0 = IF \ for a new word like "energy"; 8aug2012
subjnum @ 0 = IF \ in absence of num(ber) data; 8aug2012
3 prsn ! \ to say "IS"; 8aug2012
THEN \ end of test for "qusub"; 8aug2012
THEN \ end of test for "subjnum"; 8aug2012
topic @ qusub ! \ THEN \ 2nd choice; 10oct2011
qusub @ 701 = IF 1 prsn ! THEN \ 1st person "I"; 10nov2012
qusub @ 707 = IF 2 prsn ! THEN \ 2nd person YOU; 10nov2012
midway @ t @ DO
I 0 en{ @ 781 = IF \ 781=WHAT; 10nov2012
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN
-1 +LOOP
SpeechAct
fyi @ 2 > IF CR
." from WhatBe after speaking of WHAT, " \ 25feb2011
." psiDamping concept #781"
THEN
8773 caller ! \ ASCII 87=W 73=I; test; 26sep2010
781 urpsi ! \ 781=WHAT for PsiDamp; 10nov2012
PsiDamp
0 caller !
subjnum @ 2 < topicnum @ 2 < OR IF \ not plural? 4nov2011
prsn @ 1 = IF \ 1st person singular; 21aug2011
midway @ t @ DO \ 21aug2011
I 0 en{ @ 800 = IF \ 800=BE; 10nov2012
I 2 en{ @ 1 = IF \ singular?; 10nov2012
I 4 en{ @ 1 = IF \ 1st person?; 10nov2012
I 8 en{ @ aud ! \ 10nov2012
1 topicnum ! \ If "AM" prevent "ARE"; 26jul2012
LEAVE \ 21aug2011
THEN \ end of test for first person; 10nov2012
THEN \ end of test for singular; 10nov2012
THEN \ 21aug2011
-1 +LOOP \ 21aug2011
SpeechAct \ 21aug2011
THEN \ end of test for first person singular; 21aug2011
prsn @ 3 = IF \ 3rd person singular; 19sep2010
midway @ t @ DO
I 0 en{ @ 800 = IF \ 800=BE; 10nov2012
I 2 en{ @ 1 = IF \ singular? 10nov2012
I 4 en{ @ 3 = IF \ 3rd pers? 26dec2012
I 8 en{ @ aud ! \ 10nov2012
1 topicnum ! \ If "IS" prevent "ARE" 21jul2012
1 indefmust ! \ to say "IS A"; 20oct2011
LEAVE
THEN \ end of test for 3rd person; 10nov2012
THEN \ end of test for singualr; 10nov2012
THEN ( http://isforth.com )
-1 +LOOP
SpeechAct
fyi @ 2 > IF CR
." from WhatBe after speaking of IS, " \ 25feb2011
." psiDamping concept #800"
THEN
8773 caller ! \ ASCII 87=W 73=I; test; 26sep2010
800 urpsi ! \ 10nov2012
PsiDamp
0 caller !
0 motjuste !
THEN \ end of test for 3rd person singular; 19sep2010
THEN
topicnum @ 2 = prsn @ 2 = OR IF \ test; 19sep2010
midway @ t @ DO
I 0 en{ @ 800 = IF \ 800=BE; 10nov2012
I 2 en{ @ 2 = IF \ plural? 10nov2012
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN \ end of test for plural "ARE"; 10nov2012
THEN \ end of test for be-verb
-1 +LOOP
SpeechAct
fyi @ 2 > IF CR
." from WhatBe after speaking of ARE, " \ 25feb2011
." psiDamping concept #800"
THEN
8773 caller ! \ ASCII 87=W 73=I; test; 26sep2010
800 urpsi ! \ 10nov2012
PsiDamp
0 caller ! \ test; 26sep2010
0 motjuste !
0 subjpsi ! \ reset for safety' 17oct2011
0 topicnum !
THEN
topicnum @ 2 = NOT IF \ if singular; 21jun2011
prsn @ 3 = IF \ 3rd person singular; 21jun2011
topicnum @ 1 = IF \ not zero; 4nov2011
EnArticle \ chance for "A" or "THE"; 21jun2011
THEN \ end of test for 1=singular; 4nov2011
THEN \ end of test for 3rd person; 21jun2011
THEN \ end of test for singular; 21jun2011
midway @ t @ DO
I 0 en{ @ qusub @ = IF \ 10oct2011
I 4 en{ @ 1 = IF \ nominative? 1jan2013
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN \ end of test for dba=1 nominative; 1jan2013
THEN
-1 +LOOP
motjuste @ urpsi !
8773 caller ! \ ASCII 87=W 73=I; test; 26sep2010
PsiDamp
0 caller ! \ test; 26sep2010
aud @ 0 > IF \ avoid #zero ERROR; \ 19sep2010
SpeechAct
THEN \ end of test to avoid ERROR; 19sep2010
0 cogpsi ! \ let another new word call WhatBe; 17oct2011
0 indefmust ! \ reset for safety; 20oct2011
0 moot ! \ resume associative tagging; 24oct2011
0 qusub ! \ zero out for safety; 10oct2011
0 subjpsi ! \ reset for safety; 17oct2011
0 topic ! \ reset for safety; 18oct2011
0 whoflag ! \ Prevent EnArticle; 6oct2011
; ( http://code.google.com/p/mindforth )
: AskUser ( outputs questions of a speculative nature )
35 pov ! \ #35=internal; *42=external; 29dec2012
ynverb @ 0 = IF \ only ask y/n question once; 24jun2011
quverb @ ynverb ! \ isolate at start; 24jun2022
\ nphrnum @ 2 = IF \ if plural trigger; test; 24jun2011
\ nphrnum @ 2 = IF \ Commenting out for InFerence; 1jan2013
AuxVerb \ to say DO or DOES; 24jun2011
\ midway @ t @ DO \ search English vocab; 24jun2011
midway @ inft @ DO \ skip silent inference; 27dec2012
I 0 en{ @ qusub @ = IF ( kbtv )
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN
-1 +LOOP
tkbv @ tqv ! \ qusub needs a tqv to quverb 29dec2012
SpeechAct \ to say the subject; 24jun2011
t @ tkbn ! \ if engram is to be changed; 2jul2011
quverb @ t @ 7 psi{ ! \ insert as seq; 29dec2012
qusub @ nacpsi ! \ transfer activand; 25jun2011
62 nounval ! \ prime NounAct; 24jun2011
NounAct \ activate the query subject; 24jun2011
midway @ t @ DO \ search English vocab; 24jun2011
I 0 en{ @ ynverb @ = IF ( yes-or-no verb )
I 2 en{ @ 2 = IF \ as if infinitive; 24jun2011
I 8 en{ @ aud ! \ fetch recall-vector 10nov2012
LEAVE \ one engram is enough; 24jun2011
THEN \ end of test for plural as if infinitive
THEN
-1 +LOOP
aud @ 0 = IF \ if no plural accept singular 24jun2011
midway @ t @ DO \ search English vocab; 24jun2011
I 0 en{ @ ynverb @ = IF ( yes-or-no verb )
I 2 en{ @ 1 = IF \ second choice; 24jun2011
I 8 en{ @ aud ! \ fetch recall-vector
LEAVE \ one engram is enough; 24jun2011
THEN \ end of test for plural as if infinitive
THEN
-1 +LOOP
THEN \ end of test for no engram found; 24jun2011
aud @ 0 = IF \ if neither plural nor singular; 25aug2011
midway @ t @ DO \ search English vocab; 25aug2011
I 0 en{ @ ynverb @ = IF ( yes-or-no verb )
I 8 en{ @ aud ! \ fetch recall-vector
LEAVE \ one engram is enough; 25aug2011
THEN \ end of test for any form at all; 25aug2011
-1 +LOOP
THEN \ end of third test for no engram found; 25aug2011
ynverb @ nacpsi ! \ transfer activand; 25jun2011
62 verbval ! \ prime VerbAct; 2jul2011
VerbAct \ activate the query verb; 25jun2011
SpeechAct \ to say yes-or-no verb; 24jun2011
t @ 1 - tkbv ! \ if engram is to be changed; 2jul2011
tkbv @ tkbn @ 6 psi{ ! \ noun's tqv; 29dec2012
quverb @ tkbn @ 7 psi{ ! \ noun's seq; 29dec2012
quobj @ tkbv @ 7 psi{ ! \ verb's seq; 29dec2012
quobj @ 0 = quobj @ 586 = OR IF \ nothing or ERROR
711 quobj ! \ 711=ANYTHING by default; 10nov2012
THEN \ end of test for a query-object; 20jul2011
\ midway @ t @ DO \ search English vocab; 24jun2011
midway @ inft @ DO \ skip silent inference; 27dec2012
I 0 en{ @ quobj @ = IF ( query-object? )
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN
-1 +LOOP
aud @ 2 < IF \ if zero or ERROR; 25aug2011
midway @ t @ DO \ search English vocab; 25aug2011
I 0 en{ @ 711 @ = IF \ 711=ANYTHING; 10nov2012
I 8 en{ @ aud ! \ 10nov2012
LEAVE \ 25aug2011
THEN \ 25aug2011
-1 +LOOP \ 25aug2011
THEN \ 25aug2011
SpeechAct \ to say query-object; 24jun2011
t @ tkbv @ 6 psi{ ! \ insert quverb's tqv; 29dec2012
\ THEN \ end of test for a plural nphrnum; 24jun2011
\ THEN \ Commenting out; soon remove as obsolete; 1jan2013
0 yncon ! \ because question has been asked; 2jul2011
1 kbcon ! \ because waiting for answer; 2jul2011
0 ynverb ! \ zero out; prevent repeat of query 24jun2011
THEN \ end of test for a positive ynverb; 24jun2011
5 bias ! \ Restore expectation of noun; 24jun2011
; ( http://code.google.com/p/mindforth/wiki/AskUser )
: EnPronoun \ For use with what-do-X-do queries.
num @ 1 = IF \ If antecedent num(ber) is singular.
mfn @ 1 = IF \ if masculine singular; 13apr2010
midway @ t @ DO \ Look backwards for 49=HE.
I 0 en{ @ 713 = IF \ If 713=HE is found,
713 motjuste ! \ "nen" concept #713 for "he".
I 8 en{ @ aud ! \ Recall-vector for "he".
LEAVE \ Use the most recent engram of "he".
THEN \ End of search for 713=HE; 10-nov2012.
-1 +LOOP \ End of loop finding pronoun "he".
SpeechAct \ Speak or display the pronoun "he".
THEN \ end of test for masculine gender-flag.
mfn @ 2 = IF \ if feminine singular.
midway @ t @ DO \ Look backwards for 80=SHE
I 0 en{ @ 719 = IF \ If 719=SHE is found,
719 motjuste ! \ "nen" concept #719 for "she".
I 8 en{ @ aud ! \ Recall-vector for "she".
LEAVE \ Use the most recent engram of "she".
THEN \ End of search for #719 "she".
-1 +LOOP \ End of loop finding pronoun "she"
SpeechAct \ Speak or display the pronoun "she"
THEN \ end of test for feminine gender-flag.
mfn @ 3 = IF \ if neuter singular; 13apr2010
midway @ t @ DO \ Look backwards for 725=IT.
I 0 en{ @ 725 = IF \ If 725=IT is found,
725 motjuste ! \ "nen" concept #725 for "it".
I 8 en{ @ aud ! \ Recall-vector for "it".
LEAVE \ Use the most recent engram of "it".
THEN \ End of search for 725=IT; 10nov2012
-1 +LOOP \ End of loop finding pronoun "it".
SpeechAct \ Speak or display the pronoun "it".
THEN \ end of test for neuter gender-flag.
0 numsubj ! \ safety measure; 13apr2010
THEN \ End of test for singular num(ber)
num @ 2 = IF \ 30dec2009 If num(ber) of antecedent is plural
( code further conditions for "WE" or "YOU" )
midway @ t @ DO \ Look backwards for 743=THEY.
I 0 en{ @ 743 = IF \ If 743=THEY is found,
743 motjuste ! \ "nen" concept #743 for "they".
I 8 en{ @ aud ! \ Recall-vector for "they".
LEAVE \ Use the most recent engram of "they".
THEN \ End of search for 743=THEY; 10nov2012.
-1 +LOOP \ End of loop finding pronoun "they".
SpeechAct \ Speak or display the pronoun "they".
THEN \ 30dec2009 End of test for plural num(ber)
; ( http://code.google.com/p/mindforth/wiki/EnPronoun )
: NounPhrase ( select part of a thought )
0 audjuste ! \ prevent carry-over; 20oct2011
verblock @ 0 > IF \ positive verblock? 20oct2011
verblock @ 6 psi{ @ nounlock ! \ test; 20oct2011
THEN \ end of test for a positive verblock; 20oct2011
66 caller ! \ here and further down; 12oct2010
objold @ urpsi ! \ here and further down; 12oct2010
0 caller ! \ reset after use; 12oct2010
0 urpsi ! \ reset for safety; 12oct2010
EnReify ( move abstract Psi concepts to EnVocab reality )
0 act !
0 aud !
-64 defact ! \ for default comparisons with "50=I"; 9oct2011
0 kibosh ! \ for de-activating non-selectees; 17aug2011
0 motjuste !
0 nphrnum ! \ prevent carry-overs; 11oct2011
0 num ! \ without prejudice; 29aug2010
0 prsn ! \ without prejudice; 29aug2010
0 putnum ! \ prevent carry-over from previous; 4nov2011
0 recnum ! \ prevent carry-over from previous; 4nov2011
0 tpeg ! \ reset for safety; 28sep2011
nounlock @ 0 > IF \ already a nounlock? 19oct2011
nounlock @ 2 en{ @ scn ! \ subject-concept-number 17jul2012
nounlock @ 8 en{ @ audjuste ! \ tentatively; 10nov2012
THEN \ end of test for a positive nounlock; 19oct2011
5 opt !
35 pov !
1 subjectflag ! ( 3dec2009 A default until countermanded )
dirobj @ 1 = IF 0 subjectflag ! THEN ( 3dec2009 anti-default )
predflag @ 1 = IF 0 subjectflag ! THEN ( anti-default 8oct2010 )
0 psi !
midway @ t @ DO
I 5 psi{ @ 5 = I 5 psi{ @ 7 = OR IF \ POS; 12aug2011
I 0 en{ @ 65 = IF I 8 en{ @ audme ! THEN \ 10nov2012
subjectflag @ 1 = IF \ test; change; 26aug2011
I 1 psi{ @ act @ > I 6 psi{ 0 > AND IF \ 6oct2011
I 7 psi{ @ 0 > IF \ Testing for seq-concept; 12oct2011
I tsels ! \ retain time of subject; 11sep2011
I tseln ! \ retain time of motjuste; 11sep2011
I 0 psi{ @ motjuste ! \ 12aug2011
I 2 psi{ @ nphrnum ! \ NounPhrase num(ber); 6oct2011
I 2 psi{ @ subjnum ! \ 11oct2011
I 2 psi{ @ snu ! ! \ verb-select parameter 21dec2012
THEN \ reinstating for subjects; 3oct2011
( insert NPhr diagnostic code here; 11sep2011 )
I 2 psi{ @ subjnum ! \ verbs in general; 12aug2011
motjuste @ subjold ! \ keep oldsubject ready; 8oct
I 2 psi{ @ putnum ! \ putative num for verb; 12aug2011
I 5 psi{ @ nphrpos ! \ NounPhrase part-of-speech
I 1 psi{ @ act @ > I 7 psi{ @ 0 > AND IF \ 12oct2011
I tpeg ! \ peg the time-slice; 28sep2011
I 7 psi{ @ svo2 ! \ hold seq; test; 12oct2011
I 6 psi{ @ verblock ! \ tqv of seq-concept; 12oct2011
midway @ t @ DO \ from Wotan German AI; 21dec2012
I 0 en{ @ motjuste @ = IF \ same concept?
I 8 en{ @ 0 > IF \ skip non-rv; 21dec2012
\ I 2 en{ @ snu @ = IF \ same subj. number?
\ I 4 en{ @ 1 = IF \ nom. for subj? 21dec2012
I 8 en{ @ audjuste ! \ avoid spurious
\ I 8 en{ @ 0 > IF \ positive recall-vector?
\ 1 8 en{ @ audjuste ! \ recall-vector 21dec
\ THEN \ end of test for positive rv 21dec2012
\ THEN \ end of dba-test for nominative
\ THEN \ end of subject-number test; 21dec2012
THEN \ end of skipping InFerence non-rb 21dec2012
THEN \ end of search of English lexicon 21dec2012
-1 +LOOP \ end of English lexicon search 21dec2012
\ I 8 en{ @ audjuste ! \ avoid the spurious; 10nov2012
motjuste @ 701 = IF \ guarantee "I"; 10nov2012
midway @ t @ DO \ search backwards; 25oct2011
I 0 en{ @ 701 = IF \ "701=I" 20dec2012
I 8 en{ @ audjuste ! \ recall-vector
LEAVE \ one I-engram is enough; 25oct2011
THEN \ end of test for "701=I"; 10nov2012
-1 +LOOP \ end of "701=I" search loop; 10nov2012
THEN \ end of test for "701=I"; 10nov2012
motjuste @ 707 = IF \ guarantee "YOU"; 10nov2012
midway @ t @ DO \ search backwards; 25oct2011
I 0 en{ @ 707 = IF \ "707=YOU"; 10nov2012
I 8 en{ @ audjuste ! \ recall-vector
LEAVE \ one YOU-engram is enough; 20dec2012
THEN \ end of test for "707=YOU"; 10nov2012
-1 +LOOP \ end of 707=YOU search loop; 10nov2012
THEN \ end of test for "707=YOU"; 10nov2012
I 1 psi{ @ act ! \ after passing seq-check; 28aug2011
THEN \ reinstating to prevent false motjuste; 6oct2011
THEN \ end of test for a higher activation; 26aug2011
THEN \ end of test for 1=subjectflag; test; 26aug2011
subjectflag @ 0 = IF \ i.e., dir.obj or pred.nom; 15oct2011
nounlock @ 0 > IF
nounlock @ 0 psi{ @ motjuste ! \ nounlock psi; 22dec2012
ELSE
I 1 psi{ @ act @ > IF \ if higher; 12aug2011
I tseln ! \ retain time of motjuste; 8may2011
I 0 psi{ @ motjuste ! \ 26aug2011
( insert NPhr diagnostic code here; 9sep2011 )
nounlock @ 0 > IF \ if positive nounlock exists; 8oct2011
I nounlock @ = IF \ upon reaching engram; 8oct2011
I 0 psi{ @ motjuste ! \ grab nounlock psi; 8oct2011
I 2 psi{ @ nphrnum ! \ NounPhrase num(ber) 11oct2011
I 2 en{ @ pcn ! \ predicate concept number 16jul2012
\ I 8 en{ @ audjuste ! \ 10nov2012
midway @ t @ DO \ look for recall-vector; 22dec2012
I 0 en{ @ motjuste @ = IF \ same concept? 22dec2012
I 8 en{ @ 0 > IF \ positive rv? 22dec2012
I 8 en{ @ audjuste ! \ 22dec2012
THEN \ end of test for recall-vector; 22dec2012
THEN \ end of test for concept; 22dec2012
-1 +LOOP \ end of English lexicon search; 22dec2012
LEAVE \ prevent usurpation of pre-ordained seq 8oct2011
THEN \ end of test for Index = nounlock; 8oct2011
THEN \ end of test for positive nounlock; 8oct2011
\ I 0 psi{ @ subjpsi ! \ Commenting out; 20dec2012
I 2 psi{ @ nphrnum ! \ NounPhrase num(ber); 12aug2011
I 2 psi{ @ putnum ! \ putative num for verb; 12aug2011
I 5 psi{ @ nphrpos ! \ NounPhrase part-of-speech
dirobj @ 1 = IF
motjuste @ objold ! \ a test ICW slosh-over; 12oct2010
THEN ( http://christophe.lavarenne.free.fr/ff )
I 1 psi{ @ act @ > IF \ 26aug2011
I 1 psi{ @ act ! \ 12aug2011
THEN \ 26aug2011
THEN \ end of test for a higher activation; 26aug2011
THEN \ end of test for positive nounlock; 22dec2012
THEN \ end of test for 0=subjectflag; test; 26aug2011
THEN \ end of test for a noun or pronoun; 26aug2011
-1 +LOOP \ End of search for most active "motjuste"; 20dec2012
subjectflag @ 1 = IF motjuste @ subjpsi ! THEN \ 20dec2012
nounlock @ 0 > IF \ 22dec2012
midway @ t @ DO \ from Wotan German AI; 22dec2012
I 0 en{ @ motjuste @ = IF \ same concept?
I 8 en{ @ 0 > IF \ skip non-rv; 22dec2012
I 8 en{ @ audjuste ! \ 22dec2012
LEAVE \ if correct parameters; 22dec2012
THEN \ emd of test for positive en8; 22dec2012
THEN \ end of test for match with motjuste; 22dec2102
-1 +LOOP \ end of English lexicon search 22dec2012
THEN \ end of test for positive nounlock; 22dec2012
midway @ t @ DO \ search backwards; 12aug2011; 12sep2011
I 0 en{ @ motjuste @ = IF \ 12aug2011
predflag @ 1 = IF \ only for predicate nominatives;
nounlock @ 0 = IF \ in absence of nounlock; 19oct2011
I 2 en{ @ subjnum @ = IF \ agreement? 19sep2011
I 8 en{ @ audjuste ! \ recall-vector; 10nov2012
LEAVE \ one auditory engram is enough; 12aug2011
THEN ( http://practicalai.org )
THEN \ end of test for absence of nounlock; 19oct2011
ELSE \ for normal direct objects; 19sep2011
verblock @ 0 = IF \ if no verblock; test; 19oct2011
I 8 en{ @ audjuste ! \ direct object; 10nov2012
LEAVE \ one auditory engram is enough; 19sep2011
THEN \ end of test for absence of nounlock; 19oct2011
THEN \ end of test for predicate nominative; 19sep2011
THEN \ end of test for match with motjuste; 12aug2011
-1 +LOOP \ end of backwards search loop; 12aug2011
nounlock @ 0 = IF \ if no nounlock override; 8oct2011
act @ 20 < IF \ if no subject of thought is found; 21aug2011
subjectflag @ 1 = IF \ default to "I" only as subject 17oct2011
701 motjuste ! \ 701=I default concept of AI Mind; 10nov2012
midway @ t @ DO \
I 0 psi{ @ 701 = I 7 psi{ @ 0 > AND IF \ 10nov2012
I 1 psi{ @ defact @ > IF \ if higher act found; 9oct2011
I tsels ! \ retain time of subject; 9oct2011
I tseln ! \ retain time of motjuste; 9oct2011
I 6 psi{ @ verblock ! \ lock onto valid verb; 12oct2011
I 1 psi{ @ defact ! \ dynamic metric; 9oct2011
THEN \ end of test for higher-act ego-concept; 9oct2011
THEN \ end of search for least-inhibited "50=I"; 9oct2011
-1 +LOOP \ End of loop finding "50=I"; 9oct2011
701 subjpsi ! \ for use elsewhere; 10nov2012
701 topic ! \ for question-asking modules; 10nov2012
1 nphrnum ! \ for EnArticle and VerbPhrase; 6oct2011
7 nphrpos ! \ prevent article "A" with "I"; 6oct2011
1 subjnum ! \ for use elsewhere; 16aug2011
1 prsn ! \ for use elsewhere; 16aug2011
midway @ t @ DO \ Use parameters to find "I"; 11nov2012
I 0 en{ @ 701 = IF \ If 701=I is found; 10nov2012
I 4 en{ @ 1 = IF \ parameter dba=1? 11nov2012
I 8 en{ @ audjuste ! \ recall-vector; 10nov2012
LEAVE \ Use the most recent engram of "I"; 16aug2011
THEN \ end of search for nominative "I"; 11nov2012
THEN \ End of search for 701=I; 10nov2012
-1 +LOOP \ End of parameter-based search-loop; 11nov2012
THEN \ end of test for "I" to become subj. not obj. 17oct2011
THEN \ end of test for low activation warranting a default
THEN \ end of test for absence of pre-ordained nounlock; 8oct2011
nounlock @ 0 > IF \ if positive; test; 16aug2012
motjuste @ 701 = IF \ if 701=I is indicated; 10nov2012
midway @ t @ DO \ Look backwards for 65=ME; 16aug2012
I 0 en{ @ 65 = IF \ If #65 "ME" found; 16aug2012
I 8 en{ @ audjuste ! \ "ME" engram 10nov2012
LEAVE \ Use most recent engram of "ME"; 16aug2012
THEN \ End of search for #65 "ME"; 16aug2012
-1 +LOOP \ End of loop finding word "ME"; 16aug2012
THEN \ end of special override for 65=ME; 16aug2012
motjuste @ 707 = IF \ if 707=YOU is needed; 10nov2012
midway @ t @ DO \ Look backwards for 56=YOU; 16aug2012
I 0 en{ @ 56 = IF \ If #56 "YOU" found; 16aug2012
I 8 en{ @ audjuste ! \ "YOU" engram 10nov2012
LEAVE \ Use most recent engram of "YOU"; 16aug2012
THEN \ End of search for #56 "YOU"; 16aug2012
-1 +LOOP \ End of loop finding word "YOU"; 16aug2012
THEN \ end of special override for 56=YOU; 16aug2012
THEN \ end of test for a positive nounlock; 16aug2012
dirobj @ 1 = IF \ When seeking direct object; 13jun2011
nounlock @ 0 = IF \ if no nounlock override; 8oct2011
act @ 20 < IF \ If activation too low; 13jun2011
WhatAuxSVerb \ ask question for lack of dirobj 30jul2011
EXIT \ Abandon rest of NounPhrase; 13jun2011
THEN \ End of test for sufficient activation; 13jun2011
THEN \ end of test for a nounlock in play; 8oct2011
THEN \ End of test for direct object; 13jun2011
\ The following code for the irregular English noun "child"
\ serves as example code for the many German or Russian
\ irregular nouns that a "DeKi" or "PyYm" AI must deal with.
motjuste @ 112 = IF \ irregular "112=CHILD"; 10nov2011
nphrnum @ 2 < IF \ if singular is needed; 10nov2011
midway @ t @ DO \ search backwards; 10nov2011
I 0 en{ @ 525 = IF \ 525=CHILD; 11nov2012
I 8 en{ @ audjuste ! \ for SpeechAct; 10nov2011
LEAVE \ one engram is enough; 10nov2011
THEN \ end of test for CHILD-engram; 10nov2011
-1 +LOOP \ end of search of En(glish) lexicon
THEN \ end of test for singular 525=CHILD; 11nov2012
nphrnum @ 2 = IF \ 10nov2011
midway @ t @ DO \ search backwards; 10nov2011
I 0 en{ @ 526 = IF \ 526=CHILDREN; 11nov2012
I 8 en{ @ audjuste ! \ for SpeechAct; 10nov2011
LEAVE \ one engram is enough; 10nov2011
THEN \ end of test for CHILDREN-engram; 10nov2011
-1 +LOOP \ end of search of En(glish) lexicon
THEN \ end of test for plural 526=CHILDREN; 11nov2012
THEN \ end of special handling of irregular 525=CHILD;
motjuste @ 701 = IF \ if 701=I selected; 10nov2012
1 prsn ! \ first person; 29aug2010
1 num ! \ singular; 29aug2010
1 nphrnum ! \ singular; 30aug2010
THEN \ end of test for 50=I; 29aug2010
EnDamp
motjuste @ hipsi !
0 anset ! ( Insert "AN" article before vowels. )
\ MindForth may start treating "AN" as inflected "A"; 13sep2011
aud @ 0 aud{ @ 65 = IF 65 anset ! THEN ( if vowel A )
aud @ 0 aud{ @ 69 = IF 69 anset ! THEN ( if vowel E )
aud @ 0 aud{ @ 73 = IF 73 anset ! THEN ( if vowel I )
aud @ 0 aud{ @ 79 = IF 79 anset ! THEN ( if vowel O )
aud @ 0 aud{ @ 85 = IF 85 anset ! THEN ( if vowel U )
\ Following code covers also "audjuste"; 21oct2011
audjuste @ 0 aud{ @ 65 = IF 65 anset ! THEN ( if A )
audjuste @ 0 aud{ @ 69 = IF 69 anset ! THEN ( if E )
audjuste @ 0 aud{ @ 73 = IF 73 anset ! THEN ( if I )
audjuste @ 0 aud{ @ 79 = IF 79 anset ! THEN ( if O )
audjuste @ 0 aud{ @ 85 = IF 85 anset ! THEN ( if U )
whoflag @ 0 = IF \ If not answering a who-is query; 23jul2010
\ EnArticle \ Give a chance, not an order; 23jul2010
nphrnum @ 1 = IF \ not default zero; 4nov2011
\ EnArticle \ for true singular; 4nov2011
THEN \ end of test for 1=singular; 4nov2011
0 whoflag ! \ Here instead of at InStantiate; 23jul2010
THEN \ End of test for zero whoflag; 23jul2010
whoflag @ 1 = IF \ If answering a who-is query; 26aug2011
EnArticle \ answer with Is-a etc.; 26aug2011
0 whoflag \ zero out after use; 26aug2011
THEN \ end of whoflag test; 26aug2011
num @ 1 = IF \ If num(ber is singular; 10ap2010
EnPronoun \ Prepare to substitute he she it; 10apr2010
THEN \ End of test of num(ber); 10apr2010
motjuste @ 701 = NOT IF \ if not 701=I; 10nov2012
motjuste @ 707 = NOT IF \ not 707=you; 10nov2012
motjuste @ 731 = NOT IF \ 731=WE; 10nov2012
3 prsn ! \ not I YOU WE; 29aug2010
THEN \ end of test for 731=WE; 10nov2012
THEN \ end of test for 707=YOU; 10nov2012
THEN \ end of test for "not I" 29aug2010
motjuste @ nacpsi !
( could use "subjectflag" for test below; 18oct2010 )
dirobj @ 0 = IF \ only let subjects call NounAct; 17oct2010
NounAct
THEN \ end of test originating in JavaScript AI; 17oct2010
0 nacpsi !
0 nounval !
66 caller ! \ test; 26sep2010
motjuste @ urpsi ! \ test; 17oct2010
PsiDamp \ to prevent interference; 17oct2010
0 caller ! \ reset after use; 26sep2010
0 urpsi ! \ reset for safety; 24sep2010
66 caller ! \ test; 12oct2010
objold @ urpsi ! \ test; 12oct2010
0 caller ! \ reset after use; 12oct2010
0 urpsi ! \ reset for safety; 12oct2010
-8 tsels @ 1 psi{ ! \ Let subjects re-surface; 12oct2011
predflag @ 1 = dirobj @ 1 = OR IF \ test; 29may2011
-16 tseln @ 1 psi{ ! \ test; 12oct2011
THEN \ only inhibit predicate nominatives; 11sep2010
predflag @ 1 = IF \ helps for Is-a; 15sep2010
EnArticle \ say "A" or "THE"; 15sep2010
THEN \ end of test; 15sep2010
audjuste @ aud !
aud @ 0 > IF \ avoid ERROR; 19sep2010
SpeechAct \ Display or speak the selected noun-phrase.
0 anset ! \ Reset for safety; 21oct2011
THEN \ end of test for 0=aud ERROR; 19sep2010
predflag @ 1 = dirobj @ 1 = OR IF \ both; 23jun2011
-32 t @ 1 - 1 psi{ ! \ inhibit new noun-node; 27sep2010
-32 t @ 1 psi{ ! \ AI is now robust enough; 5aug2011
THEN \ only inhibit predicate nominatives; 12sep2010
-16 t @ 1 - 1 psi{ ! \ Even shallower; 12oct2011
-16 t @ 1 psi{ ! \ Even shallower; 12oct2011
32 EMIT
fyi @ 2 > IF CR
." from NounPhrase "
THEN
motjuste @ topic !
instnum @ topicnum !
dirobj @ 1 = predflag @ 1 = OR IF \ if set; 24sep2010
66 caller ! \ test; 26seo2010
motjuste @ urpsi ! \ prepare to psi-damp motjuste; 24sep
PsiDamp \ knock down activation of non-subject; 24sep2010
0 caller ! \ test; 26sep2010
0 urpsi ! \ reset for safety; 24sep2010
THEN \ end of test for a non-subject (pro)noun; 24sep2010
0 act !
0 aftjux ! \ reset for safety; 27jul2011
0 anset ! \ reset for safety; 21oct2011
0 jux ! \ reset for safety; 27jul2011
0 nounlock ! \ after causing selection of VPhr seq-noun 8oct2011
0 prejux ! \ reset for safety; 27jul2011
0 psi !
0 psi3 ! \ reset for safety 27jul2011
; ( http://code.google.com/p/mindforth/wiki/NounPhrase )
: ConJoin
questype @ 370 = IF \ 370=WHY; 10nov2012
344 conj ! \ 344=BECAUSE; 10nov2012
ELSE 302 conj ! \ 302=AND; 10nov2012
THEN ( http://www.taygeta.com/forth.html )
midway @ t @ DO
I 0 en{ @ conj @ = IF
conj @ motjuste !
I 8 en{ @ aud ! \ 10nov2012
LEAVE
THEN
-1 +LOOP
SpeechAct
0 questype !
; ( http://code.google.com/p/mindforth/wiki/ConJoin )
: VerbGen ( stub of verb-generation module; 15nov2012 )
\ VerbGen uses "audbase" as a starting point in auditory
\ memory for the transfer of a left-justified verb first
\ into AudBuffer and then as a right-justified word into
\ OutBuffer so that inflectional endings ("-S": "-ING")
\ may be added to or subtracted from the word in memory.
\ http://www.scn.org/~mentifex/Dushka.html is Russian AI
\ with major use of VerbGen, which will also be used in
\ http://www.scn.org/~mentifex/DeKi.txt German Wotan AI.
; \ End of stub of VerbGen module for verb-generation.
\ The VerbPhrase module aims for the following entelechy goals.
\ [ ] If no predicate nominative is known, detour into a question.
\ [ ] If no transitive verb is most active, default to verb of being.
\ [ ] If no direct object is found, detour into asking a question.
\ 7dec2009 If no verb is found for a noun, defer to SelfRef NOT-KNOW.
\ [ ] If a transitive verb is most active, try to find direct object.
\ [X] Find whatever verb is most active after a noun-phrase.
\ Verb-selection shifts from en{ array to psi{ array on 12aug2011.
: VerbPhrase ( supervise verb syntax )
verblock @ 0 > IF \ positive verbloc? 20oct2011
verblock @ 6 psi{ @ nounlock ! \ test; 20oct2011
THEN \ end of test for a positive verblock; 20oct2011
0 subjectflag ! \ for only absolute SpreadAct; test; 4aug2011
EnReify
0 act !
0 aud !
0 kibosh ! \ for de-activating non-selectees; 17aug2011
0 motjuste !
verblock @ 0 > IF \ already a verblock? 20oct2011
verblock @ 0 en{ @ verbpsi ! \ lexical verbpsi 13nov2012
verblock @ 8 en{ @ audbase ! \ VerbGen parameter 13nov2012
subjpsi @ 701 = subjpsi @ 731 = OR IF 1 prsn ! THEN \ I or WE
subjpsi @ 707 = subjpsi @ 737 = OR IF 2 prsn ! THEN \ YOU
subjpsi @ 713 = subjpsi @ 719 = OR IF 3 prsn ! THEN \ HE; SHE
subjpsi @ 725 = subjpsi @ 743 = OR IF 3 prsn ! THEN \ IT THEY
prsn @ dba ! \ from DeKi; parameter for VerbGen; 21dec2012
\ verblock @ 8 en{ @ vphraud ! \ tentatively; 10nov2012
0 vphraud ! \ until a known verb is found; 22dec2012
midway @ t @ DO \ from Wotan AI; search lexicon; 22dec2012
I 0 en{ @ verbpsi @ = IF \ 1: same psi? 22dec2012
I 8 en{ @ 0 > IF \ skip InF lacking aud; 22dec2012
I 8 en{ @ vphraud ! \ tentatively; 22dec2012
THEN \ end of check for positive rv; 22dec2012
THEN \ end of parameter test; 22dec2012
-1 +LOOP \ end of loop searching lexicon; 22dec2012
THEN \ end of test for a positive verblock; 20oct2011
8 opt !
0 psi !
0 vphract ! \ for validity of threshold-tests; 15aug2011
\ 0 vphraud ! \ prevent spurious carry-overs; 3oct2011
\ 0 vphraud ! \ commenting out as a test; 22dec2012
adverbact 32 > IF
( EnAdverb )
THEN ( http://theforthsource.com )
fyi @ 1 > IF CR
." VerbPhrase preview with slosh-over indicated by + --"
CR
." Disparate verb-node activations slosh " \ 7nov2010
." over onto candidate objects." CR ." " \ 7nov2010
THEN
verblock @ 0 = IF \ prevent false negations; 20oct2011
midway @ t @ DO \ Search backwards through psi concepts.
I 5 psi{ @ 8 = IF \ if 8=pos verb; 12aug2011
I 1 psi{ @ act @ > IF ( if psi1 is higher 12aug2011 )
I tselv ! \ retain time of winning verb; 8may2011
tselv @ kibosh @ < IF \ if different 17aug2011
\ ." KIBOSH = " kibosh @ . \ 17aug2011
0 kibosh @ 1 psi{ ! \ deactivate also-ran; 17aug2011
THEN \ end of comparison; 17aug2011
I kibosh ! \ time of predecessor cand 17aug2011
I 0 psi{ @ motjuste ! ( store psi-tag of verb 12aug2011 )
I 3 psi{ @ negjux ! ( record any 250=NOT; 21dec2012 )
( insert diagnostic code here; 7sep2011 )
verblock @ 0 > IF \ if positive verblock exists; 8oct2011
I verblock @ = IF \ upon reaching engram; 8oct2011
I tselv ! \ time of sel. of verb; 30jul2012
I 0 psi{ @ motjuste ! \ grab verblock psi; 8oct2011
64 act ! \ to pass threshold-test; 20oct2011
I 3 psi{ @ negjux ! \ for negation of verb; 9oct2011
I 8 en{ @ vphraud ! \ for SpeechAct; 10nov2012
I 6 psi{ @ nounlock ! \ after verb grab seq; 12oct2011
LEAVE \ prevent usurpation of pre-ordained seq; 7oct2011
THEN \ end of test for Index = verblock; 8oct2011
THEN \ end of test for positive verblock; 8oct2011
I 1 psi{ @ 0 > IF \ positive activation; 12aug2011
I 3 psi{ @ psi3 ! ( Check for negation; 25jun2011 )
verblock @ 0 = IF \ test; 20oct2011
I 3 psi{ @ negjux ! ( be-verb negation; 9oct2011 )
THEN \ end of avoidance of false negation; 20oct2011
I 6 psi{ @ tqv ! \ underailable qtv; 12oct2011
THEN \ end of test for positive activation; 27jul2011
I 5 psi{ @ predpos ! ( Grab winning part of speech 12aug2011 )
I 8 en{ @ vphraud ! ( auditory recall-vector 10nov2012 )
I 1 psi{ @ act ! ( to test for a higher psi1 12aug2011 )
THEN ( http://win32forth.sourceforge.net )
THEN \ end of test for opt=8 verbs; 8sep2011
-1 +LOOP \ end of loop cycling back through psi concepts
THEN \ end of verblock-test to prevent false negations; 20oct2011
verblock @ 0 > IF \ if positive verblock exists; 20oct2011
verblock @ 0 psi{ @ motjuste ! \ verblock override; 21oct2011
verblock @ 3 psi{ @ negjux ! \ capture any 250=NOT; 21dec2012
vphraud @ 0 = IF \ prevent override of selection 22dec2012
verblock @ 8 en{ @ vphraud ! \ auditory recall-v; 10nov2012
THEN \ end of test to prevenmt override; 22dec2012
64 act ! \ prevent rejection of selection; 20oct2011
THEN \ end of test for positive verblock; 20oct2011
tqv @ 0 psi{ @ svo3 ! \ test; 29sep2011
\ 128 tqv @ 1 psi{ ! \ accentuate tqv-seq; 29sep2011
tqv @ 0 > IF 128 tqv @ 1 psi{ ! THEN \ test; 24jan2012
act @ vphract ! \ for threshold comparisons; 21jun2011
act @ verbval !
0 psi !
fyi @ 2 > IF
CR ." VerbPhrase: motjuste = " motjuste @ .
." going into SPEECH."
CR ." VerbPhrase: aud = " aud @ .
." going into SPEECH."
THEN
motjuste @ 0 = IF
nphrnum @ 1 = IF \ 21jun2011
mfnflag @ 0 > IF \ if masc. or fem.; 30jul2011
fyi @ 2 = IF ." VPhr calls WhoBe" THEN \ 4jul2012
WhoBe \ ask WHO not WHAT; 30jul2011
0 mfnflag ! \ reset after use; 30jul2011
EXIT \ abandon rest of VerbPhrase
THEN \ end of test for positive mfnflag; 30jul2011
fyi @ 2 = IF ." VPhr calls WhatBe" THEN \ 6jul2012
WhatBe \ for a what-is question; test; 21jun2011
EXIT \ abandon rest of VerbPhrase; 2jul2011
THEN \ 21jun2011
nphrnum @ 2 = IF \ 2jul2011
fyi @ 2 = IF ." VPhr calls WhatAuxSDo" THEN \ 6jul2012
WhatAuxSDo \ what do Subjects do? 2jul2011
1 yncon ! \ after input ask yes-or-no question
EXIT \ abandon rest of VerbPhrase; 2jul2011
THEN \ end of test for plural noun; 2jul2011
THEN
motjuste @ 0 > IF
vphract @ 20 < IF \ a test ICW WhoBe; 21jun2011
nphrnum @ 1 = IF \ 21jun2011
mfnflag @ 0 > IF \ if masc. or fem.; 30jul2011
fyi @ 2 = IF ." VerbPhr calls WhoBe" THEN \ 4jul2012
WhoBe \ ask WHO not WHAT; 30jul2011
0 mfnflag ! \ reset after use; 30jul2011
EXIT \ abandon rest of VerbPhrase
THEN \ end of test for positive mfnflag; 30jul2011
fyi @ 2 = IF ." VerbPhr calls WhatBe" THEN \ 6jul2012
WhatBe \ for a what-is question; test; 21jun2011
EXIT \ abandon rest of VerbPhrase; 30jul2011
THEN \ 21jun2011
nphrnum @ 2 = IF \ 2jul2011
fyi @ 2 = IF ." VPhr calls WASD" THEN \ 6jul2012
WhatAuxSDo \ what do Subjects do? 2jul2011
1 yncon ! \ after input ask yes-or-no question
EXIT \ abandon rest of VerbPhrase; 2jul2011
ELSE \ if "nphrnum" neither 1 nor 2; 15aug2011
EXIT \ to avoid a spurious thought; 15aug2011
THEN \ end of test for plural noun; 2jul2011
THEN \ End of test of vphract; 21jun2011
psi3 @ 250 = negjux @ 250 = OR IF \ 10nov2012
motjuste @ 800 = NOT IF \ 10nov2012
AuxVerb \ to say "DO" or "DOES" 25jun2011
midway @ t @ DO \ Search En(glish) array; 25jun2011
\ I 0 en{ @ 12 = IF \ Look for "NOT"; 25jun2011
I 0 en{ @ 250 = IF \ Look for "NOT"; 29dec2012
I 8 en{ @ aud ! \ Auditory start-tag 10nov2012
LEAVE \ One instance of NOT suffices; 25jun2011
THEN \ End of lexical test for 250=NOT; 19dec2012
-1 +LOOP \ End of loop searching for 250=NOT; 29dec2012
SpeechAct \ Say the word "NOT"; 25jun2011
0 psi3 ! \ reset for safety; 27jul2011
THEN \ end of test to not say do w. be-verbs; 28jul2011
THEN \ end of test for psi3 jux negation; 25jun2011
motjuste @ 800 = NOT IF \ if not a be-verb; 10nov2012
nphrnum @ 1 = IF \ 14aug2011
prsn @ 3 = IF \ Only for third person; 8may2011
83 flex1 ! \ for flex1,2,3 (-S; -ING); 11sep2011
1 vpos ! \ 14aug2011
THEN \ End of test for 3rd person (sing) 8may2011
THEN \ end of test fof singular; 14aug2011
THEN \ end of test for not a be-verb; 14aug2011
motjuste @ hipsi !
motjuste @ 830 = IF \ irregular 830=DO; 10nov2012
subjnum @ 1 = prsn @ 3 = AND IF \ 5oct2011
midway @ t @ DO \ search backwards; 5oct2011
I 0 en{ @ 830 = IF \ 830=DO; 10nov2012
I 2 en{ @ 1 = IF \ singular? 10nov2012
I 4 en{ @ 3 = IF \ 3rd pers? 10nov2012
I 8 en{ @ vphraud ! \ 10nov2012
LEAVE \ one engram is enough; 5oct2011
THEN \ end of test for third person 10nov2012
THEN \ end of test for singular; 10nov2012
THEN \ end of test for 830=DO; 10nov2012
-1 +LOOP \ end of search of En(glish) lexicon
THEN \ end of test for 3rd person singular; 5oct2011
THEN \ end of special handling of 59=DO; 5oct2011
\ The following code for the irregular English verb
\ "to have" serves as example code for the many German
\ irregular verbs that a polyglot AI must deal with.
motjuste @ 810 = IF \ irregular 810=HAVE; 10nov2012
subjnum @ 1 = prsn @ 3 = AND IF \ 13aug2011
midway @ t @ DO \ search backwards; 13aug2011
I 0 en{ @ 810 = IF \ 810=HAVE 10nov2012
I 2 en{ @ 1 = IF \ singular? 10nov2012
I 4 en{ @ 3 = IF \ 3rd pers? 10nov2012
I 8 en{ @ vphraud ! \ 10nov2012
LEAVE \ one engram is enough; 13aug2011
THEN \ end of test for 3rd person; 10nov2012
THEN \ end of test for singular; 10nov2012
THEN \ end of test for HAS-engram; 13aug2011
-1 +LOOP \ end of search of En(glish) lexicon
THEN \ end of test for 3rd person singular; 13aug2011
THEN \ end of special handling of 70=HAVE; 13aug2011
motjuste @ 800 = IF \ present-tense be-verb? 10nov2012
1 predflag ! \ for sake of NounPhrase; 26aug2011
subjnum @ 1 = IF \ singular subject number; 16aug2011
prsn @ 1 = IF \ first person; 16aug2011
midway @ t @ DO \ search En-lexicon; 16aug2011
I 0 en{ @ 57 = IF \ 57=AM; 16aug2011
I 8 en{ @ vphraud ! \ engram; 10nov2012
LEAVE \ one engram is enough; 16aug2011
THEN \ end of test for 57=AM; 16aug2011
-1 +LOOP \ end of loop; 16aug2011
THEN \ end of test for first person; 16aug2011
prsn @ 2 = IF \ singular or plural; 16aug2011
midway @ t @ DO \ search En-lexicon; 16aug2011
I 0 en{ @ 67 = IF \ 67=ARE; 16aug2011
I 8 en{ @ vphraud ! \ engram; 10nov2012
LEAVE \ one engram is enough; 16aug2011
THEN \ end of test for 67=ARE; 16aug2011
-1 +LOOP \ end of loop; 16aug2011
THEN \ end of test for second person; 16aug2011
prsn @ 3 = IF \ third person; 16aug2011
midway @ t @ DO \ search En-lexicon; 16aug2011
I 0 en{ @ 66 = IF \ 66=IS; 16aug2011
I 8 en{ @ vphraud ! \ engram; 10nov2012
LEAVE \ one engram is enough; 16aug2011
THEN \ end of test for 66=IS; 16aug2011
-1 +LOOP \ end of loop; 16aug2011
THEN \ end of test for third person; 16aug2011
THEN \ end of test for singular; 16aug2011
subjnum @ 2 = IF \ if plural subject; 16aug2011
midway @ t @ DO \ search En-lexicon; 16aug2011
I 0 en{ @ 67 = IF \ 67=ARE; 16aug2011
I 8 en{ @ vphraud ! \ engram; 10nov2012
LEAVE \ one engram is enough; 16aug2011
THEN \ end of test for 67=ARE; 16aug2011
-1 +LOOP \ end of loop; 16aug2011
THEN \ end of test for plural number; 16aug2011
THEN \ end of two-step be-verb substitution; 16aug2011
motjuste @ 800 = IF \ 800=BE; 10nov2012
subjpsi @ 701 = IF \ 701=I; 10nov2012
midway @ t @ DO \ search En(glish) array; 21aug2011
I 0 en{ @ 800 = IF \ 800=BE; 10nov2012
800 motjuste ! ( Set verbform to "BE" 10nov2012 )
800 urpsi ! ( parameter for PsiDamp 10nov2012 )
I 2 en{ @ 1 = IF \ singular? 10nov2012
I 4 en{ @ 1 = IF \ 1st pers? 10nov2012
I 8 en{ @ vphraud ! \ SpeechAct 10nov2012
LEAVE \ recent "AM" is enough 12aug2011
THEN \ end of test for first person; 10nov2012
THEN \ end of test for singular; 10nov2012
THEN \ end of two-step test to say "AM"; 12aug2011
-1 +LOOP \ end of backwards loop; 12aug2011
THEN \ end of test for "50=I" subject-psi; 12aug2011
subjpsi @ 707 = IF ( 707=YOU; 10nov2012 )
midway @ t @ DO \ 8aug2011
I 0 en{ @ 800 = IF \ 800=BE 10nov2012
I 2 en{ @ 1 = IF \ singular? 10nov2012
I 4 en{ @ 2 = IF \ 2nd pers? 10nov2012
I 8 en{ @ vphraud ! \ 10nov2012
LEAVE \ 8aug2011
THEN \ end of test for 2nd person; 10nov2012
THEN \ end of test for singular; 10nov2012
THEN \ end of test for 800=BE: 10nov2012
-1 +LOOP \ 8aug2011
THEN \ 8aug2011
THEN \ end of test for 58=BE; 13aug2011
motjuste @ 800 = IF \ 800=BE; 10nov2012
subjpsi @ 701 = IF \ 701=I; 10nov2012
midway @ t @ DO \ search En(glish) array; 11aug2011
I 0 en{ @ 800 = IF \ 800=BE; 10nov2012
800 motjuste ! ( Set verbform to "BE" 10nov2012 )
I 2 en{ @ 1 = IF \ singular? 10nov2012
I 4 en{ @ 1 = IF \ 1st pers? 10nov2012
I 8 en{ @ vphraud ! \ SpeechAct 10nov2012
LEAVE \ finding recent "AM" is enough 11aug2011
THEN \ end of test for first person; 10nov2012
THEN \ end of test for singular; 10nov2012
THEN \ end of test for be-verb; 10nov2012
-1 +LOOP \ end of backwards loop; 11aug2011
THEN \ end of test for "50=I" subject-psi; 11aug2011
THEN \ end of test for be-verb 67=ARE; 11aug2011
motjuste @ 58 = IF \ shift from BE; 27aug2010
num @ 1 = IF \ singular; 27aug2010
prsn @ 1 = IF \ if first person; 29aug2010
midway @ t @ DO \ search backwards in time
I 0 en{ @ 57 = IF \ recent 57=AM; 12sep2010
I 8 en{ @ aud ! \ get recall-vector
LEAVE \ after finding recent "AM"; 29aug2010
THEN \ end of test for 67=AM; 29aug2010
-1 +LOOP \ end of retrieval loop for "AM"; 29aug2010
0 prsn ! \ reset after use; 29aug2010
THEN \ end of test for 1st person sing; 29aug2010
prsn @ 3 = IF \ if third person; 12sep2010
midway @ t @ DO \ search backwards in time
I 0 en{ @ 66 = IF \ most recent instance
66 motjuste ! ( 66=IS; 27aug2010 )
I 8 en{ @ aud ! \ get recall-vector
LEAVE \ after finding recent "IS"; 28aug2010
THEN \ end of test for 66=IS; 27aug2010
-1 +LOOP \ end of retrieval loop for "IS"; 27aug2010
THEN \ end of test for 3rd person sing; 12sep2010
THEN \ end of test for singular; 27aug2010
( following code covers undeclared plurals; 27aug2010 )
num @ 1 = NOT IF \ other than singular; 27aug2010
midway @ t @ DO \ search backwards in time
I 0 en{ @ 67 = IF \ most recent instance
67 motjuste ! ( 67=ARE; 27aug2010 )
I 8 en{ @ aud ! \ get recall-vector
LEAVE \ after finding recent "ARE"; 27aug2010
THEN \ end of test for 67=ARE; 27aug2010
-1 +LOOP \ end of retrieval loop for "ARE"; 27aug2010
THEN \ end of test for not singular; 27aug2010
THEN \ end of test for 58=BE; 27aug2010
0 subjectflag ! \ for SpreadAct slosh-over; 18oct2010
motjuste @ vacpsi ! \ prepare to deglobalize; 27sep2010
motjuste @ verbpsi ! \ for WhatAuxSVerb; 13jun2011
VerbAct
0 vacpsi ! \ reset for safety; 27sep2010
nphrnum @ 2 = NOT IF \ if not plural; test; 30aug2010
1 nphrnum ! \ default to singular; test; 30aug2010
THEN \ end of test for plural nphrnum; 30aug2010
motjuste @ 800 = NOT IF \ 10nov2012
prsn @ 3 = IF \ 3rd person? 29aug2010
nphrnum @ 1 = IF \ test; 30aug2010
\ 83 flex1 ! \ xfer "S" to SpeechAct; 11sep2011
\ 83 flex1 ! \ VerbGen should be used instead 29dec2012
THEN \ end of test for singular nphrnum; 30aug2010
THEN \ end of test for 3rd person; 29aug2010
THEN \ end of test for not a be-verb; 29jul2012
vphraud @ aud ! \ transfer just before call; 25jun2011
SpeechAct ( main call from VerbPhrase to SpeechAct )
VerbClear \ deactivate before inhibiting; 17aug2011
-32 t @ 1 - 1 psi{ ! \ inhibit new verb-node; 3sep2011
-32 t @ 1 psi{ ! \ inhibit new verb-node; 3sep2011
0 flex1 ! \ reset for safety; 11sep2011
0 vphraud ! \ reset for safety; 25jun2011
0 vpos !
motjuste @ 800 = IF \ 10nov2012
negjux @ 250 = IF \ 250=NOT; 10nov2012
midway @ t @ DO \ Search En(glish) array; 27jul2011
I 0 en{ @ 250 = IF \ Look for "NOT 10nov2012
I 8 en{ @ aud ! \ Auditory start-tag 10nov2012
LEAVE \ One instance of NOT suffices; 27jul2011
THEN \ End of lexical test for 12=NOT; 27jul2011
-1 +LOOP \ End of loop searching for 250=NOT 10nov2012
\ 7 EMIT \ audible report of saying NOT; test; 28aug2011
SpeechAct \ Say the word "NOT"; 27jul2011
0 aftjux ! \ reset for safety; 27jul2011
0 negjux ! \ reset for safety; 9oct2011
0 prejux ! \ reset for safety; 27jul2011
0 jux ! \ reset for safety; 27jul2011
0 psi3 ! \ reset for safety; 27jul2011
THEN \ end of test for negated be-verb; 27jul2011
THEN \ end of test for be-verb; 27jul2011
THEN \ end of test for positive motjuste; 29aug2010
10 act !
motjuste @ urpsi !
62 caller !
PsiDamp \ Necessary for chain of thought; 24oct2010
0 caller !
EnDamp
\ Following lines inhibit old KB verb-node; 13jun2011
-32 tselv @ 1 psi{ ! \ Shallow inhibition; 3sep2011
0 tselv ! \ Reset tselv after use; 13jun2011
32 EMIT
1 dirobj !
subjpsi @ 701 = IF \ only for subject 701=I; 10nov2012
motjuste @ 820 = IF \ only for verb 820=SEE; 10nov2012
svo3 @ 0 = IF \ if SEE has no direct object; 22sep2011
VisRecog \ a challenge for robot AI coders 22sep2011
SpeechAct \ say default from VisRecog; 22sep2011
EXIT \ abandon rest of VerbPhrase; 22sep2011
THEN \ end of test for direct object; 22sep2011
THEN \ end of test for "820=SEE"; 10nov2012
THEN ( http://code.google.com/p/robotbridgeware )
motjuste @ 800 = IF 1 predflag ! THEN \ 800=BE; 10nov2012
( EnAdjective -- a possibility here; 24aug2011 )
NounPhrase
0 predflag ! \ reset for safety; 12sep2010
motjuste @ 0 > IF motjuste @ dopsi ! THEN
0 dirobj !
0 negjux ! \ reset for safety; 9oct2011
0 numflag ! \ 3dec2009 Whether used here or in BeVerb.
0 predflag ! \ Reset for safety; 26aug2011
0 psi3 ! \ reset for safety; 27jul2011
0 svo3 ! \ use once per thought; 9sep2011
0 tqv ! \ reset for safety; 29sep2011
0 verblock ! \ after causing selection of NPhr seq-verb; 8oct2011
; ( http://code.google.com/p/mindforth/wiki/VerbPhrase )
: InFerence ( create silent triples for machine reasoning )
1 moot ! \ prevent interference; test; 20dec2012
\ CR ." InFer: subjnom prednom = " \ test; 1jan2012
\ subjnom @ . prednom @ . CR \ test; 1jan2013
midway @ t @ DO \ search IdeaPlex to infer facts; 18dec2012
prednom @ 0 > IF \ positive predicate nominative? 1jan2012
I 0 psi{ @ prednom @ = IF \ KB data? 18dec2012
I 4 en{ @ 1 = IF \ nominative? 18dec2012
seqverb @ 0 = IF \ only once; 18dec2012
I 6 psi{ @ seqtqv ! \ transfer; 18dec2012
I 7 psi{ @ seqverb ! \ transfer; 18dec2012
I 7 psi{ @ quverb ! \ for AskUser; 27dec2012
0 ynverb ! \ for one AskUser question; 27dec2012
\ 2 nphrnum ! \ test; remove; 27dec2012
\ 2 nphrnum ! \ Commenting out as obsolete; 1jan2013
seqverb @ seq ! \ test; 18dec2012
THEN \ end of test for not-yet-declared; 18dec2012
\ CR ." InFer: t psi seqverb = " \ test; 27dec2012
\ I . prednom @ . seqverb @ . \ 18dec2012; 27dec2012
\ LEAVE \ at first make only one inference; 18dec2012
ELSE \ no nominative prednom? 1jan2012
CR ." No inference can be made." \ test; 1jan2013
THEN \ end of test for nominative; 18dec2012
THEN \ end of test for finding prednom facts; 18dec2012
THEN \ end of test for positive predicate nominative 1jan2012
-1 +LOOP \ end of backwards loop; 18dec2012
\ CR ." InFer: subjnom prednom seqverb = " \ test; 2jan2012
\ subjnom @ . prednom @ . seqverb @ . \ test; 2jan2013
seqverb @ 0 > IF \ verb available for inference? 2jan2013
t @ inft ! \ for AskUser to find auditory engrams 25dec2012
1 t +! \ increment time "t" by one for a gap; 18dec2012
1 t +! \ increment time to create an inference; 18dec2012
subjnom @ t @ 0 psi{ ! \ subj of inference; 18dec2012
48 t @ 1 psi{ ! \ activation of inf. 20dec2012
2 t @ 2 psi{ ! \ num(ber) test; replace; 20dec2012
5 t @ 5 psi{ ! \ pos=5 noun; 18dec2012
t @ 1 + t @ 6 psi{ ! \ psi6=tqv; 18dec2012
seqverb @ seq ! \ prevent override? test 20dec2012
seqverb @ t @ 7 psi{ ! \ seq is the verb; 18dec2012
subjnom @ t @ 8 psi{ ! \ enx; 18dec2012
subjnom @ t @ 0 en{ ! \ for .en report; 21dec2012
2 t @ 2 en{ ! \ default num(ber) 21dec2012
1 t @ 4 en{ ! \ default nominative; 20dec2012
\ 5 t @ 6 en{ ! \ default 5=pos noun; 20dec2012
0 t @ 8 en{ ! \ pseudo-recall-tag; 21dec2012
1 t +! \ increment t for storage of verb; 18dec2012
seqverb @ t @ 0 psi{ ! \ verb of inference; 18dec2012
seqverb @ t @ 1 - 7 psi{ ! \ retroactive seq? 20dec2012
subjnom @ t @ 4 psi{ ! \ pre of verb; 18dec2012
8 t @ 5 psi{ ! \ pos=8 verb; 18dec2012
t @ 1 + t @ 6 psi{ ! \ psi6=tqv; 20dec2012
seqtqv @ 7 psi{ @ t @ 7 psi{ ! \ seq 18dec2012
seqtqv @ 7 psi{ @ dobseq ! \ test; 22dec2012
seqverb @ t @ 8 psi{ ! \ enx; 18dec2012
seqverb @ t @ 0 en{ ! \ so verb can be found; 22dec2012
1 t +! \ increment t to store direct object; 18dec2012
seqtqv @ 7 psi{ @ t @ 0 psi{ ! \ dir. obj 18dec2012
40 t @ 1 psi{ ! \ activation of direct object 22dec2012
seqtqv @ 7 psi{ @ t @ 8 psi{ ! \ enx 18dec2012
dobseq @ t @ 0 en{ ! \ so noun can be found; 22dec2012
dobseq @ quobj ! \ for AskUser; 27dec2012
1 t +! \ increment time "t" for an ending gap; 18dec2012
1 yncon ! \ for AskUser to ask yes-or-no question 26dec2012
subjnom @ qusub ! \ transfer to AskUser; 26dec2012
THEN \ end of test for a verb to be part of inference 2jan2013
0 becon ! \ reset after use; 18dec2012
0 dobseq ! \ reset after use; 22dec2012
0 moot ! \ reset after use; 20dec2012
0 prednom ! \ reset after use; 18dec2012
0 seqtqv ! \ reset after use; 18dec2012
0 seqverb ! \ reset after use; 18dec2012
0 subjnom ! \ reset after use; 18dec2012
\ QUIT \ test; remove; 18dec2012
\ Task: Make InFerence work also with pronouns and antecedents;
\ Task: Make InFerence work with ideas negated by "NOT".
; ( http://code.google.com/p/mindforth/wiki/InFerence )
: DeCog ( Deutsch Cognition -- thinking in DeKi German AI )
CR ." Achtung! German input flips thinking into German."
( HauptWort \ Call a German NounPhrase module; 20jul2011 )
( ZeitWort \ Call a German VerbPhrase module; 20jul2011 )
; ( http://code.google.com/p/mindforth )
: EnCog ( English Cognition -- thinking in English )
0 moot ! \ may have been set in previous thought; 24oct2011
0 morphpsi !
0 psi !
0 sublen !
t @ tov !
becon @ 1 = IF \ if flag set in OldCOncept; 18dec2012
InFerence \ call the passively reflective module; 18dec2012
THEN \ end of test for input of a be-verb statement; 18dec2012
yncon @ 1 = IF \ if flag set in VerbPhrase; 2jul2011
AskUser \ for a yes-or-no question; 2jul2011
EXIT \ abandon rest of EnCog; 2jul2011
THEN ( http://www.mpeforth.com )
yesorno @ 0 > IF
SayYes
CR
EXIT
THEN
400 rsvp ! \ Give user time to respond. 23aug2010
inert @ 10 > IF \ if no input start thinking; 17oct2011
cogpsi @ 0 > IF \ 17oct2011
cogpsi @ topic ! \ for query-subject; 17oct2011
cognum @ topicnum ! \ to select "IS" or "ARE"; 22oct2011
fyi @ 2 = IF ." EnCog calls WhatBe" THEN \ 6jul2012
CR WhatBe \ Ascribe output only to robot; 26jul2012
0 cognum ! \ reset for safety; 22oct2011
0 cogpsi ! \ reset for safety; 17oct2011
EXIT \ abandon the rest of EnCog; 17oct2011
THEN \ 17oct2011
kbtv @ 1 = IF \ in cycle of KbTraversal; 17oct2011
707 topic ! \ 707=YOU as topic of question; 10nov2012
7 nphrpos ! \ pronoun "YOU" part-of-speech; 21oct2011
2 prsn ! \ parameter second-person YOU; 17oct2011
1 subjnum ! \ singular YOU as a parameter; 17oct2011
IQ @ 1 = IF \ borrowing IQ as a control; 17oct2011
fyi @ 2 = IF ." EnCog calls WhoBe" THEN \ 4jul2012
CR WhoBe \ Ascribe output only to robot; 26jul2012
0 inert ! \ reset to resume counting; 17oct2011
2 IQ ! \ to ask a different question; 17oct2011
1000 rsvp ! \ AI waits for an answer; 19oct2011
EXIT \ only output one thought per cycle; 17oct2011
THEN \ end of re-purposed IQ-test; 17oct2011
IQ @ 2 = IF \ to ask a different question; 17oct2011
fyi @ 2 = IF ." EnC calls WhatBe" THEN \ 6jul2012
CR WhatBe \ Ascribe output only to robot; 26jul2012
0 inert ! \ reset to resume counting; 17oct2011
3 IQ ! \ to ask a different question; 17oct2011
1000 rsvp ! \ AI waits for an answer; 19oct2011
EXIT \ only output one thought per cycle; 17oct2011
THEN \ end of IQ-test; 17oct2011
IQ @ 3 = IF \ to ask a different question; 17oct2011
fyi @ 2 = IF ." EnC-kbtv1 calls WASD" THEN \ 6jul2012
CR WhatAuxSDo \ Ascribe output only to robot; 26jul2012
0 inert ! \ reset to resume counting; 17oct2011
1 IQ ! \ to ask a different question; 17oct2011
1000 rsvp ! \ AI waits for an answer; 19oct2011
EXIT \ only output one thought per cycle; 17oct2011
THEN \ end of IQ-test; 17oct2011
THEN \ end of #1 test of rotating "kbtv"; 17oct2011
kbtv @ 2 = IF \ in rotation of KbTraversal; 17oct2011
571 topic ! \ let 571=ROBOT be subject; 10nov2012
5 nphrpos ! \ noun part-of-speech; 17oct2011
3 prsn ! \ parameter needed for AuxVerb; 17oct2011
IQ @ 1 = IF \ borrowing IQ as a control; 17oct2011
1 indefmust ! \ for "A ROBOT"; 20oct2011
1 subjnum ! \ for singular "ROBOT"; 17oct2011
fyi @ 2 = IF ." EnCog calls WhatBe" THEN \ 6jul2012
CR WhatBe \ Ascribe output only to robot; 26jul2012
0 indefmust ! \ reset for safety; 20oct2011
0 inert ! \ reset to resume counting; 17oct2011
2 IQ ! \ to ask a different question; 17oct2011
1000 rsvp ! \ AI waits for an answer; 19oct2011
EXIT \ only output one thought per cycle; 17oct2011
THEN \ end of re-purposed IQ-test; 17oct2011
IQ @ 2 = IF \ borrowing IQ as a control; 17oct2011
1 subjnum ! \ for singular "ROBOT"; 17oct2011
fyi @ 2 = IF ." EnC-kbtv2 calls WASD" THEN \ 6jul2012
CR WhatAuxSDo \ Ascribe output only to robot; 26jul2012
0 inert ! \ reset to resume counting; 17oct2011
3 IQ ! \ to ask a different question; 17oct2011
1000 rsvp ! \ AI waits for an answer; 19oct2011
EXIT \ only output one thought per cycle; 17oct2011
THEN \ end of re-purposed IQ-test; 17oct2011
IQ @ 3 = IF \ borrowing IQ as a control; 17oct2011
2 subjnum ! \ for plural "ROBOTS"; 17oct2011
fyi @ 2 = IF ." EnCog-kbtv2 calls WASD" THEN \ 6jul2012
CR WhatAuxSDo \ Ascribe output only to robot; 26jul2012
0 inert ! \ reset to resume counting; 17oct2011
1 IQ ! \ to ask a different question; 17oct2011
1000 rsvp ! \ AI waits for an answer; 19oct2011
EXIT \ only output one thought per cycle; 17oct2011
THEN \ end of re-purposed IQ-test; 17oct2011
THEN \ end of #2 test of rotating "kbtv"; 17oct2011
kbtv @ 3 = IF \ in rotation of KbTraversal; 17oct2011
701 topic ! \ 701=I; 10nov2012
7 nphrpos ! \ pronoun "I" part-of-speech; 21oct2011
1 prsn ! \ parameter first-person I; 17oct2011
1 subjnum ! \ singular I as a parameter; 17oct2011
IQ @ 1 = IF \ borrowing IQ as a control; 17oct2011
fyi @ 2 = IF ." EnCog calls WhoBe" THEN \ 4jul2012
CR WhoBe \ Ascribe output only to robot; 26jul2012
0 inert ! \ reset to resume counting; 17oct2011
2 IQ ! \ to ask a different question; 17oct2011
1000 rsvp ! \ AI waits for an answer; 19oct2011
EXIT \ only output one thought per cycle; 17oct2011
THEN \ end of re-purposed IQ-test; 17oct2011
IQ @ 2 = IF \ to ask a different question; 17oct2011
fyi @ 2 = IF ." EnC-kbtv3 calls WhatBe" THEN \ 6jul2012
CR WhatBe \ Ascribe output only to robot; 26jul2012
0 inert ! \ reset to resume counting; 17oct2011
3 IQ ! \ to ask a different question; 17oct2011
1000 rsvp ! \ AI waits for an answer; 19oct2011
EXIT \ only output one thought per cycle; 17oct2011
THEN \ end of IQ-test; 17oct2011
IQ @ 3 = IF \ to ask a different question; 17oct2011
fyi @ 2 = IF ." EnCog-kbtv3 calls WASD" THEN \ 6jul2012
CR WhatAuxSDo \ Ascribe output only to robot; 26jul2012
0 inert ! \ reset to resume counting; 17oct2011
1 IQ ! \ to ask a different question; 17oct2011
1000 rsvp ! \ AI waits for an answer; 19oct2011
EXIT \ only output one thought per cycle; 17oct2011
THEN \ end of IQ-test; 17oct2011
THEN \ end of #3 test of rotating "kbtv"; 17oct2011
kbtv @ 4 = IF \ in rotation of KbTraversal; 17oct2011
533 topic ! \ 533=GOD for AI theology discussion; 10nov2012
3 prsn ! \ parameter third-person GOD; 17oct2011
1 subjnum ! \ singular GOD as a parameter; 17oct2011
IQ @ 1 = IF \ borrowing IQ as a control; 17oct2011
fyi @ 2 = IF ." EnCog calls WhoBe" THEN \ 4jul2012
CR WhoBe \ Ascribe output only to robot; 26jul2012
0 inert ! \ reset to resume counting; 17oct2011
2 IQ ! \ to ask a different question; 17oct2011
1000 rsvp ! \ AI waits for an answer; 19oct2011
EXIT \ only output one thought per cycle; 17oct2011
THEN \ end of re-purposed IQ-test; 17oct2011
IQ @ 2 = IF \ to ask a different question; 17oct2011
fyi @ 2 = IF ." EnC-kbtv4 calls WhatBe" THEN \ 6jul2012
CR WhatBe \ Ascribe output only to robot; 26jul2012
0 inert ! \ reset to resume counting; 17oct2011
3 IQ ! \ to ask a different question; 17oct2011
1000 rsvp ! \ AI waits for an answer; 19oct2011
EXIT \ only output one thought per cycle; 17oct2011
THEN \ end of IQ-test; 17oct2011
IQ @ 3 = IF \ to ask a different question; 17oct2011
fyi @ 2 = IF ." EnC-kbtv4 calls WASD" THEN \ 6jul2012
CR WhatAuxSDo \ Ascribe output only to robot; 26jul2012
0 inert ! \ reset to resume counting; 17oct2011
1 IQ ! \ to ask a different question; 17oct2011
1000 rsvp ! \ AI waits for an answer; 19oct2011
EXIT \ only output one thought per cycle; 17oct2011
THEN \ end of IQ-test; 17oct2011
THEN \ end of #4 test of rotating "kbtv"; 17oct2011
THEN \ end of arbitrary delay before initiating thought
( exceptional think was above; normal thinking below here )
CR ." Robot: "
123 t @ 2 aud{ !
t @ tov ! \ 12jan2010 "{" marks start of thought.
NounPhrase \ First of two Chomskyan bifurcations.
VerbPhrase \ Second of two Chomskyan bifurcations.
0 nphrnum ! \ Reset intersyntactic variable; 11oct2011
0 pcn ! \ Reset for safety; 17jul2012
0 prednom ! \ reset for InFerence; 27dec2012
0 prox2 ! \ Reset after use; 7sep2011
0 prox3 ! \ Reset after use; 7sep2011
0 proxcon ! \ Reset after use; 7sep2011
0 putnum ! \ reset for safety; 4nov2011
0 quo ! \ 5jan2010 Reset after use.
0 subjnom ! \ reset for InFerence; 27dec2012
5 bias !
0 qup ! \ 10jan2010 Must be at zero to be used again.
PsiDecay \ Reduce activation after each thought; 4aug2011
; ( http://code.google.com/p/mindforth/wiki/EnCog )
: ThInk ( calls EnCog to think in English; 20sep2010 )
0 ordo !
35 pov ! \ internal ASCII 35=# point-of-view; 16oct2011
glot @ 1 = IF \ flag for polyglot AI; 20jul2011
EnCog ( think in English; 20jul2011 )
THEN ( http://www.aicore.co.uk )
glot @ 2 = IF \ upon input of multiple German words;
DeCog ( think in Deutsch -- German; 20jul2011 )
THEN \ end of test for language-choice in polyglot AI
fyi @ 1 = IF CR THEN
0 ordo !
rjc @ 1 < IF \ if AI on but not yet ReJuvenated; 19sep2010
lurk @ greet @ > IF \ if limit exceeded; 19sep2010
100 rsvp ! \ slow down the display; 19sep2010
-1 lurk ! \ reset for safety; 19sep2010
kbtv @ 4 > IF 1 kbtv ! THEN \ test; 19sep2010
1 kbtv +! \ cycle through values; 19sep2010
KbTraversal \ if no input, begin thinking; 19sep2010
THEN ( http://www.forth.com )
THEN \ end of test of ReJuvenation-count (rjc); 19sep2010
; ( http://code.google.com/p/mindforth/wiki/ThInk )
: MotorOutput ( stub for autonomous control of robots )
7 EMIT
( MOVE_FORWARD )
( MOVE_BACKWARDS )
( STOP_MOTION )
( TURN_LEFT )
( TURN_RIGHT )
; ( http://code.google.com/p/mindforth/wiki/MotorOutput )
: TuringTest ( Human-Computer Interaction )
fyi @ 0 = IF CLS CR CR CR CR CR CR CR
t @ 476 < IF CR \ "vault" after SEE and NOTHING; 22sep2011
." There is no warranty for MindForth AI for robots."
ELSE CR
THEN
THEN
fyi @ 1 = NOT IF CR THEN
." "
fyi @ 1 = NOT IF CR THEN
fyi @ 0 = IF
CR
." Artificial intelligence alive and thinking since "
bday @ .
bmonth @ 1 = IF ." January " THEN
bmonth @ 2 = IF ." February " THEN
bmonth @ 3 = IF ." March " THEN
bmonth @ 4 = IF ." April " THEN
bmonth @ 5 = IF ." May " THEN
bmonth @ 6 = IF ." June " THEN
bmonth @ 7 = IF ." July " THEN
bmonth @ 8 = IF ." August " THEN
bmonth @ 9 = IF ." September " THEN
bmonth @ 10 = IF ." October " THEN
bmonth @ 11 = IF ." November " THEN
bmonth @ 12 = IF ." December " THEN
byear @ . 8 EMIT 46 EMIT CR
THEN
fyi @ 1 = NOT IF
." Time = " t @ . 8 EMIT 46 EMIT
." KB-Traversal ID = " kbtv @ .
8 EMIT 46 EMIT
." IQ = " IQ @ . 8 EMIT 46 EMIT
." Cyc = " rjc @ . ." delay = " rsvp @ . 8 EMIT 46 EMIT
CR ." ENTER a positive or negative Subj-Verb-Obj "
." unpunctuated sentence."
CR
THEN
fyi @ 0 = IF CR
." Display-mode is normal. Press Tab for other modes; "
." ESC to exit."
CR
THEN
fyi @ 3 = IF CR
." Diagnostic messages - ignore during input "
." before pressing ENTER."
THEN
42 pov !
; ( http://code.google.com/p/mindforth/wiki/TuringTest )
: SeCurity ( new wiki-page name for SECURITY module )
fyi @ 2 = IF CR
." SeCurity calls HCI TuringTest module."
THEN
TuringTest
t @ cns @ 64 - > IF
fyi @ 2 = IF CR
." SeCurity module calls ReJuvenate."
THEN
ReJuvenate
THEN
t @ cns @ > IF \ Use midway only for larger Minds 13aug2012
t @ cns @ - midway ! ( for limit on searches; 13aug2012 )
ELSE \ If the CNS memory has a small capacity 13aug2012
1 midway ! \ Avoid any "array boundary problem"; 13aug2012
THEN \ Future code may let an AI itself set midway 13aug2012
0 quiet !
; ( http://code.google.com/p/mindforth/wiki/SeCurity )
: MainLoop ( changed from ALIFE for wiki doc page )
TIME&DATE byear ! bmonth ! bday ! bhour ! bminute ! bsec !
TabulaRasa
EnBoot
BEGIN
SeCurity
fyi @ 2 = IF CR
." MainLoop calls the SensoryInput module." CR
THEN
SensoryInput
( EmotiOn )
fyi @ 2 = IF CR CR \ create gap; 6jul2012
." MainLoop calls the ThInk mind-module." CR
THEN
ThInk
( FreeWill )
( MotorOutput )
AGAIN
; ( http://code.google.com/p/mindforth/wiki/MainLoop )
: ALIFE ( Call MainLoop if not called by user. )
MainLoop
;
Reference in New Issue View Git Blame Copy Permalink