001 LBL "TRIANG" ; Key: 25
002 "ENTER A B C"
003 PROMPT
004 X>Y?
005 X<>Y
006 RDN
007 X>Y?
008 X<>Y
009 R^
010 X>Y?
011 X<>Y
012 STO 03
013 RDN
014 STO 02
015 RDN
016 STO 01
017 RCL 02
018 RCL 03
019 +
020 RCL 01
021 +
022 RCL 02
023 RCL 01
024 -
025 RCL 03
026 +
027 *
028 RCL 01
029 RCL 02
030 -
031 RCL 03
032 +
033 *
034 RCL 02
035 RCL 03
036 -
037 RCL 01
038 +
039 *
040 SQRT
041 4
042 /
043 STO 00
044 RCL 01
045 RCL 03
046 "EQUILATERAL"
047 X=Y?
048 GTO 00
049 RCL 01
050 RCL 02
051 -
052 RCL 02
053 RCL 03
054 -
055 *
056 "ISOSCELES"
057 X=0?
058 GTO 00
059 RCL 03
060 X^2
061 RCL 02
062 X^2
063 +
064 RCL 01
065 X^2
066 "SCALENE"
067 X=Y?
068 "RIGHT-ANGLED"
069 LBL 00
070 RCL 00
071 AVIEW
072 END