24 lines
479 B
Plaintext
24 lines
479 B
Plaintext
10 HOME
|
|
20 FOR t = 0 TO 9
|
|
30 FOR u = 1 TO 10
|
|
40 n = 10*t+u
|
|
50 GOSUB 130
|
|
60 IF STR$(m) = "0" THEN PRINT " 0";
|
|
70 IF STR$(m) = "1" THEN PRINT " 1";
|
|
80 IF STR$(m) = "-1" THEN PRINT " -1";
|
|
90 NEXT u
|
|
100 PRINT
|
|
110 NEXT t
|
|
120 END
|
|
130 IF n = 1 THEN m = 1 : RETURN
|
|
140 m = 1 : f = 2
|
|
150 IF (n-INT(n/(f*f))*(f*f)) = 0 THEN m = 0 : RETURN
|
|
160 IF (n-INT(n/(f))*(f)) = 0 THEN GOSUB 200
|
|
170 f = f+1
|
|
180 IF f <= n THEN GOTO 150
|
|
190 RETURN
|
|
200 m = -m
|
|
210 n = n/f
|
|
220 RETURN
|
|
230 END
|