procedure exitst( Status : integer ); external;