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