BYTE COMLIN(80),IN(80),FILE(40),FCSER
	EQUIVALENCE (IN,COMLIN(10)),(FILE,COMLIN(2)),(IFCSER,FCSER)
	PARAMETER NPRM=8
	BYTE IPRM(NPRM)
	DATA COMLIN/1H ,1HL,1HB,1H:,1H[,1H3,1H,,1H3,1H],
	1	71*1H /
	DATA IPRM/"15,"12,1HG,1HA,1HM,1HE,1H?,1H /
	CALL ERRSET(63,.TRUE.,.FALSE.,.TRUE.,.FALSE.)
	CALL ERRSET(43,.TRUE.,.FALSE.,.FALSE.,.FALSE.)
	CALL ERRSET(46,.TRUE.,.FALSE.,.TRUE.,.FALSE.)
	CALL ERRSET(29,.TRUE.,.FALSE.,.TRUE.,.FALSE.)
	CALL ERRSET(30,.TRUE.,.FALSE.,.TRUE.,.FALSE.)
	CALL GTLIN(IN,NCH,1,IPRM,NPRM)
	IF(NCH.LE.0)GO TO 100
	IN(NCH+1)=1H.
	IN(NCH+2)=1HT
	IN(NCH+3)=1HS
	IN(NCH+4)=1HK
	IN(NCH+5)=0
	OPEN (UNIT=2,NAME=FILE,TYPE='OLD',READONLY,SHARED,ERR=10)
	CLOSE (UNIT=2)
	CALL DEBCAL(COMLIN,NCH+13)
	GO TO 100
10	CONTINUE
	CALL ERRSNS(IDUM,IFCSER)
	IF(FCSER.EQ.-16)GO TO 30
	IF(FCSER.EQ.-26)GO TO 50
	TYPE 20,FCSER
20	FORMAT(' UNKNOWN ERROR RUNNING GAME.  FCS CODE = 'I6)
	GO TO 100
30	CONTINUE
	TYPE 40
40	FORMAT(' GAMES MAY NOT BE RUN AT THIS TIME.')
	GO TO 100
50	CONTINUE
	TYPE 60
60	FORMAT(' GAME REQUESTED DOES NOT EXIST.')
100	CONTINUE
	END