1*35973Sbostic C 2*35973Sbostic C MESSAGE INDEX 3*35973Sbostic C 4*35973Sbostic COMMON /RMSG/ MLNT,RTEXT(1050) 5