PRINT
PRINT "一端がＸ軸上にあり、 もう一端がＹ軸上にある、 長さ １ の線分たち"
PRINT
SET WINDOW -1.2,1.2,-1.2,1.2
FOR i=-1 TO 1 STEP 0.01
   IF i=0 THEN
      PLOT LINES: 0,0;0,1
   ELSE
      PLOT LINES : i,0;0,SQR(1-i^2)
   END IF
NEXT i
FOR i=-1 TO 1 STEP 0.01
   IF i=0 THEN
      PLOT LINES: 0,0;0,-1
   ELSE
      PLOT LINES : i,0;0,-SQR(1-i^2)
   END IF
NEXT i
END