Skip to content

/mindforth

Permalink
Branch: master
Find file Copy path

mindforth/wiki/SecondHalf.wiki

Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
2555 lines (2428 sloc) 116 KB
Raw Blame History
#summary Second half of JavaScript AI Mind
#labels source
{{{
// US -- dative indirect-object form of pers. pron. 25oct2012
t=403;pho="U"; beg=1; ctu=1; audpsi=0; AudMem();
t=404;pho="S"; beg=0; ctu=0; audpsi=731; AudMem(); // 31oct2012
nen=731; mfn=0; dba=3; fex=731; pos=7; fin=737; aud=403;
psi=731; num=2; pre=0; seq=0; enx=731; EnVocab(); InNativate();
// US -- accusative direct-object form of pers. pron. 25oct2012
t=406;pho="U"; beg=1; ctu=1; audpsi=0; AudMem();
t=407;pho="S"; beg=0; ctu=0; audpsi=731; AudMem(); // 31oct2012
nen=731; mfn=0; dba=4; fex=731; pos=7; fin=737; aud=406;
psi=731; num=2; pre=0; seq=0; enx=731; EnVocab(); InNativate();
// WHAT -- nominative pronoun for SelfReferentialThought
t=409;pho="W"; beg=1; ctu=1; audpsi=0; AudMem();
t=410;pho="H"; beg=0; ctu=1; audpsi=0; AudMem();
t=411;pho="A"; beg=0; ctu=1; audpsi=0; AudMem();
t=412;pho="T"; beg=0; ctu=0; audpsi=781; AudMem(); // 25oct2012
nen=781; mfn=3; dba=1; fex=781; pos=7; fin=781; aud=409;
psi=781; num=1; pre=0; seq=0; enx=781; EnVocab(); InNativate();
// WHAT -- accusative pronoun for SelfReferentialThought
t=414;pho="W"; beg=1; ctu=1; audpsi=0; AudMem();
t=415;pho="H"; beg=0; ctu=1; audpsi=0; AudMem();
t=416;pho="A"; beg=0; ctu=1; audpsi=0; AudMem();
t=417;pho="T"; beg=0; ctu=0; audpsi=781; AudMem(); // 25oct2012
nen=781; mfn=3; dba=4; fex=781; pos=7; fin=781; aud=414;
psi=781; num=1; pre=0; seq=0; enx=781; EnVocab(); InNativate();
// WHEN -- for SelfReferentialThought
t=419;pho="W"; beg=1; ctu=1; audpsi=0; AudMem();
t=420;pho="H"; beg=0; ctu=1; audpsi=0; AudMem();
t=421;pho="E"; beg=0; ctu=1; audpsi=0; AudMem();
t=422;pho="N"; beg=0; ctu=0; audpsi=263; AudMem(); // 25oct2012
nen=263; mfn=0; dba=0; fex=263; pos=2; fin=263; aud=419;
psi=263; num=0; pre=0; seq=0; enx=263; EnVocab(); InNativate();
// WHERE -- for SelfReferentialThought
t=424;pho="W"; beg=1; ctu=1; audpsi=0; AudMem();
t=425;pho="H"; beg=0; ctu=1; audpsi=0; AudMem();
t=426;pho="E"; beg=0; ctu=1; audpsi=0; AudMem();
t=427;pho="R"; beg=0; ctu=1; audpsi=0; AudMem();
t=428;pho="E"; beg=0; ctu=0; audpsi=245; AudMem(); // 25oct2012
nen=245; mfn=0; dba=0; fex=245; pos=2; fin=245; aud=424;
psi=245; num=0; pre=0; seq=0; enx=245; EnVocab(); InNativate();
// WHO -- for SelfReferentialThought
t=430;pho="W"; beg=1; ctu=1; audpsi=0; AudMem();
t=431;pho="H"; beg=0; ctu=1; audpsi=0; AudMem();
t=432;pho="O"; beg=0; ctu=0; audpsi=791; AudMem(); // 25oct2012
nen=791; mfn=0; dba=1; fex=791; pos=7; fin=791; aud=430;
psi=791; num=1; pre=0; seq=0; enx=791; EnVocab(); InNativate();
// WHOSE -- for AI to ask grammatically correct questions
t=434;pho="W"; beg=1; ctu=1; audpsi=0; AudMem();
t=435;pho="H"; beg=0; ctu=1; audpsi=0; AudMem();
t=436;pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=437;pho="S"; beg=0; ctu=1; audpsi=0; AudMem();
t=438;pho="E"; beg=0; ctu=0; audpsi=794; AudMem(); // 25oct2012
nen=794; mfn=0; dba=2; fex=794; pos=7; fin=794; aud=434;
psi=794; num=1; pre=0; seq=0; enx=794; EnVocab(); InNativate();
// WHOM -- for AI to ask grammatically correct questions
t=440;pho="W"; beg=1; ctu=1; audpsi=0; AudMem();
t=441;pho="H"; beg=0; ctu=1; audpsi=0; AudMem();
t=442;pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=443;pho="M"; beg=0; ctu=0; audpsi=794; AudMem(); // 25oct2012
nen=794; mfn=0; dba=3; fex=794; pos=7; fin=794; aud=440;
psi=794; num=1; pre=0; seq=0; enx=794; EnVocab(); InNativate();
// WHOM -- for AI to ask grammatically correct questions
t=445;pho="W"; beg=1; ctu=1; audpsi=0; AudMem();
t=446;pho="H"; beg=0; ctu=1; audpsi=0; AudMem();
t=447;pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=448;pho="M"; beg=0; ctu=0; audpsi=794; AudMem(); // 25oct2012
nen=794; mfn=0; dba=4; fex=794; pos=7; fin=794; aud=445;
psi=794; num=1; pre=0; seq=0; enx=794; EnVocab(); InNativate();
// WHY -- for machine reasoning logic; 5apr2010
t=450; pho="W"; beg=1; ctu=1; audpsi=0; AudMem();
t=451; pho="H"; beg=0; ctu=1; audpsi=0; AudMem();
t=452; pho="Y"; beg=0; ctu=0; audpsi=370; AudMem(); // 11nov2012
nen=370; mfn=0; dba=0; fex=370; pos=3; fin=370; aud=450;
psi=370; num=0; pre=0; seq=0; enx=370; EnVocab(); InNativate();
// WITH -- preposition for EnPrep module
t=454;pho="W"; beg=1; ctu=1; audpsi=0; AudMem();
t=455;pho="I"; beg=0; ctu=1; audpsi=0; AudMem();
t=456;pho="T"; beg=0; ctu=1; audpsi=0; AudMem();
t=457;pho="H"; beg=0; ctu=0; audpsi=680; AudMem(); // 25oct2012
nen=680; mfn=0; dba=0; fex=680; pos=6; fin=680; aud=454;
psi=680; num=0; pre=0; seq=0; enx=680; EnVocab(); InNativate();
// WOMAN -- always feminine noun for use with gender flags
t=459;pho="W"; beg=1; ctu=1; audpsi=0; AudMem();
t=460;pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=461;pho="M"; beg=0; ctu=1; audpsi=0; AudMem();
t=462;pho="A"; beg=0; ctu=1; audpsi=0; AudMem();
t=463;pho="N"; beg=0; ctu=0; audpsi=515; AudMem(); // 25oct2012
nen=515; mfn=2; dba=0; fex=515; pos=5; fin=515; aud=459;
psi=515; num=1; pre=0; seq=0; enx=515; EnVocab(); InNativate();
// WOMEN -- irregular plural for retrieval by parameters
t=465;pho="W"; beg=1; ctu=1; audpsi=0; AudMem();
t=466;pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=467;pho="M"; beg=0; ctu=1; audpsi=0; AudMem();
t=468;pho="E"; beg=0; ctu=1; audpsi=0; AudMem();
t=469;pho="N"; beg=0; ctu=0; audpsi=515; AudMem(); // 11nov2012
nen=515; mfn=2; dba=0; fex=515; pos=5; fin=515; aud=465;
psi=515; num=2; pre=0; seq=0; enx=515; EnVocab(); InNativate();
// YES -- interjection for human-computer interaction
t=471; pho="Y"; beg=1; ctu=1; audpsi=0; AudMem();
t=472; pho="E"; beg=0; ctu=1; audpsi=0; AudMem();
t=473; pho="S"; beg=0; ctu=0; audpsi=432; AudMem(); // 25oct2012
nen=432; mfn=0; dba=0; fex=432; pos=4; fin=432; aud=471;
psi=432; num=0; pre=0; seq=0; enx=432; EnVocab(); InNativate();
// YOU -- nominative singular of personal pronoun; 25oct2012
t=475; pho="Y"; beg=1; ctu=1; audpsi=0; AudMem();
t=476; pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=477; pho="U"; beg=0; ctu=0; audpsi=707; AudMem(); // 11nov2012
nen=707; mfn=0; dba=1; fex=707; pos=7; fin=701; aud=475;
psi=707; num=1; pre=0; seq=0; enx=707; EnVocab(); InNativate();
// YOURS -- genitive singular of personal pronoun; 25oct2012
t=479; pho="Y"; beg=1; ctu=1; audpsi=0; AudMem();
t=480; pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=481; pho="U"; beg=0; ctu=1; audpsi=0; AudMem();
t=482; pho="R"; beg=0; ctu=1; audpsi=0; AudMem();
t=483; pho="S"; beg=0; ctu=0; audpsi=707; AudMem(); // 25oct2012
nen=707; mfn=0; dba=2; fex=707; pos=7; fin=707; aud=479;
psi=707; num=1; pre=0; seq=0; enx=707; EnVocab(); InNativate();
// YOU -- dative singular of personal pronoun; 25oct2012
t=485; pho="Y"; beg=1; ctu=1; audpsi=0; AudMem();
t=486; pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=487; pho="U"; beg=0; ctu=0; audpsi=707; AudMem(); // 25oct2012
nen=707; mfn=0; dba=3; fex=707; pos=7; fin=707; aud=485;
psi=707; num=1; pre=0; seq=0; enx=707; EnVocab(); InNativate();
// YOU -- accusative singular of personal pronoun; 25oct2012
t=489; pho="Y"; beg=1; ctu=1; audpsi=0; AudMem();
t=490; pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=491; pho="U"; beg=0; ctu=0; audpsi=707; AudMem(); // 25oct2012
nen=707; mfn=0; dba=4; fex=707; pos=7; fin=707; aud=489;
psi=707; num=1; pre=0; seq=0; enx=707; EnVocab(); InNativate();
// YOU -- nominative plural of personal pronoun; 25oct2012
t=493; pho="Y"; beg=1; ctu=1; audpsi=0; AudMem();
t=494; pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=495; pho="U"; beg=0; ctu=0; audpsi=707; AudMem(); // 25oct2012
nen=737; mfn=0; dba=1; fex=737; pos=7; fin=731; aud=493;
psi=737; num=2; pre=0; seq=0; enx=737; EnVocab(); InNativate();
// YOURS -- genitive plural of personal pronoun; 25oct2012
t=497; pho="Y"; beg=1; ctu=1; audpsi=0; AudMem();
t=498; pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=499; pho="U"; beg=0; ctu=1; audpsi=0; AudMem();
t=500; pho="R"; beg=0; ctu=1; audpsi=0; AudMem();
t=501; pho="S"; beg=0; ctu=0; audpsi=707; AudMem(); // 25oct2012
nen=737; mfn=0; dba=2; fex=737; pos=7; fin=731; aud=497;
psi=737; num=2; pre=0; seq=0; enx=737; EnVocab(); InNativate();
// YOU -- dative plural of personal pronoun; 25oct2012
t=503; pho="Y"; beg=1; ctu=1; audpsi=0; AudMem();
t=504; pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=505; pho="U"; beg=0; ctu=0; audpsi=707; AudMem(); // 25oct2012
nen=737; mfn=0; dba=3; fex=737; pos=7; fin=731; aud=503;
psi=737; num=2; pre=0; seq=0; enx=737; EnVocab(); InNativate();
// YOU -- accusative plural of personal pronoun; 25oct2012
t=507; pho="Y"; beg=1; ctu=1; audpsi=0; AudMem();
t=508; pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=509; pho="U"; beg=0; ctu=0; audpsi=707; AudMem(); // 25oct2012
nen=737; mfn=0; dba=4; fex=737; pos=7; fin=731; aud=507;
psi=737; num=2; pre=0; seq=0; enx=737; EnVocab(); InNativate();
// YOUR -- adjective for personal pronoun "YOU"; 25oct2012
t=511;pho="Y"; beg=1; ctu=1; audpsi=0; AudMem();
t=512;pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=513;pho="U"; beg=0; ctu=1; audpsi=0; AudMem();
t=514;pho="R"; beg=0; ctu=0; audpsi=182; AudMem(); // 25oct2012
nen=182; mfn=0; dba=0; fex=182; pos=1; fin=181; aud=511;
psi=182; num=0; pre=0; seq=0; enx=182; EnVocab(); InNativate();
// YOU -- for SelfReferentialThought
t=516;pho="Y"; beg=1; ctu=1; audpsi=0; AudMem();
t=517;pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=518;pho="U"; beg=0; ctu=0; audpsi=707; AudMem(); // 25oct2012
nen=707; mfn=0; dba=1; fex=707; pos=7; fin=701; aud=516; //
psi=707;num=1;pre=0;tqv=522;seq=800;enx=707;EnVocab();InNativate();
// ARE -- essential intransitive verb -- 800 from Dushka; 21oct2012
t=520;pho="A"; beg=1; ctu=1; audpsi=0; AudMem();
t=521;pho="R"; beg=0; ctu=1; audpsi=0; AudMem();
t=522;pho="E"; beg=0; ctu=0; audpsi=800; AudMem();
nen=800; mfn=0; dba=2; fex=800; pos=8; fin=800; aud=520;
psi=800;num=1;pre=707;tqv=528;seq=588;enx=800;EnVocab();InNativate();
// MAGIC -- for testing purposes
t=524;pho="M"; beg=1; ctu=1; audpsi=0; AudMem();
t=525;pho="A"; beg=0; ctu=1; audpsi=0; AudMem();
t=526;pho="G"; beg=0; ctu=1; audpsi=0; AudMem();
t=527;pho="I"; beg=0; ctu=1; audpsi=0; AudMem();
t=528;pho="C"; beg=0; ctu=0; audpsi=588; AudMem(); // 25oct2012
nen=588; mfn=0; dba=1; fex=588; pos=5; fin=588; aud=524;
psi=588;num=1;pre=800;tqv=0;seq=0;enx=588;EnVocab();InNativate();
// I -- for SelfReferentialThought
t=530;pho="I"; beg=1; ctu=0; audpsi=701; AudMem(); // 25oct2012
nen=701; mfn=0; dba=1; fex=701; pos=5; fin=707; aud=530;
psi=701;num=1;pre=0;tqv=533;seq=800;enx=701;EnVocab();InNativate();
// AM -- 1st person singular of 800=BE; 21oct2012
t=532;pho="A"; beg=1; ctu=1; audpsi=0; AudMem();
t=533;pho="M"; beg=0; ctu=0; audpsi=800; AudMem(); // 25oct2012
nen=800; mfn=0; dba=1; fex=800; pos=8; fin=800; aud=532;
psi=800;num=1; pre=701;tqv=539;seq=501;enx=800;EnVocab();InNativate();
// ANDRU -- for SelfReferentialThought; 5apr2010
t=535;pho="A"; beg=1; ctu=1; audpsi=0; AudMem();
t=536;pho="N"; beg=0; ctu=1; audpsi=0; AudMem();
t=537;pho="D"; beg=0; ctu=1; audpsi=0; AudMem();
t=538;pho="R"; beg=0; ctu=1; audpsi=0; AudMem();
t=539;pho="U"; beg=0; ctu=0; audpsi=501; AudMem(); // 25oct2012
nen=501; mfn=1; dba=1; fex=501; pos=5; fin=501; aud=535;
psi=501;num=1;pre=800;tqv=0;seq=0;enx=501;EnVocab();InNativate();
// I -- innate KB-item for testing inhibition of idea-pairs
t=541;pho="I"; beg=1; ctu=0; audpsi=701; AudMem();
nen=701; mfn=0; dba=1; fex=701; pos=7; fin=701; aud=541;
psi=701;num=1;pre=0;tqv=544;seq=800;enx=701;EnVocab();InNativate();
// AM -- 1st person singular of 800=BE; 21oct2012
t=543;pho="A"; beg=1; ctu=1; audpsi=0; AudMem();
t=544;pho="M"; beg=0; ctu=0; audpsi=800; AudMem(); // 25oct2012
nen=800; mfn=0; dba=1; fex=57; pos=8; fin=800; aud=543;
psi=800;num=1;pre=701;tqv=552;seq=571;enx=800;EnVocab();InNativate();
// A -- En(glish) Article for EnArticle module
t=546;pho="A"; beg=1; ctu=0; audpsi=101; AudMem(); // 25oct2012
nen=101; mfn=0; dba=0; fex=101; pos=1; fin=101; aud=546;
psi=101;num=1;pre=0;tqv=552;seq=571;enx=101;EnVocab();InNativate();
// ROBOT -- important for target user base
t=548;pho="R"; beg=1; ctu=1; audpsi=0; AudMem();
t=549;pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=550;pho="B"; beg=0; ctu=1; audpsi=0; AudMem();
t=551;pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=552;pho="T"; beg=0; ctu=0; audpsi=571; AudMem(); // 25oct2012
nen=571; mfn=0; dba=1; fex=571; pos=5; fin=571; aud=548;
psi=571; num=1; pre=800; tqv=0; seq=0; enx=571; EnVocab(); InNativate();
// I -- innate KB-item for testing inhibition of idea-pairs
t=554;pho="I"; beg=1; ctu=0; audpsi=701; AudMem(); // 25oct2012
nen=701; mfn=0; dba=1; fex=701; pos=7; fin=701; aud=554;
psi=701;num=1;pre=0;tqv=557;seq=800;enx=701;EnVocab();InNativate();
// AM -- 1st person singular of 800=BE; 21oct2012
t=556;pho="A"; beg=1; ctu=1; audpsi=0; AudMem();
t=557;pho="M"; beg=0; ctu=0; audpsi=800; AudMem(); // 25oct2012
nen=800; mfn=0; dba=1; fex=800; pos=8; fin=800; aud=556;
psi=800;num=1;pre=701;tqv=566;seq=537;enx=800;EnVocab();InNativate();
// A -- En(glish) Article for EnArticle module
t=559;pho="A"; beg=1; ctu=0; audpsi=101; AudMem(); // 25oct2012
nen=101; mfn=0; dba=0; fex=101; pos=1; fin=101; aud=559;
psi=101;num=1;pre=0;tqv=566;seq=537;enx=101;EnVocab();InNativate();
// PERSON -- for ad-hoc gender tags and robot philosophy
t=561;pho="P"; beg=1; ctu=1; audpsi=0; AudMem();
t=562;pho="E"; beg=0; ctu=1; audpsi=0; AudMem();
t=563;pho="R"; beg=0; ctu=1; audpsi=0; AudMem();
t=564;pho="S"; beg=0; ctu=1; audpsi=0; AudMem();
t=565;pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=566;pho="N"; beg=0; ctu=0; audpsi=537; AudMem(); // 25oct2012
nen=537; mfn=0; dba=1; fex=537; pos=5; fin=537; aud=561;
psi=537;num=1;pre=800;tqv=0;seq=0;enx=537;EnVocab();InNativate();
// I -- for SelfReferentialThought
t=568;pho="I"; beg=1; ctu=0; audpsi=701; AudMem(); // 25oct2012
nen=701; mfn=0; dba=1; fex=701; pos=7; fin=707; aud=568;
psi=701;num=1;pre=0;tqv=573;seq=895;enx=701;EnVocab();InNativate();
// HELP -- socially significant common verb
t=570;pho="H"; beg=1; ctu=1; audpsi=0; AudMem();
t=571;pho="E"; beg=0; ctu=1; audpsi=0; AudMem();
t=572;pho="L"; beg=0; ctu=1; audpsi=895; AudMem();
t=573;pho="P"; beg=0; ctu=0; audpsi=895; AudMem(); // 11nov2012
nen=895; mfn=0; dba=1; fex=895; pos=8; fin=895; aud=570;
psi=895;num=1;pre=701;tqv=578;seq=528;enx=895;EnVocab();InNativate();
// KIDS -- noun lends itself to educational purposes
t=575;pho="K"; beg=1; ctu=1; audpsi=0; AudMem();
t=576;pho="I"; beg=0; ctu=1; audpsi=0; AudMem();
t=577;pho="D"; beg=0; ctu=1; audpsi=0; AudMem();
t=578;pho="S"; beg=0; ctu=0; audpsi=528; AudMem(); // 25oct2012
nen=528; mfn=0; dba=4; fex=528; pos=5; fin=528; aud=575;
psi=528;num=2;pre=895;tqv=0;seq=0;enx=528;EnVocab();InNativate();
// KIDS -- noun lends itself to educational purposes
t=580;pho="K"; beg=1; ctu=1; audpsi=0; AudMem();
t=581;pho="I"; beg=0; ctu=1; audpsi=0; AudMem();
t=582;pho="D"; beg=0; ctu=1; audpsi=0; AudMem();
t=583;pho="S"; beg=0; ctu=0; audpsi=528; AudMem(); // 25oct2012
nen=528; mfn=0; dba=1; fex=528; pos=5; fin=72; aud=580;
psi=528;num=2;pre=0;tqv=588;seq=835;enx=528;EnVocab();InNativate();
// MAKE -- common verb of high word-frequency
t=585;pho="M"; beg=1; ctu=1; audpsi=0; AudMem();
t=586;pho="A"; beg=0; ctu=1; audpsi=0; AudMem();
t=587;pho="K"; beg=0; ctu=1; audpsi=0; AudMem();
t=588;pho="E"; beg=0; ctu=0; audpsi=835; AudMem(); // 25oct2012
nen=835; mfn=0; dba=3; fex=835; pos=8; fin=835; aud=585;
psi=835;num=2;pre=528;tqv=595;seq=571;enx=835;EnVocab();InNativate();
// ROBOTS -- important for target user base
t=590;pho="R"; beg=1; ctu=1; audpsi=0; AudMem();
t=591;pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=592;pho="B"; beg=0; ctu=1; audpsi=0; AudMem();
t=593;pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=594;pho="T"; beg=0; ctu=1; audpsi=0; AudMem();
t=595;pho="S"; beg=0; ctu=0; audpsi=571; AudMem(); // 25oct2012
nen=571; mfn=0; dba=4; fex=571; pos=5; fin=571; aud=590;
psi=571; num=2; pre=835; tqv=0; seq=0; enx=571; EnVocab(); InNativate();
// ROBOTS -- important for target user base
t=597;pho="R"; beg=1; ctu=1; audpsi=0; AudMem();
t=598;pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=599;pho="B"; beg=0; ctu=1; audpsi=0; AudMem();
t=600;pho="O"; beg=0; ctu=1; audpsi=0; AudMem();
t=601;pho="T"; beg=0; ctu=1; audpsi=0; AudMem();
t=602;pho="S"; beg=0; ctu=0; audpsi=571; AudMem(); // 25oct2012
nen=571; mfn=0; dba=1; fex=571; pos=5; fin=571; aud=597;
psi=571;num=2;pre=0;tqv=607;seq=849;enx=571;EnVocab();InNativate();
// NEED -- common verb used for describing goals
t=604;pho="N"; beg=1; ctu=1; audpsi=0; AudMem();
t=605;pho="E"; beg=0; ctu=1; audpsi=0; AudMem();
t=606;pho="E"; beg=0; ctu=1; audpsi=0; AudMem();
t=607;pho="D"; beg=0; ctu=0; audpsi=849; AudMem(); // 25oct2012
nen=849; mfn=0; dba=3; fex=849; pos=8; fin=849; aud=604;
psi=849;num=2;pre=571;tqv=610;seq=701;enx=849;EnVocab();InNativate();
// ME -- for SelfReferentialThought
t=609;pho="M"; beg=1; ctu=1; audpsi=0; AudMem();
t=610;pho="E"; beg=0; ctu=0; audpsi=701; AudMem(); // 25oct2012
nen=701; mfn=0; dba=4; fex=701; pos=7; fin=707; aud=609;
psi=701;num=1;pre=849;tqv=0;seq=0;enx=701;EnVocab();InNativate();
audpsi = 0; // lest pass through AudInput to EnParser; 22aug2011
indefartcon = 0; // lest WHO trigger EnArticle; 17jun2011
psi = 0;
pre = 0;
t = (t+1);
vault = t;
t = (t+1);
spt = t;
nlt = t;
tov = t; // For the sake of EnReify(); 24may2011
pho=" ";
nen = 900; // segregate parts of speech by century; 21oct2012
bias = 5; // from MindForth; 15oct2010
dba = 0; // From Russian AI; prevent carry-overs; 19oct2012
lurk = 0; // 15oct2010
mfn = 0; // prevent carry-over; 15oct2010
num = 0;
apb = "EnBoot: English bootstrap has loaded; calling MainLoop()";
Voice();
document.forms[1].ear.focus();
MainLoop();
} // end of EnBoot English bootstrap; 21oct2012
function KbTraversal() {
if (kbtv==0) kbtv = 1; // Input sets to zero; 23may2011
apb=("Rejuvenation count is at " + rjc); // 24may2011
if (kbtv==1) { // State the concept by name; 20may2011
apb=("KbTraversal activates concept of YOU in the knowledge base.");
} // End of test to identify concept by name; 20may2011
if (kbtv==2) { // State the concept by name; 20may2011
apb=("KbTraversal activates concept of ROBOT in the knowledge base.");
} // End of test to identify concept by name; 20may2011
if (kbtv==3) { // State the concept by name; 20may2011
apb=("KbTraversal activates concept of I in the knowledge base.");
} // End of test to identify concept by name; 20may2011
if (kbtv==4) { // State the concept by name; 20may2011
apb=("KbTraversal activates concept of GOD in the knowledge base.");
} // End of test to identify concept by name; 20may2011
Voice(); // speak the all-points-bulletin "apb"; 29sep2010
pov = "#"; // Internal point-of-view; 24may2011
if (kbtv > 4) kbtv = 1;
if (kbtv==1) {
kbyn = 1; // for AskUser Y/N query subject; 30jun2011
psi = 707; // Changing from 56=YOU to 707=YOU; 21oct2012
nacpsi = 707; // Changing from 56=YOU to 707=YOU; 21oct2012
qusub = 707; // in case a query will be made; 21oct2012
subjpsi = 707; // a test to help WhoBe; 21oct2012
nounval = 62;
defcon = nounval; // force majeure into NounAct; 17nov2010
NounAct();
nacpsi = 0; // reset for safety; 13aug2010
}
if (kbtv==2) {
kbyn = 2; // for AskUser Y/N query subject; 30jun2011
psi = 571; // 571=ROBOT; 23oct2012
nacpsi = 571; // 571=ROBOT; 23oct2012
qusub = 571; // 571=ROBOT; 23oct2012
subjpsi = 571; // 571=ROBOT; 23oct2012
nphrnum = 2; // prescriptive for plural ROBOTS; 17jun2011
snu = 2; // for sake of parameter-search; 26oct2012
nounval = 62;
defcon = nounval; // force majeure into NounAct; 17nov2010
NounAct();
nacpsi = 0; // reset for safety; 13aug2010
}
if (kbtv==3) {
kbyn = 3; // for AskUser Y/N query subject; 30jun2011
psi = 701; // changing from 50=I to 701=I; 21oct2012
nacpsi = 701; // changing from 50=I to 701=I; 21oct2012
qusub = 701; // in case a query will be made; 21oct2012
subjpsi = 701; // provisional subject of a query; 21oct2012
// nounval = 62;
nounval = 8; // test; 27oct2011
defcon = nounval; // force majeure into NounAct; 17nov2010
NounAct();
nacpsi = 0; // reset for safety; 13aug2010
}
if (kbtv==4) {
kbyn = 4; // for AskUser Y/N query subject; 30jun2011
psi = 533; // Changing from 100=GOD to 533=GOD; 23oct2012
nacpsi = 533; // noun-activation-psi; 23oct2012
qusub = 533; // in case a query will be made; 23oct2012
subjpsi = 533; // provisional subject of a query; 23oct2012
nounval = 62;
defcon = nounval; // force majeure into NounAct; 17nov2010
NounAct();
nacpsi = 0; // reset for safety; 13aug2010
}
defcon = 0; // reset for safety; 17nov2010
lurk = 0; // reset invoker of KbTraversal; 17nov2010
nounval = 0; // reset for safety; 17nov2010
} // End of KbTraversal; return to ReJuvenate or ThInk; 7jul2011
function ReJuvenate() {
edge = 0;
rjc = (rjc+1);
if (rjc > 99999) rjc = 1;
apb=("<font color='red'>"+"Rejuvenating; please wait!"+"<\/font>");
Voice();
for (i = (vault+coda); i<(t+2); ++i) {
jrt = (i - coda);
if (edge == 1) {
Psi[i].psiExam(); // subtracting coda from psi6 to keep tqv valid 15aug2012
Psi[jrt] = new psiNode(psi0,psi1,psi2,psi3,psi4,psi5,(psi6-coda),psi7,psi8);
Psi[i] = new psiNode(" "," "," "," "," "," "," "," "," "); // 13oct
}
if (edge == 1) {
enLexicon[i].enExam();
if (en8 > (vault+coda)) { // 4jan2012
en8 = (en8 - coda); // 5apr2010
} // adding en7 and " " to next two lines; 5apr2010
enLexicon[jrt] = new enNode(en0,en1,en2,en3,en4,en5,en6,en7,en8);
enLexicon[i] = new enNode(" "," "," "," "," "," "," "," "," ");
}
if (edge == 1) {
audMemory[i].audExam();
audMemory[jrt] = new audNode(aud0,aud1,aud2,aud3,aud4,aud5);
audMemory[i] = new audNode(" ",0," "," "," "," ");
}
if (edge == 0) {
audMemory[i].audExam();
// if (aud2 == "{") edge = true;
if (aud2 == "{") edge = 1; // a one-time switch; 14jul2011
audMemory[jrt] = new audNode(" ",0," "," "," "," ");
enLexicon[jrt] = new enNode(" "," "," "," "," "," "," "," ");
Psi[jrt] = new psiNode(" "," "," "," "," "," "," "," ");
}
}
t = jrt;
for (j = t; j < cns; ++j) { // adding " " for enNode; 5apr2010
audMemory[j] = new audNode(" ",0," "," "," "," ");
enLexicon[j] = new enNode(" ",""," "," "," "," "," "," ");
Psi[j] = new psiNode(" "," "," "," "," "," "," "," ");
}
kbtv = (kbtv + 1);
if (kbtv > 0) {
KbTraversal();
}
} // End of ReJuvenate(); return to SeCurity(); 12jul2011
function EmotiOn() {
apb = "EmotiOn module has been called.";
Voice();
}
function ReEntry() {
pov = "#";
t = (t + 1);
onset = (spt + 1);
upnext = (upnext + 1);
if (upnext == 1) {
if (urpsi > 1) {
}
}
if (onset == t) beg = 1;
else beg = 0;
if (dirobj == 1) dba = 4; // From RuAi; test; 19oct2012
if (pho != 32) {
len = (len +1);
AudMem();
} // End of test that input "pho" is not a "space".
if (pho == 32) { // If pho is a "space".
audrun = 1; // Reset to 1 at end of word; 13jul2010
AudInput(); // Re-entry into audition; 13jul2010
} // End of test for space-bar re-entry; 13jul2010
} // End of ReEntry(); return to SpeechAct().
function Voice() {
outputplus = ("<font size='+3' color='navy'>"+output+"<\/b><\/font>");
document.all.mouth.innerHTML = outputplus;
document.all.brain.innerHTML = apb;
}
function SpeechAct() { // output of a word as text or sound
if (aud == 0) aud = 1; // say diagnostic "ERROR"; 16jul2011
ctu = 1;
spt = (t - 1 );
do {
audMemory[aud].audExam();
pho = aud0;
lastpho = aud0; // Keep track of previous pho. 2sep2010
output += aud0;
ctu = aud4;
pov = "#";
ReEntry();
aud = (aud + 1);
}
while (ctu == 1);
if (ctu == 0) {
pho = 32;
ReEntry();
}
if (lastpho != "S") { // not after "S"; 2sep2010
if (flex1 != "") { // if positive inflection; 14sep2011
output += flex1; // add inflection to output; 14sep2011
flex1 = ""; // reset for safety; 14sep2011
} // End of test for a positive inflection; 2sep2010
} // End of test for previous "S"; 2sep2010
output += " ";
Voice();
} // End of SpeechAct(); 13aug2010
function EnArticle() {
nouncall = 0; // Try to avoid article showSubject(); 21may2011
if (indefmust == 1) { // 23oct2011
for (i = t; i>midway; i--) { // search backwards; 23oct2011
enLexicon[i].enExam(); // 23oct2011
if (en0 == 101) { // If 101=A is found; 23oct2012
aud = en8; // 4jan2012
break; // one instance is enough; 23oct2011
} // End of search for "101=A"; 23oct2011
} // End of loop finding the article "A"; 23oct2011
SpeechAct(); // pronounce the required article; 23oct2011
indefmust = 0; // reset for safety; 23oct2011
return; // abandon rest of EnArticle; 23oct2011
} // 23oct2011
if (nphrpos != 7) { // avoid article before pronoun; 19apr2011
if (nphrnum == 1) { // If number is singular; 4may2011
if (motjuste != ghost) { // From MindForth AI; 19apr2011
if (subjnum == 1) { // if singular subject; 14sep2011
if (verbpsi == 800) { // 800=BE (AM; IS; ARE); 2nov2012
indefartcon = 1; // permit indefinite article "A"; 14sep2011
} // end of test for 57=AM or 66=IS singular verbs; 14sep2011
} // end of test for non-zero singular subject; 14sep2011
if (indefartcon == 1) { // from WHAT-query; 19apr2011
if (artnum == 1) { // non-abstract singular noun; 6nov2011
if (anset == 0) { // If no vowel is next;
for (i = t; i>midway; i--) {
enLexicon[i].enExam();
if (en0 == 101) { // If 101=A is found; 23oct2012
aud = en8; // auditory recall-vector; 4jan2012
break;
} // End of search for #1 "A".
} // End of loop finding the word "A".
} // End of test for absence of a vowel; from MindForth.
if (anset > 0) { // If anset-flag is positive; 4may2011
for (i = t; i>midway; i--) { // Search backwards.
enLexicon[i].enExam(); // Examine En(glish) vocab.
if (en0 == 102) { // If 102=AN is found; 23oct2012
aud = en8; // Assign the auditory recall tag; 4jan2012
break; // Only find first instance; 4may2011
} // End of search for #83 "AN"; 4may2011
} // End of loop finding the word "AN"; 4may2011
} // End of test for a vowel coming next; 4may2011
lastword = true; // Prevent a "seq" association; 12may2011
SpeechAct(); // from MindForth; 4may2011
lastword = false; // Reset "lastword" flag; 12may2011
indefartcon = 0; // Reset after use; 12may2011
} // end of test for singular "artnum"; 6nov2011
} // End of test for positive indefartcon; 19apr2011
} // End of test for "ghost"................; 19apr2011
} // End of test for singular number; from MindForth; 4may2011
} // end of test for a pronoun; 19apr2011
if (nphrpos != 7) { // avoid article before pronoun; 19apr2011
if (ghost == 2) { // 10apr2009 If word was recently used...
if (defartcon == 1) { // from WHAT-query; 19apr2011
for (i = t; i>midway; i--) {
enLexicon[i].enExam();
if (en0 == 117) { // If 117=THE is found; 23oct2012
aud = en8; // 4jan2012
break;
} // End of search for 117=THE; 23oct2012
} // End of loop finding the word "the".
lastword = true; // 23aug2008 Prevent a "seq" association.
SpeechAct(); // Speak or display the word "the"; 12may2011
lastword = false;
defartcon = 0; // Reset; 12may2011
} // End of test for positive defartcon; 19apr2011
} // 10apr2009 End of test for "ghost" set to "the" (2).
} // end of test for a pronoun; 19apr2011
if (dirobj == 1) { // from MindForth AI; 19apr2011
ghost = motjuste; // from MindForth AI; 19apr2011
} // from MindForth AI; 19apr2011
} // End of EnArticle(); return to NounPhrase(); 13aug2010
function AuxVerb() {
if (subjnum == 1 && prsn == 3) { // singular num(ber)? 20jul2011
for (i = t; i>midway; i--) {
enLexicon[i].enExam();
// if (en0 == 87) { // 87=DOES 14jun2011
if (en0==830 && en2==1 && en4==3) { // 830=DO; 2nov2012
aud = en8; // auditory recall-vector; 4jan2012
break;
} // end of test for #87=DOES 14jun2011
} // end of backwards loop; 14jun2011
SpeechAct();
} // end of test for 3rd person singular; 2nov2012
else { // use DO otherwise; 22jun2011
for (i = t; i>midway; i--) {
enLexicon[i].enExam();
// if (en0 == 830) { // 830=DO; 23oct2012
if (en0 == 830 && en2 != 1) { // 830=DO; 2nov2012
aud = en8; // 4jan2012
break;
} // end of test for #830=DO; 23oct2012
} // end of backwards loop; 14jun2011
SpeechAct();
} // end of else-clause; 22jun2011
} // End of AuxVerb(); return to VerbPhrase or WhatAuxSDo.
function WhatAuxSVerb() { // What Do Subjects Verb; 14jun2011
PsiDecay(); // from MindForth; 3jul2011
for (i = t; i>midway; i--) {
enLexicon[i].enExam();
if (en0 == 781) { // 781=WHAT; 23oct2012
aud = en8; // 4jan2012
break; // one instance is enough; 14jun2011
}
}
SpeechAct();
if (subjnum == 1) nphrnum = 1; // for AuxVerb; 27jun2011
if (subjnum == 1) numsubj = 1; // for AuxVerb; 27jun2011
if (nphrpos == 5) prsn = 3; // assume noun is 3rd prsn; 27jun2011
caller = "WhatAuxSVerb"; // a diagnostic tool; 28jun2011
AuxVerb(); // Say DOES or DO depending on num(ber) 14jun2011
caller = " "; // reset after calling; 7jul2011
if (subjnum == 1) nphrnum = 1; // for EnArticle; 27jun2011
if (nphrnum == 1) EnArticle(); // say "A" or "THE"; 27jun2011
for (i = t; i>midway; i--) {
enLexicon[i].enExam();
if (en0 == topic) { // if same subject found; 14jun2011
aud = en8; // recall-vector for subject topic; 4jan2012
break; // one instance is enough; 14jun2011
} // end of test to find "topic"; 14jun2011
} // end of backwards loop; 14jun2011
SpeechAct();
if (verbpsi == 0) verbpsi = 830; // 830=DO default; 23oct2012
for (i = t; i>midway; i--) {
enLexicon[i].enExam();
if (en0 == verbpsi) { // if concept number of verb; 14jun2011
if (en2 == 2) { // assume plural is like infinitive; 14jun2011
aud = en8; // recall-vector for verb-form; 4jan2012
break; // one instance is enough; 14jun2011
} // end of test for plural verb as if infinitive; 14jun2011
} // end of test to find same verb; 14jun2011
} // end of backwards loop; 14jun2011
if (aud==0) { // if no plural accept singular; 22aug2011
for (i = t; i>midway; i--) { // search backwards; 22aug2011
enLexicon[i].enExam(); // examine ENglish lexicon; 22aug2011
if (en0 == verbpsi) { // if concept number of verb; 14jun2011
aud = en8; // recall-vector for verb-form; 4jan2012
break; // one instance is enough; 14jun2011
} // end of test to find same verb; 14jun2011
} // end of backwards loop; 14jun2011
} // end of test for no engram found; 22aug2011
SpeechAct();
PsiDecay(); // from MindFOrth; 3jul2011
} // End of WhatAuxSVerb; 14jun2011
function WhatAuxSDo() {
if (subjpsi==701) subjpsi = 701; // I, not ME; 21oct2012
if (topic==701) topic = 701; // I, not ME; 21oct2012
PsiDecay(); // from MindForth; 8jun2011
tov = t;
for (i = t; i>midway; i--) {
enLexicon[i].enExam();
if (en0 == 781) { // 781=WHAT; 23oct2012
aud = en8; // 4jan2012
break; // exit loop after first find; 7jul2011
}
}
SpeechAct();
caller = "WhatAuxSDo"; // a diagnostic tool; 28jun2011
AuxVerb();
caller = " "; // reset after calling; 7jul2011
for (i = t; i>midway; i--) {
enLexicon[i].enExam();
if (en0 == topic) {
if (en2 == nphrnum) { // insist on num(ber); 7jul2011
aud = en8; // 4jan2012
break; // exit loop after first find; 7jul2011
} // end of test for correct num(ber); 27jun2011
else aud = en8; // accept default engram; 4jan2012
}
}
SpeechAct();
flex1 = ""; // reset for safety; 14sep2011
for (i = t; i>midway; i--) {
enLexicon[i].enExam();
// if (en0 == 830) { // 830=DO; 23oct2012
if (en0 == 830 && en2 != 1) { // 830=DO; 2nov2012
aud = en8; // 4jan2012
break; // exit loop after first find; 7jul2011
}
}
SpeechAct();
topic = "";
PsiDecay(); // from MindForth; 8jun2011
} // End of WhatAuxSDo(); return to VerbPhrase(); 7jul2011
function WhoBe() { // for asking WHO IS-AM-ARE; 1oct2010
moot = 1; // prevent storage of spurious ideas; 24oct2011
tqv = 0; // prevent spurious carry-over values; 15aug2012
if (topic > 0) qusub = topic; // not yet definite source; 3aug2011
if (subjpsi > 0) qusub = subjpsi; // not yet sure source; 3aug2011
for (i = t; i>midway; i--) { // first look for 791=WHO; 23oct2012
enLexicon[i].enExam(); // examine English lexicon; 13aug2010
if (en0 == 791) { // if 791=WHO is found; 23oct2012
aud = en8; // assign most recent recall-tag; 4jan2012
break; // exit the loop after first find; 13aug2010
} // end of test for 791=WHO; 23oct2012
} // end of loop in search of 791=WHO; 23oct2012
SpeechAct(); // say word starting at "aud" value; 13aug2010
if (subjpsi==701) prsn=1; // 1st person "I"; 30oct2012
if (subjpsi==731) prsn=1; // 1st person "WE" 30oct2012
if (subjpsi==707) prsn=2; // 2nd person YOU; 30oct2012
if (subjpsi==737) prsn=2; // 2nd person YOU; 30oct2012
if (subjpsi==713) prsn=3; // 3rd person HE; 23oct2012
if (subjpsi==719) prsn=3; // 3rd person SHE; 30oct2012
if (subjpsi==725) prsn=3; // 3rd person IT; 30oct2012
if (subjpsi==743) prsn=3; // 3rd person THEY; 30oct2012
if (prsn == 3) { // only for 3rd person; 3aug2011
for (i = t; i>midway; i--) { // look for 66=IS; 3aug2011
enLexicon[i].enExam(); // examine English lexicon; 3aug2011
if (en0==800 && en2==1 && en4==3) { // parameters 30oct2012
aud = en8; // assign most recent recall-tag; 4jan2012
break; // exit the loop after first find; 3aug2011
} // end of test for 3rd person singular "IS"; 30oct2012
} // end of loop in search of 800=IS; 30oct2012
SpeechAct(); // say word starting at "aud" value; 3aug2011
} // end of test for third person; 3aug2011
if (subjpsi==701) { // 701=I; 30oct2012
for (i = t; i>midway; i--) { // look for "AM"; 2nov2012
enLexicon[i].enExam(); // examine English lexicon; 13aug2010
if (en0==800 && en2==1 && en4==1) { // parameters; 30oct2012
verbpsi = 800; // for EnArticle; 30oct2012
aud = en8; // assign most recent recall-tag; 4jan2012
break; // exit the loop after first find; 13aug2010
} // end of test for 1st person singular "AM"; 30oct2012
} // end of loop in search of 800=AM; 30oct2012
SpeechAct(); // say word starting at "aud" value; 13aug2010
} // end of test for subjpsi 701=I; 30oct2012
if (subjpsi==707) { // 707=YOU; 30oct2012
prsn = 2; // second person; 1oct2010
for (i = t; i>midway; i--) { // look for 800=ARE; 30oct2012
enLexicon[i].enExam(); // examine English lexicon; 13aug2010
if (en0==800 && en2==1 && en4==2) { // 2nd p. sing 30oct2012
aud = en8; // assign most recent recall-tag; 4jan2012
break; // exit the loop after first find; 13aug2010
} // end of test for 800=ARE; 30oct2012
} // end of loop in search of 800=ARE; 30oct2012
SpeechAct(); // say word starting at "aud" value; 13aug2010
} // end of test for subjpsi 707=YOU; 30oct2012
if (subjpsi==713) { // 713=HE; 23oct2012
nphrnum = 1; // singular; 1octo2010
prsn = 3; // third person; 1oct2010
for (i = t; i>midway; i--) { // look for "IS"; 2nov2012
enLexicon[i].enExam(); // examine English lexicon; 13aug2010
if (en0==800 && en2==1 && en4==3) { // "IS"? 30oct2012
aud = en8; // assign most recent recall-tag; 4jan2012
break; // exit the loop after first find; 13aug2010
} // end of test for 800=IS; 30oct2012
} // end of loop in search of 800=IS; 30oct2012
SpeechAct(); // say word starting at "aud" value; 13aug2010
} // end of test for subjpsi 713=HE; 23oct2012
if (subjpsi==719) { // 719=SHE; 23oct2012
nphrnum = 1; // singular; 1octo2010
prsn = 3; // third person; 1oct2010
for (i = t; i>midway; i--) { // look for 66=IS; 13aug2010
enLexicon[i].enExam(); // examine English lexicon; 13aug2010
if (en0==800 && en2==1 && en4==3) { // "IS"? 30oct2012
aud = en8; // assign most recent recall-tag; 4jan2012
break; // exit the loop after first find; 13aug2010
} // end of test for 800=IS; 30oct2012
} // end of loop in search of 800=IS; 30oct2012
SpeechAct(); // say word starting at "aud" value; 13aug2010
} // end of test for subjpsi 719=SHE; 30oct2012
if (subjpsi==725) { // 725=IT; 24oct2012
nphrnum = 1; // singular; 1octo2010
prsn = 3; // third person; 1oct2010
for (i = t; i>midway; i--) { // look for 66=IS; 13aug2010
enLexicon[i].enExam(); // examine English lexicon; 13aug2010
if (en0==800 && en2==1 && en4==3) { // "IS"? 30oct2012
aud = en8; // assign most recent recall-tag; 4jan2012
break; // exit the loop after first find; 13aug2010
} // end of test for 800=IS; 30oct2012
} // end of loop in search of 800=IS; 30oct2012
SpeechAct(); // say word starting at "aud" value; 13aug2010
} // end of test for subjpsi 725=IT; 24oct2012
if (subjpsi==743) { // 743=THEY; 24oct2012
nphrnum = 2; // plural; 1octo2010
prsn = 3; // third person; 1oct2010
for (i = t; i>midway; i--) { // look for 67=ARE; 13aug2010
enLexicon[i].enExam(); // examine English lexicon; 13aug2010
if (en0==800 && en2==2 && en4==3) { // 3rd p. pl. 30oct2012
aud = en8; // assign most recent recall-tag; 4jan2012
break; // exit the loop after first find; 13aug2010
} // end of test for 800=ARE; 30oct2012
} // end of loop in search of 800=ARE; 30oct2012
SpeechAct(); // say word starting at "aud" value; 13aug2010
} // end of test for subjpsi 743=THEY; 24oct2012
if (nphrpos==5) { // for plural nouns; 13aug2010
if (nphrnum == 2) { // if plural; 3aug2011
prsn = 3; // third person; 1oct2010
for (i = t; i>midway; i--) { // look for 67=ARE; 13aug2010
enLexicon[i].enExam(); // examine English lexicon; 13aug2010
if (en0==800 && en2==2 && en4==3) { // 3rd p.pl. 30oct2012
aud = en8; // assign most recent recall-tag; 4jan2012
break; // exit the loop after first find; 13aug2010
} // end of test for 800=ARE; 30oct2012
} // end of loop in search of 800=ARE; 30oct2012
SpeechAct(); // say word starting at "aud" value; 13aug2010
} // end of test for plural noun-phrase number; 3aug2011
} // end of test for plural nouns; 1oct2010
for (i = t; i>midway; i--) { // search for who-query subject
enLexicon[i].enExam(); // examine English lexicon; 4sep2010
if (en0 == qusub) { // if qusub found; 2oct2010
motjuste = qusub; // also = en0; 2oct2010
aud = en8; // assign most recent recall-tag; 4jan2012
break; // one exemplar is enough; 4sep2010
} // end of test for subject; 4sep2010
} // end of search-loop; 4sep2010
SpeechAct(); // say word starting at "aud" value; 4sep2010
if (recon != 250) recon = 0; // test for yes-or-no; 24oct2012
moot = 0; // end of not tagging query-concepts; 24oct2011
} // End of WhoBe(); return to AskUser(); 13aug2010
function WhatBe() { // what AM/IS/ARE Subjects; 18oct2011
moot = 1; // prevent storage of spurious ideas; 24oct2011
tqv = 0; // prevent spurious carry-over values; 15aug2012
for (i = t; i>midway; i--) { // 19jun2011
enLexicon[i].enExam(); // 19jun2011
if (en0 == 781) { // 781=WHAT; 23oct2012
aud = en8; // making room for "dba"; 4jan2012
break; // 19jun2011
} // 19jun2011
} // end of search loop; 19jun2011
SpeechAct(); // 19jun2011
if (qusub == 701) { // 701=I; 28oct2012
for (i = t; i>midway; i--) { // look for be-verb; 28oct2012
enLexicon[i].enExam(); // examine English lexicon; 18oct2011
if (en0==800 && en2==1 && en4==1) {
verbpsi = 800; // for EnArticle; 28oct2012
aud = en8; // assign most recent recall-tag; 4jan2012
break; // exit the loop after first find; 18oct2011
} // end of test for 800=BE; 28oct2012
} // end of loop in search of 800=AM; 28oct2012
SpeechAct(); // say word starting at "aud" value; 18oct2011
} // end of test for "701=I" query-subject; 28oct2012
if (qusubnum < 2){ // if singular query-number; 6nov2011
if (qusub != 701 && qusub != 707) { // not I or YOU; 28oct2012
for (i = t; i>midway; i--) { // look for be-verb; 28oct2012
enLexicon[i].enExam(); // examine English lexicon; 18oct2011
if (en0==800 && en2==1 && en4==3) { // "IS"? 28oct2012
aud = en8; // assign most recent recall-tag; 4jan2012
if (qusubnum==1) { // but not zero; 6nov2011
indefmust = 1; // to say "IS A"; 23oct2011
} // end of test for "1" singular; 6nov2011
break; // exit the loop after first find; 18oct2011
} // end of test for be-verb "IS"; 28oct2012
} // end of loop in search of "IS"; 28oct2012
SpeechAct(); // say word starting at "aud" value; 18oct2011
artnum = qusubnum; // parameter for EnArticle; 6nov2011
EnArticle(); // chance for "A" or "THE"; 27oct2011
artnum = -1; // not 0 or 1 or 2; 6nov2011
} // end of test for 701=I or 707=YOU; 28oct2012
} // end of test for singular query-subject; 27oct2011
if (qusubnum == 2 || qusub == 707) { // plural or YOU; 28oct2012
for (i = t; i>midway; i--) { // look for be-verb ARE; 28oct2012
enLexicon[i].enExam(); // examine English lexicon; 18oct2011
// if (en0==800 && en2==2 && en4==3) { // for 3rd person plural
if (en0==800 && en2==qusubnum && en4==prsn) { // 28oct2012
aud = en8; // assign most recent recall-tag; 4jan2012
verbnum = 2; // in favor of carry-over; 2nov2012
break; // exit the loop after first find; 18oct2011
} // end of test for be-verb "ARE"; 28oct2012
} // end of loop in search of "ARE"; 28oct2012
SpeechAct(); // say word starting at "aud" value; 18oct2011
} // end of test for plural query-subject; 27oct2011
for (i = t; i>midway; i--) { // 19jun2011
enLexicon[i].enExam(); // 19jun2011
if (en0 == qusub) { // test; 18oct2011
aud = en8; // making room for "dba"; 4jan2012
break; // 19jun2011
} // end of test for subjpsi; 5jul2011
} // end of search of En array; 19jun2011
SpeechAct(); // 19jun2011
PsiDecay(); // from MindForth; 3jul2011
cognum = 0; // reset for safety; 27oct2011
cogpsi = 0; // let another new word call WhatBe; 18oct2011
indefmust = 0; // reset for safety; 23oct2011
moot = 0; // resume associative tagging of valid ideas; 24oct2011
qusub = 0; // reset for safety; 27oct2011
qusubnum = 0; // reset for safety; 27oct2011
} // End of WhatBe(); 27oct2011
function AskUser() { // selector of question formats; 13aug2010
if (posflag==7 || posflag==5) { // noun or pronoun; 13aug2010
} // end of test of posflag; 13aug2010
if (kbyn == 0) { // 30jun2011
qusub = 571; // start with 571=ROBOT; 23oct2012
prsn = 3; // third person; 30jun2011
numsubj = 2; // plural; 30jun2011
subjnum = 2; // plural; 20jul2011
} // 30jun2011
if (ynverb == 0) { // ask y/n question only once; 30jun2011
ynverb = quverb; // isolate at start; 30jun2011
if (kbyn == 1) { // from KbTraversal; 30jun2011
// qusub = 56; // 56=YOU to ask questions about; 30jun2011
qusub = 707; // 707=YOU to ask questions about; 2nov2012
prsn = 2; // YOU is second person; 30jun2011
numsubj = 1; // assume YOU is singular; 30jun2011
subjnum = 1; // assume YOU is singular; 20jul2011
} // end of test for KbTraversal; 30jun2011
if (kbyn == 2) { // from KbTraversal; 30jun2011
qusub = 571; // 571=ROBOTS to ask questions about 23oct2012
prsn = 3; // ROBOTS is third person; 30jun2011
numsubj = 2; // plural; 30jun2011
subjnum = 2; // plural; 20jul2011
} // end of test for KbTraversal; 30jun2011
if (kbyn == 3) { // from KbTraversal; 30jun2011
qusub = 701; // 701=I to ask questions about; 24oct2012
prsn = 1; // "I" is first person; 30jun2011
numsubj = 1; // since "I" is singular; 30jun2011
subjnum = 1; // since "I" is singular; 20jul2011
} // end of test for KbTraversal; 30jun2011
if (kbyn == 4) { // from KbTraversal; 30jun2011
qusub = 533; // 533=GOD to ask questions about; 24oct2012
prsn = 3; // GOD is third person; 30jun2011
numsubj = 1; // GOD is singular; 30jun2011
subjnum = 1; // GOD is singular; 20jul2011
} // end of test for KbTraversal; 30jun2011
AuxVerb(); // Say DO or DOES; 30jun2011
for (i = t; i>midway; i--) { // seek query-subject; 30jun2011
enLexicon[i].enExam(); // examine English lexicon; 30jun2011
if (en0 == qusub) { // if query-subject found; 30jun2011
aud = en8; // assign auditory recall-tag; 4jan2012
break; // exit the loop after first find; 30jun2011
} // end of test for query-subject; 30jun2011
} // end of loop in search of qusub; 30jun2011
SpeechAct(); // say word starting at "aud" value; 30jun2011
tkbn = t; // if engram is to be changed; 29jun2011
nacpsi = qusub; // 30jun2011
nounval = 62; // 22jun2011
NounAct(); // 22jun2011
if (quverb == 0) quverb = 830; // 830=DO default; 23oct2012
for (i = t; i>midway; i--) { // seek yn query-verb; 30jun2011
enLexicon[i].enExam(); // examine English lexicon; 30jun2011
if (en0 == quverb) { // if yn query-verb found; 30jun2011
aud = en8; // assign most recent recall-tag; 4jan2012
break; // exit the loop after first find; 30jun2011
} // end of test for quverb; 30jun2011
} // end of loop in search of yn quverb; 30jun2011
nacpsi = ynverb; // transfer activand; 30jun2011
verbval = 62; // prime VerbAct(); 30jun2011
VerbAct(); // activate the yn query verb; 25jun2011
SpeechAct(); // say word starting at "aud" value; 30jun2011
tkbv = t; // if engram is to be changed; 30jun2011
if (quobj == 0) quobj = 711; // 711=ANYTHING default; 23oct2012
for (i = t; i>midway; i--) { // look for quobj; 30jun2011
enLexicon[i].enExam(); // examine English lexicon; 30jun2011
if (en0 == quobj) { // if query-object found; 30jun2011
aud = en8; // assign most recent recall-tag; 4jan2012
break; // exit the loop after first find; 30jun2011
} // end of test for quobj; 30jun2011
} // end of loop in search of quobj; 30jun2011
SpeechAct(); // say word starting at "aud" value; 30jun2011
yncon = 0; // because question has been asked; 30jun2011
kbcon = 1; // because waiting for answer; 30jun2011
ynverb = 0; // zero out; prevent repeat of query; 30jun2011
} // end of test of ynverb; 30jun2011
if (subjpsi==701) prsn=1; // 1st person "I"; 21oct2012
if (subjpsi==731) prsn=1; // 1st person "WE" 21oct2012
if (subjpsi==707) prsn=2; // 2nd person YOU; 21oct2012
if (subjpsi==713) prsn=3; // 3rd person HE; 21oct2012
if (subjpsi==719) prsn=3; // 3rd person SHE; 21oct2012
if (subjpsi==725) prsn=3; // 3rd person IT; 21oct2012
if (subjpsi==743) prsn=3; // 3rd person THEY; 21oct2012
numsubj = 0; // reset for safety; 22jun2011
qusubj = 0; // reset for safety; 22jun2011
quobj = 0; // reset for safety; 22jun2011
recon = 0; //
bias = 5; // restore expectation of a noun; 30jun2011
} // End of AskUser(); return to EnCog(); 20sep2011
function NounPhrase() {
audjuste = 0; // prevent carry-over; 24oct2011
if (verblock > 0) { // 24oct2011
Psi[verblock].psiExam(); // expose all values to change one; 24oct2011
nounlock = psi6; // time-point of "seq" engram; 24oct2011
motjuste = psi4; // let "pre" = motjuste?; test; 30oct2011
} // end of test for a positive verblock; 24oct2011
EnReify();
abort = false;
act = 0; // Start with zero to look for en1 higher than act.
defact = -8; // for default comparisons with "50=I"; 29oct2011
motjuste = 0;
nphrnum = 0; // prevent carry-overs; 24oct2011
num = 0; // without prejudice; 2sep2010
prsn = 0; // without prejudice; 2sep2010
if (nounlock > 0) { // already a nounlock? 24oct2011
Psi[nounlock].psiExam(); // find nounlock inside Psi array; 1nov2011
motjuste = psi0; // test; inov2011
enLexicon[nounlock].enExam(); // examine English lexicon; 24oct2011
audjuste = en8; // hold the auditory recall-vector; 4jan2012
} // end of test for a positive nounlock; 24oct2011
opt = 5; //
subjectflag = 1; // 9dec2009 A default until countermanded
if (dirobj == 1) subjectflag = 0; // toggle; 24oct2011
if (dirobj == 1) dba = 4; // From RuAi; seek acc. case; 19oct2012
if (predflag == 1) subjectflag = 0; // toggle; 24oct2011
if (predflag == 1) dba = 1; // From RuAi; seek nom. case 19oct2012
psi = 0; // The "psi-tag" carried by the "en0" flag.
for (i = t; i>midway; --i) {
Psi[i].psiExam(); // examine Psi array for most active concept.
if (psi5 == 5 || psi5 == 7) { // Logical OR; 13aug2011
if (subjectflag == 1) { // selecting a subject? 24oct2011
if (psi1 > act && psi7 > 0) { // seq; 5dec2012
if (psi7 > 0) { // Testing for seq-concept; 24oct2011
tsels = i; // retain time of subject; 24oct2011
tseln = i; // time of selected noun; 10may2011
motjuste = psi0; // store psi-tag of noun/pronoun; 13aug2011
subjpsi = psi0; // for parameter-searches; 5dec2012
nphrnum = psi2; // 13aug2011
subjnum = psi2; // for AuxVerb DOES or DO; 13aug2011
} // for subjects; 24oct2011
// subjpsi = psi0; // 13aug2011 // moved outside loop; 5dec2012
subjnum = psi2; // for AuxVerb DOES or DO; 13aug2011
putnum = psi2; // putative num for verb; 24oct2011
nphrpos = psi5; // NounPhrase part-of-speech; 13aug2011
posflag = psi5; // AskUser discriminand; 13aug2011
// if (psi1 > act && psi7 > 0) { // seq-check; 25oct2011
if (psi1 > act && psi6 > 0 && psi7 > 0) { // seq-check; 5dec2012
verblock = psi6; // tqv of seq-concept; 24oct2011
// for (j = t; j>midway; --j) { // from Russian AI; 21oct2012
// enLexicon[j].enExam(); // examine English lexicon; 21oct2012
// if (en0 == motjuste) { // from Russian AI; 21oct2012
// if (en2 == snu && en4 == 1) { // dba must be "1"; 21oct2012
// audjuste = en8; // avoid the spurious; 21oct2012
// } // from Russian AI; 21oct2012
// } // from Russian AI; 21oct2012
// } // end of search of enLexicon; 21oct2012
// 6nov2012 Commenting out 8 lines above, uncommenting 2 lines:
enLexicon[i].enExam(); // examine English lexicon; 24oct2011
audjuste = en8; // avoid the spurious; 24oct2011; 4jan2012
if (motjuste == 701) { // guarantee "I"; 21oct2012
for (i = t; i>midway; i--) { //search backwards; 25oct2011
enLexicon[i].enExam(); // examine English lexicon; 25oct2011
if (en0 == 701) { // "701=I"; 21oct2012
if (en4==1) { // dba=1 nominative? 5dec2012
audjuste = en8; // auditory recall-vector; 4jan2012
break; // one I-engram is enough; 25oct2011
} // end of test for nominative dba=1; 5dec2012
} // end of test for "701=I"; 5dec2012
} // end of backwards loop; 25oct2011
} // end of test for "701=I"; 5dec2012
if (motjuste == 707) { // guarantee 707=YOU; 21oct2012
for (i = t; i>midway; i--) { //search backwards; 25oct2011
enLexicon[i].enExam(); // examine English lexicon; 25oct2011
if (en0 == 707) { // "707=YOU"; 21oct2012
if (en4==1) { // dba=1; nominative; 5dec2012
audjuste = en8; // auditory recall-vector; 4jan2012
break; // one I-engram is enough; 25oct2011
} // end of test for nominative dba=1; 5dec2012
} // end of test for "707=YOU"; 5dec2012
} // end of backwards loop; 25oct20112011
} // end of test for "707=YOU"; 5dec2012
if (en6 == 5) prsn = 3; // assume 3rd prsn noun; 4jan2012
act = psi1; // after passing seq-check; 24oct2011
} // prevent false motjuste; 24oct2011
} // End of test for a higher activation; 24oct2011
} // end of test for 1=subjectflag; 24oct2011
if (nounlock==0) { // if no pre-existing selection; 5dec2012
if (subjectflag == 0) { // i.e., dir.obj or pred.nom; 24oct2011
if (psi1 > act) { // If psi1 is higher than "act"; 24oct2011
tseln = i; // retain time of motjuste; 24oct2011
motjuste = psi0; // 24oct2011
if (nounlock > 0) { // if positive nounlock exists; 24oct2011
if (i == nounlock) { // upon reaching engram; 24oct2011
motjuste = psi0; // grab nounlock psi; 24oct2011
nphrnum = psi2; // NounPhrase num(ber) 24oct2011
enLexicon[i].enExam(); // Examine En-lexicon; 24oct2011
audjuste = en8; // auditory fetch-tag; 4jan2012
break; // prevent usurpation of pre-ordained seq 24oct2011
} // end of test for index = nounlock; 24oct2011
} // end of test for positive nounlock; 24oct2011
// subjpsi = psi0; // 24oct2011; moved lower; 5dec2012
nphrnum = psi2; // 24oct2011
putnum = psi2; // putative num for verb; 24oct2011
nphrpos = psi5; // NounPhrase part-of-speech; 24oct2011
if (dirobj == 1) { // seeking direct object? 24oct2011
dba = 4; // From RuAi; for OldConcept; 19oct2012
Psi[i].psiExam(); // avoid error-on-page; 18oct2011
nphrnum = psi2; // 13aug2011
objold = motjuste; // a test ICW slosh-over; 18oct2010
if (motjuste == 701) { // 701=I; 21oct2012
if (nounlock == 0) { // test; 25oct2011
motjuste = 701; // 701=I or ME; 21oct2012
aud = audme;
audjuste = audme;
} // end of anti-substitution test; 25oct2011
} // end of test for "50=I"; 24oct2011
} // end of test for needing a direct object; 24oct2011
if (psi1 > act) act = psi1; // change the metric; 24oct2011
} // end of test for a higher activation; 24oct2011
} // end of test for 0=subjectflag; test; 24oct2011
} // end of test for pre-existing nounlock; 5dec2012
} // End of test of for a noun or pronoun; 24oct2011
} // End of backwards search for most active "motjuste"; 25may2011
if (subjectflag==1) subjpsi = motjuste; // from Wotan AI; 5dec2012
for (i = t; i>midway; i--) { // 13aug2011
enLexicon[i].enExam(); // 13aug2011
if (en0 == motjuste) { // 13aug2011
if (predflag==1) { // only for predicate nominatives; 20sep2011
if (nounlock == 0) { // in absence of nounlock; 25oct2011
if (en2==subjnum) { // num(ber) agreement? 20sep2011
if (en4==1) { // dba=1 nominative? 12nov2012
audjuste = en8; // set auditory recall-vector; 4jan2012
break; // one auditory engram is enough; 20sep2011
} // end of test for nominative dba=1; 12nov2012
} // end of test for agreement in num(ber); 20sep2011
} // end of test for absence of nounlock; 25oct2011
} // end of test for positive "predflag"; 20sep2011
else // for normal direct objects; 20sep2011
if (verblock == 0) { // if no verblock; 25oct2011
audjuste = en8; // for NounPhrase SpeechAct; 4jan2012
break; // one auditory engram is enough; 20sep2011
} // end of test for absence of verblock; 25oct2011
} // end of test for motjuste; 13aug2011
} // end of backwards loop; 13aug2011
star = 0;
node = 0;
ufo = 0;
if (nounlock == 0) { // if no nounlock override; 24oct2011
if (act < 20) { // if no subject of thought is found; 21aug2011
if (subjectflag==1) { // default to "I" only as subject 18oct2011
motjuste = 701; // default concept of an AI Mind; 21oct2012
nphrpos = 7; // pronoun "I"; to prevent EnArticle; 14sep2011
subjpsi = 701; // use elsewhere; 21oct2012
topic = 701; // use elsewhere; 21oct2012
for (i = t; i>midway; i--) { // Look for "50=I"; 9jul2011
Psi[i].psiExam(); // examine Psi array; 25oct2011
if (psi0 == 701 && psi7 > 0) { // new 701=I; 21oct2012
if (psi1 > defact) { // 25oct2011
tsels = i; // retain time of subject; 25oct2011
tseln = i; // retain time of motjuste; 25oct2011
verblock = psi6; // lock onto valid verb; 25oct2011
break; // test; 29oct2011
} // end of test for higher-act ego-concept; 25oct2011
} // end of test for "701=I" with seq-check; 21oct2012
} // End of search for #701 "I"; 21oct2012
dba = 1; // From RuAi; subject requires nom. case; 19oct2012
subjpsi = 701; // for use elsewhere; 21oct2012
topic = 701; // for question-asking modules; 21oct2012
nphrnum = 1; // for EnArticle and VerbPhrase; 29oct2011
nphrpos = 7; // prevent article "A" with "I"; 29oct2011
subjnum = 1; // for use elsewhere; 29oct2011
prsn = 1; // for use elsewhere; 29oct2011
for (i = t; i>midway; i--) { // Use parameters to find 701=I.
enLexicon[i].enExam(); // examine the English lexicon; 29oct2011
if (en0 == 701) { // If "701=I" is found; 21oct2012
if (en4 == 1) { // en4/dba must be nominative=1; 21oct2012
audjuste = en8; // "I" recall-vector; 4jan2012
break; // Use the most recent engram of "I"; 29oct2011
} // end of test for nominative "I"; 21oct2012
} // End of search for "701=I"; 21oct2012
} // end of English lexicon search loop; 29oct2011
} // end of test for "I" to become subj. not obj. 18oct2011
} // end of threshold-test; 18oct2011
} // end of test for absence of pre-ordained nounlock; 24oct2011
if (nounlock > 0) { // from MindForth; if positive; 17aug2012
// if (motjuste == 701) { // if 701=I is indicated; 21oct201
// for (i = t; i>midway; i--) { // Look backwards for 701=ME; 21oct2012
// enLexicon[i].enExam(); // examine English lexicon; 17aug2012
// if (en0 == 701) { // If #701 "I" found; 21oct2012
// if (en4 == 4) { // if "dba" is 4=acc.; 21oct2012
// audjuste = en8; // "ME" engram 17aug2012
// break; // Use most recent engram of "ME"; 17aug2012
// } // end of test for en4 dba=4 (acc.); 21oct2012
// } // End of search for #65 "ME"; 17aug2012
// } // End of loop finding word "YOU"; 17aug2012
// } // from MindForth; end of special override for 65=ME; 17aug2012
if (motjuste == 707) { // if 707=YOU is needed; 24oct2012
for (i = t; i>midway; i--) { // Look backwards for 707=YOU; 24oct2012
enLexicon[i].enExam(); // examine English lexicon; 17aug2012
if (en0 == 707) { // If 707=YOU found; 21oct2012
audjuste = en8; // "YOU" engram 17aug2012
break; // Use most recent engram of "YOU"; 17aug2012
} // End of search for #707 "YOU"; 24oct2012
} // End of loop finding word "YOU"; 17aug2012
} // from MindForth; end of special override for 707=YOU 24oct2012
} // from MindForth; end of test for a positive nounlock; 17aug2012
if (motjuste==701) { // if 701=I selected; 21oct2012
prsn = 1; // first person; 2sep2010
num = 1; // singular; 2sep2010
nphrnum = 1; // xfer into VerbPhrase; 2sep2010
} // end of test for 701=I; 21oct2012
if (dirobj == 1) { // When seeking direct object; 14jun2011
if (nounlock == 0) { // if no nounlock override; 24oct2011
if (act < 20) { // Revert to general threshold; 8jul2011
Psi[i].psiExam(); // expose psi2 to avoid error-on-page; 18oct2011
nphrnum = psi2; // 13aug2011
WhatAuxSVerb(); // Ask for missing information; 14jun2011
return; // Abandon the rest of NounPhrase() 14jun2011
} // End of test for sufficient activation; 14jun2011
} // end of test for a nounlock in play; 24oct2011
} // End of test for direct object; 14jun2011
if (motjuste == 107) { // irregular "107=WOMAN"; 12nov2011
if (nphrnum < 2) { // if singular is needed; 12nov2011
for (i = t; i>midway; i--) { // search backwards; 12nov2011
enLexicon[i].enExam(); // examine English lexicon; 12nov2011
if (en0 == 107) { // if 107=WOMAN is found; 12nov2011
audjuste = en8; // recall-tag for SpeechAct; 4jan2012
break; // exit the loop after first find; 12nov2011
} // end of test for singular 107=WOMAN engram; 12nov2011
} // end of search of En(glish) lexicon; 12nov2011
} // end of test for singular nounphrase-number; 12nov2011
if (nphrnum == 2) { // plural nounphrase-number; 12nov2011
for (i = t; i>midway; i--) { // search backwards; 12nov2011
enLexicon[i].enExam(); // examine English lexicon; 12nov2011
if (en0 == 114) { // if 114=WOMEN is found; 12nov2011
audjuste = en8; // recall-tag for SpeechAct; 4jan2012
break; // exit the loop after first find; 12nov2011
} // end of test for plural 114=WOMEN engram; 12nov2011
} // end of search of En(glish) lexicon; 12nov2011
} // end of test for plural nounphrase-number; 12nov2011
} // end of special handling of irregular 107=WOMAN; 12nov2011
if (motjuste == 525) { // irregular "525=CHILD"; 23oct2012
if (nphrnum < 2) { // if singular is needed; 12nov2011
for (i = t; i>midway; i--) { // search backwards; 12nov2011
enLexicon[i].enExam(); // examine English lexicon; 12nov2011
if (en0 == 525) { // if 525=CHILD is found; 23oct2012
audjuste = en8; // recall-tag for SpeechAct; 4jan2012
break; // exit the loop after first find; 12nov2011
} // end of test for singular 525=CHILD engram; 23oct2012
} // end of search of En(glish) lexicon; 12nov2011
} // end of test for singular nounphrase-number; 12nov2011
if (nphrnum == 2) { // plural nounphrase-number; 12nov2011
for (i = t; i>midway; i--) { // search backwards; 12nov2011
enLexicon[i].enExam(); // examine English lexicon; 12nov2011
if (en0 == 526) { // if 526=CHILDREN is found; 23oct2012
audjuste = en8; // recall-tag for SpeechAct; 4jan2012
break; // exit the loop after first find; 12nov2011
} // end of test for plural 526=CHILDREN engram; 23oct2012
} // end of search of En(glish) lexicon; 12nov2011
} // end of test for plural nounphrase-number; 12nov2011
} // end of special handling of irregular 525=CHILD; 23oct2012
EnDamp(); // Wiki-page form of name; 4may2011
nounval = act;
if (nphrnum != subjnum) { // make sure of agreement; 18may2011
for (i = t; i>midway; i--) { // Search backwards in time; 18may2011
enLexicon[i].enExam(); // Examine English lexicon; 18may2011
if (en0 == motjuste) { // If chosen concept is found; 18may2011
if (en2 == subjnum) { // If matching num(ber); 18may2011
audjuste = en8; // Switch away from wrong number; 4jan2012
num = subjnum; // For InStantiate of new engram; 18may2011
nphrnum = subjnum; // for EnArticle; test; 19jun2011
subjnum = 0; // Reset after use for safety; 18may2011
break;
} // End of test for matching num(ber); 18may2011
} // End of search for engram of proper number; 18may2011
} // End of finding not only engram but proper number. 18may2011
} // end of test to match subjnum and found noun; 18may2011
anset = 0; // Safety measure reset to zero; 4may2011
audMemory[audjuste].audExam(); // Inspect memory at "audjuste"; 19oct2012
if (aud0 == "A") anset = 65; // If vowel "A"; 4may2011
if (aud0 == "E") anset = 69; // If vowel "E"; 4may2011
if (aud0 == "I") anset = 73; // If vowel "I"; 4may2011
if (aud0 == "O") anset = 79; // If vowel "O"; 4may2011
if (aud0 == "U") anset = 85; // If vowel "U"; 4may2011
// if (nphrpos != 7) { // avoid article before pronoun; 13aug2010
// EnArticle(); // Reinstating for use with defartcon etc.; 19apr2011
// } // end of test to avoid THE+pronoun; 13aug2010
ghost = 0;
xthe = 0;
psi = 0;
if (subjectflag==1) { // for a subject-noun; 6nov2011
if (pos==5) { // a noun, not a pronoun; 6nov2011
artnum = nphrnum; // parameter for EnArticle; 6nov2011
EnArticle(); // chance for "A" or "THE"; 6nov2011
} // end of test for a noun; 6nov2011
} // enf of test for a subject; 6nov2011
if (predflag == 1) { // 14sep2011
artnum = nphrnum; // parameter for EnArticle; 6nov2011
EnArticle(); // say "A" or "THE"; 14sep2011
} // 14sep2011
aud = audjuste;
SpeechAct(); // main call from NounPhrase to SpeechAct; 18may2011
if (dirobj==1 || predflag==1) { // d.o. OR pred.nom. 30may2011
Psi[t].psiExam(); // expose all values to change one; 14jun2011
Psi[t] = new psiNode(psi0,-32,psi2,psi3,psi4,psi5,psi6,psi7,psi8);
} // only inhibit predicate nominatives; 16sep2010
if (motjuste != 701) { // if not 701=I; 21oct2012
if (motjuste != 707) { // not 707=YOU; 21oct2012
if (motjuste != 731) { // not 731=WE; 21oct2012
prsn = 3; // third person; not I YOU WE; 2sep2010
} // end of test for 731=WE; 21oct2012
} // end of test for 707=YOU; 21oct2012
} // end of test for "not I"; 2sep2010
if (subjcall == 1) { // _After_ any call to EnArticle(); 21may2011
nouncall = 1; // 1=nom.; (2=gen.); (3=dat.); 4=acc.; 21may2011
} // End of test to prevent showSubject() of articles; 21may2011
if (dirobj == 1) { // _After_ any call to EnArticle(); 21may2011
nouncall = 4; // 1=nom.; (2=gen.); (3=dat.); 4=acc.; 21may2011
} // End of test to prevent showObject() of articles; 21may2011
caller = "NounPhrase";
urpre = pre;
psi = motjuste;
nacpsi = motjuste; // de-globalized psi for NounAct; 13aug2010
nounval = 32; // arbitrary test value; 9jul2011
NounAct();
nouncall = 0; // Reset, whether subj. or dir. obj.; 21may2011
nounval = 0;
Psi[tsels].psiExam(); // impose neural inhibition on subject; 27oct2011
Psi[tsels] = new psiNode(psi0,-64,psi2,psi3,psi4,psi5,psi6,psi7,psi8);
tsels = 0; // reset for safety after inhibiting; 27oct2011
if (dirobj==1 || predflag==1) { // noun after verb; 30may2011
Psi[tseln].psiExam(); // expose all values to change one; 30may2011
// following line inhibits old KB noun-node; 24may2011; 30may2011
Psi[tseln] = new psiNode(psi0,-64,psi2,psi3,psi4,psi5,psi6,psi7,psi8);
tseln = 0; // Reset after use; 24may2011
Psi[t].psiExam(); // expose all values to change one; 14jun2011
Psi[t] = new psiNode(psi0,-64,psi2,psi3,psi4,psi5,psi6,psi7,psi8);
motjuste = psi0; // test; 29oct2011
PsiDecay(); // Try _differential_ psi-decay; 14may2011
PsiDecay(); // MindForth: try to knock out also-rans; 8jun2011
PsiDecay(); // test; remove; 3jul2011
} // end of test for positive predflag; 16sep2010
inhibcon = 1; // flag for OldConcept and InStantiate; 27oct2011
if (dirobj != 1 && predflag !=1 ) { // only subjects; 29oct2011
Psi[t].psiExam(); // inhibit subjects to a shallow depth; 27oct2011
Psi[t] = new psiNode(psi0,-64,psi2,psi3,psi4,psi5,psi6,psi7,psi8);
motjuste = psi0; // test; 29oct2011
} // end of test to avoid inhibiting prednoms and dirobjs; 29oct2011
topic = motjuste; // needed by WhatAuxSVerb() 14jun2011
pre = urpre; // from before call to NounAct; 27oct2011
if (dirobj == 1 || predflag == 1) { // other than subject; 27oct2011
caller = "NounPhrase";
urpsi = motjuste;
PsiDamp(); // commenting out as test; 14jun2011
// PsiDamp(); // commenting out as test; 29oct2011
urpsi = 0; // reset for safety; 18oct2010
} // end of test for a non-subject (pro)noun; 27oct2011
act = 0;
motjuste = 0;
nounlock = 0; // after causing selection of VPhr seq-noun; 24oct2011
psi = 0;
} // End of NounPhrase; return to VerbPhrase, or EnCog; 2nov2012
function ConJoin() {
// if (questype == 16) {
if (questype == 370) { // 370=WHY; 2nov2012
conj = 344; // 344=BECAUSE; 23oct2012
} else conj = 302; // 302=AND; 23oct2012
for (i = t; i>midway; i--) {
enLexicon[i].enExam();
if (en0 == conj) {
aud = en8; // 4jan2012
break;
}
}
SpeechAct();
questype = 0;
} // End of ConJoin(); currently not called; 13aug2010
function VerbGen() { // for using parameters to fetch verb-engrams
// alert("VerbGen: audbase = "+audbase); // test; 7nov2012
if (subjpsi==701) dba = 1; // "701=I" is first-person; 21oct2012
if (subjpsi==707) dba = 2; // "707=YOU" is second-person; 21oct2012
if (subjpsi==713) dba = 3; // "713=HE" is third-person; 21oct2012
if (subjpsi==719) dba = 3; // "719=SHE" is third-person; 21oct2012
if (subjpsi==725) dba = 3; // "725=IT" is third-person; 21oct2012
if (subjpsi==731) dba = 1; // "731=WE" is first-person; 21oct2012
if (subjpsi==743) dba = 3; // "743=THEY" is third-person; 21oct2012
do { // first loop fills in AudBuffer; 18oct2012
audMemory[audbase].audExam(); // 18oct2012
pho = aud0; // 18oct2012
abc = aud0; // for AudBuffer(); 18oct2012
AudBuffer(); // to transfer engrams; 18oct2012
if (aud4==0) { // no continuation; 18oct2012
OutBuffer(); // 18oct2012
} // 18oct2012
if (b14==String.fromCharCode(1045)) { // 18oct2012
aud0=""; // 18oct2012
} // 18oct2012
if (b14==String.fromCharCode(1045)) { // "E"; 18OCT2012
aud0=""; // 18oct2012
if (b15==String.fromCharCode(1064)) { // 18oct2012
aud0=" "; // "SH"; 18oct2012
if (b16==String.fromCharCode(1068)) { // 18oct2012
aud0=" "; // "b"; 18oct2012
} // 18oct2012
} // 18oct2012
} // 18oct2012
ctu = aud4; // continuation criterion; 18oct2012
audbase = (audbase + 1); // increment; 18oct2012
} // 18oct2012
while (ctu == 1); // during continuation; 18oct2012
if (ctu == 0) { // 18oct2012
OutBuffer(); // upon end of word display OutBuffer; 18oct2012
} // 18oct2012
do { // second loop uses OutBuffer; 18oct2012
OutBuffer(); // 18oct2012
pov = "#"; // from SpeechAct; 18oct2012
if (binc==1) { // 18oct2012
if (b01 > "") { // 18oct2012
output += b01; // 18oct2012
pho = b01; // for ReEntry; 18oct2012
ctu = 1; // for auditory continuation; 18oct2012
ReEntry(); // for record of thought; 18oct2012
} // end of test for content; 18oct2012
} // 18oct2012
if (binc==2) { // 18oct2012
if (b02 > "") { // 18oct2012
output += b02; // 18oct2012
pho = b02; // for ReEntry; 18oct2012
ctu = 1; // for auditory continuation; 18oct2012
ReEntry(); // for record of thought; 18oct2012
} // end of test for content; 18oct2012
} // 18oct2012
if (binc==3) { // 18oct2012
if (b03 > "") { // 18oct2012
output += b03; // 18oct2012
pho = b03; // for ReEntry; 18oct2012
ctu = 1; // for auditory continuation; 18oct2012
ReEntry(); // for record of thought; 18oct2012
} // end of test for content; 18oct2012
} // 18oct2012
if (binc==4) { // 18oct2012
if (b04 > "") { // 18oct2012
output += b04; // 18oct2012
pho = b04; // for ReEntry; 18oct2012
ctu = 1; // for auditory continuation; 18oct2012
ReEntry(); // for record of thought; 18oct2012
} // end of test for content; 18oct2012
} // 18oct2012
if (binc==5) { // 18oct2012
if (b05 > "") { // 18oct2012
output += b05; // 18oct2012
pho = b05; // for ReEntry; 18oct2012
ctu = 1; // for auditory continuation; 18oct2012
ReEntry(); // for record of thought; 18oct2012
} // end of test for content; 18oct2012
} // 18oct2012
if (binc==6) { // 18oct2012
if (b06 > "") { // 18oct2012
output += b06; // 18oct2012
pho = b06; // for ReEntry; 18oct2012
ctu = 1; // for auditory continuation; 18oct2012
ReEntry(); // for record of thought; 18oct2012
} // end of test for content; 18oct2012
} // 18oct2012
if (binc==7) { // 18oct2012
if (b07 > "") { // 18oct2012
output += b07; // 18oct2012
pho = b07; // for ReEntry; 18oct2012
ctu = 1; // for auditory continuation; 18oct2012
ReEntry(); // for record of thought; 18oct2012
} // end of test for content; 18oct2012
} // 18oct2012
if (binc==8) { // 18oct2012
if (b08 > "") { // 18oct2012
output += b08; // 18oct2012
pho = b08; // for ReEntry; 18oct2012
ctu = 1; // for auditory continuation; 18oct2012
ReEntry(); // for record of thought; 18oct2012
} // end of test for content; 18oct2012
} // 18oct2012
if (binc==9) { // 18oct2012
if (b09 > "") { // 18oct2012
output += b09; // 18oct2012
pho = b09; // for ReEntry; 18oct2012
ctu = 1; // for auditory continuation; 18oct2012
ReEntry(); // for record of thought; 18oct2012
} // end of test for content; 18oct2012
} // 18oct2012
if (binc==10) { // 18oct2012
if (b10 > "") { // 18oct2012
output += b10; // 18oct2012
pho = b10; // for ReEntry; 18oct2012
ctu = 1; // for auditory continuation; 18oct2012
ReEntry(); // for record of thought; 18oct2012
} // end of test for content in b10; 18oct2012
} // 18oct2012
if (binc==11) { // 18oct2012
if (b11 > "") { // 18oct2012
output += b11; // 18oct2012
pho = b11; // for ReEntry; 18oct2012
ctu = 1; // for auditory continuation; 18oct2012
ReEntry(); // for record of thought; 18oct2012
} // end of test for content in b11; 18oct2012
} // 18oct2012
if (binc==12) { // 18oct2012
if (b12 > "") { // 18oct2012
output += b12; // 18oct2012
pho = b12; // for ReEntry; 18oct2012
ctu = 1; // 18oct2012
ReEntry(); // for record of thought; 18oct2012
} // end of test for content in b12; 18oct2012
} // 18oct2012
if (binc==13) { // 18oct2012
if (b13 > "") { // 18oct2012
prc = vip; // for "audpsi"; 18oct2012
output += b13; // 18oct2012
pho = b13; // for ReEntry; 18oct2012
ctu = 1; // 18oct2012
ReEntry(); // for record of thought; 18oct2012
} // end of test for content in b13; 18oct2012
} // // 18oct2012
if (binc==14) { // 18oct2012
if (b14 > "") { // 18oct2012
prc = vip; // for "audpsi"; 18oct2012
output += b14; // 18oct2012
pho = b14; // for ReEntry; 18oct2012
ctu = 1; // 18oct2012
ReEntry(); // for record of thought; 18oct2012
} // end of test for content in b14; 18oct2012
} // 18oct2012
if (binc==15) { // "ES" as in "teaches"; 18oct2012
// if (b15=="E") b15 = ""; // "E"; 18oct2012
output += b15; // no change; 18oct2012
pho = b15; // for ReEntry; 18oct2012
ctu = 1; // 18oct2012
if (pho != "") ReEntry(); // avoid empty aud; 18oct2012
} // 18oct2012
if (binc==16) { // for present-tense endings 18oct2012
// if (b16=="S") b16 = ""; // 18oct2012
output += b16; // no change; 18oct2012
pho = b16; // for ReEntry; 18oct2012
ctu = 0; // terminate continuation "ctu"; 18oct2012
if (pho != "") ReEntry(); // avoid empty aud; 18oct2012
} // end of test of final position in OutBuffer; 18oct2012
binc = (binc + 1); // increment; 18oct2012
} // end of looping through OutBuffer; 18oct2012
while (binc < 17); // while inspecting OutBuffer; 18oct2012
c16=""; c15=""; c14=""; c13=""; c12=""; // 18oct2012
c11=""; c10=""; c09=""; c08=""; c07=""; // 18oct2012
c06=""; c05=""; c04=""; c03=""; c02=""; // 18oct2012
c01=""; // clear out the AudBuffer; 18oct2012
binc = 0; // reset after use; 18oct2012
if (dba == 1) { // first person; 18oct2012
if (snu == 1) { // a parameter; 18oct2012
// no special ending for 1st person sing. 18oct2012
} // 18oct2012
if (snu == 2) { // subject-number parameter; 18oct2012
// no special ending for 1st person plural 18oct2012
} // end of test for plural subject-number; 18oct2012
} // end of test for first-person; 18oct2012
if (dba == 2) { // second person; 18oct2012
if (snu == 1) { // a parameter; 18oct2012
// no special ending for 2nd person singular 18oct2012
} // end of test for singular subject-number; 18oct2012
if (snu == 2) { // subject-number parameter; 18oct2012
// no special ending for 2nd person plural; 18oct2012
} // end of test for plural subject-number; 18oct2012
} // end of test for second-person; 18oct2012
if (dba == 3) { // third person; 18oct2012
if (snu == 1) { // subject-number parameter; 18oct2012
output += "S" // "S"; 18oct2012
pho = "S" // for ReEntry; 18oct2012
ReEntry(); // for record of thought; 18oct2012
} // end of test for singular subject-number; 18oct2012
if (snu == 2) { // subject-number parameter; 18oct2012
// no special ending for 3rd person plural; 18oct2012
} // end of test for plural subject-number; 18oct2012
} // end of test for third-person; 18oct2012
if (ctu == 0) { // 18oct2012
pho = 32; // intervening space; 18oct2012
ReEntry(); // 18oct2012
} // 18oct2012
output += " "; // add a space; 18oct2012
Voice(); // 18oct2012
act = 31; // value intended for "vphract"; 18oct2012
} // end of VerbGen(); 18oct2012
function VerbPhrase() {
if (verblock > 0) { // positive verblock? 24oct2011
Psi[verblock].psiExam(); // expose all values to change one; 24oct2011
nounlock = psi6; // time-point of "seq" engram; 24oct2011
gencon = 0; // try to prevent VerbGen-call; 17oct2012
} // 24oct2011
EnReify();
act = 0; // Start with zero to look for psi1 higher than act.
aud = 0;
detour = 0;
psi5 = 0; // 13aug2011
motjuste = 0;
if (verblock > 0) { // already a verblock? 24oct2011
enLexicon[verblock].enExam(); // examine row in array; 24oct2011
verbpsi = en0; // obtain the lexical verbpsi; 17oct2012
audbase = en8; // parameter for VerbGen to call AudBuffer; 17oct2012
if (subjpsi==701 || subjpsi==731) prsn=1; // I or WE 7nov2012
if (subjpsi==707 || subjpsi==737) prsn=2; // "YOU" 7nov2012
if (subjpsi==713 || subjpsi==719) prsn=3; // HE; SHE 7nov2012
if (subjpsi==725 || subjpsi==743) prsn=3; // IT THEY 7nov2012
dba = prsn; // parameter for VerbGen; 17oct2012
vphraud = 0; // until a known verb is found; 17oct2012
for (i = t; i>midway; i--) { // search for verb-form; 17oct2012
enLexicon[i].enExam(); // examine English lexicon; 17oct2012
// Following code accepts only a verb-form matching three
// requirements: [ ]same concept; [ ]num(ber); and [ ]person:
if (en0==verbpsi && en2==nphrnum && en4==prsn) { // 17oct2012
vphraud = en8; // VerbPhrase auditory engram tag; 17oct2012
apb = "Fetching auditory engram of verb #"+en0+" from t = "+vphraud;
Voice(); // give voice to the apb message; 17oct2012
break; // one instance is enough; 17oct2012
} // end of test to find regular or irreg. verb-form 17oct2012
} // end of loop in search of correct verb-form;; 17oct2012
if (vphraud==0) { // as if else-clause for the verb-search; 17oct2012
gencon = 1; // prevent usual call from VerbPhrase to SpeechAct.
phodex = 0; // prevent carry-over values; 17oct2012
VerbGen(); // generate the needed verb-form; 17oct2012
} // end of quasi-else-clause to call VerbGen; 17oct2012
} // end of test for a positive verblock; 24oct2011
opt = 8;
psi = 0;
verbcall = 1;
vphract = 0; // for validity of threshold-tests; 15aug2011
// vphraud = 0; // prevent spurious carry-overs; 24oct2011
if (verblock == 0) { // prevent false negations; 24oct2011
if (subjpsi==701) dba = 1; // From RuAi; must be 1st person 21oct2012
for (i = t; i>midway; i--) {
Psi[i].psiExam(); // examine Psi concept array; 13aug2011
if (psi5 == 8) { // if 8=pos verb; 13aug2011
if (psi1 > act) { // If psi1 is higher than "act"; 13aug2011
tselv = i; // time of selected verb; 24may2011
motjuste = psi0; // store psi-tag of verb; 13aug2011
verbpsi = motjuste; // for WhatAuxSVerb; 9jul2011
beact = psi1; // store activation of be-verb; 13aug2011
if (maxbeact < beact) { // if maximum is smaller; 10nov2010
maxbeact = beact; // for comparisons; 10nov2010
} // only store when beact is large; 10nov2010
if (psi1 > 0) { // 15aug2011
if (psi3==12) { // 15aug2011
negjux = psi3; // 13oct2011
} // end of test for 12=NOT; 15aug2011
} // end of test for positive activation; 15aug2011
if (verblock > 0) { // if positive verblock exists; 24oct2011
if (i == verblock) { // upon reaching engram; 24oct2011
motjuste = psi0; // grab verblock psi; 24oct2011
act = 64; // to pass threshold-test; 24oct2011
negjux = psi3; // for negation of verb; 24oct2011
nounlock = psi6; // after verb grab "seq"; 24oct2011
enLexicon[i].enExam(); // English lexicon; 24oct2011
vphraud = en8; // for SpeechAct; 4jan2012
break; // prevent usurpation of pre-ordained seq; 7oct2011
} // end of test for index = verblock; 24oct2011
} // end of test for positive verblock; 24oct2011
if (psi1 > 0) { // positive activation? 24oct2011
if (verblock==0) negjux = psi3; // negative be-verbs; 24oct2011
tqv = psi6; // underailable tqv; 24oct2011
} // end of test for positive activation; 24oct2011
predpos = psi5; //
enLexicon[i].enExam(); // 13aug2011
verbpsi = en0; // for EnArticle; test; 14sep2011
vphraud = en8; // auditory recall-vector; 4jan2012
for (j = t; j>midway; --j) { // parameter-search; 12nov2012
enLexicon[j].enExam(); // examine English lexicon; 12nov2102
if (en0==verbpsi && en2==nphrnum && en4==prsn) { // 12nov2012
vphraud = en8; // VerbPhrase auditory engram tag; 12nov2012
break; // one instance is enough; 12nov2012
} // end of test to find correct form; 12nov2012
} // end of backwards loop; 12nov2012
Psi[i].psiExam(); // Check for negation on psi3; 29jun2011
act = psi1; // To test for a higher psi1; 15aug2011
if (act > 8) {
sloshmark = "+"; // for Tutorial display; 9aug2011
} // end of test for positive activation; 24oct2011
} // end of if-clause looking for higher activation
} else continue;
} // end of search for "motjuste" in Psi array; 13aug2011
if (vphraud == 0) dba = 3; // temporary test; 19oct2012
} // end of verblock-test to prevent false negations; 20oct2011
if (verblock > 0) { // 24oct2011
Psi[verblock].psiExam(); // expose all values to change one; 24oct2011
motjuste = psi0; // verblock override of activational competition;
negjux = psi3; // capture any "12=NOT" during override; 25oct2011
// enLexicon[verblock].enExam(); // examine English lexicon; 24oct2011
// vphraud = en8; // hold the auditory recall-vector; 4jan2012
act = 64; // prevent rejection of selection; 24oct2011
} // 24oct2011
Psi[tqv].psiExam(); // examine array row at "tqv"; 24oct2011
Psi[tqv] = new psiNode(psi0,128,psi2,psi3,psi4,psi5,psi6,psi7,psi8);
node = 0; // Reset tutorial verb display for showVerb().
vphract = act; // from highest-activation verb; 22jun2011
if (motjuste == 0) {
tov = t;
if (nphrnum == 1) { // 19jun2011
if (mfnflag > 0) { // if masc. or fem.; 3aug2011
WhoBe(); // ask WHO not WHAT; 3aug2011
mfnflag = 0; // reset after use; 3aug2011
return; // abandon rest of VerbPhrase; 3aug2011
} // end of test to ask WHO instead of WHAT; 3aug2011
qusub = subjpsi; // as set in NounPhrase; 29oct2011
qusubnum = subjnum; // parameter for WhatBe; 28oct2011
WhatBe(); // 19jun2011
return; // abandon rest of VerbPhrase; 27jun2011
} // 19jun2011
if (nphrnum == 2) { // if plural subject; 27jun2011
caller = "VerbPhrase"; // alert-diagnostic; 5jul2011
topic = subjpsi; // supersede any default; 7jul2011
WhatAuxSDo(); // what do Subjects do? 27jun2011
yncon = 1; // delay yes-or-no ? until after input; 27jun2011
return; // abandon rest of VerbPhrase; 27jun2011
} // what-do-X-do as prelude to yes-or-no questions; 27jun2011
else return; // abort thought if number not known; 15aug2011
} // End of test for zero motjuste; 2sep2010
if (motjuste > 0) { // if positive motjuste; 2sep2010
if (vphract < 20) { // threshold level also in MindForth; 26jun2011
// if (nphrnum == 1) { // if singular subject; 27jun2011
if (nphrnum == 0 || nphrnum == 1) { // unk or sing. 5jul2011
if (mfnflag > 0) { // if masc. or fem.; 3aug2011
WhoBe(); // ask WHO not WHAT; 3aug2011
mfnflag = 0; // reset after use; 3aug2011
return; // abandon rest of VerbPhrase; 3aug2011
} // end of test to ask WHO instead of WHAT; 3aug2011
qusub = subjpsi; // as set in NounPhrase; 29oct2011
qusubnum = subjnum; // parameter for WhatBe; 29oct2011
WhatBe(); // to ask a what-is question; 27jun2011
return; // abandon rest of VerbPhrase; 27jun2011
} // arbitrarily asking what-is builds ontology; 27jun2011
if (nphrnum == 2) { // if plural subject; 27jun2011
caller = "VerbPhrase"; // alert-diagnostic; 5jul2011
topic = subjpsi; // supersede any default; 7jul2011
WhatAuxSDo(); // what do Subjects do? 27jun2011
topic = " "; // reset for safety; 7jul2011
yncon = 1; // delay yes-or-no ? until after input; 27jun2011
return; // abandon rest of VerbPhrase; 27jun2011
} // what-do-X-do as prelude to yes-or-no questions; 27jun2011
else return; // abort thought if number not known; 15aug2011
} // end of test for vphract below 20=threshold; 15aug2011
if (negjux==250) { // if verb is negated with 250=NOT; 23oct2012
if (motjuste != 800) { // if other than an 800=BE verb; 2nov2012
AuxVerb(); // to say "DO" or "DOES"; 29jun2011
for (i = t; i>midway; i--) { // search backwards 29jun2011
enLexicon[i].enExam(); // examine English lexicon; 29jun2011
if (en0 == 250) { // if 250=NOT is found; 23oct2012
aud = en8; // recall-vector of auditory engram; 4jan2012
break; // finding one "NOT" is enough; 29jun2011
} // end of test for 12=NOT; 29jun2011
} // end of search of English lexicon; 29jun2011
SpeechAct(); // speak or display the adverb "NOT"; 29jun2011
} // end of test for no be-verb; 15aug2011
} // end of test for 12=NOT negjux; 13oct2011
if (motjuste != 800) { // if other than an 800=BE verb; 7nov2012
if (nphrnum==1) { // if singular; 2sep2010
if (prsn==3) { // 3rd person? 10may2011
flex1 = "S"; // xfer to SpeechAct(); 14sep2011
} // end of test for third-person; 10may2011
} // end of test for singular nphrnum; 2sep2010
} // end of test for absence of a be-verb; 15aug2011
if (motjuste==70) { // irregular 70=HAVE; 15aug2011
if (subjnum==1 && prsn==3) { // test; 23oct2011
for (i = t; i>midway; i--) { // search backwards 15aug2011
enLexicon[i].enExam(); // examine English lexicon; 15aug2011
if (en0 == 90) { // if 90=HAS is found; 15aug2011
vphraud = en8; // recall-vector for SpeechAct; 4jan2012
break; // one engram of "HAS" is enough; 15aug2011
} // end of test for 90=HAS engram; 15aug2011
} // end of search of English lexicon; 15aug2011
} // end of test for 3rd person singular; 15aug2011
} // end of special handling of 70=HAVE; 15aug2011
if (motjuste == 800) { // any form of 800=BE; 7nov2012
predflag = 1; // for sake of NounPhrase; 29oct2011
} // end of two-step be-verb substitution; 29oct2011
vacpsi = motjuste; // for VerbAct(); 18aug2011
VerbAct(); // moved from below SpeechAct & old KB-inhib; 18aug2011
aud = vphraud; // transfer just before call; 28jun2011
if (gencon == 0) { // if no call to VerbGen(); 18oct2012
SpeechAct(); // main call from VerbPhrase to SpeechAct; 2sep2010
} // prevent speaking extra verb after VerbGen(); 18oct2012
flex1 = ""; // corrective measure; 27jun2011; 14sep2011
gencon = 0; // reset whether used or not; 18oct2012
vphraud = 0; // reset for safety; 28jun2011
} // End of test for positive motjuste; 2sep2010
VerbClear(); // deactivate before inhibiting; 18aug2011
// Next line inhibits 2nd engram of pair with old engram; 24may2011
Psi[t].psiExam(); // expose all values to change one; 8jun2011
Psi[t] = new psiNode(psi0,-48,psi2,psi3,psi4,psi5,psi6,psi7,psi8);
subjectflag = 0; // for SpreadAct slosh-over; 18oct2010
urpsi = motjuste;
caller = "VerbPhrase";
PsiDamp(); // MindForth wiki-page spelling; 15nov2010
EnDamp(); // Wiki-page form of name; 4may2011
// Following lines inhibits old KB verb-node; 8jun2011
Psi[tselv].psiExam(); // expose all values to change one; 8jun2011
Psi[tselv] = new psiNode(psi0,-32,psi2,psi3,psi4,psi5,psi6,psi7,psi8);
tselv = 0; // Reset after use; 24may2011; 8jun2011
if (motjuste == 800) { // any form of 800=BE; 7nov2012
predflag = 1; // 20sep2011
if (negjux==250) { // if 250=NOT negates the verb-node; 23oct2012
for (i = t; i>midway; i--) { // search backwards in time; 9aug2011
enLexicon[i].enExam(); // examine the English lexicon; 9aug2011
if (en0 == 250) { // if 250=NOT is found; 23oct2012
aud = en8; // recall-vector of auditory engram; 4jan2012
break; // finding one "NOT" is enough; 9aug2011
} // end of test for 12=NOT; 9aug2011
} // end of search of English lexicon; 9aug2011
SpeechAct(); // speak or display the adverb "NOT"; 9aug2011
negjux = 0; // reset for safety; 13oct2011
} // end of test for 250=NOT negation; 23oct2012
} // end of test for a present-tense be-verb; 15aug2011
if (motjuste == 800) { // any be-verb; 12nov2012
if (negjux==250) { // if 250=NOT negates the verb-node; 23oct2012
for (i = t; i>midway; i--) { // search backwards in time; 9aug2011
enLexicon[i].enExam(); // examine the English lexicon; 9aug2011
if (en0 == 250) { // if 250=NOT is found; 23oct2012
aud = en8; // recall-vector of auditory engram; 4jan2012
break; // finding one "NOT" is enough; 9aug2011
} // end of test for 250=NOT; 23oct2012
} // end of search of English lexicon; 9aug2011
SpeechAct(); // speak or display the adverb "NOT"; 9aug2011
negjux = 0; // reset for safety; 13oct2011
} // end of test for 250=NOT negation; 23oct2011
} // end of test for be-verb 800=BE; 12nov2012
psi = 0;
pho = " ";
dirobj = 1;
// dirobj = 1; // commenting out as not always true; 5dec2012
if (subjpsi==701) { // only for subject "701=I"; 7nov2012
if (motjuste==820) { // only for verb "820=SEE"; 7nov2012
if (svo3==0) { // if SEE has no direct object; 25sep2011
VisRecog(); // a challenge for robot AI coders 25sep2011
SpeechAct(); // say default from VisRecog; 25sep2011
return; // abandon rest of VerbPhrase; 25sep2011
} // end of test for direct object; 25sep2011
} // end of test for "820=SEE" requiring VisRecog; 7nov2012
} // end of test for "701=I" subject of verb; 7nov2012
NounPhrase();
predflag = 0; // reset for safety; 16sep2010
dirobj = 0;
negjux = 0; // reset for safety; 13oct2011
nouncall = 0;
tqv = 0; // reset for safety; 25oct2011
verblock = 0; // after selection of NPhr seq-verb; 24oct2011
} // End of VerbPhrase(); return to EnCog(); 29jun2011
function DeCog() { // belongs not in JSAI but in MindForth;
alert("Achtung! German input flips thinking into German.");
HauptWort(); // Call a German NounPhrase module; 13jul2011
ZeitWort(); // Call a German VerbPhrase module; 13jul2011
} // End of stub-only DeCog(); return to ThInk(); 13jul2011
function EnCog() {
moot = 0; // may have been set in previous thought; 24oct2011
nphrnum = 0; // reset after previous thoughts; 5jul2011
PsiDecay(); // for distribution of PsiDecay influence; 3jul2011
tov = t; // For sake of ReActivate & InHibition; 8jun2011
if (yncon == 1) { // set in VerbPhrase after WhatAuxSDo; 3jul2011
AskUser(); // for yes-or-no query; 3jul2011
return; // abandon the rest of EnCog; 3jul2011
} // 3jul2011
if (inert > 1) { // if no input start thinking; 23oct2011
qusub = topic; // default for WhatBe; 27oct2011
if (cogpsi>0) qusub=cogpsi; // override; 27oct2011
qusubnum = subjnum; // default for WhatBe; 27oct2011
if (cognum > -1) qusubnum = cognum; // override; 6nov2011
if (cogpsi > 0) { // if there is a question; 27oct2011
artnum = qusubnum; // parameter for EnArticle; 6nov2011
WhatBe(); // ask question about a new concept; 18oct2011
} // end of test for presence of a query-subject; 27oct2011
cognum = 0; // reset for safety; 27oct2011
cogpsi = 0; // reset for safety; 18oct2011
inert = 0; // reset to resume counting; 18oct2011
return; // abandon the rest of EnCog; 18oct2011
} // end of arbitrary delay before initiating thought; 18oct2011
document.all.cosmos.innerHTML = "";
subjcall = 1; // Set nouncall just before NounAct(); 21may2011
audMemory[t].audExam(); // ReJuvenate test; 14jul2011
audMemory[t] = new audNode(aud0,aud1,"{",aud3,aud4,aud5); // 14jul2011
NounPhrase();
subjcall = 0; // Reset for safety; 21may2011
verbnum = nphrnum;
verbcall = 1;
VerbPhrase();
verbcall = 0;
verbnum = 0;
the1 = 0;
the2 = 0;
the3 = 0;
the4 = 0;
the5 = 0;
the6 = 0;
the7 = 0;
} // End of EnCog(); return to ThInk(); 9jul2011
function ThInk() {
PsiDecay(); // trying to reduce stray activation; 16oct2010
PsiDecay(); // Sharply cutting high-activation concepts; 20may2011
PsiDecay(); // trying to reduce stray activation; 8jun2011
PsiDecay(); // trying to reduce stray activation; 8jun2011
PsiDecay(); // test; remove; 3jul2011
inert = (inert + 1); // but AudInput resets to zero; 18oct2011
lurk = (lurk + 1); // AudListen() resets to zero; 29sep2010
if (life==true) { // 29sep2010
// apb=("Thinking at time "+t+" NLP loop #"+lurk+" KbTraversal = "+kbtv);
apb=("Time = "+t+"; thinking with NLP loop #"+lurk+"; ReJuvenate = "+rjc);
Voice(); // speak the all-points-bulletin "apb"; 29sep2010
} // 29sep2010
abort = false;
if (quiet == true) {
pov = "#";
output = "";
// output = ""; // Commenting out as a test; 6nov2011
outputplus = "";
// outputplus = ""; // Commenting out as a test; 6nov2011
if (glot == 1) { // flag for polyglot AI; 9jul2011
EnCog(); // think in English; 9jul2011
} // input of German might switch glot to two; 9jul2011
if (glot == 2) { // upon input of multiple German words;
DeCog(); // think in Deutsch (German); 13jul2011
} // example of branching for more powerful MindForth AI.
} // end of test for "quiet"; 13jul2011
ordo = 0;
if (lurk > greet) { // if no input by arbitrary time; 29sep2010
kbtv = (kbtv + 1); // increment as a trigger; 29sep2010
KbTraversal(); // activate ideas as a greeting; 29sep2010
lurk = 0; // reset for safety; 29sep2010
} // end of test to launch greeting; 29sep2010
// output = ""; // Let AI thought persist during input; 6nov2011
// outputplus = ""; // Let AI thought persist during input; 6nov2011
bias = 5; // test ICW slosh-over; 15oct2010
} // End of ThInk module.
function showSubject() {
var kb = document.getElementById("cosmos");
var seti = document.getElementById("star");
var set = (document.getElementById("star").value);
seti.value = set;
if (brevity == 1) set = 1;
if (brevity == 2) set = 2;
if (brevity == 3) set = 3;
if (brevity == 4) set = 4;
if (brevity == 5) set = 5;
if (brevity == 6) set = 6;
if (brevity == 7) set = 7;
if (brevity == 8) set = 8;
if (brevity == 9) set = 9;
if (brevity == 10) set = 10;
if (brevity == 11) set = 11;
if (brevity == 12) set = 12;
if (brevity == 13) set = 13;
if (brevity == 14) set = 14;
if (brevity == 15) set = 15;
if (brevity == 16) set = 16;
if (brevity == 17) set = 17; // prevent ectopic rectangles; 29sep2010
var sunset = "sun"+set;
var fact = document.createElement("div");
fact.setAttribute("id",sunset);
fact.style.setAttribute('position', 'absolute');
fact.style.setAttribute('left', '10');
fact.style.setAttribute('top', '50');
if (set==1) fact.style.setAttribute('top', '240');
if (set==2) fact.style.setAttribute('top', '260');
if (set==3) fact.style.setAttribute('top', '280');
if (set==4) fact.style.setAttribute('top', '300');
if (set==5) fact.style.setAttribute('top', '320');
if (set==6) fact.style.setAttribute('top', '340');
if (set==7) fact.style.setAttribute('top', '360');
if (set==8) fact.style.setAttribute('top', '380');
if (set==9) fact.style.setAttribute('top', '400');
if (set==10) fact.style.setAttribute('top', '420');
if (set==11) fact.style.setAttribute('top', '440');
if (set==12) fact.style.setAttribute('top', '460');
if (set==13) fact.style.setAttribute('top', '480');
if (set==14) fact.style.setAttribute('top', '500');
if (set==15) fact.style.setAttribute('top', '520');
if (set==16) fact.style.setAttribute('top', '540');
if (set==17) fact.style.setAttribute('top', '560'); // 29sep2010
fact.style.setAttribute('width', '200');
fact.style.setAttribute('height', '19');
fact.style.setAttribute('backgroundColor', 'aqua');
holdaud = aud;
do {
audMemory[aud].audExam();
tsubject += aud0;
ctu = aud4;
aud = (aud + 1);
}
while (ctu == 1);
if (ctu == 0) {
pho = 32;
}
tsubject += " ";
fact.innerHTML = tseln + " " + tsubject + " tags " + engram;
preview = ""; // adding "tseln" above; 30jul2012
seqverb = "";
engram = "";
aud = holdaud;
tsubject = "";
kb.appendChild(fact);
}
function showVerb() {
var aha = document.getElementById("idea");
var taxi = document.getElementById("node");
var tax = (document.getElementById("node").value);
taxi.value = tax;
if (equity == 1) tax = 1;
if (equity == 2) tax = 2;
if (equity == 3) tax = 3;
if (equity == 4) tax = 4;
if (equity == 5) tax = 5;
if (equity == 6) tax = 6;
if (equity == 7) tax = 7;
if (equity == 8) tax = 8;
if (equity == 9) tax = 9;
if (equity == 10) tax = 10;
if (equity == 11) tax = 11;
if (equity == 12) tax = 12;
if (equity == 13) tax = 13;
if (equity == 14) tax = 14;
if (equity == 15) tax = 15;
if (equity == 16) tax = 16;
// if (equity == 17) tax = 17; // prevent ectopic rectangles; 29sep2010
// if (equity == 18) tax = 18; // prevent ectopic rectangles; 29sep2010
var syntax = "syn"+tax;
var concept = document.createElement("div");
concept.setAttribute("id",syntax);
concept.style.setAttribute('position', 'absolute');
concept.style.setAttribute('left', '216');
concept.style.setAttribute('top', '60');
if (tax==1) concept.style.setAttribute('top', '250');
if (tax==2) concept.style.setAttribute('top', '270');
if (tax==3) concept.style.setAttribute('top', '290');
if (tax==4) concept.style.setAttribute('top', '310');
if (tax==5) concept.style.setAttribute('top', '330');
if (tax==6) concept.style.setAttribute('top', '350');
if (tax==7) concept.style.setAttribute('top', '370');
if (tax==8) concept.style.setAttribute('top', '390');
if (tax==9) concept.style.setAttribute('top', '410');
if (tax==10) concept.style.setAttribute('top', '430');
if (tax==11) concept.style.setAttribute('top', '450');
if (tax==12) concept.style.setAttribute('top', '470');
if (tax==13) concept.style.setAttribute('top', '490');
if (tax==14) concept.style.setAttribute('top', '510');
if (tax==15) concept.style.setAttribute('top', '530');
if (tax==16) concept.style.setAttribute('top', '550');
if (tax==17) concept.style.setAttribute('top', '570'); // 29sep2010
if (tax==18) concept.style.setAttribute('top', '590'); // 29sep2010
if (tax==19) concept.style.setAttribute('top', '610'); // 29sep2010
if (tax==20) concept.style.setAttribute('top', '630'); // 29sep2010
concept.style.setAttribute('width', '220');
concept.style.setAttribute('height', '19');
concept.style.setAttribute('backgroundColor', 'pink');
holdaud = aud;
do {
audMemory[aud].audExam();
tverb += aud0;
ctu = aud4;
aud = (aud + 1);
}
while (ctu == 1);
if (ctu == 0) {
pho = 32;
}
tverb += " ";
concept.innerHTML = verblock + " " + tverb + " tags " + sloshmark + engram;
preview = ""; // adding "verblock" above; 30jul2012
engram = "";
aud = holdaud;
tverb = "";
aha.appendChild(concept);
}
function showObject() {
var query = document.getElementById("radar");
var turi = document.getElementById("ufo");
var tur = (document.getElementById("ufo").value);
turi.value = tur;
if (city == 1) tur = 1;
if (city == 2) tur = 2;
if (city == 3) tur = 3;
if (city == 4) tur = 4;
if (city == 5) tur = 5;
if (city == 6) tur = 6;
if (city == 7) tur = 7;
if (city == 8) tur = 8;
if (city == 9) tur = 9;
if (city == 10) tur = 10;
if (city == 11) tur = 11;
if (city == 12) tur = 12;
if (city == 13) tur = 13;
if (city == 14) tur = 14;
if (city == 15) tur = 15;
if (city == 16) tur = 16;
if (city == 17) tur = 17; // prevent ectopic rectangles; 29sep2010
var abitur = "abi"+tur;
var answer = document.createElement("div");
answer.setAttribute("id",abitur);
answer.style.setAttribute('position', 'absolute');
answer.style.setAttribute('left', '440');
answer.style.setAttribute('top', '50');
if (tur==1) answer.style.setAttribute('top', '240');
if (tur==2) answer.style.setAttribute('top', '260');
if (tur==3) answer.style.setAttribute('top', '280');
if (tur==4) answer.style.setAttribute('top', '300');
if (tur==5) answer.style.setAttribute('top', '320');
if (tur==6) answer.style.setAttribute('top', '340');
if (tur==7) answer.style.setAttribute('top', '360');
if (tur==8) answer.style.setAttribute('top', '380');
if (tur==9) answer.style.setAttribute('top', '400');
if (tur==10) answer.style.setAttribute('top', '420');
if (tur==11) answer.style.setAttribute('top', '440');
if (tur==12) answer.style.setAttribute('top', '460');
if (tur==13) answer.style.setAttribute('top', '480');
if (tur==14) answer.style.setAttribute('top', '500');
if (tur==15) answer.style.setAttribute('top', '520');
if (tur==16) answer.style.setAttribute('top', '540');
if (tur==17) answer.style.setAttribute('top', '560'); // 29sep2010
answer.style.setAttribute('width', '210');
answer.style.setAttribute('height', '19');
answer.style.setAttribute('backgroundColor', 'yellow');
holdaud = aud;
do {
audMemory[aud].audExam();
tobject += aud0;
ctu = aud4;
aud = (aud + 1);
}
while (ctu == 1);
if (ctu == 0) {
pho = 32;
}
tobject += " ";
answer.innerHTML = nounlock + " " + tobject + " activates " + engram;
preview = ""; // adding "nounlock" above; 30jul2012
aud = holdaud;
tobject = "";
engram = "";
query.appendChild(answer);
}
function wipeSubject(oldnouns) {
var istr = document.getElementById("cosmos");
var zilch = document.getElementById(oldnouns);
istr.removeChild(zilch);
}
function wipeVerb(oldverbs) {
var btdt = document.getElementById("idea");
var rasa = document.getElementById(oldverbs);
btdt.removeChild(rasa);
}
function wipeObject(oldobjects) {
var scnr = document.getElementById("radar");
var nada = document.getElementById(oldobjects);
scnr.removeChild(nada);
}
function FreeWill() {
apb = "Volition module has been called.";
Voice();
}
function MotorOutput() {
apb = "Motorium module has been called.";
Voice();
}
function Diagnostic() {
psiList();
enList();
audList();
if (trouble == true) {
document.all.tabula.innerHTML = "";
document.all.psicolumn.innerHTML = psidata;
document.all.encolumn.innerHTML = endata;
document.all.audcolumn.innerHTML = auddata;
}
html = "";
psidata = ("<b>" + "Psi mindcore concepts" + "<\/b>" + "<BR>");
psidata += ("krt psi act num jux pre pos tqv seq enx"); // 13oct2011
endata = ("<b>" + "English lexical fibers" + "<\/b>" + "<BR>");
endata += ("krt nen act num mfn dba fex pos fin aud"); // 4jan2012
auddata = ("<b>" + "Auditory memory nodes" + "<\/b>" + "<BR>");
auddata += ("krt pho act pov beg ctu audpsi"); // 8dec2009
}
function TuringTest() {
if (document.all["cb3"].checked == true) {
document.all["cb1"].checked = false;
document.all.souvenir.innerHTML = "";
document.all["cb2"].checked = false;
tutor = false;
trouble = true;
fyi = 3;
}
if (document.all["cb3"].checked == false) {
document.all.tabula.innerHTML = "";
document.all.psicolumn.innerHTML = "";
document.all.encolumn.innerHTML = "";
document.all.audcolumn.innerHTML = "";
trouble = false;
}
if (document.all["cb1"].checked == true) {
document.all["cb2"].checked = false;
document.all["cb3"].checked = false;
document.all.tabula.innerHTML = "";
document.all.psicolumn.innerHTML = "";
document.all.encolumn.innerHTML = "";
document.all.audcolumn.innerHTML = "";
trouble = false;
hardcopy = true;
fyi = 1;
now = new Date();
adcopy=("<font size='+2'>AiMind version "+vrsn+" on " +now+"<\/b><\/font>");
document.all.souvenir.innerHTML = adcopy;
}
if (document.all["cb1"].checked == false) {
document.all.souvenir.innerHTML = "";
hardcopy = false;
document.all.tabula.innerHTML = "";
}
if (hardcopy == true) {
if (userline != "" || output != "" ) {
Transcript();
}
}
if (document.all["cb2"].checked == true) {
document.all["cb1"].checked = false;
document.all.souvenir.innerHTML = "";
hardcopy = false;
document.all["cb3"].checked = false;
document.all.tabula.innerHTML = "";
document.all.psicolumn.innerHTML = "";
document.all.encolumn.innerHTML = "";
document.all.audcolumn.innerHTML = "";
trouble = false;
tutor = true;
fyi = 2;
}
if (document.all["cb2"].checked == false) {
tutor = false;
if (fyi == 2) fyi = 0;
}
if (trouble == true) {
Diagnostic();
}
if (life == true) {
document.forms[1].ear.focus();
}
}
function SeCurity() {
TuringTest();
if (t > 160) nonce = vault; // Diagnostic display of all thought.
// nonce = 381; // to view innate KB for testing; 19oct2012
// nonce = 1; // show changes being made to EnBoot; 25oct2012
nonce = vault; // for quicker loading; 25oct2012
if (t > (cns-64)) ReJuvenate();
if (life == true) {
apb=("AI 4U on KB psi #"+kbtv+" at t="+t+" is alive on cyc #"+rjc+" since " +dob+ ".");
if (t > (cns-32)) {
apb = "WARNING! Consider clicking Refresh. ";
apb += ("Only " + (cns-t) + " spaces are left.");
}
Voice();
} else {
apb=("<font color='red'>"+"Mental function suspended."+"<\/font>");
Voice();
}
}
function MainLoop() {
if (brevity > 0) wipeSubject("sun" + 1);
if (brevity > 1) wipeSubject("sun" + 2);
if (brevity > 2) wipeSubject("sun" + 3);
if (brevity > 3) wipeSubject("sun" + 4);
if (brevity > 4) wipeSubject("sun" + 5);
if (brevity > 5) wipeSubject("sun" + 6);
if (brevity > 6) wipeSubject("sun" + 7);
if (brevity > 7) wipeSubject("sun" + 8);
if (brevity > 8) wipeSubject("sun" + 9);
if (brevity > 9) wipeSubject("sun" + 10);
if (brevity > 10) wipeSubject("sun" + 11);
if (brevity > 11) wipeSubject("sun" + 12);
if (brevity > 12) wipeSubject("sun" + 13);
if (brevity > 13) wipeSubject("sun" + 14);
if (brevity > 14) wipeSubject("sun" + 15);
if (brevity > 15) wipeSubject("sun" + 16);
if (brevity > 16) wipeSubject("sun" + 17); // 1oct2010
brevity = 0;
star = 0;
if (equity > 0) wipeVerb("syn" + 1);
if (equity > 1) wipeVerb("syn" + 2);
if (equity > 2) wipeVerb("syn" + 3);
if (equity > 3) wipeVerb("syn" + 4);
if (equity > 4) wipeVerb("syn" + 5);
if (equity > 5) wipeVerb("syn" + 6);
if (equity > 6) wipeVerb("syn" + 7);
if (equity > 7) wipeVerb("syn" + 8);
if (equity > 8) wipeVerb("syn" + 9);
if (equity > 9) wipeVerb("syn" + 10);
if (equity > 10) wipeVerb("syn" + 11);
if (equity > 11) wipeVerb("syn" + 12);
if (equity > 12) wipeVerb("syn" + 13);
if (equity > 13) wipeVerb("syn" + 14);
if (equity > 14) wipeVerb("syn" + 15);
if (equity > 15) wipeVerb("syn" + 16);
if (equity > 16) wipeVerb("syn" + 17); // 1oct2010
if (equity > 17) wipeVerb("syn" + 18); // 1oct2010
if (equity > 18) wipeVerb("syn" + 19); // 1oct2010
if (equity > 19) wipeVerb("syn" + 20); // 1oct2010
if (equity > 20) wipeVerb("syn" + 21); // 1oct2010
equity = 0;
node = 0;
if (city > 0) wipeObject("abi" + 1);
if (city > 1) wipeObject("abi" + 2);
if (city > 2) wipeObject("abi" + 3);
if (city > 3) wipeObject("abi" + 4);
if (city > 4) wipeObject("abi" + 5);
if (city > 5) wipeObject("abi" + 6);
if (city > 6) wipeObject("abi" + 7);
if (city > 7) wipeObject("abi" + 8);
if (city > 8) wipeObject("abi" + 9);
if (city > 9) wipeObject("abi" + 10);
if (city > 10) wipeObject("abi" + 11);
if (city > 11) wipeObject("abi" + 12);
if (city > 12) wipeObject("abi" + 13);
if (city > 13) wipeObject("abi" + 14);
if (city > 14) wipeObject("abi" + 15);
if (city > 15) wipeObject("abi" + 16);
if (city > 16) wipeObject("abi" + 17); // 1oct2010
city = 0;
ufo = 0;
SeCurity();
SensoryInput();
brain = true;
ThInk(); // reserving "inert" for cogpsi calling WhatBe; 18oct2011
if (life == true) {
TID=window.setTimeout("MainLoop();",10000);
}
}
</script></head>
<!--*********AI code is above; visible Mind is below**********-->
<body bgcolor="white" onKeyUp="if(event.keyCode==9) Tab();" onLoad="EnBoot()">
<a name="top"></a>
<fieldset>
<legend><font color="navy"><b>
Control Panel -
<a href="http://aimind-i.com"
title="Franks AI Mind by Frank J. Russo in Win32Forth">
AiMind-i.com</a> -
<a href="http://www.chatbots.org/ai_zone/viewthread/240/"
title="AiMind discussion at Chatbots.Org">
Chatbots</a> -
<a href="http://code.google.com/p/mindforth/wiki/JsAiManual"
title="JsAiManual - using the tutorial AiMind in JavaScript"
style="text-decoration:none;">
Manual</a> -
<a href="http://www.scn.org/~mentifex/Dushka.html"
title="Dushka -- Russian AI Mind"
style="text-decoration:none;">
&#1044;&#1091;&#1096;&#1082;&#1072;</a> -
<a href="http://www.scn.org/~mentifex/DeKi.txt"
title="64-bit Linux Supercomputer AI in German"
style="text-decoration:none;">
Wotan</a> -
<a href="http://www.scn.org/~mentifex/mindforth.txt"
title="in Win32Forth or 64-bit iForth for supercomputers"
style="text-decoration:none;">
MindForth</a> -
<a href="http://mind.sourceforge.net/theory5.html"
title="theory of cognitivity for artificial intelligence"
style="text-decoration:none;">
Theory</a> -
<a href="http://www.listbox.com/subscribe/?list_id=303"
title="Discuss AGI on the AGI Mailing List"
style="text-decoration:none;">
User Support</a>
</b>
</font></legend>
<form name="modes">
<input type="checkbox" name="cb1" onClick="Transcript();"> Transcript
<input type="checkbox" name="cb2" onClick="Tutorial()" checked> Tutorial
<input type="checkbox" name="cb3" onClick="TuringTest();"> Diagnostic
<input type="checkbox" name="cb4" onClick="Shutdown();">
<font color="fuchsia"><b>HALT</b></font>
<input type="checkbox" name="cb5" onClick="Destroy();">
<font color="red"><b>Terminate</b></font> (close window)<br />
</form>
</fieldset>
<div id="mouth" style="position:static;
background-color:silver; height:35">
When thinking begins, enter your input below. <br />
If this message remains here, the AI has failed to load.
</div>
<form onSubmit="if (this.submitted) return true; else {CR(); return false;};">
<b>The AI Mind activates an idea from a specific time-point in the
IdeaPlex.</b><br />
<input type="text" name="ear" value="" size="80" onKeyDown="AudListen()">
</form>
<div id="brain" style="position:static;
background-color:lightgreen">
Informative messages will appear here.
</div>
<noscript>
<p>The Robot AI Mind requires Microsoft Internet Explorer <br />
with JavaScript enabled.<br /></p></noscript>
<div id="souvenir" style="position:static; width:640;
background-color:lightyellow">
MSIE/ View/ Source: File/ Save As... C:\AiMind.html
</div>
<div id="tabula" style="position:static; width:640;
background-color:clear">
Unclick Diagnostic prior to clicking on Transcript.
</div>
<!-- The Diagnostic columns are present but invisible. -->
<div id="psicolumn" style="position:absolute; left:1; top:310;
width:250; height:140; background-color:clear">
</div>
<div id="encolumn" style="position:absolute; left:250; top:310;
width:240; height:140; background-color:clear">
</div>
<div id="audcolumn" style="position:absolute; left:490; top:310;
width:200; height:140; background-color:clear">
</div>
<div id="cosmos">
<font color="navy"><strong><pre>
Subject associates to verb. Verb associates to object. Object free-associates.
|--------------------------| |--------------------------| |----------------------|
| CATS associates to CHASE | | EAT associates to BUGS | | FISH activates CATCH |
| CATS associates to LOVE | | EAT associates to +FISH | | FISH activates LIKE |
| CATS associates to HATE | | EAT associates to BIRDS | | FISH activates EAT |
| CATS associates to EAT | -------------------------- | FISH activates CHASE |
| CATS associates to NEED | | FISH activates AVOID |
-------------------------- ---------------------
</pre></strong></font></div>
<div id="idea"> </div>
<div id="radar"> </div>
<input type="hidden" value="0" id="star" />
<input type="hidden" value="0" id="node" />
<input type="hidden" value="0" id="ufo" />
</body><!-- Change Log comments of the HTML variety:
Wed. "4jan12A.html" includes AudBuffer/OutBuffer and "dba" variable.
Mon. "30jul12A.html" uses Tutorial display to show IdeaPlex time-points.
Fri. "17aug12A.html" in NounPhrase() forces proper "nounlock" pronouns.
Sat. "18aug12A.html" rearranges EnBoot calls to EnVocab and InNativate.
Wed. "17oct12A.html" continues shift to parameter-based lexical recall.
Thur "18oct12A.html" uses VerbGen code adapted from Dushka Russian AI.
Fri. "19oct12A.html" improves the settings of "dba" as a parameter.
Sun. "21oct12A.html" uses 3-digit concept-numbers as in the Russian AI.
Mon. "21oct12T.html" special test version solves wrong-nounlock bug.
Mon. "22oct12A.html" solves nounlock bug and removes commented-out code.
Tues "23oct12A.html" completes the switch to three-digit concept numbers.
Wed. "24oct12A.html" deletes commented-out material and streamlines AI.
Thur "25oct12A.html" expands the EnBoot sequence for search-by-parameter.
Fri. "26oct12A.html" cns=1024; removes obsolete VerbPhrase be-verb test.
Sat. "27oct12A.html" changes OldConcept() to prevent false "dba" values.
Mon. "29oct12A.html" reconfigures WhatBe using 3-digit concept numbers.
Tues "30oct12T.html" reconfigures WhoBe using 3-digit concept numbers.
Wed. "31oct12A.html" tightens up the storage of searchable parameters.
Thurs "1nov12A.html" introduces "audnum" to deglobalize "num" variable.
Mon. "5nov12A.html" uses "holdnum" for agreement of subjects and verbs.
Tues. "6nov12A.html" improves storage of "dba" from NewConcept module.
Wed. "7nov12A.html" uses pronoun apparatus for search in VerbPhrase().
Sun. "11nov12A.html" corrects minor bugs found in coding of MindForth.
Mon. "12nov12A.html" uses secondary search with parameters for a verb.
WEd. "5dec12A.html" has "nounlock" lead to predicate nominatives.
(end of HTML Change Log comments) -->
</html>
}}}
You can’t perform that action at this time.