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)