0HGR2
1HCOLOR=1+RND(1)*7:A=40+RND(1)*200:B=40+RND(1)*100:Y=RND(1)*40
3X=0:D=3-2*Y:GOTO6
4X=X+1:IFD>0THENY=Y-1:D=D+4*(X-Y)+10:GOTO6
5D=D+4*X+6
6HPLOTA+X,B+Y:HPLOTA-X,B+Y:HPLOTA+X,B-Y:HPLOTA-X,B-Y
7HPLOTA+Y,B+X:HPLOTA-Y,B+X:HPLOTA+Y,B-X:HPLOTA-Y,B-X
8IFY>=XTHEN4
9GOTO1