%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:624
File Name:3BY3SYS
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
"THIS PROGRAM WILL SOLVE A 3X3 SYSTEM OF LINEAR EQUATIONS."
"OF THE GENERAL FORM:"
\Lbl 2
"AX+BY+CZ=D
 EX+FY+GZ=H
 IX+JY+KZ=L
------------"
"INPUT A"?\->A
"INPUT B"?\->B
"INPUT C"?\->C
"INPUT D"?\->D
"INPUT E"?\->E
"INPUT F"?\->F
"INPUT G"?\->G
"INPUT H"?\->H
"INPUT I"?\->I
"INPUT J"?\->J
"INPUT K"?\->K
"INPUT L"?\->L
((A*F*K)+(B*G*I)+(C*E*J))-((I*F*C)+(J*G*A)+(K*E*B))\->P
((D*F*K)+(B*G*L)+(C*H*J))-((L*F*C)+(J*G*D)+(K*H*B))\->Q
((A*H*K)+(D*G*I)+(C*E*L))-((I*H*C)+(L*G*A)+(K*E*D))\->R
((A*F*L)+(B*H*I)+(D*E*J))-((I*F*D)+(J*H*A)+(L*E*B))\->S
\If P\<>0
\Then Q/P\->X
\Goto3
\Else "THERE IS NO UNIQUE SOLUTION TO THIS SYSTEM"\Disp\ClrText
\Goto2
\Lbl 3
R/P\->Y
S/P\->Z
"X=":X\Disp"Y=":Y\Disp"Z=":Z\Disp\ClrText
\Goto2


%End