%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:484
File Name:AMORTIZE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"AMORTIZATION"
"CALCULATION"\Disp"1 LOAN PAYMT"
"2 PRESNT VAL"
"3 FUTURE VAL"
"4 SINK FUND"
"CHOICE"?\->C
"TERM (YRS)="?\->T
"APR="?\->R
\ClrText
"COMPOUNDED"\Disp"1 MONTHLY"
"2 QUARTERLY"
"3 SEMIANNUAL"
"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
\If C=2
\Then "PAYMENT="?\->M
M(1-J\x^-1)/I\->P
"PRESENT VALUE="
P
\Stop
\IfEnd
\If C=3
\Then "PAYMENT="?\->M
M(J-1)/I\->F
"FUTURE VALUE="
F
\Stop
\IfEnd
"PAYMENT="
M
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:153
File Name:PRIME
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"IS N PRIME?"
"N="?\->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
"N COMPOSITE"
"DIVISIBLE BY"
K
\Stop
\Lbl 1
"N IS PRIME"
%End