%Header Record Format:MCS1 Type Number:1 File Name:TRITRIGO Option Name: Communication SW:0 Capacity:1224 Data Type:PG %Data Record Password: BaseN:0 \ClrText \Locate 6,1,"TRITRIGO" \Locate 4,2,"BY EINSTEINP" \Locate 2,4,"LA CALCULATRICE VA" \Locate 2,5,"AUTOMATIQUEMENT SE" \Locate 2,6,"METTRE EN MODE DEG" \Deg \Lbl 1 \Getkey=31\=>\Goto0 \Goto1 \Lbl 0 \ClrText 0\->A~Z "QUE CHERCHEZ VOUS ?" "1:ADJACENT" "2:OPPOSEE" "3:HYPOTHENUSE" "4:ANGLE" "5:QUITTER"?\->A \ClrText \If A=1:\Then "AVEZ VOUS ?" "1:OPPOSEE ET HYPO" "2:HYPO ET ANGLE" "3:ANGLE ET OPPOSEE"?\->B \ClrText \If B=1:\Then "OPPOSEE"?\->C "HYPO"?\->D "ADJACENT:" \sqrt(D\x^2-C\x^2)\Disp\IfEnd \If B=2:\Then "HYPO"?\->C "ANGLE"?\->D "ADJACENT:" C*\cos (D)\Disp\IfEnd \If B=3:\Then "OPPOSEE"?\->C "ANGLE"?\->D "ADJACENT:" C/\tan (D)\Disp\IfEnd \IfEnd \If A=2:\Then "AVEZ VOUS" "1:ADJACENT ET HYPO" "2:ADJA ET ANGLE" "3:HYPO ET ANGLE" ?\->B \ClrText \If B=1:\Then "ADJACENT"?\->C "HYPO"?\->D "OPPOSEE:" \sqrt(D\x^2-C\x^2)\Disp\IfEnd \If B=2:\Then "ADJACENT"?\->C "ANGLE"?\->D "OPPOSEE:" C*\tan D\Disp\IfEnd \If B=3:\Then "HYPO"?\->C "ANGLE"?\->D "OPPOSEE:" C*\sin D\Disp\IfEnd \IfEnd \If A=3:\Then "AVEZ VOUS" "1:ADJA ET OPPOSEE" "2:ADJA ET ANGLE" "3:OPPOS ET ANGLE" ?\->B \ClrText \If B=1:\Then "ADJA"?\->C "OPPOSEE"?\->D "HYPO:" \sqrt(C\x^2+D\x^2)\Disp\IfEnd \If B=2:\Then "ADJA"?\->C "Angle"?\->D "Hypo:" C/\cos (D)\Disp\IfEnd \If B=3:\Then "Oppos"?\->C "Angle"?\->D "Hypo:" C/\sin (D)\Disp\IfEnd \IfEnd \If A=4:\Then "AVEZ VOUS" "1:ADJA ET OPPOSEE" "2:ADJA ET HYPO" "3:OPPOS ET HYPO" ?\->B \ClrText \If B=1:\Then "ADJA"?\->C "OPPOSEE"?\->D "Angle:" \atan (D/C)\Disp\IfEnd \If B=2:\Then "ADJA"?\->C "Hypo"?\->D "Angle:" \acos (C/D)\Disp\IfEnd \If B=3:\Then "Oppos"?\->C "Hypo"?\->D "Angle:" \asin (C/D)\Disp\IfEnd \IfEnd \If A=5:\Then \Stop \IfEnd \Goto0\@00 %End