require "Color"
require "TIlib"

$Names[0] = "SROC(13-21)"
$Colors[0] = $Blue

if !$SROC
    $SROC = SROC_new(13, 21)
else
    SROC_next($SROC)
    SROC_draw($SROC, $Colors[0])
end
Indicator(0, $SROC[1])
