1*35973Sbostic COMMON /STATE/ MOVES,DEATHS,RWSCOR,MXSCOR,MXLOAD, 2*35973Sbostic & LTSHFT,BLOC,MUNGRM,HS,EGSCOR,EGMXSC 3