* Copyright (c) 1980 Regents of the University of California.
* Redistribution and use in source and binary forms are permitted
* provided that this notice is preserved and that due credit is given
* to the University of California at Berkeley. The name of the University
* may not be used to endorse or promote products derived from this
* software without specific prior written permission. This software
* is provided ``as is'' without express or implied warranty.
static char sccsid
[] = "@(#)systemname.c 5.2 (Berkeley) %G%";
** RETRIEVE THE STARSYSTEM NAME
** Very straightforward, this routine just gets the starsystem
** name. It returns zero if none in the specified quadrant
** (which, by the way, is passed it).
** This routine knows all about such things as distressed
i
= Event
[i
& Q_SYSTEM
].systemname
;