%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:526
File Name:AMORTIZE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'AMORTIZATION'
"CALCULATE"
"(1) LOAN PAYMENT"
"(2) PRESENT VALUE"
"(3) FUTURE VALUE"
"(4) SINKING FUND"
"CHOICE="?\->C
"TERM (YEARS)="?\->T
"ANNUAL INTEREST"
"(PERCENT)="?\->R
"COMPOUNDED"
"(1) MONTHLY"
"(2) QUARTERLY"
"(3) SEMIANNUALLY"
"(4) ANNUALLY"
"CHOICE="?\->Q
Q=1\=>12\->K
Q=2\=>4\->K
Q=3\=>2\->K
Q=4\=>1\->K
KT\->N
R/(100K)\->I
(1+I)^N\->J
\If C=1
\Then "PRINCIPAL="?\->P
PI/(1-J\x^-1)\->M
\IfEnd
\If C=4
\Then "AMOUNT NEEDED="?\->A
AI/(J-1)\->M
\IfEnd
C=2\ Or C=3\=>"PAYMENT="?\->M
\If C=2
\Then M(1-J\x^-1)/I\->P
"PRESENT VALUE="
P
\Stop
\IfEnd
\If C=3
\Then M(J-1)/I\->F
"FUTURE VALUE="
F
\Stop
\IfEnd
"PAYMENT="
M
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:91
File Name:CMPLXPWR
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"POWER OF COMPLEX     NUMBER"
"NUMBER="?\->C
"POWER="?\->N
\Abs C\->\r
\Arg C/\Pi\->\theta
\r^N(\cos (N\theta\Pi)+\{i}\sin (N\theta\Pi))
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:135
File Name:CMPLXRT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"SOLUTIONS OF Z^N=C"
"C="?\->C
"N="?\->N
\Abs C\->\r
\Arg C\->\theta
\For 0\->K \To N-1
(\theta+2\PiK)/N\->T
\r^(N\x^-1)(\cos T+\{i}\sin T)\Disp\Next 
"ALL DISTINCT VALUES  HAVE BEEN DISPLAYED"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:293
File Name:DBLINT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"DOUBLE INTEGRAL"
"STORE \f6(X,Y) FIRST"
"1ST INTEGRAL IS FROM \f4 TO \f5"
"IS IT (1)DX OR (2)DY"?\->O
"2ND INTEGRAL IS FROM"?\->A
"TO"?\->B
"NUMBER OF INTERVALS  EACH WAY="?\->N
(B-A)/N\->D
0\->S
\For 0\->J \To N-1
O=1\=>A+(J+.5)D\->Y
O=2\=>A+(J+.5)D\->X
(\f5-\f4)/N\->C
\For 0\->K \To N-1
O=1\=>\f4+(K+.5)C\->X
O=2\=>\f4+(K+.5)C\->Y
S+\f6CD\->S
\Next 
\Next 
S
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:266
File Name:EULER
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"EULER'S METHOD       SOLUTION OF DE"
"STORE \d/dx(Y)=\f6(X,Y)FIRST"
"KNOWN POINT IS AT    (A,F(A))"
"A="?\->A
"F(A)="?\->F
(\Xmax-\Xmin)/126\->D
(A-\Xmin)/D\->N
\Frac N\>=.5\=>\Isz N
\Int N\->N
A\->P
F\->Q
\For 1\->J \To N-1
\Plot P,Q
P\->X
Q\->Y
\f6\->M
X-D\->P
Y-MD\->Q
\Next 
A\->P
F\->Q
\For 1\->J \To 125-N
\Plot P,Q
P\->X
Q\->Y
\f6\->M
X+D\->P
Y+MD\->Q
\Next 
\Green \Graph Y=0
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:169
File Name:FUNDTHM
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"FUNAMENTAL THEOREM   SOLUTION OF DE"
"STORE \d/dx(Y)=\f6(X)  FIRST"
"KNOWN POINT IS AT    (A,F(A))"
"A="?\->A
"F(A)="?\->F
(\Xmax-\Xmin)/126\->D
\For 1\->B \To 125
\Integral(\f6,A,\Xmin+BD)\->C
\Plot \Xmin+BD,C+F
\Next 
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:225
File Name:IMPGRAPH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"IMPLICIT GRAPH OF    \f6(X,Y)=0"
"STORE \f6(X,Y) FIRST"
(\Ymax-\Ymin)/62\->C
(\Xmax-\Xmin)/126\->D
\For 0\->J \To 31
\Ymin+2JC\->Y
\For 0\->K \To 15
\Xmin+(8K+3)D\->X
0\->I
\Do
X\->P
M\->Q
\d/dx(\f6,X)\->R
R=0\=>\Break
X-\f6/R\->X
\Isz I
\Abs (X-P)\->M
\If M<.1D
\Then \Plot X,Y
\Break
\IfEnd
I\>=3\ And M\>=Q\=>\Break
\LpWhile I>0
\Next 
\Next 
\Green \Graph Y=0
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:587
File Name:LINPROG
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"LINEAR PROGRAMMING"
"INITIAL TABLEAU IN   \Mat A"
\Dim \Mat A
\List \Ans[1]\->R
\List \Ans[2]\->C
\Mat A\->\Mat F
\Do
0\->P
\Trn \Mat F\->\Mat T
\For 1\->K \To C-1
\Mat F[R,K]<0\=>2\->P
\Next 
\For 1\->K \To R-1
\Mat F[K,C]<0\=>1\->P
\Next 
\If P=1
\Then \Mat->List\Mat F,C)\->\List 6
0\->\List 6[R]
\Min(\List 6)\->M
\For 1\->K \To R-1
M=\List 6[K]\=>K\->I
\Next 
\Mat->List\Mat T,I)\->\List 6
0\->\List 6[C]
\Min(\List 6)\->M
\If M<0
\Then \For 1\->K \To C-1
M=\List 6[K]\=>K\->J
\Next 
\Else 0\->P
\IfEnd
\IfEnd
\If P=2
\Then \Mat->List\Mat T,R)\->\List 6
0\->\List 6[C]
\Min(\List 6)\->M
\For 1\->K \To C-1
M=\List 6[K]\=>K\->J
\Next 
\Mat->List\Mat F,J)\->\List 6
0\->\List 6[R]
\For 1\->K \To R-1
\List 6[K]>0\=>\List 6[K]/\Mat F[K,C]\->\List 6[K]
\List 6[K]\<=0\=>0\->\List 6[K]
\Next 
\Max(\List 6)\->M
\If M>0
\Then \For 1\->K \To R-1
M=\List 6[K]\=>K\->I
\Next 
\Else 0\->P
\IfEnd
\IfEnd
\If P\<>0
\Then \*Row((1\ab/c(\Mat F[I,J])),F,I
\For 1\->K \To R
K\<>I\=>\*Row+((\(-)\Mat F[K,J]),F,I,K
\Next 
\IfEnd
\LpWhile P\<>0
\Mat F
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:179
File Name:PRIME
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"IS NUMBER PRIME?"
"NUMBER="?\->N
2\->K
\Frac (N/2)=0\=>\Goto0
\Int (\sqrtN)\->M
M<3\=>\Goto1
\Frac (M/2)=0\=>\Isz M
\For 3\->K \To M \Step 2
\Frac (N/K)=0\=>\Goto0
\Next 
\Goto1
\Lbl 0
"NUMBER IS COMPOSITE"
"IT IS DIVISIBLE BY"
K
\Stop
\Lbl 1
"NUMBER IS PRIME"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:327
File Name:PRIMFACT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"PRIME FACTOR NUMBER"
"NUMBER="?\->N
N\->Q
[[1][1]]\->\Mat E
\Mat E\->\Mat F
0\->J
\If \Frac (Q/2)=0
\Then \Isz J
2\->\Mat F[1,J]
Q/2\->Q
\IfEnd
\While \Frac (Q/2)=0
\Mat F[2,J]+1\->\Mat F[2,J]
Q/2\->Q
\WhileEnd
3\->D
\While Q>1
\Int (\sqrtQ+1)\->M
\Frac (M/2)=0\=>\Isz M
\For D\->K \To M \Step 2
\Frac (Q/K)=0\=>\Break
\Next 
K\>=M\ And \Frac (Q/K)\<>0\=>Q\->K
\Isz J
J>1\=>\Augment(\Mat F,\Mat E)\->\Mat F
K\->D
D\->\Mat F[1,J]
Q/D\->Q
\Do
\If \Frac (Q/D)=0
\Then \Mat F[2,J]+1\->\Mat F[2,J]
Q/D\->Q
\IfEnd
\LpWhile \Frac (Q/D)=0
\WhileEnd
\Trn \Mat F
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:291
File Name:RIEMANN
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"RIEMANN SUM"
"STORE \f6(X) FIRST"
"INTERVAL FROM X="?\->A
"TO X="?\->B
"NUMBER OF"
"SUBINTERVALS="?\->N
(B-A)/N\->D
"(1) LEFT ENDPOINT"
"(2) RIGHT ENDPOINT"
"(3) MIDPOINT"
"(4) TRAPEZOID"
"CHOICE="?\->C
0\->S
A\->X
C=2\=>X+D\->X
C=3\=>X+.5D\->X
\For 1\->K \To N
S+\f6D\->S
X+D\->X
\Next 
\If C=4
\Then A\->X
\f6\->E
B\->X
\f6\->F
S+(F-E)D/2\->S
\IfEnd
S
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:213
File Name:ROWREDA
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"ROW REDUCE MATRIX A"
\Dim \Mat A
\List \Ans[1]\->R
\List \Ans[2]\->C
\Mat A\->\Mat R
1\->I
\For 1\->J \To C
\For 1\->N \To R-I
\Mat R[I,J]=0\=>\Swap(R,I,I+N
\Next 
\If \Mat R[I,J]\<>0
\Then \*Row(1\ab/c\Mat R[I,J],R,I
\For 1\->K \To R
K\<>I\=>\*Row+(\(-)\Mat R[K,J],R,I,K
\Next 
\Isz I
\IfEnd
\If I=R+1
\Then \Mat R[R,J]=1\=>\Break
\Dsz I
\IfEnd
\Next 
\Mat R
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:212
File Name:SLOPEFLD
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"SLOPE FIELD"
"STORE \d/dx(Y)=\f6(X,Y)FIRST"
\Cls
(\Ymax-\Ymin)/62\->C
(\Xmax-\Xmin)/126\->D
\For 0\->J \To 15
\Xmin+(8J+3)D\->E
\For 0\->K \To 7
\Ymin+(8K+3)C\->F
E\->X
F\->Y
\f6\->G
2D\->H
\Abs G>C/D\=>2C/\Abs G\->H
\If 2H\>=D
\Then \Green \Graph Y=G(X-E)+F,[E-H,E+H]
\Else \Green \F-Line E,F+2C,E,F-2C
\IfEnd
\Next 
\Next 
\Green \Graph Y=0
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:438
File Name:TRIPLINT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"TRIPLE INTEGRAL"
"STORE \f6(X,Y,Z) FIRST"
"1ST INTEGRAL IS FROM \f4 TO \f5"
"IS IT (1)DX, (2)DY OR(3)DZ"?\->F
"2ND INTEGRAL IS FROM \f2 TO \f3"
"IS IT (1)DX, (2)DY OR(3)DZ"?\->S
F+S\->T
"3RD INTEGRAL IS FROM"?\->A
"TO"?\->B
"NUMBER OF INTERVALS  EACH WAY="?\->N
(B-A)/N\->D
0\->I
\For 0\->J \To N-1
A+(J+.5)D\->C
T=3\=>C\->Z
T=4\=>C\->Y
T=5\=>C\->X
(\f3-\f2)/N\->E
\For 0\->K \To N-1
\f2+(K+.5)E\->G
S=1\=>G\->X
S=2\=>G\->Y
S=3\=>G\->Z
(\f5-\f4)/N\->H
\For 0\->L \To N-1
\f4+(L+.5)H\->M
F=1\=>M\->X
F=2\=>M\->Y
F=3\=>M\->Z
I+\f6DEH\->I
\Next 
\Next 
\Next 
I
%End