%Header Record
Format:MCS1
Type Number:1
File Name:2PT LINE
Option Name:
Communication SW:0
Capacity:813
Data Type:PG
%Data Record
Password:
BaseN:0
\Do
\ClrText
\Locate 1,1,"2 Point MENU"
\Locate 3,2,"F1 Set 1st point"
\Locate 3,3,"F2 Set 2nd point"
\Locate 3,4,"F3 \Line"
\Locate 3,5,"F4 Midpoint"
\Locate 3,6,"F5 Distance"
\Locate 3,7,"F6 Quit"
\Do:\Getkey\->K:\LpWhile K=0
\ClrText
\If K=79
\Then "1st point (x,y)"
"x"?\->X
"y"?\->Y
\IfEnd
\If K=69
\Then "2nd Point (x,y)"
"x"?\->P
"y"?\->Q
\IfEnd
\If K=39
\Then \sqrt((X-P)\x^2+(Y-Q)\x^2)\->L
\Locate 1,2,"Dist="
\Locate 6,2,L\Disp\IfEnd
\If K=49
\Then (X+P)/2\->A
(Y+Q)/2\->B
\Locate 1,2,"Midpoint (x,y)"
\Locate 4,4,"x="
\Locate 6,4,A
\Locate 4,5,"y="
\Locate 6,5,B\Disp\IfEnd
\If K=59
\Then \Locate 1,1,"Eqn of straight line"
\If X=P
\Then \(-)X\->D:0\->B:1\->A
\Else (Y-Q)\ab/c(X-P)\->D
1\->V:1\->U:0\->Z:0\->W:0\->N
\If D<0:\Then 1\->N:\IfEnd
\Abs D\->D:D\->S
\Do
\Intg S\->I
S-I\->R
IV+Z\->T
IW+U\->B
\If R\<>0:\Then 1/R\->S:\IfEnd
V\->Z:W\->U:T\->V:B\->W
\LpWhile \Abs (T/B-D)>\EE\(-)10
\If N:\Then \(-)T\->T:\IfEnd
T\ab/cB\->M
Y-M*X\->C
\ClrText
\Locate 1,2,"y=mx+c"
\Locate 1,3,"m="
\Locate 3,3,M
\Locate 1,4,"c="
\Locate 3,4,C\Disp\If BM<0:\Then \(-)B\->B:\IfEnd
BM\->A:BC\->D:\(-)B\->B
\IfEnd
\ClrText
\Locate 1,2,"ax+by+d=0"
\Locate 1,3,"a="
\Locate 3,3,A
\Locate 1,4,"b="
\Locate 3,4,B
\Locate 1,5,"d="
\Locate 3,5,D\Disp\IfEnd
\LpWhile K\<>29
\ClrText\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:BORGS
Option Name:
Communication SW:0
Capacity:127
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"AGE"?\->A
"REST HEART RATE"?\->R
"Intensity percent"?\->I
\Int ((220-A-R)*I/100+R+.49)\->T
"Targets (min)(10s)"\DispT\Disp\Int (T/6+.49)\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:INEQUAL
Option Name:
Communication SW:0
Capacity:476
Data Type:PG
%Data Record
Password:
BaseN:0
\Do
\ClrText
\Locate 1,1,"Inequality solver"
\Locate 1,2,"ax+b <-> cx+d"
\Locate 1,3,"Choose type:"
\Locate 1,4,"<:F1 \<=:F2 >:F3 \>=:F4"
\Do:\Getkey\->T:\LpWhile T=0
T=79\=>1\->T
T=69\=>2\->T
T=59\=>3\->T
T=49\=>4\->T
\LpWhile T>4
\ClrText
" ":" "
\Locate 1,1,"ax+b   cx+d"
T=1\=>\Locate 6,1,"<"
T=2\=>\Locate 6,1,"\<="
T=3\=>\Locate 6,1,">"
T=4\=>\Locate 6,1,"\>="
\Locate 1,2,"Enter a,b,c,d:"
"a"?\->A
"b"?\->B
"c"?\->C
"d"?\->D
\ClrText
\If A=C
\Then "a=c... no good!"\Disp\Stop
\IfEnd
\If A<C
\Then T+2\->T
T>4\=>T-4\->T
\IfEnd
\Locate 1,1,"Solution:"
\Locate 1,3,"x"
T=1\=>\Locate 2,3,"<"
T=2\=>\Locate 2,3,"\<="
T=3\=>\Locate 2,3,">"
T=4\=>\Locate 2,3,"\>="
(D-B)\ab/c(A-C)\->X
\Locate 3,3,X
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:LATLONG
Option Name:
Communication SW:0
Capacity:1465
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
\Deg
\Norm 
" ":" ":" ":" "
\Locate 1,1,"Use Earth radius of"
\Locate 1,2,"1. 6378.14km"
\Locate 1,3,"2. 3437.75Nm"
\Locate 1,4,"3. Other..":?\->K
\If K=1:\Then 6378.14\->R:\Else 10800/\Pi\->R:\IfEnd
\If K\<>1\ And K\<>2:\Then " ":\Locate 1,7,"Earth radius":?\->R:\IfEnd
\Do
\ClrText
" ":" ":" "
\Locate 1,1,"Find"
\Locate 1,2,"1.Distance"
\Locate 1,3,"2.Lat\slashLong":?\->J
\LpWhile J\<>1\ And J\<>2
\Do
\ClrText
" ":\Locate 1,1,"Travel along"
" ":\Locate 1,2,"1.\Line of Long (N-S)"
" ":\Locate 1,3,"2.\Line of Lat (E-W)"
" "
\If J=1:\Then \Locate 1,4,"3.Great circle":\IfEnd
?\->K
\LpWhile K<1\ Or K>4-J
" ":\Locate 1,7,"First position"
" ":\Locate 1,7,"Lat1  [N=+, S=\(-)]":?\->A
" ":\Locate 1,7,"Long1 [E=+, W=\(-)]":?\->C
\If J=1
\Then " ":\Locate 1,7,"Second position"
" ":\Locate 1,7,"Lat2  [N=+, S=\(-)]":?\->B
" ":\Locate 1,7,"Long2 [E=+, W=\(-)]":?\->D
\If K=1
\Then " "
\If C\<>D\ And \Abs (C-D)\<>180:\Then "STOP!Longditude Err\or":\Stop:\IfEnd
\Locate 1,7,"Start travel"
\Do
" ":\Locate 1,7,"1. N":" ":\Locate 1,7,"2. S":?\->I
\LpWhile I\<>1\ And I\<>2
\PiR*\Abs (A-B)/180\->E
\If (I=1\ And A>B)\ Or (I=2\ And A<B):\Then 2\PiR-E\->E:\IfEnd
\If C\<>D:\Then \If I=1:\Then \PiR*(180-A-B)/180\->E:\Else \PiR*(180+A+B)/180\->E:\IfEnd:\IfEnd
\IfEnd
\If K=2
\Then " "
\If A\<>B:\Then "STOP! Latitude Err\or":\Stop:\IfEnd
\Locate 1,7,"Start travel"
\Do
" ":\Locate 1,7,"1. E"
" ":\Locate 1,7,"2. W"
?\->I
\LpWhile I\<>1\ And I\<>2
\PiR*\Abs (C-D)*\cos A/180\->E
\If (I=1\ And C>D)\ Or (I=2\ And C<D):\Then 2\PiR\cos A-E\->E:\IfEnd
\IfEnd
\If K=3
\Then 2\PiR\acos (\sin A\sin B+\cos A\cos B\cos (C-D))/360\->E
\IfEnd
" ":\Locate 1,7,"Distance="
\Locate 10,7,E\Disp\IfEnd
\If J=2
\Then " ":\Locate 1,7,"Distance to travel":" "
\If K=1
\Then \Locate 1,7,"[N=+, S=\(-)]"
?\->T
A+180T/\Pi/R\->A
360(A/360-\Intg (A/360))\->A
\If A\>=270:\Then A-360\->A:\IfEnd
\If A>90:\Then 180-A\->A
\If C\<=0:\Then 180+C\->C:\Else C-180\->C:\IfEnd
\IfEnd
\IfEnd
\If K=2
\Then \Locate 1,7,"[E=+, W=\(-)]"
?\->T
C+180T/(\PiR\cos A)\->C
360(C/360-\Intg (C/360))\->C
\If C>180:\Then C-360\->C:\IfEnd
\IfEnd
" ":\Locate 1,7,"Final position:"
"Lat="
A\Disp"Long="
C\Disp\IfEnd
\ClrText\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:MARKS
Option Name:
Communication SW:0
Capacity:130
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"END HI. MAX MARK"?\->M:0\->S:0\->N
\Do
"Mark"?\->B
\If B\<=M
\Then \Int (100*B/M+.5)\->A\DispN+1\->N:A+S\->S
\IfEnd
\LpWhile B\<=M
"ENTRIES"\DispN\Disp"AVERAGE"\DispS/N\Disp\ClrText\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:QUADS
Option Name:
Communication SW:0
Capacity:272
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
\Locate 1,2,"Eqn of parabola"
\Locate 1,3,"Warning: Lists 5 \-> 6"
\Locate 1,4,"altered by program"\Disp\ClrList
\ClrText
" ":" "
\Locate 1,1,"Enter co\ordinates of"
\Locate 1,2,"3 points on curve"
"x1="?\->P:"y1="?\->Q
"x2="?\->R:"y2="?\->S
"x3="?\->T:"y3="?\->U
{P,R,T}\->\List 5
{Q,S,U}\->\List 6
\QuadReg \List 5,\List 6\Disp\Ra\->A:\Rb\->B:\Rc\->C
\ClrText
"\Done"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:SAVOL
Option Name:
Communication SW:0
Capacity:2908
Data Type:PG
%Data Record
Password:
BaseN:0
\Norm 
\ClrText
" ":" ":" ":" ":" "
\Locate 1,1,"1.Prism"
\Locate 1,2,"2.Cylinder"
\Locate 1,3,"3.Pyramid"
\Locate 1,4,"4.Cone"
\Locate 1,5,"5.Sphere"
\Do:?\->K:\LpWhile K<1\ Or K>6
\ClrText
\If K=1
\Then 0\->P
"Prism length"?\->H
\ClrText
" ":" ":" ":" "
\Locate 1,1,"Prism x-section"
\Locate 1,2,"1.Triangular"
\Locate 1,3,"2.R":\Locate 4,3,"ectangular"
\Locate 1,4,"3.Other"
\Do:?\->J:\LpWhile J<1\ And J>3
\If J=1
\Then \ClrText
"Triangular prism"
" ":" ":" ":" ":" "
\Locate 1,2,"1.Equilateral"
\Locate 1,3,"2.Isosceles"
\Locate 1,4,"3.R":\Locate 4,4,"ight"
\Locate 1,5,"4.Scalene"
\Locate 1,6,"5.Ht'n'Base"
\Do:?\->I:\LpWhile I<1\ And I>5
\If I=1
\Then "Side length"?\->L
3L\->P
3L\x^2/(4\sqrt3)\->A
\IfEnd
\If I=2
\Then "Same sides="?\->D
"Other side="?\->E
2D+E\->P
E\sqrt(D\x^2-(E/2)\x^2)/2\->A
\IfEnd
\If I=4
\Then "Side 1"?\->D
"Side 2"?\->E
"Side 3"?\->F
D+E+F\->P
P/2\->S
\sqrt(S(S-D)(S-E)(S-F))\->A
\IfEnd
\If I=3\ Or I=5
\Then "Perp' ht"?\->W
"Base"?\->B
BW/2\->A
\If I=3:\Then W+B+\sqrt(W\x^2+B\x^2)\->P:\IfEnd
\IfEnd
\IfEnd
\If J=2
\Then \ClrText
" ":\Locate 1,1,"R":\Locate 2,1,"ectangular prism"
"Width"?\->W
"Height"?\->B
WB\->A
2W+2B\->P
\IfEnd
\If J=3
\Then \ClrText
" ":\Locate 1,1,"Other prism"
" ":\Locate 1,2,"1.\Regular polygon"
" ":\Locate 1,3,"2 Known x-section"
\Do:?\->I:\LpWhile I\<>1\ And I\<>2
\If I=1
\Then "No. of sides"?\->N
"Side length"?\->L
NL\->P
NL\x^2\tan (90-180/N)/4\->A
\IfEnd
\If I=2
\Then "Area of x-section"?\->A
\IfEnd
\IfEnd
"Volume="
HA\->V\Disp"X\(-)section area="
A\Disp\If P\<>0
\Then "Sides="
PH\Disp"TSA="
PH+2A\->A\Disp\Else "TSA="
"Can't calculate"\Disp\IfEnd
\IfEnd
\If K=2
\Then " ":\Locate 1,1,"Cylinder"
" ":\Locate 1,2,"How many ends?"
" ":\Locate 1,3,"(0,1,2):"
\Do:?\->E:\LpWhile E<0\ Or E>2
"\Radius"?\->R
"Height"?\->H
"Volume="
\PiR\x^2H\->V\Disp"X\(-)section area="
\PiR\x^2\Disp"TSA="
2\PiRH+E\PiR\x^2\->A\Disp\IfEnd
\If K=3
\Then " ":\Locate 1,1,"Pyramid"
" ":\Locate 1,2,"Perp' height":?\->H
\ClrText
" ":\Locate 1,1,"Pyramid base type:"
" ":\Locate 1,2,"1.Sq":\Locate 5,2,"uare"
" ":\Locate 1,3,"2.R":\Locate 4,3,"ectangle"
" ":\Locate 1,4,"3.Triangle"
" ":\Locate 1,5,"4.Known area"
\Do:?\->L:\LpWhile L<1\ Or L>4
\If L=1
\Then \ClrText
" ":\Locate 1,1,"Sq":\Locate 5,1,"uare"
" ":\Locate 1,2,"Length of side:"
?\->A
2A\sqrt(H\x^2+(A/2)\x^2)\->F:A\x^2\->A
\IfEnd
\If L=2
\Then \ClrText
" ":\Locate 1,1,"R":\Locate 2,1,"ectangle"
" ":\Locate 1,2,"Length of side 1":?\->A
" ":\Locate 1,5,"Length of side 2":?\->B
A\sqrt(H\x^2+(B/2)\x^2)+B\sqrt(H\x^2+(A/2)\x^2)\->F
AB\->A
\IfEnd
\If L=3
\Then \ClrText
" ":\Locate 1,1,"Triangular base"
" ":\Locate 1,2,"1.Equilateral"
" ":\Locate 1,3,"2.R":\Locate 4,3,"ight"
" ":\Locate 1,4,"3.Other"
\Do:?\->M:\LpWhile M<1\ Or M>3
\If M=1
\Then " ":\Locate 1,7,"Vertex MUST be"
" ":\Locate 1,7,"above centroid"
" ":\Locate 1,7,"Side length":?\->B
B\x^2*\sqrt3/4\->A
1.5B*\sqrt(H\x^2+(B\x^2/12))\->F
\IfEnd
\If M=2
\Then " ":\Locate 1,7,"Vertex MUST be"
" ":\Locate 1,7,"above right-angle"
" ":\Locate 1,7,"Enter 2 sh\ort sides"
" ":\Locate 1,7,"Side 1":?\->B
" ":\Locate 1,7,"Side 2":?\->A
(H(A+B)+\sqrt(((B\sin \atan (A/B))\x^2+H\x^2)*(A\x^2+B\x^2)))/2\->F
AB/2\->A
\IfEnd
\If M=3
\Then " ":\Locate 1,7,"Type known base area"
4\->L
\IfEnd
\IfEnd
\If L=4
\Then "Known area"?\->A
0\->F
\IfEnd
"Volume="
AH/3\->V\Disp"Base area="
A\Disp"TSA="
\If F>0
\Then A+F\->A\Disp\Else "Can't calculate"\Disp\IfEnd
\IfEnd
\If K=4
\Then " ":\Locate 1,1,"Cone"
" ":\Locate 1,2,"Base radius":?\->R
" ":\Locate 1,5,"Which height?"
" ":\Locate 1,6,"1.Slant"
" ":\Locate 1,7,"2.Perp'"
\Do:?\->M:\LpWhile M<1\ Or M>2
\If M=1
\Then " ":\Locate 1,7,"Slant Height":?\->S
" ":\Locate 1,7,"Perp' height="
\sqrt(S\x^2-R\x^2)\->H\Disp\Else " ":\Locate 1,7,"Perp' Height":?\->H
" ":\Locate 1,7,"Slant height="
\sqrt(R\x^2+H\x^2)\->S\Disp\IfEnd
" ":\Locate 1,7,"Volume="
\PiR\x^2H/3\->V\Disp" ":\Locate 1,7,"Curved S'Area="
\PiRS\Disp" ":\Locate 1,7,"Base S'Area="
\PiR\x^2\Disp" ":\Locate 1,7,"TSA="
\PiR*(R+S)\->A\Disp\IfEnd
\If K=5
\Then "Sphere"
"\Radius"?\->R
"Volume="
4\PiR^3/3\->V\Disp"TSA="
4\PiR\x^2\->A\Disp\IfEnd
\ClrText
"\Ans st\ored:"
"Vol\->V"
"TSA\->A"\Disp\ClrText\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:SIMPLOTS
Option Name:
Communication SW:0
Capacity:913
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
\Locate 1,3,"Plots equations from"
'Z=Zoom out fact\or
1\->Z
\Sim Coef\->\Mat A
\Mat A[1,1]\->A
\Mat A[1,2]\->B
\Mat A[1,3]\->C
\Mat A[2,1]\->D
\Mat A[2,2]\->E
\Mat A[2,3]\->F
' find intersection
BF-EC\->G
BD-EA\->H
\If H\<>0
\Then G/H\->X
\Locate 1,6,"One solution"
\Else \If G\<>0
\Then \Locate 1,6,"Parallel lines"
\Locate 1,7,"No solutions"
\Else \Locate 1,6,"Same line"
\Locate 1,7,"Infinite solutions"
\IfEnd
0\->X
\IfEnd
\Locate 1,4,"[EQUA] [SIML] [2]"\Disp' write Y1 \or X1
\If B\<>0
\Then \Y=Type
"AX+B"\->\Y 1
\(-)A\ab/cB\->A
C\ab/cB\->B
\Y 1\->Y
\Else \X-cType
"C"\->\X 1
C/A\->C
C\->X
\Y=Type
\IfEnd
' write Y2 \or X2
\If E\<>0
\Then \Y=Type
"DX+E"\->\Y 2
\(-)D\ab/cE\->D
F\ab/cE\->E
\Y 2\->Y
\Else \X-cType
"F"\->\X 2
F/D\->F
F\->X
\Y=Type
\IfEnd
' set up graph
\For 3\->G \To 20:\G SelOff G:\Next 
\ClrGraph
X\->P:\Int X\->X
Y\->Q:\Int Y\->Y
Z\ab/c10\->Z
\ViewWindow X-63*Z,X+63*Z,10Z,Y-31*Z,Y+31*Z,10Z
\AxesOn
\CoordOn
\GridOff
\SimulOff
\BG-None
\FuncOn
' graph
\If H\<>0
\Then \Text 46,5,"X="
\Text 46,15,P
\Text 46,70,"Y="
\Text 46,80,Q
\IfEnd
\DrawGraph\Disp\ClrText:" ":" ":" "
\If B\<>0
\Then \Locate 1,1,"Y1=AX+B"
\Locate 1,2,"A="
\Locate 3,2,A
\Locate 1,3,"B="
\Locate 3,3,B
\Else \Locate 1,1,"X1=C"
\Locate 1,2,"C="
\Locate 3,2,C
\IfEnd
\If E\<>0
\Then \Locate 1,5,"Y2=DX+E"
\Locate 1,6,"D="
\Locate 3,6,D
\Locate 1,7,"E="
\Locate 3,7,E
\Else \Locate 1,5,"X2=F"
\Locate 1,6,"F="
\Locate 3,6,F
\IfEnd
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:SURDSIMP
Option Name:
Communication SW:0
Capacity:616
Data Type:PG
%Data Record
Password:
BaseN:0
\Norm :\Do:\ClrText
\Locate 2,1,"\aster Surd Simplifier \aster"
\Locate 2,2,"\aster {a,c}\<>0 {b,d}>0 \aster"
\Locate 4,4,"F1:  \sqrtb"
\Locate 4,5,"F2: a\sqrtb"
\Locate 4,6,"F3: a\sqrtb * c\sqrtd"
\Locate 4,7,"F4: a\sqrtb / c\sqrtd"
\Do:\Getkey\->K:\LpWhile K=0
\ClrText:" ":1\->A~D:1\->Z
\If K=69\ Or K=59\ Or K=49
\Then \Locate 1,1,"a\sqrtb * c\sqrtd"
K=69\=>\Locate 5,1,"     "
K=49\=>\Locate 5,1,"/"
"a"?\->A
\Else \Locate 2,1,"\sqrtb"
\IfEnd
"b"?\->B
\If K=59\ Or K=49
\Then "c"?\->C
"d"?\->D
\IfEnd
\LpWhile ABCD=0
\ClrText:" "
BD\->S
\Int \sqrtS\->N
\While N>1\ And \Frac (S/N\x^2)\<>0
\Dsz N
\WhileEnd
S/N\x^2\->R
NAC\->M
\If K=49
\Then \If R\<>1
\Then \If \Abs AN>\Abs CD
\Then \Abs AN\->X:\Abs CD\->Y
\Else \Abs AN\->Y:\Abs CD\->X
\IfEnd
\Do:X-Y*\Int (X/Y)\->Z:Y\->X:Z\->Y:\LpWhile Z>0
NA\ab/cX\->M
CD\ab/cX\->Z
\Else (NA)\ab/c(CD)\->M
\IfEnd
\IfEnd
\Locate 1,1,M
\If R\<>1
\Then 2+\Intg \log \Abs M\->L
\Abs M=1\=>\Dsz L
M<0\ And Z>0\=>\Isz L
\Locate L,1,"\sqrt"
\Isz L:\Locate L,1,R
\If \Abs Z\<>1
\Then L+1+\Intg \log \Abs R\->L
\Locate L,1,"\ab/c"
\Isz L:\Locate L,1,\Abs Z
\IfEnd
\IfEnd
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:TRAPRULE
Option Name:
Communication SW:0
Capacity:108
Data Type:PG
%Data Record
Password:
BaseN:0
"FIRST"?\->F
"LAST"?\->L
"WIDTH"?\->W
\Seq(\fn1,X,F,L-W,W)\->\List 1
\Seq(\fn1,X,F+W,L,W)\->\List 2
(\List 1+\List 2)*W/2\->\List 3
\Sum \List 3\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:TRISOLVE
Option Name:
Communication SW:0
Capacity:1959
Data Type:PG
%Data Record
Password:
BaseN:0
\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,1,63,0
\Text 1,1,"Triangle solver"
\Text 1,70,"[EXP]:Exit"
\Text 7,70,"[DEL]:Clr all"
\F-Line 92,42,74,16:\F-Line 74,16,118,16:\F-Line 118,16,92,42
\Text 15,92,"A":\Text 45,70,"B":\Text 45,120,"C"
\Text 49,94,"a":\Text 30,108,"b":\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:\F-Line I,1,I,8:\F-Line I,8,I+18,8:\Next 
\Text 58,4," A ":\Text 58,25," a ":\Text 58,46," B ":\Text 58,67," b ":\Text 58,88," C ":\Text 58,109," c ":\PxlOn 1,1
\Do
\Do:\Getkey\->K:\LpWhile K=0
\If K=51:\Then \Norm :\ClrText:\Stop:\IfEnd
\If K=44:\Then 9\->S:\IfEnd
\If K=79:\Then "Angle A="?\->V:V\->\List 1[1]:\If V\<>0:\Then \Isz A:\IfEnd:\Text 13,23,V:\IfEnd
\If K=69:\Then "Side  a="?\->V:V\->\List 2[1]:\If V\<>0:\Then \Isz S:\IfEnd:\Text 19,23,V:\IfEnd
\If K=59:\Then "Angle B="?\->V:V\->\List 1[2]:\If V\<>0:\Then \Isz A:\IfEnd:\Text 25,23,V:\IfEnd
\If K=49:\Then "Side  b="?\->V:V\->\List 2[2]:\If V\<>0:\Then \Isz S:\IfEnd:\Text 31,23,V:\IfEnd
\If K=39:\Then "Angle C="?\->V:V\->\List 1[3]:\If V\<>0:\Then \Isz A:\IfEnd:\Text 37,23,V:\IfEnd
\If K=29:\Then "Side  c="?\->V:V\->\List 2[3]:\If V\<>0:\Then \Isz S:\IfEnd:\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
\If \List 1[I]\<>0:\Then I\->C:\IfEnd
\If \List 2[I]\<>0:\Then I\->D:\IfEnd
\LpWhile (\List 1[I]=0\ Or \List 2[I]=0)\ And I<4
\If I<4:\Then I\->P:\IfEnd
\If P=0
\Then \If S=2
\Then 2\->U
1+C\->J:2+C\->K
\If J>3:\Then J-3\->J:\IfEnd
\If K>3:\Then K-3\->K:\IfEnd
\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
\If J>3:\Then J-3\->J:\IfEnd
\If K>3:\Then K-3\->K:\IfEnd
\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
\If \List 1[I]=0:\Then 180-T\->\List 1[I]:\IfEnd
\Next :\IfEnd
\If S\<>3
\Then \For 1\->I \To 3
\If \List 2[I]=0:\Then \sin \List 1[I]*\List 2[P]/\sin \List 1[P]\->\List 2[I]:\IfEnd
\If U=1
\Then \If \List 4[I]=0:\Then \sin \List 3[I]*\List 4[P]/\sin \List 3[P]\->\List 4[I]:\IfEnd
\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
\If K=44:\Then \Goto1:\IfEnd
\Cls:\ClrText:\Norm 
\@00
%End