%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1862
File Name:TRISOLVE
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Deg:\Fix 2:\Lbl 1
\Do
0\->A~Z:{0,0,0,0}\->\List 1:\List 1\->\List 2
\BG-None:\ClrText:\Cls:\ViewWindow 1,127,0,63,1,0
\Text 1,1,"Triangle solver"
\Text 1,70,"[EXP]:Exit"
\Text 7,70,"[DEL]:Clr all"
\Green \F-Line 92,21,74,47:\Green \F-Line 74,47,118,47:\Green \F-Line 118,47,92,21
\Green \Text 15,92,"A":\Green \Text 45,70,"B":\Green \Text 45,120,"C"
\Green \Text 49,94,"a":\Green \Text 30,108,"b":\Green \Text 30,78,"c"
14\->I:\Text 13,I,"A=":\Text 19,I,"a=":\Text 25,I,"B=":\Text 31,I,"b=":\Text 37,I,"C=":\Text 43,I,"c=":\Text 49,1,"Area="
\For 2\->I \To 107 \Step 21:\Green \F-Line I,63,I,56:\Green \F-Line I,56,I+18,56:\Next 
\Green \Text 58,4," A ":\Green \Text 58,25," a ":\Green \Text 58,46," B ":\Green \Text 58,67," b ":\Green \Text 58,88," C ":\Green \Text 58,109," c ":\PxlOn 1,1
\Do
\Do:\Getkey\->K:\LpWhile K=0
\If K=51:\Then \Norm:\ClrText:\Stop:\IfEnd
K=44\=>9\->S
\If K=79:\Then "Angle A="?\->V:V\->\List 1[1]:V\<>0\=>\Isz A:\Text 13,23,V:\IfEnd
\If K=69:\Then "Side  a="?\->V:V\->\List 2[1]:V\<>0\=>\Isz S:\Text 19,23,V:\IfEnd
\If K=59:\Then "Angle B="?\->V:V\->\List 1[2]:V\<>0\=>\Isz A:\Text 25,23,V:\IfEnd
\If K=49:\Then "Side  b="?\->V:V\->\List 2[2]:V\<>0\=>\Isz S:\Text 31,23,V:\IfEnd
\If K=39:\Then "Angle C="?\->V:V\->\List 1[3]:V\<>0\=>\Isz A:\Text 37,23,V:\IfEnd
\If K=29:\Then "Side  c="?\->V:V\->\List 2[3]:V\<>0\=>\Isz S:\Text 43,23,V:\IfEnd
\PxlOn 1,1
\LpWhile S=0\ Or A+S<3
\LpWhile K=44
\If A+S=3\ And S\<>3
\Then 0\->I
\Do
\Isz I
\List 1[I]\<>0\=>I\->C
\List 2[I]\<>0\=>I\->D
\LpWhile (\List 1[I]=0\ Or \List 2[I]=0)\ And I<4
I<4\=>I\->P
\If P=0
\Then \If S=2
\Then 2\->U
1+C\->J:2+C\->K
J>3\=>J-3\->J
K>3\=>K-3\->K
\sqrt(\List 2[K]\x^2+\List 2[J]\x^2-2*\List 2[J]*\List 2[K]*\cos \List 1[C])\->\List 2[C]
\Isz S
C\->P
\Else D\->P
\IfEnd:\IfEnd:\IfEnd
\If S=3
\Then \For 1\->I \To 3
1+I\->J
2+I\->K
J>3\=>J-3\->J
K>3\=>K-3\->K
\acos ((\List 2[J]\x^2+\List 2[K]\x^2-\List 2[I]\x^2)/(2*\List 2[J]*\List 2[K]))\->\List 1[I]
\Next 
3\->A
\IfEnd
\If A=1
\Then 0\->I
\Do
\Isz I
\LpWhile \List 2[I]=0\ Or \List 1[I]\<>0
\asin (\List 2[I]*\sin \List 1[P]/\List 2[P])\->\List 1[I]
2\->A
\If \List 1[P]<\List 1[I]\ And U\<>2
\Then 1\->U
\List 1\->\List 3
180-\List 1[I]\->\List 3[I]
180-\List 3[P]-\List 3[I]\->\List 3[6-I-P]
\List 2\->\List 4
\IfEnd:\IfEnd
\If A=2
\Then \List 1[1]+\List 1[2]+\List 1[3]\->T
\For 1\->I \To 3
\List 1[I]=0\=>180-T\->\List 1[I]
\Next :\IfEnd
\If S\<>3
\Then \For 1\->I \To 3
\List 2[I]=0\=>\sin \List 1[I]*\List 2[P]/\sin \List 1[P]\->\List 2[I]
\If U=1
\Then \List 4[I]=0\=>\sin \List 3[I]*\List 4[P]/\sin \List 3[P]\->\List 4[I]
\IfEnd
\Next 
\IfEnd
\Text 13,23,\List 1[1]
\Text 19,23,\List 2[1]
\Text 25,23,\List 1[2]
\Text 31,23,\List 2[2]
\Text 37,23,\List 1[3]
\Text 43,23,\List 2[3]
\Text 49,23,.5*\List 2[1]*\List 2[2]*\sin \List 1[3]
\If U=1
\Then \Text 13,63,\List 3[1]
\Text 19,63,\List 4[1]
\Text 25,63,\List 3[2]
\Text 31,63,\List 4[2]
\Text 37,63,\List 3[3]
\Text 43,63,\List 4[3]
\Text 49,63,.5*\List 4[1]*\List 4[2]*\sin \List 3[3]
\IfEnd
\PxlOn 1,1
\Do:\Getkey\->K:\LpWhile K=0
K=44\=>\Goto1
\Cls:\ClrText:\Norm
%End