C  TRANST  TEST TRANS SUBROUTINE (DRIVING VOTRAX UNIT)
	BYTE IN(0:133)
C
6	WRITE (5,10)
10	FORMAT(' ENTER CELL CODE: '$)
	READ (5,11,END=101) NCELL
11	FORMAT(I5)
5	WRITE (5,12)
12	FORMAT(' ENTER FILE NAME: '$)
	READ (5,13,END=6) (IN(I),I=1,132)
13	FORMAT(132A1)
	DO 1 I=132,1,-1
	IF (IN(I).NE.' ') GO TO 2
1	CONTINUE
	I=1
2	IN(I+1)=0
	CALL ASSIGN(1,'SY:')
	CLOSE(UNIT=1)
	OPEN(UNIT=1,NAME=IN(1),TYPE='OLD',READONLY,ERR=5)
	IN(0)=0
3	READ (1,13,END=100) (IN(I),I=1,132)
	DO 7 ILR=132,1,-1
	IF(IN(ILR).NE.' ') GO TO 8
7	CONTINUE
	ILR=0
8	IN(ILR+1)=0
	CALL TRANS(2,24,NCELL,IN(1),KERR)
	IF(KERR.GE.0) GO TO 3
	WRITE (5,14) KERR
14	FORMAT(' VSK ERROR:'I4)
	GO TO 3
100	CLOSE(UNIT=1)
	GO TO 5
101	CALL EXIT
	END