C XCHAR.FTN C C AN INTEGER FUNCTION TO CONVERT THE CHARACTER IN MAI PROGRAM C FROM ASCII VALUE TO INTEGER C FUNCTION XCHAR(CHAR) INTEGER XCHAR BYTE CHAR BYTE LVNAM(11) DATA LVNAM/'F','E',' ','W','T','A','S','H','L','B',' '/ DO 100 I=-2,8 IF(CHAR.EQ.LVNAM(I+3)) GO TO 440 100 CONTINUE I=0 440 XCHAR=I RETURN END