Function SetUpConsole()
Dim $BK1,$BK2,$W
$BK1='HKCU\Console'
$BK2='HKCU\Console\Command Prompt'
$W=WriteValue($BK1,'ColorTable00',0,REG_DWORD)
$W=WriteValue($BK1,'ColorTable01',8388608,REG_DWORD)
$W=WriteValue($BK1,'ColorTable02',32768,REG_DWORD)
$W=WriteValue($BK1,'ColorTable03',8421376,REG_DWORD)
$W=WriteValue($BK1,'ColorTable04',128,REG_DWORD)
$W=WriteValue($BK1,'ColorTable05',8388736,REG_DWORD)
$W=WriteValue($BK1,'ColorTable06',32896,REG_DWORD)
$W=WriteValue($BK1,'ColorTable07',12632256,REG_DWORD)
$W=WriteValue($BK1,'ColorTable08',8421504,REG_DWORD)
$W=WriteValue($BK1,'ColorTable09',16711680,REG_DWORD)
$W=WriteValue($BK1,'ColorTable10',65280,REG_DWORD)
$W=WriteValue($BK1,'ColorTable11',16776960,REG_DWORD)
$W=WriteValue($BK1,'ColorTable12',255,REG_DWORD)
$W=WriteValue($BK1,'ColorTable13',16711935,REG_DWORD)
$W=WriteValue($BK1,'ColorTable14',65535,REG_DWORD)
$W=WriteValue($BK1,'ColorTable15',16777215,REG_DWORD)
$W=WriteValue($BK1,'CursorSize',25,REG_DWORD)
$W=WriteValue($BK1,'FontFamily',0,REG_DWORD)
$W=WriteValue($BK1,'FontSize',0,REG_DWORD)
$W=WriteValue($BK1,'FontWeight',0,REG_DWORD)
$W=WriteValue($BK1,'FullScreen',0,REG_DWORD)
$W=WriteValue($BK1,'HistoryBufferSize',250,REG_DWORD)
$W=WriteValue($BK1,'HistoryNoDup',1,REG_DWORD)
$W=WriteValue($BK1,'InsertMode',1,REG_DWORD)
$W=WriteValue($BK1,'NumberOfHistoryBuffers',25,REG_DWORD)
$W=WriteValue($BK1,'PopupColors',245,REG_DWORD)
$W=WriteValue($BK1,'QuickEdit',1,REG_DWORD)
$W=WriteValue($BK1,'ScreenBufferSize',163840150,REG_DWORD)
$W=WriteValue($BK1,'ScreenColors',11,REG_DWORD)
$W=WriteValue($BK1,'WindowPosition',1310840,REG_DWORD)
$W=WriteValue($BK1,'WindowSize',2621540,REG_DWORD)
$W=WriteValue($BK2,'ColorTable00',0,REG_DWORD)
$W=WriteValue($BK2,'ColorTable01',8388608,REG_DWORD)
$W=WriteValue($BK2,'ColorTable02',32768,REG_DWORD)
$W=WriteValue($BK2,'ColorTable03',8421376,REG_DWORD)
$W=WriteValue($BK2,'ColorTable04',128,REG_DWORD)
$W=WriteValue($BK2,'ColorTable05',8388736,REG_DWORD)
$W=WriteValue($BK2,'ColorTable06',32896,REG_DWORD)
$W=WriteValue($BK2,'ColorTable07',12632256,REG_DWORD)
$W=WriteValue($BK2,'ColorTable08',8421504,REG_DWORD)
$W=WriteValue($BK2,'ColorTable09',16711680,REG_DWORD)
$W=WriteValue($BK2,'ColorTable10',65280,REG_DWORD)
$W=WriteValue($BK2,'ColorTable11',16776960,REG_DWORD)
$W=WriteValue($BK2,'ColorTable12',255,REG_DWORD)
$W=WriteValue($BK2,'ColorTable13',16711935,REG_DWORD)
$W=WriteValue($BK2,'ColorTable14',65535,REG_DWORD)
$W=WriteValue($BK2,'ColorTable15',16777215,REG_DWORD)
$W=WriteValue($BK2,'CursorSize',25,REG_DWORD)
$W=WriteValue($BK2,'FontFamily',0,REG_DWORD)
$W=WriteValue($BK2,'FontSize',0,REG_DWORD)
$W=WriteValue($BK2,'FontWeight',0,REG_DWORD)
$W=WriteValue($BK2,'FullScreen',0,REG_DWORD)
$W=WriteValue($BK2,'HistoryBufferSize',250,REG_DWORD)
$W=WriteValue($BK2,'HistoryNoDup',1,REG_DWORD)
$W=WriteValue($BK2,'InsertMode',1,REG_DWORD)
$W=WriteValue($BK2,'NumberOfHistoryBuffers',25,REG_DWORD)
$W=WriteValue($BK2,'PopupColors',245,REG_DWORD)
$W=WriteValue($BK2,'QuickEdit',1,REG_DWORD)
$W=WriteValue($BK2,'ScreenBufferSize',163840150,REG_DWORD)
$W=WriteValue($BK2,'ScreenColors',11,REG_DWORD)
$W=WriteValue($BK2,'WindowPosition',1310840,REG_DWORD)
$W=WriteValue($BK2,'WindowSize',2621540,REG_DWORD)
EndFunction