initial upload

examples/sqrt.bas

@@ -0,0 +1,14 @@
+10 print "number";
+20 input x
+30 g=x/2
+40 if x>=16 THEN g=x/4
+50 if x>=64 g=x/8
+60 if x>=256 g=x/16
+70 if x>=4096 g=x/64
+80 if x>=16384 g=x/128
+90 p=g
+100 g=(g+x/g)/2
+110 if g-p>1 goto 90
+120 if p-g>1 goto 90
+130 print "square root is ";g
+140 end