100 REM  CALCULATE DIAGONAL
110 CALL CLEAR
120 DISPLAY "FIND DIAGONAL LINE LENGTH:"
130 PRINT
140 INPUT "LENGTH SIDE A:":A
150 INPUT "LENGTH SIDE B:":B
160 REM  PYTHAGOREAN THEOREM
170 LET C=SQR(A^2+B^2)
180 PRINT
190 PRINT "FORMULA: C=SQR(A^2+B^2)"
200 PRINT
210 PRINT "DIAGONAL: ";C
220 PRINT
230 END