1*35973Sbostic C 2*35973Sbostic C PUZZLE ROOM STATE 3*35973Sbostic C 4*35973Sbostic COMMON /PUZZLE/ CPDR(16),CPWL(8),CPVEC(64) 5