rem DLA rem par Flow et Alain width=512 height=512 open window width,height a$=getbit$(0,0,0,0) text 50,300,"DLA YABASIC" for i=0 to 100000 y=0 x=int(ran(width)) stopped=0 while(stopped=0) newy=y+1 newx=x+int(ran(3))-1 if newx<0 then newx=newx+width endif if newx>=width then newx=newx-width endif b$=getbit$(newx,newy,newx,newy) if((newy>=height) or (b$<>a$)) then dot x,y stopped=1 endif x=newx y=newy wend next i