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