var x, y, btn, posx, posy, fillposx, fillposy, nx, ny, fillposorx, fillposory, dra, lol : int := 0
var esc : array char of boolean
setscreen ("graphics:max;max,offscreenonly")
x := 100
fillposx := 300
fillposorx := fillposx
fillposy := 600
fillposory := fillposy
y := 300
const circlesize := 5
const speed := 20
loop
    mousewhere (x, y, btn)
    randint (posx, -14, 14)
    randint (posy, -14, 14)
    y := y + circlesize

    nx := x
    ny := y
    drawfilloval (nx + posx, ny + posy, circlesize, circlesize, brightred)

    View.Update

    put " "

    Input.KeyDown (esc)
    if esc ('a') then
        cls
    elsif esc ('s') then
        exit
    end if
    exit when btn = 1

end loop

var chars : flexible array 0 .. -1 of char % array of characters
var charsBound : int := -1 %array upper bound
var counter : int := 0 %cycle counter
var timer : int := Time.ElapsedCPU %timer
var delayConst : int := 50 %cycle dealy

procedure New_Char (amount : int) %increases the flexible arrays bound size to amount
    if amount > 0 then % if any values are created
        var temp : int := charsBound + 1 %the first increase to get the first value after the last new value
        charsBound := charsBound + amount %The new bound size
        if charsBound > upper (chars) then % if bound size is > then the upper of chars bound
            new chars, charsBound % new characters
        end if
        for i : temp .. charsBound % for all the new characters
            chars (i) := '0' % default character value
        end for
    end if
end New_Char

function To_String (c : array 0 .. * of char, up : int) : string %adds all the values to a string to be easily put
    var resultValue : string := "" % resulting string value
    for i : 0 .. up % for all values in the array that are used
        resultValue := resultValue + c (i) % adds to resulting value
    end for
    result resultValue % returns value
end To_String

New_Char (16) % adds 16 characters

View.Set ("graphics;offscreenonly,nobuttonbar,title:Cycle.test")
loop
    if Time.ElapsedCPU - delayConst > timer then  % if time is greater then  last timer plus delay amount in ms
        chars (counter) := '0' % last character is equal to '0'
        counter := counter + 1  %counter is increased
        if counter > charsBound then % if counter is greater then greatest value
            counter := 0 % restarts cycle
            New_Char (1) % new character
        end if
        chars (counter) := '-'  % current value to shift
        timer := Time.ElapsedCPU % resets timer
    end if
    put To_String (chars, charsBound)
    put "Time to complete one cycle: ", ((charsBound * delayConst) / 1000), "s" % displays cycle info
    View.Update
    cls
end loop