PRINT
INPUT PROMPT "データー数？ ":N
PRINT
DIM A(N),B(N)
MAT INPUT PROMPT"横軸の値（正の数）たち（カンマで区切って） ":A
PRINT
MAT INPUT PROMPT "縦軸の値（正の数）たち（カンマで区切って） ":B
PRINT

FOR i=1 TO N
   PRINT "(";A(i);",";B(i);")"
NEXT i
PRINT

LET AMAX=FMAX(N,A)
LET BMAX=FMAX(N,B)
IF AMAX<BMAX THEN
   LET ABMAX=BMAX
ELSE
   LET ABMAX=AMAX
END IF

SET WINDOW -ABMAX*0.1,ABMAX*1.1,-ABMAX*0.1,ABMAX*1.1
DRAW grid(GRD(ABMAX/10),GRD(ABMAX/10))
FOR i=1 TO N
   DRAW DISK WITH SCALE(0.008*ABMAX)*SHIFT(A(i),B(i))
NEXT i
END

EXTERNAL FUNCTION FMAX(N,A())        !最大値
LET  s=A(1)
FOR i=2 TO N
   IF A(i)>s THEN LET  s=A(i)
NEXT i
LET  FMAX=s
END FUNCTION

EXTERNAL FUNCTION GRD(a)
LET KURAI=10^INT(LOG(a)/LOG(10))
LET B=INT(a/KURAI+0.5)
IF B=1 THEN LET Q=1
IF B=2 THEN LET Q=2
IF B>2 AND B<8 THEN LET Q=5
IF B=>8 THEN LET Q=10
LET GRD=Q*KURAI
END FUNCTION