dim x1(8):dim y1(8)
dim v(16)
x1(0)=0:x1(1)= 1:x1(2)= 1:x1(3)= 1
x1(4)=0:x1(5)=-1:x1(6)=-1:x1(7)=-1
y1(0)=-1:y1(1)=-1:y1(2)=0:y1(3)= 1
y1(4)= 1:y1(5)= 1:y1(6)=0:y1(7)=-1
CLS
FOR I=0 TO 50
X= RND % 16
Y= RND % 16
PSET X,Y,1
NEXT
*main
FOR Y=0 TO 15
V(Y) = 0
FOR X=0 TO 15
C=0:D=0
FOR I=0 TO 7
IF POINT(X+X1(I),Y+Y1(I)) THEN D=D+1
NEXT
IF D=2 THEN C=POINT(X,Y)
IF D=3 THEN C=1
X2=15-X
IF C THEN V(Y) = 1 << X2 OR V(Y)
NEXT
NEXT
CLS
BITMAP V,0,0,16
GOTO *MAIN
