#!/usr/bin/mumps
# Sept 16, 2017
# Copyright 2017 Kevin C. O'Kane

      open 1:"../osu.medline,old"
      if '$test write "file open error",! halt

# write for each headding the titles associated with it

      read "Query? ",query
      set query=$zlower(query)

      write !,query," indexes "
      if $data(^MH(query)) write ^MH(query)
      else  write 0
      write " documents",!!

      set off=""
      for  set off=$order(^MH(query,off)) quit:off=""  do
      . use 1
      . do $zseek(off)
      . for  read a if $extract(a,1,3)="TI " do  quit
      .. use 5
      .. write ?5,off,?15,$extract(a,7,80),!