#---- Skip Transit Access Locations ----

IF (IN.ZONE > 0) THEN

    #---- check for external stations ----

    IF (IN.ZONE >= 90) THEN

        #---- transit externals ----

        #---- OUT.TRANSIT = 1 ----
        OUT.AUTO1 = 0
        OUT.AUTO2 = 0
        OUT.TRUCK1 = 0
        OUT.TRUCK2 = 0

    ELSE 

        #---- auto externals -----

        IF (IN.ZONE >= 70) THEN
            IF (IN.ZONE == IN.NODE) THEN
                OUT.AUTO1 = 0
                OUT.TRUCK1 = 0
            ELSE
                OUT.AUTO2 = 0
                OUT.TRUCK2 = 0
            ENDIF
        ENDIF
    ENDIF
    OUT.AREATYPE = DATA1.AREATYPE
ELSE
    #---- OUT.TRANSIT = 0 ----
    OUT.AUTO1 = 0
    OUT.AUTO2 = 0
    OUT.TRUCK1 = 0
    OUT.TRUCK2 = 0
    OUT.AREATYPE = 0
ENDIF
RETURN (1)