(include "sci.sh")
(use "Cycle")
(script 969)



(class Rev of Cycle
    (properties
        client 0
        caller 0
        cycleDir -1
        cycleCnt 0
        completed 0
    )

    (method (doit)
        (var RevNextCel)
        (if (< (= RevNextCel (self:nextCel())) 0)
            (self:cycleDone())
        )(else
            (send client:cel(RevNextCel))
        )
    )


    (method (cycleDone)
        (send client:cel((send client:lastCel())))
    )

)
