fml/marc.fml

   1 # Fml scripts to display MARC records
   2 # $Id: marc.fml,v 1.2 1995/02/10 16:52:08 adam Exp $
   3 \func f0 rec {
   4         \foreach line {\rec} {
   5                 \line \index 1 \
   6                 \line \index 2
   7                 \foreach field {\line \index 3} {
   8                         \if {\field \index 1} {
   9                                 \ $\field \index 1\
  10                         }
  11                         \field \index 2
  12                 }
  13                 \n
  14         }
  15 }
  16