common /pat/ snull, srchst
 
logical snull			# .false. if srchst is valid; .true. otherwise
byte srchst(_arith(MAXLINE,*,2))# holds current search string