Program resetcolour;  { Resets Colour To Locomotive BASIC }

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

begin

 resink;

end.