1GR:S=0:COLOR=1:FORY=0TO38:X=RND(1)*39:PLOTX,Y:NEXT:COLOR=9:HLIN0,YAT0:HLIN0,YATY:VLIN0,YAT0:VLIN0,YATY:FORZ=0TO1:COLOR=7:PLOTX,Y:K=PEEK(49152)-201:I=(K=2)-(K=1):J=(K=4)-(K=0):M=I<>J:X=X+I:Y=Y+J:C=SCRN(X,Y):S=S+(C=1):Z=M*C>1:?S:NEXT:GETA$
1GR:S=0:COLOR=1:FORY=0TO38:X=RND(1)*39:PLOTX,Y:NEXT:COLOR=9:HLIN0,YAT0:HLIN0,YATY:VLIN0,YAT0:VLIN0,YATY:FORZ=0TO1:COLOR=7:PLOTX,Y:K=PEEK(49152)-201:I=(K=2)-(K=1):J=(K=4)-(K=0):M=I<>J:X=X+I:Y=Y+J:C=SCRN(X,Y):S=S+(C=1):Z=M*C>1:?S:NEXT:GETA$