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