http://www.geocities.com/Athens/Agora/7256/m-forth3.html Mind.forth
AI for Robots has not yet "quickened" or completed its loop of user
input followed by robot response and reentry of the result of think-
ing back into the robot brain-mind but here is a typical subroutine:
Screen # 38 ram:mind22
--------------------------------
0 \ Predicate Scr #38. 990129atm
1 : PREDICATE 8 opt ! \ Flag to look for "opt=8" verbs
2 \ KBDS will find the most active mindcore "opt" concept:
3 CR ." PREDICATE Scr #38: Calling KBDS. " KBDS ( Scr #35 )
4 0 prevmax ! 0 bonmot !
5 CR ." Predicate Scr #38: The mind will now think the verb "
6 tdavno @ t @ DO I 2 uk{ }get 8 = IF ( a verb )
7 I 1 uk{ }get a !
8 a @ prevmax @ > IF I 0 uk{ }get mt !
9 0 I 1 uk{ }put ( reset to zero )
10 I 5 uk{ }get rv ! ( recall vector )
11 a @ prevmax ! mt @ bonmot ! 0 mt ! THEN THEN -1 +LOOP
12 rv @ 0 ear{ }look rv @ 1+ 0 ear{ }look rv @ 2+ 0 ear{ }look
13 CR ." then " ( call ) FIBERDAMP ( Scr #31 )
14 CR ." PREDICATE Scr #38: Direct object will be..."
15 NOUN-PHRASE ( Scr #36 ) ; \ return to LANG-UK Scr #42.
--------------------------------