Adaptation of circles.bas that ships with Liberty BASIC.

    ' draw a set of concentric circles
 
    dim color$(4)
    color$(1) = "red"
    color$(2) = "blue"
    color$(3) = "green"
    color$(4) = "yellow"
 
    graphic #c, 300,300
    count = 1
    #c Place(150,150)
    #c Size(6)
    #c cls(192,255,255)
    for x = 124 to 0 step -12
        #c Color(color$(count))
        count = count + 1
        if count > 4 then count = 1
        #c Circle(x)
    next x
    #c flush
    render #c
    print "Press button to exit."
    input a$
    end