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