1 C 2 C ADVENTURERS 3 C 4 COMMON /ADVS/ ALNT,AROOM(4),ASCORE(4),AVEHIC(4), 5 & AOBJ(4),AACTIO(4),ASTREN(4),AFLAG(4) 6 INTEGER EQA(4,7) 7 EQUIVALENCE (AROOM, EQA) 8 C 9 COMMON /AFLAGS/ ASTAG 10 C 11 COMMON /AINDEX/ PLAYER,AROBOT,AMASTR 12