I can't use the standard WIDTH command to correctly get/set console size. Here's a simple example:
Code: Select all
dim shared as long iNewHeight , iOldHeight
do
Dim As Integer iPw = width
iNewHeight = HiWord(iPw)
if iNewHeight <> iOldHeight then
iOldHeight = iNewHeight
width , iOldHeight ' resizes only downwards
else
cls
locate iNewHeight-1 , 1
? iNewHeight
EndIf
sleep(1)
Loop
If you remove the command WIDTH, iOldHeight, then the dimensions I can get and the size of the console changes upwards , but the text is displayed incorrectly (instead of the penultimate line, the text is displayed on the first line)
P.S. There are no such problems in linux.