えっと、QX の画面表示のフォントサイズはポイント数とかじゃなく、ドット数
なので、たとえば表示行１行の総ドット数が一定になるように、フォントサイズ
と文字数を調節すればいいんじゃないでしょうか。すなわち、こんな感じ。１つ
めはフォントサイズを大きくすると同時に１行文字数を減らし、２つめはその反
対です。フォントによっては２ドットずつ増やすのがうまくいかないかも。

'フォントサイズ変化にあわせて表示桁数を調節

proc larger
dim n
n = (@FontSize + @CharPitch) * @Width
@FontSize = @FontSize + 2
@Width = n / (@FontSize + @CharPitch)
end proc

proc smaller
dim n
n = (@FontSize + @CharPitch) * @Width
@FontSize = @FontSize - 2
@Width = n / (@FontSize + @CharPitch)
end proc