関数呼び出しにに引数で機能情報を与えて関数内でその機能情報により処理を分けるってのはどうですか？ DEF X(F) IF F==0 THEN 処理1 ENDIF IF F==1 THEN 処理2 ENDIF END