#!/afs/athena/contrib/perl/p

# Starting time of day, in minutes
$something = 960;
$sday = 18;


# Preliminary stuff

print("tracking on\n");
print("sample 3000\n");


# Time is in minutes

for $time (120..300){
#for $time (0..80){

    $reltime = 4 * $time + $something;

    $hour = int($reltime/60);
    if ($hour>=24) {
	$hour -= 24;
	$day = $sday+1;
    }
    else{
	$day = $sday;
    }

    $minute = $reltime%60;

    $long = int(4*($time-200)/3);
    $long += 360 if $long<0;

#    print("----------- Time $hour:$minute on 3/$day--Long $long\n");

    if($long > 360){
	$long -= 360;
    }

    if($long <240){
	print("wait $hour:$minute:0 3/$day/94\n");
	print("galactic 0 0 0 $long 0 0\n");
	print("data\n");
	print("galactic -10 0 0 $long 0 0\n");
	print("reference\n");
	print("save bd$long\n");
    }

}