SUBROUTINE RBUFF(OBUFF)
C
C	ROUTINE TO DRAW SCREEN FOR PLAYER
C
	COMMON /HLP/HELP
	LOGICAL*1 HELP
	BYTE TOPLIN(42),MIDLIN(40),BOTLIN(42),UNDLIN(17),UNDDMG(41)
	BYTE OBUFF(19,19)
	DATA TOPLIN/"33,'F','l',38*'q','k'/
	DATA MIDLIN/'x',38*' ','x'/
	DATA BOTLIN/'m',38*'q','j',"33,'G'/
	DATA UNDLIN/"33,'F',13*'q',"33,'G'/
	DATA UNDDMG/"33,'F',37*'q',"33,'G'/
C
	IF (HELP) GO TO 10005
	DO 10001 IX=1,19
	DO 10004 IY=1,19
	OBUFF(IX,IY)="0
10004	CONTINUE
10001	CONTINUE
	CALL CLEAR
C
C     * DRAW NEW SCREEN
C
	CALL CURWRT(1,1,TOPLIN,42,5)
	DO 100 L=2,19
	CALL CURWRT(L,1,MIDLIN,40,5)
100	CONTINUE
	CALL CURWRT(20,1,BOTLIN,42,5)      
10005	CALL CURWRT(1,44,'Energy   :',10,5)
	CALL CURWRT(2,44,'Shields  :',10,5)
	CALL CURWRT(3,44,' ',1,5)
	CALL CURWRT(4,44,'Warp     :',10,5)
	CALL CURWRT(5,44,'Heading  :',10,5)
	CALL CURWRT(6,44,'X Co-ord :',10,5)
	CALL CURWRT(7,44,'Y Co-ord :',10,5)
	CALL CURWRT(8,44,'Universe :',10,5)
	CALL CURWRT(9,44,'Torps    :',10,5)
	CALL CURWRT(10,44,'Seekers  :',10,5)
	CALL CURWRT(10,59,'/',1,5)
	CALL CURWRT(11,44,'Port/Uni :',10,5)
	CALL CURWRT(12,44,'Homing   :',10,5)
	CALL CURWRT(13,44,'Tractors :',10,5)
	CALL CURWRT(14,44,' ',1,5)
	CALL CURWRT(15,43,'           DAMAGE REPORT',25,5)
	CALL CURWRT(16,43,UNDDMG,41,5)
	CALL CURWRT(17,43,'Phasers:        %   Nav-Comput:     %',37,5)
	CALL CURWRT(18,43,'Torpedoes:      %   Warp-drive:     %',37,5)
	CALL CURWRT(19,43,'Scanners:       %   Anti-matter:    %',37,5)
	CALL CURWRT(20,43,'Cloaking:       %   Shields:        %',37,5)
	CALL CURWRT(3,72,'SCORES',6,5)
	CALL CURWRT(4,68,UNDLIN,17,5)
	CALL CURWRT(5,68,'1',1,5)
	CALL CURWRT(6,68,'2',1,5)
	CALL CURWRT(7,68,'3',1,5)
	CALL CURWRT(8,68,'4',1,5)
	CALL CURWRT(9,68,'5',1,5)
	CALL CURWRT(10,68,'6',1,5)
	CALL CURWRT(11,68,'7',1,5)
	CALL CURWRT(12,68,'8',1,5)
	RETURN
	END