	PROGRAM BBOX
	COMMON IB(10,10),IA(8,2),IC(8,2),NA,IS1,IS2,CHAR,CLEAR
	LOGICAL*1 CLEAR(6)
	LOGICAL*1 CHAR,IB
C	IB IS BOX ARRAY (X,Y) POSITIONS; FIRST AND LAST ROW &COL. ARE
C		RESERVED FOR MARKERS AND NOT AVAILABLE FOR PLAY.
C	IA CONTAINS STAR LOCATIONS (X,Y)
C	NA IS NUMBER OF STARS HIDDEN
C	IC CONTAINS USER'S GUESSES FOR STAR LOCATIONS
C	ID IS A TEMPORARY ARRAY USED FOR IA, IB, OR IC
C 
C	DETERMINE TERMINAL TYPE AND ADJUST CLEAR STATEMENT:
	CALL TERM
C	INITIALIZE RANDOM NUMBERS:
	S=SECNDS(0.0)
	T=S
20	IF(T.LT..032) GOTO 21
	T=T/17.
	GOTO 20
21	IS1=T*1000000.
22	IF(S.LT..032) GOTO 23
	S=S/13
	GOTO 22
23	IS2=S*1000000.
	DO 24 I=1,100
	X=RAN(IS1,IS2)
24	CONTINUE
1	WRITE(5,2)
2	FORMAT(////' * * *    B L A C K   B O X    * * *'//
     C' SELECT ONE OF THE FOLLOWING OPTIONS:'/
     C' 1) INSTRUCTIONS'/' 2) PRACTICE MODE'/' 3) HIDE STARS'/
     C' 4) SEARCH FOR STARS'/' 5) STORE STAR PATTERN'/
     C' 6) EXIT BLACKBOX'//' ENTER OPTION: ',$)
	READ(5,3,END=10) ANS
3	FORMAT(A1)
	IF(ANS.EQ.'1') CALL INSTRS
	IF(ANS.EQ.'2') CALL PRACT
	IF(ANS.EQ.'3') CALL STARS
	IF(ANS.EQ.'4') CALL SEARCH
	I=1
	IF(ANS.EQ.'5') CALL PSTOR
	IF(ANS.NE.'6') GOTO 1
10	STOP'--Y`all come back now !'
	END
