問題の短縮の方は、READ,DATAを使うのが良いのでは？ 問題文をDATA化して、READで読み込む。 後は、その文字列変数を持ってサブルーチン(GOSUB,RETURN)で表示。 (他にも、DEFで定義という方法も有ります)