FLAG=FALSE GOSUB @SUB IF FLAG==TRUE THEN GOTO 別のプログラム 処理 @SUB 処理 IF 有る条件 THEN FLAG=TRUE:RETURN 処理 RETURN こんな感じになるかと