桁がずれてきた時のために、かぶねこさんのマクロを参考にして
こんなんつくってみました。マクロ（もどき）初体験。

'桁数調節

proc plus
@Width=@Width+1
end proc

proc minus
@Width=@Width-1
end proc