NOMAINWIN
    WindowWidth = 600
    WindowHeight = 400
    UpperLeftX = (DisplayWidth-WindowWidth)-200
    UpperLeftY = 20 ' (DisplayHeight-WindowHeight)
    TEXTBOX #w.cyc, 20 , 20, 40, 25
    BUTTON #w.go, "Go !", [go], UL, 70, 20, 40, 20
    GRAPHICBOX #w.m 5, 5, 585, 360
    OPEN "Gloups!" FOR window_nf AS #w
    #w, "TRAPCLOSE [closeHelp]"
    #w.m , "down"
    #w.m, "fill lightgray"
    #w.cyc, "2500"
    '----------------------
    wait
    [go]
    #w.m, "fill lightgray"
    #w.cyc, "!contents? cyc$":cyc=val(cyc$)
b=cyc
   for a=1 to cyc
     #w.m, "up"
     x=int(rnd(1)*580) + 1: y=int(rnd(1)*360) + 1
     #w.m, "place ";x;" ";y
     x=int(rnd(1)*580) + 1: y=int(rnd(1)*360) + 1
     r=int(rnd(1)*255)+1: g=int(rnd(1)*255)+1: b=int(rnd(1)*255)+1
     r$=str$(r): g$=str$(g): b$=str$(b)
     col$=r$+" "+g$+" "+b$: #w.m, "color ";col$
     siz=int(rnd(1)*2)+1
     #w.m, "size ";siz
     #w.m, "down"
     #w.m, "goto ";x;" ";y
b=b-1: #w.cyc, str$(b)
   next a
  wait
  [closeHelp]
    CLOSE  #w
    END