SUBROUTINE HELPSC(SBUFF,SC,R,IPRM,IDMGE,WHO,OBUFF)
C
C     PROVIDES THE HELP INFORMATION FOR PLAYER
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,FBASE
	BYTE MESSAG,INITLS
	CHARACTER*80 INLINE, COMMND*2
C
C
	LOGICAL*1 OK
	BYTE SBUFF(1850),OBUFF(19,19),SS
	INTEGER IPRM(6),IDMGE(8),WHO
	REAL SC(15),R(9)
C
C
	IF (NOHELP) GOTO 10063
	XSHIP(WHO)=.FALSE.
	WRITE (5,10000) "33,"33,"33,"33,"33,"33,"33
10000	FORMAT (' ',A1,'<',A1,'[0;0H',A1,'[0J',A1,'[1;26H',A1,'[7m',
	1  ' PLAYER COMMAND HELP SCREEN ',A1,'[0m',A1,'[3;1H')
	WRITE (5,12010)
12010	FORMAT(/,
	1  ' LF  Locate Freighter       C   Set Course             ',
	1  'TO  Fire Regular Torpedo')
	WRITE (5,12000)
12000	FORMAT(' LB  Locate Friendly Base   W   Set Warp Speed         ',
	1  'P   Fire Phasers')
	WRITE (5,12001)
12001	FORMAT(' LE  Locate Enemy Base      FR  Launch Freighter       ',
	1  'K   Launch Homing Torpedo')
	WRITE (5,12002)
12002	FORMAT(' LS  Locate Enemy Ship      FA  Fade (Cloaking)        ',
	1  'Z   Launch Anti-matter Pod')
	WRITE (5,12003)
12003	FORMAT (' E   Display Starbases      A   Appear (Cloaking)      ',
	1  'N   Freeze Anti-matter Pod')
	WRITE (5,12004)
12004	FORMAT(' O   Ship Homing            H   Set Hyperspace Port    ',
	1  'X   Explode A-M Pod')
	WRITE (5,12005)
12005	FORMAT(' TR  Tractor Beams          M   Send Message           ',
	1  'J   Hyperspace Jump')
	WRITE (5,12006)
12006	FORMAT(' D   Destroy W/Phasers      S   Shields                ',
	1  'R   Refresh Screen')
	WRITE (5,12007) "33,"33
12007	FORMAT(' Q   Quit',A1,'[17;23r',A1,'[?4h')
C
10001	WRITE (5,10002) "33,"10,"10
10002	FORMAT (' ',A1,'[15;1HEnter command for help, <CR> to'
	1 ' end :   ',2A1,$)
	ILEN=2
	CALL RDLINE(COMMND,ILEN,0)
	IF (ILEN.EQ.0) GOTO 10068
	WRITE (5,10003) "33,"33
10003	FORMAT (' ',A1,'[0J',A1,'[16;1H')
	REWIND 2
10004	READ (2,10005,END=10010) INLINE
10005	FORMAT (A80)
	IF (INLINE(1:1).NE.'*') GOTO 10004
	IF (INLINE(2:2+ILEN-1).NE.COMMND(1:ILEN)) GOTO 10004
C
C	GOT THE PROPER HELP STUFF
C
10006	READ (2,10005,END=10010) INLINE
	IF (INLINE(1:1).EQ.'%') GOTO 10010
	WRITE (5,10007) INLINE
10007	FORMAT (' ',A80)
	GOTO 10006
C
C	END OF THIS HELP
C
10010	GOTO 10001
C
C	ALL DONE, RESET THE TERMINAL AND REFRESH THE SCREEN
C
10068	WRITE (5,10011) "33,"33,"33
10011	FORMAT (' ',A1,'[1;24r',A1,'[?4l',A1,'[?2l')
	CALL RBUFF(OBUFF)
	DO 10067 I=1,15
	SC(I)=-9999.
	IF (I.LE.9) R(I)=-9999.
	IF (I.LE.8) IDMGE(I)=-9999.
10067	CONTINUE
	CALL REFRSH(SC,R,IDMGE,WHO,SBUFF,IPRM)
10063	CALL CPOS(L)
	XSHIP(WHO)=.TRUE.
	RETURN
	END