Program resetcolour;  { Reinicia los colores a Locomotive BASIC }

procedure resink;
begin
 inline($CD/$9B/$BE/
        $02/$BC);
end;

begin

 resink;

end.