1 DIM X1(8)
2 DIM Y1(8)
3 X1(0)=0:X1(1)=1:X1(2)=1:X1(3)=1
4 X1(4)=0:X1(5)=-1:X1(6)=-1:X1(7)=-1
5 Y1(0)=-1:Y1(1)=-1:Y1(2)=0:Y1(3)=1
6 Y1(4)=1:Y1(5)=1:Y1(6)=0:Y1(7)=-1
7 CLS
8 FOR I=0 TO 100
9 X= RND % 122
10 Y= RND % 32
11 PSET X,Y,1
12 NEXT
20 FOR Y=0 TO 31
21 FOR X=0 TO 121
24 IF POINT(X,Y) THEN
25 I=RND % 8
33 PSET X+X1(I),Y+Y1(I),1
40 ENDIF
70 NEXT
80 NEXT
90 GOTO 20
