advers.h 221 B

123456789101112
  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