procedure Register(x: integer; y: integer);

This is Register, a member of class Blackruns.