関連する処理をGOSUB命令で呼び出して 使うようにしてみました。