PRINT
PRINT "あなたが選ぼうとする５００から１５００までの自然数を入力してください。"
PRINT
INPUT PROMPT "自然数？ ":n
SET WINDOW 0,100,0,100
LET x1=5
LET y1=40
LET x2=45
LET y2=55
LET i=0
SET AREA COLOR 6
PLOT AREA : x1,y1;x1,y2;x2,y2;x2,y1
PLOT TEXT ,AT 20,46 : "ストップ"
DO
   MOUSE POLL x,y,left,right
   IF x>x1 AND y>y1 AND x<x2 AND y<y2 AND left=1 THEN EXIT DO
   PRINT i;
   LET i=i+1
LOOP
PRINT
PRINT
PRINT "あなたの選んだ数字は";i;"です。"
PRINT "誤差は";SQR((n-i)^2);"でした。"
PRINT
END