SUBROUTINE FREEZE
	INCLUDE 'TREK.COM/-LI'
	INCLUDE 'TREK2.COM/-LI'
	DIMENSION ICOM(1222)
	EQUIVALENCE (ICOM,SNAP)
	DATA IDISC/6/
	CALL GETFN(NAME)
	IDIDIT=0
	IF (NAME(1).EQ.0) GOTO 920
C----CLOSE BATTLE.LOG FILE SO FCS DOESN'T BARF!
	CLOSE (UNIT=IDISC)
	NODISC = 1
	CALL CLOSE(2)
C	OPEN(UNIT=2,NAME=NAME,TYPE='UNKNOWN',FORM='UNFORMATTED',ERR=920)
	CALL ASSIGN(2,NAME)
	CALL FDBSET(2,'UNKNOWN')
	WRITE(2,ERR=920) 1222,(ICOM(K),K=1,1222)
	CALL CLOSE(2)
	IDIDIT=1
	CALL CRAM(12HGAME FROZEN.)
	RETURN
920	CALL PROUT(17H GAME NOT FROZEN.  ,17)
	RETURN
	END