include "window.inc"
Window "",440,440,1
Font 32,32,0,"times"

single mis,radd,frad,xsh,bpx,bpy,x2,y2
single tpx,tpy,aa,x1,y1,ht,xs

bpx=220
bpy=410
tpx=bpx

ClsColor 255,255,190
For aa=-4 to 4
   Line bpx+aa,bpy, bpx,bpy-390,4,150,80,0
Next
radd=160
tpy=bpy-40
For ht=1 To 40
  For xs=-100 To 100 step 40
     xsh=xs/100
     mis = Rand(0,3)
     Line tpx,tpy, tpx+(xsh*radd),(tpy-mis)*radd,4,0,80+Rand(0,40),0
    For aa=1 To 30
       frad = Rand(0,8)*radd
       x1=tpx+(xsh*frad)
       y1=tpy-mis*frad
       x2=tpx+xsh*(frad+radd/5)
       y2=tpy-mis*frad+(-mis+(Rand(0,6)-.4))*(radd/5)
       Line x1,y1, x2,y2,4,0,80+Rand(0,40),0
    Next
 Next
radd= radd-4
tpy = tpy-9
Next
Text 0,412,"MOON GRASS",255,0,0
FlipBuffer
Pause
WinEnd