PROCEDURE cursor(y,x: integer); EXTERNAL; PROCEDURE clearscreen; EXTERNAL; PROCEDURE Clear_from_Line(n: integer); EXTERNAL; PROCEDURE Clearline(n: integer); EXTERNAL; PROCEDURE set_viewport(n: integer); EXTERNAL; PROCEDURE reset_viewport; EXTERNAL; FUNCTION get: char; EXTERNAL; FUNCTION readint: integer; EXTERNAL; FUNCTION getchar: integer; EXTERNAL; FUNCTION getint(x, y:integer): integer; EXTERNAL; PROCEDURE Request_Register; EXTERNAL; PROCEDURE Close_Register; EXTERNAL; PROCEDURE set_party; EXTERNAL; PROCEDURE show_attributes; EXTERNAL; PROCEDURE Get_address(n: integer); EXTERNAL; PROCEDURE print_attributes(q: integer); EXTERNAL; PROCEDURE Get_Names; EXTERNAL; PROCEDURE display_entry(x: s_integer); EXTERNAL; PROCEDURE back_to_menu; EXTERNAL;