aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/sqrt.frt
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/common/lib/sqrt.frt')
-rw-r--r--amforth-6.5/common/lib/sqrt.frt3
1 files changed, 3 insertions, 0 deletions
diff --git a/amforth-6.5/common/lib/sqrt.frt b/amforth-6.5/common/lib/sqrt.frt
new file mode 100644
index 0000000..577d370
--- /dev/null
+++ b/amforth-6.5/common/lib/sqrt.frt
@@ -0,0 +1,3 @@
+\ Paul E Bennet comp.arch.embedded 4 May 2008
+: sqrt -1 swap over do 2 + dup +loop 2/ ;
+