1*35973Sbostic C 2*35973Sbostic C VILLAINS AND DEMONS 3*35973Sbostic C 4*35973Sbostic LOGICAL THFFLG,SWDACT,THFACT 5*35973Sbostic COMMON /HACK/ THFPOS,THFFLG,THFACT,SWDACT,SWDSTA 6*35973Sbostic C 7*35973Sbostic COMMON /VILL/ VLNT,VILLNS(4),VPROB(4),VOPPS(4),VBEST(4),VMELEE(4) 8*35973Sbostic C 9*35973Sbostic INTEGER EQV(4,5) 10*35973Sbostic EQUIVALENCE (VILLNS, EQV) 11