#++
# NAME:    lib_for_4173.pm
# AUTHOR:  J. Blustein
# CREATED: 17 June 2001
# UPDATED: 17 June 2001
# 
# PURPOSE: utility routines used in examples
#--

package lib_for_4173;
use strict;
use Exporter;
  use vars qw(@ISA @EXPORT $VERSION);
  $VERSION = 1.00;
  @ISA = ('Exporter');
  @EXPORT = qw($VERSION &list &wait_for_keypress &clear_screen);

sub list {
    return 
       (defined @_)
       ? "(" . join(",", @_) . ")"
       : "undefined";
} # list()

sub wait_for_keypress {
    print "\n  ";
    print "-" x 30 . "  press Enter key to continue " . "-" x 30 . "\n";

    my $in = <STDIN>;
} # wait_for_keypress()

sub clear_screen;
{
    $ENV{'PATH'}="/bin:/usr/bin";
    $ENV{'BASH_ENV'}="";
    system("clear");
} # clear_screen();

1;