さらに、コードを短くしました。この関数で全てのキャラクターコードがDATA文、文字型変数に代入出来るようになりました。プチコン3号は、キャラクターコード65535まであるようです。