Procedure Default; Begin StartHry:=False; SetPal(ColorGreen,0,40,0); SetPal(ColorRed,63,0,0); SetPal(ColorBlack,0,0,0); End;