20 lines
342 B
Plaintext
20 lines
342 B
Plaintext
10 FOR T = 0 TO 9
|
|
20 FOR U = 1 TO 10
|
|
30 N = 10*T + U
|
|
40 GOSUB 100
|
|
50 PRINT USING "## ";M;
|
|
60 NEXT U
|
|
70 PRINT
|
|
80 NEXT T
|
|
90 END
|
|
100 IF N = 1 THEN M = 1 : RETURN
|
|
110 M = 1 : F = 2
|
|
120 IF N MOD (F*F) = 0 THEN M = 0 : RETURN
|
|
130 IF N MOD F = 0 THEN GOSUB 170
|
|
140 F = F + 1
|
|
150 IF F <= N THEN GOTO 120
|
|
160 RETURN
|
|
170 M = -M
|
|
180 N = N/F
|
|
190 RETURN
|