SUBROUTINE ASSSAV 
	BYTE IC(20),IEXT(10)
	COMMON /SCRAT/ IA(8) ,IC
	DATA IEXT/'C','U','T','S','A','V','.','D','A','T'/
	CALL ZERO(IC,10)			!ZERO ARRAY IC
	CALL MOVE('SY0:',IC,2)			!MOVE 2 WORDS
	CALL GTITL(0,IC(5),5)			!GET STORED TITLE
	K	= 1
	DO 10 I	= 5,11				!CHECK ON TITLE
	J	= I
	IF(IC(I) .GE. '0' .AND. IC(I) .LE. '9' .OR.
	1  IC(I) .GE. 'A' .AND. IC(I) .LE. 'Z' )GO TO 10	!CHECK IF CHAR CORRECT
	IF(IC(I) .LE. ' ' )GO TO 11		!TERMINATE ON IMBEDDED SPACES OR CNTRL CHAR
	IF(IC(I) .EQ. '$' )GO TO 10		!MAKE SURE CHAR ARE CORRECT
	IC(I)	= '0'				!REPLACE INCORRECT CHAR.
10	K	= 4
11	DO 12 I	= K,10				!ADD 'SAV.DAT'AS EXTENSION
	IC(J)	= IEXT(I)
12	J	= J + 1
	CALL ASSIGN(4,IC,J-1)			!SET UP FILE NAME TO SAVE DATA IN
	END