 1 	LET u=VAL "6": 
	LET x=INT (u*PI*RND): 
	LET y=INT (u*PI*RND): 
	FOR i=INT PI TO u*u STEP u: 
	PRINT AT y,x;"*" AND (x+y=i OR ABS (x-y)=i): 
	NEXT i: 
	GO TO SGN PI