C		1983 AUGUST	A. KREYMER
C		[ART]STREK.INC
C		FOR USE WITH [ART]STREK.FOR

C	TEST SCREEN ROUTINES IN THE DEC RUN TIME LIBRARY

      COMMON /STREK/ SECT,QUAD,IPASTE,IDISPL

      CHARACTER*1 SECT(10,10)	! QUADRANT = TYPE OF OCCUPANT
      BYTE        QUAD(3,8,8)	! GALAXY = KLINGON.BASE.STAR COUNT

      CHARACTER*1 CHAR		! LOCAL CHARACTER BUFFER
      CHARACTER*80 LINE		! LOCAL LINE BUFFER