DefInt A-Z
Screen 13
For a = 0 To 31
Palette a, a * 2
Palette a + 32, a * 2 * &H100
Palette a + 64, a * 2 * &H10000
Next a
Do
x = Int(Rnd * 320)
y = Int(Rnd * 200)
c = Int(Rnd * 3) * 32 + 31
For r = 0 To 31
Circle (x, y), r, c - r
Circle (x + 1, y), r, c - r
Next r
Rem Sleep 1
Loop Until InKey$ = Chr$(27)