mirror of
https://github.com/curioustorvald/tsvm.git
synced 2026-03-15 15:36:05 +09:00
moving everything neatly into the assets directory
This commit is contained in:
7
assets/disk0/home/basic/sqrt.bas
Normal file
7
assets/disk0/home/basic/sqrt.bas
Normal file
@@ -0,0 +1,7 @@
|
||||
1 REM Calculates a square root using newtonian method
|
||||
20 INPUT X
|
||||
30 Y = 0.5 * X
|
||||
40 Z = Y
|
||||
50 Y = Y-(((Y^2)-X)/(2*Y))
|
||||
60 IF Z <> Y THEN GOTO 40
|
||||
100 PRINT "Square root of ";X;" is approximately ";Y
|
||||
Reference in New Issue
Block a user