dim as integer x, y, radius, w, h, i, cnt, r, g, b
dim s as string

w = 512
h = 512
screenres w, h, 32
randomize

cls

cnt = 256
for i=0 to cnt
  x = rnd * w
  y = rnd * h
  radius = (w / 3) * i / cnt
  r = rnd * 255
  g = rnd * 255
  b = rnd * 255
  circle (x, y), radius, RGBA(r, g, b, 32)
next i

color RGB(255, 255, 255)
locate 4, 1
input "input any word : ", s
print "input text is ... " + s
print "push any key"

sleep