modified:   SPLITCHA.PAS