SUBROUTINE INIPLA (IPRM,SBUFF,OK,WHO)
C
C	ROUTINE TO INITIALIZE PLAYER
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS,IDMGE(8),WHO
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,FBASE
	BYTE MESSAG,INITLS
	BYTE SBUFF(1850)
	LOGICAL*1 OK,XXX,DONE,YES,WARN,US
C
C FIND THE TERMINAL TYPE (VT52 OR VT100) AND ATTACH THE TERMINAL
C
	CALL TERM (ITERM)
	IF (ITERM.NE.2) STOP 'INVALID TERMINAL TYPE'
	CALL GETCHR
	CALL ATTUNI(I)
C
C      TRAP VARIOUS ERRORS
C
	CALL ERRSET(29,.TRUE.,.FALSE.,.TRUE.,.FALSE.,)
	CALL ERRSET(64,.TRUE.,.FALSE.,.TRUE.,.FALSE.,)
	CALL ERRSET(81,.TRUE.,.FALSE.,.FALSE.,.FALSE.,)
	CALL GETADR(IPRM,SBUFF)
	L=20
	CALL RDFIL (SBUFF,IBLEV)
	NOHELP=.FALSE.
	OPEN (UNIT=2,NAME='LB:[1,2]TREKHELP.HLP',TYPE='OLD',
	1 ACCESS='SEQUENTIAL',READONLY,SHARED,ERR=900)
	GO TO  10003
900	NOHELP=.TRUE.
	GOTO 10003
10001	IF (OK )  GO TO 10002
10003	WRITE(5,10004)
10004	FORMAT(' THE FOLLOWING VESSELS ARE AVAILIABLE FOR USE.')
	DO 10006 I=1,8
	IF (XSHIP(I)) GO TO 10006
	WRITE(5,10011) I
10011	FORMAT(' SHIP ',I1)
10006	CONTINUE
10013	WRITE(5,10012)
10012	FORMAT('$ENTER THE NUMBER OF THE SHIP YOU WISH TO COMMAND :')
	CALL GETINT(IW,OK,1,8)
	IF (.NOT.OK) GO TO 10013
	WHO=IW
	IF (.NOT.XSHIP(WHO)) GO TO 10016
	WRITE(5,10019)
10019	FORMAT(' THIS SHIP ALREADY HAS A COMMANDER')
	WRITE(5,10020)
10020	FORMAT('$DO YOU WISH TO SHARE THIS COMMAND ? ')
	CALL YESNO(OK)
	GOTO 10001
10016	PAUS(WHO)=.TRUE.
	CALL SETBAS(WHO)
	GO TO  10001
10002	CONTINUE
	XSHIP(WHO)=.TRUE.
	CREW(WHO)=CREW(WHO)+1
C
C     FIND OUT OUR INITIALS
C
	IF (IBLEV.EQ.1) GO TO 10111
	CALL GINUAB(SBUFF,ISTAT)
	INITLS(WHO,1) = SBUFF(89)
	INITLS(WHO,2) = SBUFF(75)
10111	WRITE (5,20000) "33
20000	FORMAT (' ',A1,'[?2l')
10005	CONTINUE
	RETURN
	END