100 REM: PYTHAGOREAN TRIPLETS
110 REM: COPYRIGHT 1979 BY TOM RUGG AND PHIL FELDMAN
115 REM: NABU VERSION COPYRIGHT 2026 BY BRANDON TAYLOR
120 CLEAR 50
130 R%=2:K%=1:D%=0
150 GOSUB 350
180 S%=R%-1
190 A%=R%^2-S%^2
200 B%=2*R%*S%
210 C%=R%^2+S%^2
220 PRINT K%,A%,B%,C%
230 K%=K%+1:D%=D%+1:GOTO 400
240 S%=S%-2:IF S%<=0 THEN R%=R%+1:GOTO 180
250 S1%=S%
255 B1%=R%
260 N%=B1%/S1%
270 R1%=B1%-(S1%*N%)
280 IF R1%<>0 THEN B1%=S1%:S1%=R1%:GOTO 260
300 IF S1%<>1 THEN 240
320 GOTO 190
350 PRINT CHR$(26);TAB(10);"**** PYTHAGOREAN TRIPLETS ****"
380 PRINT"COUNT","--A--","--B--","--C--"
390 RETURN
400 IF D%<13 THEN 240
420 PRINT"PRESS ANY KEY TO CONTINUE";
430 IF INKEY$="" THEN 430
440 GOSUB 350
450 D%=0
460 GOTO 240
00 IF D%<13 THEN 240
420 P