# -*- Perl -*-
# Support routines for memototxt
#
# $Id: memototxt.sup 2.0 1995/04/01 21:09:46 norm Exp $
#
#
##############################################################################

if ($VERBOSE) {
    my($VERSION) = '$Id: memototxt.sup 2.0 1995/04/01 21:09:46 norm Exp $'; # '
    my($REQNAME) = (split(/\s+/, $VERSION))[1];
    my($vers) = (split(/\s+/, $VERSION))[2];

    print STDERR "$REQNAME version $vers.\n";
}

##############################################################################

sub PI_source_file { }
sub PI_formatter_file { }
sub PI_chapter_number { }
sub PI_page_number { }
sub PI_numbered_sections { }

1;