define(`xSTREAMx',divnum)
divert(-1)
# @(#)Copyright (c), 1987, 1993 StatSci, Inc.  All rights reserved.
divert(xSTREAMx)
INCLUDE(search)
common/srcbuf/sb,prefix
CHARACTER(sb,SRBLEN)
CHARACTER(prefix,PREFLEN)
common/srchp/pt(eval(SRCHLEN+1)),list(eval(SRCHLEN+1)),eobuf,ilenp
integer pt,list,eobuf,ilenp
SCCS_ID(94664,`@(#)'disk.m 3.9 last edit 2/20/93 StatSci. From BASEFILE)
