C 
C 
      LOGICAL FUNCTION DARK(DUMMY)
C 
      IMPLICIT INTEGER*4 (A-Z)
C 
      LOGICAL HERE,TOTING
      COMMON /CONCOM/ COND(150)
      COMMON /PLACOM/ ATLOC,LINK,PLACE,FIXED,HOLDNG
      COMMON /PROCOM/ PROP(100),BOTTLE,LAMP,WATER,OIL
      COMMON /LOCCOM/ OLDLOC,LOC
C 
      DIMENSION ATLOC(150),LINK(200),PLACE(100),FIXED(100)
C 
      TOTING(OBJ)=PLACE(OBJ).EQ.-1
      HERE(OBJ)=PLACE(OBJ).EQ.LOC.OR.TOTING(OBJ)
C 
      DARK=MOD(COND(LOC),2).EQ.0.AND.(PROP(LAMP).EQ.0.OR.
     &.NOT.HERE(LAMP))
      RETURN
      END