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

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