1*35973Sbostic C 2*35973Sbostic C GAME STATE 3*35973Sbostic C 4*35973Sbostic LOGICAL TELFLG 5*35973Sbostic COMMON /PLAY/ WINNER,HERE,TELFLG 6