%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:812
File Name:2PT LINE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\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
"\Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:116
File Name:BORGS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"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)
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:448
File Name:GRAPHEQN
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\AxesOn:\GridOn:\BG-None:\G-Connect
\SimulOff:\DerivOff
\For 2\->A \To 20:\G SelOff A:\Next 
\G SelOn 1:\Y=Type
\ClrText
" ":\Locate 1,1,"W\ork out y=ax+b"
" ":\Locate 1,2,"from graph."
" ":\Locate 14,3,"...[EXE]"
\Do:\LpWhile \Getkey\<>31
\Int 5\Ran#-2\->A
\Int 5\Ran#-2\->B
"AX+B"\->\Y 1
\Do
\ClrGraph
\ViewWindow -6.3,6.3,1,-3.1,3.1,1
\DrawGraph
\Orange \Text 56,96,"...[EXE]"
\PxlOff 1,1\Disp\ClrText
" ":\Locate 1,1,"y=ax+b"
"a="?\->C
"b="?\->D
\If A=C\ And B=D
\Then \Locate 1,6,"Well done!"
\Locate 13,6,"y="
\If A\<>0
\Then \Locate 15,6,A
16\->T
A<0\=>\Isz T
\Abs A=1\=>\Dsz T
\Locate T,6,"x"
\Isz T
B>0\=>\Locate T,6,"+"
B>0\=>\Isz T
B\<>0\=>\Locate T,6,B
\Else \Locate 15,6,B
\IfEnd
\Stop
\IfEnd
\Locate 1,7,"Try again    ...[EXE]"
\Do:\LpWhile \Getkey\<>31
\LpWhile 1

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:468
File Name:INEQSOLV
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\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

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1457
File Name:LATLONG
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\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
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:142
File Name:MARKS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"END HI. 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"\DispN\Disp"AVERAGE"\DispS/N\Disp
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:209
File Name:MEANMED
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm:\ClrText
" ":" ":" ":" ":\Locate 1,1,"Enter curly brackets { }"
\Locate 1,2,"\and numbers separated"
\Locate 1,3,"by commas then [EXE]"
\Locate 1,4,"Eg {6,2,\(-)7}"
?\->\List 1
" ":\Locate 1,7,"Mean="
\Locate 6,7,\Mean\List 1)
" ":\Locate 1,7,"\Median"
\Locate 7,7,"="
\Locate 8,7,\Median\List 1)

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:851
File Name:PERPBSTC
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\AxesOn:\GridOff:\BG-None:\G-Connect
\SimulOff:\DerivOff
\For 2\->A \To 20:\G SelOff A:\Next 
\G SelOn 1
\ClrText
" ":" ":" ":" "
\Locate 1,1,"Perp bisect\or"
\Locate 1,2," of point (a,b)"
\Locate 1,3,"\and point (c,d)"
\Locate 1,4,"Enter co\ords:"
"a="?\->A
"b="?\->B
"c="?\->C
"d="?\->D
\ClrGraph
{-6.3,-3.1,1}\->\List 5
{6.3,3.1,1}\->\List 6
A<\List 5[1]\=>(1+\Int (A/\List 5[1]))*\List 5\->\List 5
C<\List 5[1]\=>(1+\Int (C/\List 5[1]))*\List 5\->\List 5
A>\List 6[1]\=>(1+\Int (A/\List 6[1]))*\List 6\->\List 6
C>\List 6[1]\=>(1+\Int (C/\List 6[1]))*\List 6\->\List 6
B<\List 5[2]\=>(1+\Int (B/\List 5[2]))*\List 5\->\List 5
D<\List 5[2]\=>(1+\Int (D/\List 5[2]))*\List 5\->\List 5
B>\List 6[2]\=>(1+\Int (B/\List 6[2]))*\List 6\->\List 6
D>\List 6[2]\=>(1+\Int (D/\List 6[2]))*\List 6\->\List 6
\ViewWindow \List 5[1],\List 6[1],\List 5[3]*\List 6[3],\List 5[2],\List 6[2],\List 5[3]*\List 6[3]
\ClrText
\Locate 1,1,"Equation is"
\If B=D
\Then (A+C)\ab/c2\->I
\X-cType:"I"\->\X 1
\Locate 1,2,"x="
\Locate 3,2,I
\Locate 14,7,"...[EXE]"
\Do:\LpWhile \Getkey\<>31
\Else (A-C)\ab/c(D-B)\->M
(A+C)\ab/c2\->R:(B+D)\ab/c2\->S
S-MR\->I
\Y=Type:"MX+I"\->\Y 1
\Locate 1,2,"y=mx+c"
\Locate 1,3,"m="
\Locate 3,3,M
\Locate 1,4,"c="
\Locate 3,4,I
\Locate 14,7,"...[EXE]"
\Do:\LpWhile \Getkey\<>31
\IfEnd
{A,C}\->\List 5
{B,D}\->\List 6
\S-WindMan
\S-Gph2 \DrawOff:\S-Gph3 \DrawOff
\S-Gph1 \DrawOn,\Scatter,\List 5,\List 6,1,\Cross,\Orange 
\DrawStat
\S-WindAuto
\OrangeG 1
\DrawGraph

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:264
File Name:QUADEQN
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\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"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2502
File Name:QUADSOLV
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm:\ClrText
\Locate 1,1,"\aster\aster\aster\aster \Quad Solver \aster\aster\aster"
\Locate 2,2,"Type of \Quadratic"
\Locate 3,3,"F1: ax\x^2+bx+c"
\Locate 3,4,"F2: a(bx+c)\x^2+d"
\Locate 3,5,"F3: a(bx+c)(dx+e)"
\Locate 3,6,"F4: ax(bx+c)"
\Locate 3,7,"F6: 3 points (x,y)"
\Do:\Getkey\->K:\LpWhile K=0
\ClrText:" "
\If K=29
\Then " "
\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
\Ra\->A:\Rb\->B:\Rc\->C
\Else \Locate 7,1,"ax\x^2+bx+c"
K=69\=>\Locate 6,1,"a(bx+c)\x^2+d"
K=59\=>\Locate 5,1,"a(bx+c)(dx+e)"
K=49\=>\Locate 7,1,"ax(bx+c)"
"a"?\->A:"b"?\->B:"c"?\->C
\IfEnd
\If K=49
\Then AC\->C:AB\->A:C\->B:0\->C
\IfEnd
\If K=59
\Then \Locate 5,2,"a(bx+c)(dx+e)"
"d"?\->D
\Locate 5,2,"a(bx+c)(dx+e)"
"e"?\->E
ABD\->P:A(BE+CD)\->B:ACE\->C:P\->A
\IfEnd
\If K=69
\Then \Locate 6,2,"a(bx+c)\x^2+d"
"d"?\->D
AB\x^2\->P:2ABC\->B:AC\x^2+D\->C:P\->A
\IfEnd
\ClrText
\Locate 1,1,"St\andard: ax\x^2+bx+c"
\Locate 2,3,"a=":\Locate 4,3,A
\Locate 2,4,"b=":\Locate 4,4,B
\Locate 2,5,"c=":\Locate 4,5,C
\Locate 2,6,"c is y-intercept"
\Do:\LpWhile \Getkey\<>31
\ClrText
\(-)B\ab/c(2A)\->P
C-(B\x^2\ab/c(4A))\->Q
\Locate 1,1,"Comp Sq: a(x-p)\x^2+q"
\Locate 2,3,"a=":\Locate 4,3,A
\Locate 2,4,"p=":\Locate 4,4,P
\Locate 2,5,"q=":\Locate 4,5,Q
\Locate 2,6,"Turning Pt at (p,q)"
A>0\=>\Locate 2,7,"\and is a minimum"
A<0\=>\Locate 2,7,"\and is a maximum"
\Do:\LpWhile \Getkey\<>31
\ClrText
\Locate 1,1,"Fact\ored:"
1\->V:1\->Q:0\->P:0\->W:0\->N
A<0\=>1\->N
\Abs A\->A:A\->S
\Do
\Intg S\->I
S-I\->R
IV+P\->X
IW+Q\->Y
R\<>0\=>1/R\->S
V\->P:W\->Q:X\->V:Y\->W
\LpWhile \Abs (X/Y-A)>\EE\(-)10
N\=>\(-)X\->X
X\->A:YB\->B:YC\->C
1\->E
\For 2\->F \To \Abs A
\If A/F=\Int (A/F)\ And B/F=\Int (B/F)\ And C/F=\Int (C/F):\Then F\->E:\IfEnd
\Next 
A/E\->A:B/E\->B:C/E\->C
B\x^2-4AC\->D
0\->I~K
2\->R
\If D\>=0
\Then (B-\sqrtD)\ab/c(2A)\->G
(B+\sqrtD)\ab/c(2A)\->H
\Do:1+I\->I:\LpWhile IG\<>\Int (IG)\ And I<\Abs A
\If IG=\Int (IG)
\Then A\ab/cI\->F:FH\->H:GI\->G
\Locate 1,R,"\(-)"
1\->J
\If F<0\ And H\<=0:\Then \Isz J:\(-)F\->F:\(-)H\->H:\IfEnd
\If E>1:\Then \Locate J,R,E:\Intg \log \Abs E+1+J\->J:\IfEnd
\If G=0\ Or H=0:\Then \Locate J,R,"x":\Isz J:\IfEnd
\If G\<>0
\Then \Locate J,R,"("
\Isz J
\Locate J,R,I
I=1\=>\Dsz J
\Intg \log \Abs I+1+J\->J
\Locate J,R,"x+"
J+2\->J
G<0\=>\Dsz J
\Locate J,R,G
\Isz J
G\<>0\=>\Intg \log \Abs G+J\->J
G<0\=>\Isz J
\Locate J,R,")"
\Isz J
\IfEnd
\If H\<>0
\Then \Locate J,R,"("
\Isz J
\If F>0
\Then \Locate J,R,F
\Intg \log \Abs F+1+J\->J
F=1\=>\Dsz J
\Locate J,R,"x+"
J+2\->J
H<0\=>\Dsz J
\Locate J,R,H
H\<>0\=>\Intg \log \Abs H+J\->J
H<0\=>\Isz J
\Else \Locate J,R,H
\Isz J
H\<>0\=>\Intg \log \Abs H+J\->J
\Locate J,R,F
J+2\->J
\Intg \log \Abs F+J\->J
\Abs F=1\=>\Dsz J
\Locate J,R,"x"
\IfEnd
\Isz J
\Locate J,R,")"
\IfEnd
\If Y>1
\Then H\<>0\=>\Isz J
\Locate J,R,"\slash"
\Isz J
\Locate J,R,Y
\IfEnd
\Else 1\->K
\IfEnd
\Else 1\->K
\IfEnd
\If K=0
\Then \Locate 1,3,"Root"
\Locate 5,4,"x=":\Locate 7,4,\(-)G\ab/cI
\If G\ab/cI\<>H\ab/cF
\Then \Locate 5,3,"s"
\Locate 1,5,"\and x="
\Locate 7,5,\(-)H\ab/cF
\IfEnd
\Do:\LpWhile \Getkey\<>31
\IfEnd
\If K=1
\Then \Locate 1,1,"No fact\ors exist"
1\->E
\For 2\->F \To \Abs 2A
\If 2A/F=\Int (2A/F)\ And B/F=\Int (B/F)\ And D/F\x^2=\Int (D/F\x^2):\Then F\->E:\IfEnd
\Next 
A/E\->A:B/E\->B:D/E\x^2\->D
\If D\>=0
\Then \Locate 1,2,"Exact roots are"
\Locate 2,3,"x=(p+\sqrtq)/r"
\Locate 2,4,"x=(p-\sqrtq)/r"
\Locate 4,6,D
\Else \Locate 1,2,"Complex roots are"
\Locate 2,3,"x=(p+\{i}\sqrtq)/r"
\Locate 2,4,"x=(p-\{i}\sqrtq)/r"
\Locate 4,6,\(-)D
\IfEnd
\If A<0:\Then \(-)A\->A:\(-)B\->B:\IfEnd
\Locate 2,5,"p="
\Locate 4,5,\(-)B
\Locate 2,6,"q="
\Locate 2,7,"r="
\Locate 4,7,2A
\Do:\LpWhile \Getkey\<>31
\ClrText
\Locate 1,2,"(as decimals)"
\If D\>=0
\Then \Locate 1,1,"Roots"
\Locate 2,4,"x="
\Locate 4,4,(\(-)B-\sqrtD)/(2A)
\Locate 2,5,"x="
\Locate 4,5,(\(-)B+\sqrtD)/(2A)
\Else \Locate 1,1,"Complex roots"
\Locate 2,4,"x = a+b\{i}, a-b\{i}"
\Locate 2,6,"a=":\Locate 4,6,\(-)B/(2A)
\Locate 2,7,"b=":\Locate 4,7,(\sqrt\(-)D)/(2A)
\IfEnd
\Do:\LpWhile \Getkey\<>31
\IfEnd
\ClrText
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:754
File Name:RIGHTTRI
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\AxesOff
\GridOff
\LabelOff
\BG-None
\ClrGraph
\ViewWindow 1,127,0,63,1,0
\Deg
\Lbl S
\ClrText
" ":\Locate 1,1,"Known side?"
" ":\Locate 1,2,"1.Hypotenuse"
" ":\Locate 1,3,"2.Opposite"
" ":\Locate 1,4,"3.Adjacent"
" ":\Locate 1,5,"Choice:"
?\->M
M=1\=>\GotoH
M=2\=>\GotoO
M=3\=>\GotoA
\GotoS
\Lbl H
\Do:\ClrText
" ":\Locate 1,1,"Hyp="
?\->C
" ":\Locate 1,4,"Angle=":?\->D
\LpWhile D\<=0\ Or D\>=90
C\cos D\->B
C\sin D\->A
\GotoD
\Lbl O
\Do:\ClrText
" ":\Locate 1,1,"Opp="
?\->A
" ":\Locate 1,4,"Angle=":?\->D
\LpWhile D\<=0\ Or D\>=90
A/\tan D\->B
A/\sin D\->C
\GotoD
\Lbl A
\Do:\ClrText
" ":\Locate 1,1,"Adj="
?\->B
" ":\Locate 1,4,"Angle=":?\->D
\LpWhile D\<=0\ Or D\>=90
B\tan D\->A
B/\cos D\->C
\Lbl D
D\->E:52\->F:80\->G
\If D\<=45
\Then D<9\=>9\->E
F-\Int (50\tan E)\->E
\F-Line G-50,F,G,F
\F-Line G,F,G,E
\F-Line G,E,G-50,F
\Else D>81\=>81\->E
G-\Int (50/\tan E)\->E
\F-Line G,F,G,F-50
\F-Line G,F-50,E,F
\F-Line E,F,G,F
\IfEnd
\F-Line G-3,F,G-3,F-3
\F-Line G-3,F-3,G,F-3
\Green \Text 43,5,"Ang=":\Green \Text 43,23,D
\Norm:M\<>1\=>\Fix 3
\Orange \Text 21,14,"Hyp=":\Orange \Text 21,32,C
\Norm:M\<>2\=>\Fix 3
\Orange \Text 32,83,"Opp=":\Orange \Text 32,101,A
\Norm:M\<>3\=>\Fix 3
\Orange \Text 55,36,"Adj=":\Orange \Text 55,54,B
\Norm
\PxlOff 1,1

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2821
File Name:SAVOL
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\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.Rectangular"
\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.Right"
\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,"Rectangular 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.R\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.\Square"
" ":\Locate 1,3,"2.Rectangle"
" ":\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,"\Square"
" ":\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,"Rectangle"
" ":\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.Right"
" ":\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
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:913
File Name:SIMPLOTS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\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
\OrangeG 2
\(-)D\ab/cE\->D
F\ab/cE\->E
\Y 2\->Y
\Else \X-cType
"F"\->\X 2
\OrangeG 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 \Orange \Text 46,5,"X="
\Orange \Text 46,15,P
\Orange \Text 46,70,"Y="
\Orange \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

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:815
File Name:SURDSIMP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\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,"Simplified:"
\Locate 5,3,M
\If R\<>1
\Then 6+\Intg \log \Abs M\->L
\Abs M=1\=>\Dsz L
M<0\ And Z>0\=>\Isz L
\Locate L,3,"\sqrt"
\Isz L:\Locate L,3,R
\If \Abs Z\<>1
\Then L+1+\Intg \log \Abs R\->L
\Locate L,3,"\ab/c"
\Isz L:\Locate L,3,\Abs Z
\IfEnd
\IfEnd
\Locate 1,5,"Entire:"
\Locate 5,7,"\sqrt("
M<0\=>\Locate 4,7,"\(-)"
RM\x^2\->N
Z\x^2\->Z
\If N>Z:\Then N\->A:Z\->B:\Else N\->B:Z\->A:\IfEnd
\Do:A-B*\Int (A/B)\->C:B\->A:C\->B:\LpWhile C>0
N\ab/cA\->N:Z\ab/cA\->Z
\Locate 7,7,N
8+\Intg \log N\->L
\If Z\<>1
\Then \Locate L,7,"\ab/c"
\Isz L:\Locate L,7,Z
1+L+\Intg \log Z\->L
\IfEnd
\Locate L,7,")"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:101
File Name:TRAPRULE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"FIRST"?\->F
"LAST"?\->L
"WIDTH"?\->W
\Seq(\Y 1,X,F,L-W,W)\->\List 1
\Seq(\Y 1,X,F+W,L,W)\->\List 2
(\List 1+\List 2)*W/2\->\List 3
\Sum \List 3

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1863
File Name:TRISOLVE
Group Name:
Password:
Option1:NL
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