#!/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 heading the titles associated with it 

      write "Enter a MeSH keyword: " 
      read word 
 
      write !,word," occurs in ",^MH(word)," documents",! 
      for off=$order(^MH(word,off)) do 
      . use 1 
      . do $zseek(off) 
      . for  do 
      .. read a 
      .. if $extract(a,1,3)'="TI " quit 
      .. use 5 
      .. write ?5,off,?15,$extract(a,7,80),! 
      .. break