SET WINDOW -9,9,-9,9
DRAW GRID
FOR i= 4 TO 16 STEP 6
   FOR j=4 TO 16 STEP 6
      DRAW DISK WITH SCALE(0.1)*SHIFT(i-10,j-10)
      DRAW CIRCLE WITH SCALE(9,9)
   NEXT j
NEXT i 
PRINT
PRINT "囲碁の石の位置：中央からの隔たり"
PRINT
DIM Q(2)
MAT INPUT PROMPT "石を置いてください。( 例：14,6 ) ⇒  ":Q
PRINT
PRINT "(";
PRINT USING "###":Q(1);
PRINT " , ";
PRINT USING "###":Q(2);
PRINT " )"
PRINT 
LET Q(1)=Q(1)-10
LET Q(2)=10-Q(2)
LET T=SQR(Q(1)^2+Q(2)^2)
LET S=SQR(Q(1)^2)+SQR(Q(2)^2)
PRINT "天元からの数学的隔たり ＝";ROUND(T,1)
PRINT "天元からの囲碁的隔たり ＝";S
PRINT
DRAW DISK WITH SCALE(0.5)*SHIFT(Q(1),Q(2))
END