Christmas

fastgraphics
dim x$(62,62)
For y = 1 to 60
For x = 1 to 60
if int(rand*50)=5 then x$[x,y]="*"
next x
next y
For pass = 1 to 3
For n = 1 to 300
clg
color black
rect 0,0,300,300
color white
rect 0,250,300,50
circle 0,300,100
circle 200,300,80
circle 100,245,10
circle 100,230,5
circle 250,50,15
For y = 1 to 60
For x = 1 to 60
text x*5,n+y*5, x$[x,y]
if n+y*5>300 then text x*5,n+y*5-300, x$[x,y]
next x
next y
Text n,130," ^           '' "
Text n,135," 0_ ....../> "
Text n,145,"( )_, "
Text n,150,"____/ / \"
refresh
next n
next pass