Enjoying the Olympics

[Psycho]

Not much to this code but I've been enjoying the 2012 Olympics and hope others are too.

  
  call DisplayRings
  end

sub DisplayRings
    title$="Enjoy The Olympics!"
    graphic #olympic, 800, 400
    colors$="blue yellow black darkgreen red"
    ringY$="150 225 150 225 150"
    #olympic size(15)
    colorNum=1
    for x = 200 to 600 step 100
        #olympic place(x, val(word$(ringY$,colorNum)))
        #olympic color(word$(colors$,colorNum))
        #olympic "circle 80"
        colorNum=colorNum+1
    next x
    #olympic font("arial", 24, "bold") 
    xPosition = (#olympic width()-#olympic stringwidth(title$))/2
    #olympic place(xPosition,350)
    #olympic color("black")
    #olympic "\";title$
    render #olympic
end sub

John "Psycho" Siejkowski

[StefanPendl]

Thanks for sharing that