%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:132
File Name:BORGS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"Age"?\->A
"Resting"
"Heart Rate"?\->R
"Intensity"
"percent"?\->I
\Int ((220-A-R)*I/100+R+.49)\->T
"Target (min)"
T\Disp"Target (10s)"
\Int (T/6+.49)
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:299
File Name:INEQUAL
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"Ineq Solver"
"ax+b<->cx+d"
"Choose type:"
"<1 \<=2 >3 \>=4"
?\->T
\ClrText
T=1\=>"ax+b<cx+d"
T=2\=>"ax+b\<=cx+d"
T=3\=>"ax+b>cx+d"
T=4\=>"ax+b\>=cx+d"
"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
"Solution:"
"x"
T=1\=>"<"
T=2\=>"\<="
T=3\=>">"
T=4\=>"\>="
(D-B)\ab/c(A-C)\->X
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1120
File Name:LATLONG
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Deg
\Norm
"Earth radius"
"1. 6378.14km"
"2. 3437.75Nm"
"3. Other..":?\->K
\If K=1:\Then 6378.14\->R:\Else 10800/\Pi\->R:\IfEnd
\If (K\<>1)(K\<>2):\Then "\Radius"?\->R:\IfEnd
\Do
\ClrText
"Find"
"1.Distance"
"2.Lat\slashLong"?\->J
\LpWhile (J\<>1)(J\<>2)
\Do
\ClrText
"Travel along"
"line of"
"1.Long (N-S)"
"2.Lat (E-W)"
\If J=1:\Then "3.Grt Crcle"?\->K:\Else ?\->K:\IfEnd
\LpWhile (K<1)+(K>4-J)
"1st position"
"Lat1  N+,S\(-)"?\->A
"Long1 E+,W\(-)"?\->C
\If J=1
\Then "2nd position"
"Lat2  N+,S\(-)"?\->B
"Long2 E+,W\(-)"?\->D
\If K=1
\Then \If (C\<>D)(\Abs (C-D)\<>180):\Then "STOP!":"Longditude":"Err\or":\Stop:\IfEnd
"Start travel"
\Do
"1.N":"2.S"?\->I
\LpWhile (I\<>1)(I\<>2)
\PiR*\Abs (A-B)/180\->E
\If (I=1)(A>B)+(I=2)(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
"Start travel"
\Do
"1.E":"2.W"?\->I
\LpWhile (I\<>1)(I\<>2)
\PiR*\Abs (C-D)*\cos A/180\->E
\If (I=1)(C>D)+(I=2)(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
"Distance="
E\Disp\IfEnd
\If J=2
\Then "Dist to go"
\If K=1
\Then "[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 "[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
"Final pos'n"
"Lat="
A\Disp"Long="
C\Disp\IfEnd
\ClrText
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:146
File Name:MARKS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"End high"
"Max Mark"?\->M:0\->S:0\->N:\Lbl 1
"Mark"?\->B
B>M\=>\Goto2
100*B/M\->B
\Int (B+.5)\->B\DispN+1\->N:B+S\->S
\Goto1
\Lbl 2
"End~0,Cont~9"?\->C
C\<>0\=>\Goto1
"Entries="
N\Disp"Average="
S/N
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:214
File Name:QUADS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"Parabola Eqn"
"Lists 5 \-> 6"
"altered by"
"program!mark"\Disp\ClrList
\ClrText
"Enter (x,y)"
"of 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
"\@F7FF
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1985
File Name:SAVOL
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm
\ClrText
"1.Prism"
"2.Cylinder"
"3.Pyramid"
"4.Cone"
"5.Sphere"?\->K
\ClrText
\If K=1
\Then 0\->P
"Prism Length"?\->H
\ClrText
"Prism x-sct"
"1.Triangle"
"2.Rectangle"
"3.Other"?\->J
\If J=1
\Then \ClrText
"1.Equilat'l"
"2.Isosceles"
"3.Right"
"4.Scalene"
"5.Ht'n'Base"?\->I
\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)+(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
"Rect' prism"
"Width"?\->W
"Height"?\->B
WB\->A
2W+2B\->P
\IfEnd
\If J=3
\Then \ClrText
"Other prism"
"1.Reg polygon"
"2.Known x-sct"?\->I
\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-sct"?\->A
\IfEnd
\IfEnd
"Volume="
HA\->V\Disp"X\(-)sct area="
A\Disp\If P\<>0
\Then "Sides="
PH\Disp"TSA="
PH+2A\->A\Disp\Else "TSA="
"Can't calc"\Disp\IfEnd
\IfEnd
\If K=2
\Then "Cylinder"
"No. of ends"
"(0,1,2)"?\->E
"\Radius"?\->R
"Height"?\->H
"Volume="
\PiR\x^2H\->V\Disp"X\(-)sct area="
\PiR\x^2\Disp"TSA="
2\PiRH+E\PiR\x^2\->A\Disp\IfEnd
\If K=3
\Then "Pyramid"
"Perp' height"?\->H
\ClrText
"Pyrm'd base"
"1.\Square"
"2.Rectangle"
"3.Triangle"
"4.KnownArea"?\->L
\If L=1
\Then \ClrText
"\Square"
"Side Length"?\->A
2A\sqrt(H\x^2+(A/2)\x^2)\->F
A\x^2\->A
\IfEnd
\If L=2
\Then \ClrText
"Rectangle"
"Length Side1":?\->A
"Length Side2":?\->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
"Tri base"
"1.Equilat'l"
"2.Right"
"3.Other"?\->M
\If M=1
\Then "Vertex MUST"
"be above"
"centroid"
"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 "Vertex MUST"
"be above rt-"
"angle. Enter"
"2 shrt sides"
"Side 1"?\->B
"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 "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 calc"\Disp\IfEnd
\IfEnd
\If K=4
\Then "Cone"
"Base radius":?\->R
"Which ht?"
"1.Slant"
"2.Perp'"?\->M
\If M=1
\Then "Slant ht"?\->S
"Perp' ht="
\sqrt(S\x^2-R\x^2)\->H\Disp\Else "Perp' ht"?\->H
"Slant ht="
\sqrt(R\x^2+H\x^2)\->S\Disp\IfEnd
"Volume="
\PiR\x^2H/3\->V\Disp"Curved SA="
\PiRS\Disp"Base SA="
\PiR\x^2\Disp"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 saved:"
"Vol\->V"
"TSA\->A"\Disp\ClrText
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1313
File Name:TRISOLVE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Deg
0\->A~Z
{0,0,0,0}\->\List 1
\List 1\->\List 2
\ClrText
"TriSolve:"
"Enter 0 when"
"side ~ angle"
"unknown"\Disp"Angle A="?\->V
V\->\List 1[1]
V\<>0\=>\Isz A
"Side  a="?\->V
V\->\List 2[1]
V\<>0\=>\Isz S
"Angle B="?\->V
V\->\List 1[2]
V\<>0\=>\Isz A
\If (S=0)+(A+S<3)
\Then "Side  b="?\->V
V\->\List 2[2]
V\<>0\=>\Isz S
\IfEnd
\If (S=0)+(A+S<3)
\Then "Angle C="?\->V
V\->\List 1[3]
V\<>0\=>\Isz A
\IfEnd
\If (S=0)+(A+S<3)
\Then "Side  c="?\->V
V\->\List 2[3]
V\<>0\=>\Isz S
\IfEnd
\If (A+S=3)(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)+(\List 2[I]=0))(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)+(\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])(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
"Angle A":\List 1[1]\Disp"Side a":\List 2[1]\Disp"Angle B":\List 1[2]\Disp"Side b":\List 2[2]\Disp"Angle C":\List 1[3]\Disp"Side c":\List 2[3]\Disp"Area":.5*\List 2[1]*\List 2[2]*\sin \List 1[3]\Disp\If U=1
\Then \ClrText
"2nd soln:"
"Angle A":\List 3[1]\Disp"Side a":\List 4[1]\Disp"Angle B":\List 3[2]\Disp"Side b":\List 4[2]\Disp"Angle C":\List 3[3]\Disp"Side c":\List 4[3]\Disp"Area":.5*\List 4[1]*\List 4[2]*\sin \List 3[3]\Disp\IfEnd
\ClrText
"\Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:243
File Name:SURDSIMP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm:\Do:\ClrText
"Surd Simp"\Disp"1:  \sqrtb"
"2: a\sqrtb"
"3: a\sqrtb * c\sqrtd"
"4: a\sqrtb / c\sqrtd"
"Type"?\->K
\ClrText
1\->A~D
K\<>1\=>"a"?\->A
"b"?\->B
\If (K=3)+(K=4)
\Then "c"?\->C
"d"?\->D
\IfEnd
\LpWhile ABCD=0
\ClrText
BD\->S
\Int \sqrtS\->N
\While (N>1)(\Frac (S/N\x^2)\<>0)
\Dsz N
\WhileEnd
S/N\x^2\->R
NAC\->M
K=4\=>(NA)\ab/c(CD)\->M
M\Disp\If R\<>1
\Then "\sqrt"
R\Disp\IfEnd
"\Done"
%End