diff --git a/02-user-defined-functions/FactorialByValue.m b/02-user-defined-functions/FactorialByValue.m
new file mode 100644
index 0000000..43f1f6d
--- /dev/null
+++ b/02-user-defined-functions/FactorialByValue.m
@@ -0,0 +1,12 @@
+  write "Enter n: "
+  read n,!
+  set result=$$factorial(n)
+  write n,"! = ",result,!
+  halt
+
+factorial(n)
+  if n=1 quit 1
+  set k=1
+  for i=1:1:n do
+  . set k=k*i
+  quit k