いんちきな方法ならこんなのがあるよ。 （スロット1を勝手に消して使うので注意） INPUT X$ PRGEDIT 1 PRGDEL -1 PRGSET "COMMON DEF I():RETURN "+X$+":END" USE 1 Y=I() PRINT Y