5     pattern
10    ask window x%, y%
15    pena rnd * 15
20    box(x%*rnd,y%*rnd;x%*rnd,y%*rnd),1
30    goto 10