#!/usr/local/bin/perl

##</code><code>##

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

##</code><code>##

 #goto LABELEND;

##</code><code>##

 if (open(NAMEONED,$onedname))

##</code><code>##

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

##</code><code>##

 $k++;goto NEXTLINE;