25 lines
721 B
Plaintext
25 lines
721 B
Plaintext
|
|
|
|
.FUNCT SEE-VERB?:ANY:0:0
|
|
EQUAL? PRSA,V?SSEARCH-FOR,V?SEARCH-FOR,V?SEARCH /TRUE
|
|
EQUAL? PRSA,V?READ,V?LOOK-UP,V?LOOK-UNDER /TRUE
|
|
EQUAL? PRSA,V?LOOK-THROUGH,V?LOOK-OUTSIDE,V?LOOK-ON /TRUE
|
|
EQUAL? PRSA,V?LOOK-INSIDE,V?LOOK-DOWN,V?LOOK-BEHIND /TRUE
|
|
EQUAL? PRSA,V?LOOK,V?FIND,V?EXAMINE /TRUE
|
|
EQUAL? PRSA,V?CHASTISE,V?SANALYZE,V?ANALYZE /TRUE
|
|
RFALSE
|
|
|
|
|
|
.FUNCT SPEAKING-VERB?:ANY:0:1,PER
|
|
EQUAL? PRSA,V?$CALL,V?YES,V?TELL-ABOUT /?CTR2
|
|
EQUAL? PRSA,V?TELL,V?SORRY,V?REPLY /?CTR2
|
|
EQUAL? PRSA,V?NO,V?HELLO,V?ASK-FOR /?CTR2
|
|
EQUAL? PRSA,V?ASK-ABOUT,V?ASK,V?ANSWER \?CCL3
|
|
?CTR2: EQUAL? PER,0,PRSO /TRUE
|
|
RFALSE
|
|
?CCL3: EQUAL? PRSA,V?TALK-ABOUT,V?ASK-CONTEXT-FOR,V?ASK-CONTEXT-ABOUT \FALSE
|
|
ZERO? PER /TRUE
|
|
RFALSE
|
|
|
|
.ENDI
|