Euler method: Difference between revisions

==={{header|Craft BASIC}}===

<syntaxhighlight lang="basic">'euler method example

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</syntaxhighlight>