#!/usr/bin/env perl

##################################################
#  Bacteria Analysis System                      #
##################################################
#   $Id: BAS,v 1.10 2001/09/20 06:59:12 s98982km Exp $
#Generated by G-language System.
#This program analyses bacterial Genomes.
#usage:./BAS

use G::System::BAS;
<<<<<<< BAS
#use vars qw($opt_g,$opt_s);
=======
>>>>>>> 1.9
use Getopt::Std;

my $filename;
my $src;

&getopts('g:s:');

if($opt_g){
    $filename=$opt_g;
}
else{
    $filename="./default.gcf";
}

$src=$opt_s;

BAS_run("$filename",-src=>"$src");

exit;






