How to print newline in graphical console

[endo]

How can I print a line (or a content read from a file etc.) that includes newline (10, 13 or 0x0D0A) in graphical console?

Code: Select all

EnableGraphicalConsole(1)
PrintN("hello" + #CRLF$ + "world")

This prints out

Code: Select all

hello☐☐world

on the console. If I remove EnableGraphicalConsole then it works as expected.
I tried each combination of CR, LF, CRLF.

Note that below code also works as expected, so I don't know what PrintN does different:

Code: Select all

PrintN("hello")
PrintN("world")

[BarryG]

Quick workaround:

Code: Select all

Procedure PrintNN(text$)
  crlf=CountString(text$,#CRLF$)+1
  For n=1 To crlf
    PrintN(StringField(text$,n,#CRLF$))
  Next
EndProcedure

OpenConsole()
EnableGraphicalConsole(1)
PrintNN("hello"+#CRLF$+"world")
Input()

[Marc56us]

You can also change mode as you want after open console.
In mode 0 CRLF work

Code: Select all

OpenConsole()

EnableGraphicalConsole(1)
PrintN("Console mode 1" + #CRLF$ + " Graphic (no CRLF)")

EnableGraphicalConsole(0)
PrintN("(Console mode 0" + #CRLF$ + "Text with CRLF)")

EnableGraphicalConsole(1)
ConsoleLocate(7, 8) 
PrintN("Console mode 1")
Print("Press Return")

Input()

[endo]

Thanks for the replies, both methods are useful.
Is it a bug of PureBasic or a known issue of Windows?

[Olliv]

ROFL !!

Thank you endo !

The best laugh since long time :

I can read << Hello >> << Vote >> << Vote >> << World >>.



(We would want to do it, that we cannot do it : random... I kept screenshoots)