%Header Record
Format:MCS1
Type Number:1
File Name:DTF
Option Name:
Communication SW:0
Capacity:273
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"\Decimal:"?\->D
1\->V:1\->Q:0\->P:0\->W:0\->N
\ClrText
\Locate 1,2,"D:"
\Locate 3,2,D
\If D<0:\Then 1\->N:\IfEnd
\Abs D\->D:D\->S
\Do
\Intg S\->I
S-I\->R
IV+P\->T
IW+Q\->B
\If R\<>0:\Then 1/R\->S:\IfEnd
V\->P:W\->Q:T\->V:B\->W
\LpWhile \Abs (T/B-D)>\EE\(-)10
\If N:\Then \(-)T\->T:\IfEnd
T\ab/cB\->F
\If \Abs (T/B-D)>0:\Then \Locate 3,3,T/B:\IfEnd
\Locate 1,4,"F:"
\Locate 3,4,F
\Locate 1,6,"T:"
\Locate 3,6,T
\Locate 1,7,"B:"
\Locate 3,7,B\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:FACTORS
Option Name:
Communication SW:0
Capacity:72
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"Fact\ors of "?\->A
\For 1\->F \To A/2
\If \Int (A/F)=A/F
\Then F\Disp\IfEnd
\Next 
A\Disp"\Done"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:HCF
Option Name:
Communication SW:0
Capacity:157
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
" ":" "
\Locate 1,1,"Highest common fact\or"
\Locate 1,2,"of A \and 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
\Locate 1,7,"HCF is":\Locate 8,7,A\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:LCM
Option Name:
Communication SW:0
Capacity:197
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
" ":" "
\Locate 1,1,"Lowest common multipl"
\Locate 1,2,"of A \and 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
\Locate 1,7,"LCM is":\Locate 8,7,M\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:NUMSEQS
Option Name:
Communication SW:0
Capacity:932
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText:" ":" ":" ":" ":" "
\Locate 1,1,"1.FIBONACCI"
\Locate 1,2,"2.PRIME"
\Locate 1,3,"3.SQUARE"
\Locate 1,4,"4.TRIANGLE"
\Locate 1,5,"Choice:":?\->S
\If S=1
\Then \Do
\ClrText
" ":\Locate 1,1,"FIBONACCI sequence"
" ":\Locate 1,2,"First N terms"
" ":\Locate 1,3,"N (5 - 50)"
?\->N
\LpWhile N<5\ Or N>50
\Locate 15,7,"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
" ":\Locate 1,1,"PRIME numbers"
" ":\Locate 1,2,"between 2 \and N"
" ":\Locate 1,3,"N (5 - 1613)"
?\->N
\LpWhile N<5\ Or N>1613
\Locate 1,6,"Calc time (s):"
\Locate 16,6,\Int (.046N^1.14)
\Locate 15,7,"wait..."
[[2,3,5]]\->\Mat A
\For 7\->I \To N \Step 2
0\->J:1\->P
\Do
\Isz J
\Mat A[1,J]\->A
\If \Frac (I/A)=0:\Then 0\->P:\IfEnd
\LpWhile P\ And A<\sqrtI
\If P:\Then \Augment(\Mat A,[[I]])\->\Mat A:\IfEnd
\Next 
\Trn \Mat A\->\Mat A
\Mat->List\Mat A,1)\->\List 1
\IfEnd
\If S=3
\Then \Do
\ClrText
" ":\Locate 1,1,"SQUARE numbers"
" ":\Locate 1,2,"From 1st to Nth"
" ":\Locate 1,3,"N (5 - 250)"
?\->N
\LpWhile N<5\ Or N>250
\Locate 15,7,"wait..."
\Seq(X\x^2,X,1,N,1)\->\List 1
\IfEnd
\If S=4
\Then \Do
\ClrText
" ":\Locate 1,1,"TRIANGLE numbers"
" ":\Locate 1,2,"from 1st to Nth"
" ":\Locate 1,3,"N (5 - 250)"
?\->N
\LpWhile N<5\ Or N>250
\Locate 15,7,"wait..."
\Seq(.5X(X+1),X,1,N,1)\->\List 1
\IfEnd
\List 1\Disp\ClrText\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:PRIME?
Option Name:
Communication SW:0
Capacity:203
Data Type:PG
%Data Record
Password:
BaseN:0
\Do
\ClrText
"Number "?\->N
\LpWhile N<1\ Or \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 \Locate 1,3,"Composite:"
\Locate 1,4,"Has fact\or of"
\Locate 15,4,F
\Else \If N\<>1
\Then \Locate 1,3,"Prime"
\Else \Locate 1,3,"Composite"
\IfEnd
\IfEnd
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:PRIMFACT
Option Name:
Communication SW:0
Capacity:78
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"Prime fact\ors of "?\->N
\For 2\->T \To N
\While \Int (N/T)=N/T
T\DispN/T\->N
\WhileEnd
\Next 
"\Done"\@00
%End