Mi da il seguente errore alla linea 19 "duplicate label", chiedo un aiuto grazie
10 CLS
20 FOR i = 1 TO 10000
30 FOR j = 1 TO 10000
40 IF i / 2 <> INT(i / 2) AND j / 2 <> INT(j / 2) THEN GOTO 130
45 IF j < i THEN GOTO 130
50 GOSUB 200
55 IF d = 1 THEN GOTO 130
60 a = i ^ 2 - j ^ 2
70 b = 2 * i * j
80 c = i ^ 2 + j ^ 2
100 OPEN "tripette.txt" FOR APPEND AS #1
110 PRINT #1, a, b, c
120 CLOSE #1
130 NEXT
140 NEXT
150 STOP
200 d = 0: k = i: l = j
210 FOR k = 2 TO SQR(k) + 1
(linea 19) 210 if k/l = int(k/l) then d=1 and k=sqr(i)+1
220 next
230 return