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