三つ上の画像の11～17行目ですが、「FORMAT$」という命令を使うと、もっとコンパクトにおさまると思います。ヘルプで調べてみましょう。