PROGRAM7767.PAS