MODE 1
Dim float t,d,h
Dim integer x,y,x1,y1,z
FRAMEBUFFER CREATE
FRAMEBUFFER WRITE F
Do
 CLS
 For y1=0 To 24
   For x1=0 To 24
     x=12*(24-x1)+12*y1+30
     y=-6*(24-x1)+6*y1+240
     h=60*Sin((x1-y1)/4+t)
     'h=60*Sin((x1+y1)/4+t)
     'h=60*Sin(x1/2+t)+60*Cos(y1/2+t)
     Circle x,y-h,7,,,0,1
   Next
 Next
 FRAMEBUFFER COPY F,N,B
 Inc t,.2
Loop