SUBROUTINE THAW
	INCLUDE 'TREK.COM/-LI'
	INCLUDE 'TREK2.COM/-LI'
	DIMENSION ICOM(1222)
	EQUIVALENCE (ICOM,SNAP)
	CALL GETFN(NAME)
	IDIDIT=0
	IF(NAME(1).EQ.0) GOTO 800
	CALL CLOSE(2)
C	OPEN(UNIT=2,NAME=NAME,TYPE='OLD',FORM='UNFORMATTED',
C	1 ERR=800)
	CALL ASSIGN(2,NAME)
	CALL FDBSET(2,'OLD')
	READ(2,ERR=800) N,(ICOM(K),K=1,N)
	CALL CLOSE(2)
	IDIDIT=1
C*--TELL HIM WHAT KIND OF GAME HE GOT HIMSELF INTO...
	CALL SKIP(1)
	CALL CRAM(22HYOU ARE NOW PLAYING A  )
	IF(LENGTH.EQ.1) CALL CRAM(5HSHORT)
	IF(LENGTH.EQ.2) CALL CRAM(6HMEDIUM)
	IF(LENGTH.EQ.4) CALL CRAM(4HLONG)
	IF(SKILL.EQ.1) CALL CRAM(7H NOVICE)
	IF(SKILL.EQ.2) CALL CRAM(5H FAIR)
	IF(SKILL.EQ.3) CALL CRAM(5H GOOD)
	IF(SKILL.EQ.4) CALL CRAM(7H EXPERT)
	IF(SKILL.EQ.5) CALL CRAM(9H EMERITUS)
	CALL CRMDMP(6H GAME.)
	CALL CRAM(25HYOUR SECRET PASSWORD IS  )
	CALL CRAMS(PASSWD,8)
	CALL CRMDMP(1H.)
	CALL CRAMI(KILLK+KILLC+NSCKILL,0)
	CALL CRAM(4H OF )
	CALL CRAMI(INKLNG,0)
	CALL CRAM(38H KLINGONS HAVE BEEN KILLED, INCLUDING   )
	CALL CRAMI(KILLC,0)
	CALL CRMDMP(12H COMMANDERS.  )
	IF(SKILL.LE.2) GOTO 200
	CALL CRAM(24HTHE SUPER-COMMANDER HAS )
	IF(NSCREM.EQ.1) CALL CRAM(4HNOT )
	CALL CRMDMP(15HBEEN DESTROYED.)
200	IF(RMBASE.EQ.INBASE) GOTO 210
	CALL CRAMI(INBASE-RMBASE,0)
	CALL CRAM(18H BASES DESTROYED, )
210	CALL CRAMI(RMBASE,0)
	IF(RMBASE.NE.INBASE) CALL CRAM(11HREMAINING  )
	CALL CRMDMP(7H BASES. )
	IF(FUTURE(5).GE. 1.E38) GOTO 240
	CALL CRAM(11HSTARBASE IN )
	CALL CRMLOC(1,BATX,BATY)
	CALL CRMDMP(27H IS CURRENTLY UNDER ATTACK.)
	CALL CRAM(31HIT CAN HOLD OUT UNTIL STARDATE  )
	CALL CRAMF(FUTURE(5),0,1)
	CALL CRMDMP(1H.)
240	IF(ISATB.NE.1) GOTO 245
	CALL CRAM(11HSTARBASE IN )
	CALL CRMLOC(1,ISX,ISY)
	CALL CRMDMP(33H IS UNDER SUPER-COMMANDER ATTACK. )
	CALL CRAM(31HIT CAN HOLD OUT UNTIL STARDATE )
	CALL CRAMF(FUTURE(7),0,1)
	CALL CRMDMP(IHDOT)
245	IF(CASUAL.EQ.0) GOTO 250
	CALL CRAMI(CASUAL,0)
	CALL CRMDMP(28H CASUALTIES SUFFERED SO FAR. )
250	IF(NHELP.EQ.0) GOTO 260
	CALL CRAMI(NHELP,0)
	CALL CRMDMP(16H CALLS FOR HELP. )
260	CALL SKIP(1)
C*--AND LET HIM PLAY IT
	RETURN
C*--THAT WAS A BAD FREEZE OR FILE NOT OPENED
800	CALL PROUT(17H GAME NOT FROZEN.  ,17)
C*--TELL CHOOSE THAT WE DIDN'T GET ANYTHING
	PASSWD=0.D0
	RETURN
	END