#!/usr/local/bin/perl 

if (! @ARGV)
{
   if (! $ENV{'DISPLAY'})
   {
      print "\nTo run sas interactively you must have your DISPLAY\n";
      print "environment variable set.  Use xdisp if you are on one\n";
      print "of the student lab machines.\n\n";
      exit;
   }
   system("sas");
   exit;
} else
{
   ($filename, @options) = @ARGV;
   if ($filename =~ /(\S+)\.sas/)
   {
      $filename = $1;
   }
   if (! -f "$filename.sas")
   {
      print "\n$filename.sas does not exist.\n";
      print "Syntax: newsas FileName [options]\n";
      print "The file extension .sas is not required\n\n";
      exit;
   }
   unlink "$filename.log";
   unlink "$filename.lst";
   system("sas @ARGV");
   if (-f "$filename.lst")
   {
      system("cat $filename.log $filename.lst > $filename.tmp");
      system("mv $filename.tmp $filename.lst");
      unlink "$filename.log";
   } else
   {
      system("mv $filename.log $filename.lst");
   }
   system("pico $filename.lst");

}