* Copyright (c) 1980, 1993
* The Regents of the University of California. All rights reserved.
* %sccs.include.redist.c%
static char sccsid
[] = "@(#)systemname.c 8.1 (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
;