Circles

Adaptation of circles.bas that ships with Liberty BASIC.

code format="vbnet" ' 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 code