-
Notifications
You must be signed in to change notification settings - Fork 21
/
macros.zap
24 lines (19 loc) · 721 Bytes
/
macros.zap
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
.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