Data commit

Task/Euler-method/Craft-Basic/euler-method.basic

@@ -0,0 +1,48 @@
+precision 4
+
+let s = 2
+gosub euler
+
+let s = 5
+gosub euler
+
+let s = 10
+gosub euler
+
+end
+
+sub euler
+
+	cls
+	cursor 1, 1
+	wait
+	print "step: ", s
+
+	let b = 100
+	let y = 100
+
+	for t = 0 to b step s
+
+		print t, " : ", y
+
+		let y = y + s * (-0.07 * (y - 20))
+
+		gosub delay
+
+	next t
+
+	alert "step ", s, " finished"
+
+return
+
+sub delay
+
+	let w = clock
+
+	do
+
+		wait
+
+	loop clock < w + 200
+
+return