**TI85** Ungrouped from c:\ti\prog\prog.85gº ªTRIANGLEª¨0YÖClLCDÖDisp "RIGHT TRIANGLE"ÖDisp "SOLVER"ÖDisp "ALL CAPS WILL BE"ÖDisp "ANGLES, and all"ÖDisp "lower case will be"ÖDisp "sides"ÖPause Ö90CÖ0DÖ0EÖ0FÖ0BÖ0AÖLbl BEGINÖClLCDÖInput "1) ANGLE or 2) side:",ZÖY+1YÖIf Z==3:Goto EQNÖIf Z==2:Goto GSIDEÖGoto GANGLEÖÖLbl GANGLEÖDisp "CHOOSE ANGLE"ÖDisp "1. A"ÖDisp "2. B"ÖInput WÖIf W==1ÖThenÖInput "ANGLE A: ",AÖGoto BEGINÖEndÖIf W==2ÖInput "ANGLE B: ",BÖGoto BEGINÖEndÖÖLbl GSIDEÖDisp "CHOOSE A SIDE"ÖDisp "1. a"ÖDisp "2. b"ÖDisp "3. c"ÖInput VÖIf V==1ÖInput "SIDE A: ",DÖÖIf V==2ÖInput "SIDE B: ",EÖÖIf V==3ÖInput "SIDE C: ",FÖGoto BEGINÖÖLbl EQNÖClLCDÖIf A>0ÖC-ABÖIf B>0ÖC-BAÖÖÖÖÖDisp "ANGLE A"ÖDisp AÖDisp "ANGLE B"ÖDisp BÖÊè