Select Code to Download

#!/usr/local/bin/perl

$hour=<STDIN>;chop($hour);

 #goto LABELEND;

 if (open(NAMEONED,$onedname))

 #use PGPLOT;  # Load PGPLOT module
 #print "\nTesting simple point plot...\n\n";
 #print "PGPLOT module version $PGPLOT::VERSION\n\n";

 $k++;goto NEXTLINE;