Create subprog10