(set-task "actr.tasks.ActrInterface.SIMCogACTR") 

(sgp :esc t :lf .05 :trace-detail high)

(chunk-type read-bar state)

(add-dm
    (start isa chunk)(attend isa chunk)
    (respond isa chunk)
    (goal isa read-bar state start)
    
(p find-bar
    =goal> 
        ISA read-bar
        state start
==>
    +visual-location>
        ISA visual-location
        :attended nil
    =goal>
        state find-location
)
        
        
(p attend-bar
    =goal>
        ISA read-bar
        state find-location
    =visual-location>
        ISA visual-location
    ?visual>
        state free
==>
    +visual>
        ISA move-attention
        screen-pos=visual-location
    =goal>
        state attend
)
(p encode-bar
    =goal>
        ISA read-bar
        state attend
    =visual>
        ISA rectangle
        value =bar
    ?imaginal>
        state free
==>
    =goal>
        state respond
    +imaginal>
        isa array
        bar =bar
)
(p back
    =goal>
        ISA read-bar
        state respond
    =imaginal>
        isa array
        bar=bar
==>
    =goal>
        state start
)
        (goal-focus goal)
)