uses gdip

Screen 800,600,1
SetCaption " LEVITATING CLOUDS"
sys fo= LoadFont ("times",28)
SetSmoothMode 2

Type Star
   sys xStar 
   sys yStar 
   sys speed 
End Type

Dim Stars(250) As Star
sys xRes =800
sys yRes =600 

Function InitStars()
sys i
For i = 1 To 250
   Stars(i).xStar = Rand(1, xRes -2)
   Stars(i).yStar = Rand(1, yRes -2)
   Stars(i).speed = Rand(1, 4)
Next 
End Function

Function MoveStars()
sys i
For i = 1 To 250 
   FillOval Stars(i).xStar,Stars(i).yStar,100,60, ARGB 55,255,200,200
   Stars(i).xStar = Stars(i).xStar + Stars(i).speed
   iF Stars(i).xStar > xRes 
      Stars(i).xStar = 0
      Stars(i).yStar = Rand(1, yRes -2)
      Stars(i).speed = Rand(1, 4)
   End iF
Next
End Function

InitStars()

While Key(27) =0
ClsColor 255,0,0,0
MoveStars
Text fo,320,16,"CLOUDS",ARGB 255,0,255,0
Flip
Wend
Ends