divert(-1)
# @(#)Copyright (c), 1987, 1993 StatSci, Inc.  All rights reserved.
define(`EHOME',`/usr/expert')
define(`ACTION',1)define(`DISPLAY',2)define(`THINKING',3)
define(`S_EXPRESSION',4)define(`BACKUP',5)define(`QUESTION',6)
define(`THINKING',7)
define(`CHOICE',xqchce)define(`RESPONSE',xqresp)
divert(0)
common/xqcomm/CHOICE,RESPONSE
integer CHOICE,RESPONSE
SCCS_ID(96003,`@(#)'query.m 3.9 last edit 2/20/93 StatSci. From BASEFILE)
