The issue seems to be Microsoft trying to format the text for display in an actual column.
If you look, you have a font name that is helluva long (77 characters, or so!!)...
Your console must be configured for 79 characters total width...
So what is going on here??
It's forming two columns to align the text on the screen. Column 1 is 77 characters in size. The ":" is the separator between columns. That only leaves ONE character for the second column -- and that's what we're seeing. That one character printed and aligned to the border for that 2nd column!
Two things to try here:
1) Resize your console and save it at 120 characters width and see if that doesn't fix the issue.
2) Try this code below:
I'm trying to tell Powershell to set the formatting to a (200,50) screen. If this works on your machine, it *should* fix the issue for you.
I hope.
(Hopefully that runs as is. I had to tweak the (200, 50) values a bit so that they'd actually work on my system. Console/Terminal is VERY picky in what it allows for a min/max width/height for those values. You might need to tweak them a bit if they error with a min/max blah blah blah message.)
If you look, you have a font name that is helluva long (77 characters, or so!!)...
Your console must be configured for 79 characters total width...
So what is going on here??
It's forming two columns to align the text on the screen. Column 1 is 77 characters in size. The ":" is the separator between columns. That only leaves ONE character for the second column -- and that's what we're seeing. That one character printed and aligned to the border for that 2nd column!
Two things to try here:
1) Resize your console and save it at 120 characters width and see if that doesn't fix the issue.
2) Try this code below:
Code: (Select All)
Screen _NewImage(800, 600, 32)
Shell _Hide "Powershell -command " + Chr$(34) + "$Host.UI.RawUI.BufferSize = New-Object Management.Automation.Host.Size (200, 50); Get-ItemProperty 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts'|Out-File -Encoding Ascii 'temp.txt'" + Chr$(34)
If _FileExists("temp.txt") Then
Open "temp.txt" For Binary As #1
Do
Line Input #1, text$
Print text$
Sleep
Loop Until EOF(1)
Else
Print "No file created"
End If
I'm trying to tell Powershell to set the formatting to a (200,50) screen. If this works on your machine, it *should* fix the issue for you.
I hope.
(Hopefully that runs as is. I had to tweak the (200, 50) values a bit so that they'd actually work on my system. Console/Terminal is VERY picky in what it allows for a min/max width/height for those values. You might need to tweak them a bit if they error with a min/max blah blah blah message.)