I found this program in a Locomotive Basic 2 book, but changed a little i QBasic 4.5.
FOR I = 1 TO 40
CIRCLE (300, 100), 5 * I
It looks like you're new here. If you want to get involved, click one of these buttons!