CCE50A857     Function I as (I)
CCE50A858             ‘code added june 1964
CCE50A859              Define.DOB=3/9/1965 11:40PM
CCE50A85A
CCE50A85B                 OnAfter(DOB)
CCE50A85C                      FOR all Experiences
CCE50A85D                            IF Brain.Status = OK
CCE50A85E                               Expand I
CCE50A85F                            Else
CCE50A860                              Diminish I
CCE50A861                             End IF
CCE50A862     End Function