%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:198
File Name:DTF
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"Number:"?\->D
1\->V:1\->Q:0\->P:0\->W:0\->N
D<0\=>1\->N
\Abs D\->D:D\->S
\Do
\Intg S\->I
S-I\->R
IV+P\->T
IW+Q\->B
R\<>0\=>1/R\->S
V\->P:W\->Q:T\->V:B\->W
\LpWhile \Abs (T/B-D)>\EE\(-)10
N\=>\(-)T\->T
T\ab/cB\->F
\Abs (T/B-D)>0\=>T/B\Disp"Fraction:"
F\Disp"Top:"
T\Disp"Bottom:"
B\Disp\ClrText
"\Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:61
File Name:FACTORS
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"Number "?\->A
\For 1\->F \To A/2
\If \Int (A/F)=A/F
\Then F\Disp\IfEnd
\Next 
A\Disp"\Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:96
File Name:HCF
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"HCF of A,B"
"A"?\->A:"B"?\->B
\If B>A:\Then A\->C:B\->A:C\->B:\IfEnd
\Do:A-B*\Int (A/B)\->C:B\->A:C\->B:\LpWhile C>0
"HCF is"
A
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:135
File Name:LCM
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"LCM of A,B"
"A"?\->A:"B"?\->B
\If B>A:\Then A\->C:B\->A:C\->B:\IfEnd
0\->F
\For B\->M \To AB \Step B
\If \Int (M/A)=M/A:\Then M\->F:AB\->M:\IfEnd
\Next 
\If F>0:\Then F\->M:\Else AB\->M:\IfEnd
"LCM is"
M
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:652
File Name:NUMSEQS
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"1:Fib  2:Pri"
"3:Sqr  4:Tri"
"Choice:"?\->S
\If S=1
\Then \Do
\ClrText
"Fibonacci"
"1st N terms"
"N (5 - 50)"
?\->N
\LpWhile (N<5)+(N>50)
"wait..."
1\->A:1\->B
\Seq(1,X,1,N,1)\->\List 1
\For 3\->I \To N
A+B\->C
C\->\List 1[I]
B\->A:C\->B
\Next 
\IfEnd
\If S=2
\Then \Do
\ClrText
"Primes"
"2 \-> N"
"N (5 - 1613)"
?\->N
\LpWhile (N<5)+(N>1613)
"wait..."
\Seq(0,X,1,255,1)\->\List 2
3\->Q
2\->\List 2[1]
3\->\List 2[2]
5\->\List 2[3]
\For 7\->I \To N \Step 2
0\->J:1\->P
\Do
\Isz J
\List 2[J]\->A
\Frac (I/A)=0\=>0\->P
\LpWhile P*(A<\sqrtI)
\If P
\Then \Isz Q
I\->\List 2[Q]
\IfEnd
\Next 
\Seq(\List 2[X],X,1,Q,1)\->\List 1
{0}\->\List 2
\IfEnd
\If S=3
\Then \Do
\ClrText
"\Squares"
"1st \-> Nth"
"N (5 - 250)"
?\->N
\LpWhile (N<5)+(N>250)
"wait..."
\Seq(X\x^2,X,1,N,1)\->\List 1
\IfEnd
\If S=4
\Then \Do
\ClrText
"Triangle nos"
"1st \-> Nth"
"N (5 - 250)"
?\->N
\LpWhile (N<5)+(N>250)
"wait..."
\Seq(.5X(X+1),X,1,N,1)\->\List 1
\IfEnd
\List 1\Disp\ClrText
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:159
File Name:PRIME?
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Do
\ClrText
"Number "?\->N
\LpWhile (N<1)+(\Int N\<>N)
\For 2\->T \To \sqrtN
\If \Int (N/T)=N/T:\Then T\->F:N\->T:\IfEnd
\Next 
\If (N>2)(T=N)
\Then "Composite:"\Disp"Divisible by"\DispF
\Else \If N\<>1
\Then "Prime"
\Else "Composite"
\IfEnd
\IfEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:67
File Name:PRIMFACT
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"PrimeFact of"
?\->N
\For 2\->T \To N
\While \Int (N/T)=N/T
T\DispN/T\->N
\WhileEnd
\Next 
"\Done"
%End