SUBROUTINE PAGE2
C
C	ROUTINE TO DISPLAY BLACK HOLE INFORMATION FOR PLAYER
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS,LLOCS(5)
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,FBASE
	BYTE MESSAG,INITLS,ESC,OUTLIN(19)
	DATA LLOCS/1,17,33,49,65/
	DATA ESC/"33/
C
	WRITE (5,10000) ESC,ESC,ESC,ESC,ESC
10000	FORMAT (' ',A1,'[0;0H',A1,'[0J',A1,'[7m',A1,'[1;27;H',
	1  ' BLACK HOLE INFORMATION ',A1,'[0m',/)
	WRITE (5,10001)
10001	FORMAT (' UNIVERSE #1     UNIVERSE #2     UNIVERSE #3     ',
	1  'UNIVERSE #4     UNIVERSE #5',/,' ',5('===========     '))
C
	DO 10010 I=1,IUNIMX
	DO 10009 J=1,IHOLE(I)
	ENCODE (19,10002,OUTLIN) "33,(J*2)+4,LLOCS(I),J,HWARP(I,J)
10002	FORMAT (A1,'[',I2.2,';',I2.2,'H#',I1,' -- ',F4.2)
	WRITE (5,10003) OUTLIN
10003	FORMAT (' ',19A1)
10009	CONTINUE
10010	CONTINUE
C
	WRITE (5,10020) ESC
10020	FORMAT (' ',A1,'[23;1HEnter <CR> to continue ',$)
	CALL RDLINE(OUTLIN,1,0)
	RETURN
	END