require "Color"
require "TIlib"

$Names[0] = "D(5,3)"
$Colors[0] = $Red
$Names[1] = "SD(5,3,3)"
$Colors[1] = $Green

if !$ST
    $ST = Stoch_new(5, 3, 3)
else
    Stoch_next($ST)
    Stoch_draw($ST, null, $Colors[0], $Colors[1])
end
Indicator(0, $ST[3])
Indicator(1, $ST[5])
