10  REM TO SEND OUTPUT TO AN ASCII FILE, TYPE: RUN*OUT=FILENAME*
20  REM OR: EXE*OUT=FILENAME*TRIPLE
25  IF  ERROR  THEN 150
30  PRINT "TRIPLES TO";
40  INPUT X
50  PRINT LIN(2)
60  FOR A=3 TO X
70  FOR B=A TO X
80  FOR C=B TO X
90  IF (A*A)+(B*B) <> (C*C) THEN 110
100  PRINT A,B,C
110  NEXT C
120  NEXT B
130  NEXT A
140  PRINT LIN(2)
150  CHAIN R,"*HELP"
160  SYSTEM X,"BYE"
170  END 
