Program:TRI
:ClrHome
:Disp "ENTER 3 NO. WHERE"
:Disp "LARGEST NO. IS"
:Disp "LAST"
:Pause
:Prompt A, B, C
:Goto 2
:Lbl 1
:A^2 + B^2 -> D
:If C^2 = D
:Then
:Disp "RIGHT"
:Else
:If C^2 < D
:Then
:Disp "ACUTE"
:Else
:If C^2 > D
:Then
:Disp "OBTUSE"
:Else
:Lbl 2
:If A + B < C
:Goto 3
:Goto 1
:Lbl 3
:Disp "NOT TRIANGLE"
:Stop
:End
:End
:End