static char sccsid
[] = "@(#)systemname.c 4.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
;