C RULIST  LIST VOTRAX VSK TRANSLATION RULES
	IMPLICIT INTEGER(A-Z)
	PARAMETER STRL=900,VTRL=700,RULL=350
	BYTE STR,VOT
	COMMON /RULES/ IRUL(0:95),RULA(RULL),RULB(RULL),RULC(RULL),
     C			RULD(RULL),STR(STRL),VOT(VTRL)
C
	DIMENSION PR(0:95)
	DATA PR /'^@','^A','^B','^C','^D','^E','^F','^G',
     *           '^H','^I','^J','^K','^L','^M','^N','^O',
     *           '^P','^Q','^R','^S','^T','^U','^V','^W',
     *           '^X','^Y','^Z','^[','^\','^]','^^','^_',
     *           '  ',' !',' "',' #',' $',' %',' &',"23440,
     *           ' (',' )',' *',' +',' ,',' -',' .',' /',
     *           ' 0',' 1',' 2',' 3',' 4',' 5',',6',' 7',
     *           ' 8',' 9',' :',' ;',' <',' =',' >',' ?',
     *           ' @',' A',' B',' C',' D',' E',' F',' G',
     *           ' H',' I',' J',' K',' L',' M',' N',' O',
     *           ' P',' Q',' R',' S',' T',' U',' V',' W',
     *           ' X',' Y',' Z',' [',' \',' ]',' ^',' _'/
C
	OPEN(UNIT=1,NAME='RULES.PAR',TYPE='OLD',READONLY,
     C       FORM='UNFORMATTED')
	READ (1) IRUL,RULA,RULB,RULC,RULD,STR,VOT
	CLOSE(UNIT=1)
	WRITE (6,41) (I,IRUL(I),I=0,95)
41	FORMAT('1'/(1X,32I4))
	WRITE (6,42) (I,RULA(I),RULB(I),RULC(I),RULD(I),I=1,RULL)
42	FORMAT((/1X,5(I4,4I5,2X)))
	WRITE (6,43) (I,(PR(STR(I+J)),J=0,39),I=1,STRL,40)
43	FORMAT((/1X,I4,4(10A3,'!')))
	WRITE (6,44) (I,(VOT(I+J),J=0,39),I=1,VTRL,40)
44	FORMAT((/1X,I4,4(10O3,'!')))
	END