Title lines in Console Mode

[Egil]

I think I have seen this for IWB, but not for CB so here it is:

Code Select Expand

'
' titles.cba
'
DECLARE "kernel32.dll", SetConsoleTitle Alias SetConsoleTitleA(lpConsoleTitle:STRING),INT
DECLARE ConsoleTitle(title:string)

OPENCONSOLE
def toptxt:string
print
ConsoleTitle("CB Console Title")
INPUT "Input NEW Title: ",toptxt
ConsoleTitle(toptxt)
PRINT
PRINT "Press ESC to stop  "
do:until INKEY$ = CHR$(27)
CLOSECONSOLE
END

'
'Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨Ã,¨
'  ConsoleTitle   -   Setting Console Titles
'
SUB ConsoleTitle(title:string)
SetConsoleTitle(title)
RETURN



Enjoy!