%Header Record
Format:MCS1
Type Number:1
File Name:2BY2DET
Option Name:
Communication SW:0
Capacity:248
Data Type:PG
%Data Record
Password:
BaseN:0
"Finds the determinant of a 2x2 system of"
"linear equations"
"of the general f\orm:"\Disp\Lbl 2
"AX+BY=C
DX+EY=F
"
"INPUT A"?\->A
"INPUT B"?\->B
"INPUT C"?\->C
"INPUT D"?\->D
"INPUT E"?\->E
"INPUT F"?\->F
((A*E)-(B*D))\->P
"THE DETERMINANT OF THE SYSTEM IS":P\Disp\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:360DAY
Option Name:
Communication SW:0
Capacity:221
Data Type:PG
%Data Record
Password:
BaseN:0
T\->J
\Prog "CALDAY"
Y\->X
M\->W
D\->Q
S\->J
\Prog "CALDAY"
\If (W=2)\ And (Q\>=28)
\Then 30\->Q
\IfEnd
\If D>30
\Then 30\->D
\IfEnd
\If Q>30
\Then 31\->Q
\IfEnd
\If (Q>30)\ And (D=30)
\Then 30\->Q
\IfEnd
(X-Y)*360+(W-M)*30+(Q-D)\->E
(360/V)\->K
\Int (E/K)\->N
E-N*K\->B
\If B=0
\Then K\->B
\Else N+1\->N
\IfEnd
K-B\->A
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:3BY3DET
Option Name:
Communication SW:0
Capacity:395
Data Type:PG
%Data Record
Password:
BaseN:0
"Finds the determinant of a 3x3 system of"
"linear equations"
"of the general f\orm:"\Disp\Lbl 2
"AX+BY+CZ=D
 EX+FY+GZ=H
 IX+JY+KZ=L
------------"
"INPUT A"?\->A
"INPUT B"?\->B
"INPUT C"?\->C
"INPUT D"?\->D
"INPUT E"?\->E
"INPUT F"?\->F
"INPUT G"?\->G
"INPUT H"?\->H
"INPUT I"?\->I
"INPUT J"?\->J
"INPUT K"?\->K
"INPUT L"?\->L
((A*F*K)+(B*G*I)+(C*E*J))-((I*F*C)+(J*G*A)+(K*E*B))\->P
"THE DETERMINANT OF THE SYSTEM IS":P\Disp\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:3BY3SYS
Option Name:
Communication SW:0
Capacity:616
Data Type:PG
%Data Record
Password:
BaseN:0
"Solves a 3x3 system of"
"linear equations"
"of the general f\orm:"\Disp\Lbl 2
" AX+BY+CZ=D
 EX+FY+GZ=H
 IX+JY+KZ=L
------------"
"INPUT A"?\->A
"INPUT B"?\->B
"INPUT C"?\->C
"INPUT D"?\->D
"INPUT E"?\->E
"INPUT F"?\->F
"INPUT G"?\->G
"INPUT H"?\->H
"INPUT I"?\->I
"INPUT J"?\->J
"INPUT K"?\->K
"INPUT L"?\->L
((A*F*K)+(B*G*I)+(C*E*J))-((I*F*C)+(J*G*A)+(K*E*B))\->P
((D*F*K)+(B*G*L)+(C*H*J))-((L*F*C)+(J*G*D)+(K*H*B))\->Q
((A*H*K)+(D*G*I)+(C*E*L))-((I*H*C)+(L*G*A)+(K*E*D))\->R
((A*F*L)+(B*H*I)+(D*E*J))-((I*F*D)+(J*H*A)+(L*E*B))\->S
\If P\<>0
\Then Q/P\->X
\Goto3
\Else "THERE IS NO UNIQUE SOLUTION TO THIS SYSTEM"\Disp\ClrText
\Goto2
\Lbl 3
R/P\->Y
S/P\->Z
"X=":X\Disp"Y=":Y\Disp"Z=":Z\Disp\ClrText
\Goto2

\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:ACTDAY
Option Name:
Communication SW:0
Capacity:131
Data Type:PG
%Data Record
Password:
BaseN:0
T-S\->E
T\->J
\Prog "CALDAY"
0\->N
\While J>S
N+1\->N
J-S\->B
\If V=1
\Then Y-1\->Y
\Else M-6\->M
\IfEnd
\If M<1
\Then M+12\->M
Y-1\->Y
\IfEnd
J\->K
\Prog "JULIAN"
K-J\->K
\WhileEnd
S-J\->A
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:AMORTIZE
Option Name:
Communication SW:0
Capacity:534
Data Type:PG
%Data Record
Password:
BaseN:0
'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\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:BASECNV
Option Name:
Communication SW:0
Capacity:1791
Data Type:PG
%Data Record
Password:
BaseN:0
"BASE CONVERSION"
"2\<=BASE\<=36"
\Lbl 0
"BASE OF INPUT="?\->\r
\r<2\ Or \r>36\ Or \Int \r\<>\r\=>\Goto0
\Lbl 1
"BASE OF OUTPUT="?\->\theta
\theta<2\ Or \theta>36\ Or \Int \theta\<>\theta\=>\Goto1
\Lbl 2
10\->A:11\->B:12\->C:13\->D:14\->E:15\->F:16\->G:17\->H:18\->I:19\->J:20\->K:21\->L:22\->M:23\->N:24\->O:25\->P:26\->Q:27\->R:28\->S:29\->T:30\->U:31\->V:32\->W:33\->X:34\->Y:35\->Z
"ENTER VALUE IN {}"
"WITH , BETWEEN DIGITS"
"INPUT VALUE="?\->\List 6
\Dim \List 6\->L
\For 1\->N \To L
\List 6[N]\>=\r\=>\Goto2
\Next 
0\->I
\For 0\->N \To L-1
I+\List 6[L-N]*\r^N\->I
\Next 
\Lbl 4
0\->M
\While I\>=\theta^M
\Isz M
\WhileEnd
M\->\Dim \List 5
I\->O
\For 0\->N \To M-1
O-\theta\Int (O/\theta)\->\List 5[M-N]
\Int (O/\theta)\->O
\Next 
\ClrText
\For 1\->N \To L
\List 6[N]\<=9\=>\Locate N,2,\List 6[N]
\List 6[N]=10\=>\Locate N,2,"A"
\List 6[N]=11\=>\Locate N,2,"B"
\List 6[N]=12\=>\Locate N,2,"C"
\List 6[N]=13\=>\Locate N,2,"D"
\List 6[N]=14\=>\Locate N,2,"E"
\List 6[N]=15\=>\Locate N,2,"F"
\List 6[N]=16\=>\Locate N,2,"G"
\List 6[N]=17\=>\Locate N,2,"H"
\List 6[N]=18\=>\Locate N,2,"I"
\List 6[N]=19\=>\Locate N,2,"J"
\List 6[N]=20\=>\Locate N,2,"K"
\List 6[N]=21\=>\Locate N,2,"L"
\List 6[N]=22\=>\Locate N,2,"M"
\List 6[N]=23\=>\Locate N,2,"N"
\List 6[N]=24\=>\Locate N,2,"O"
\List 6[N]=25\=>\Locate N,2,"P"
\List 6[N]=26\=>\Locate N,2,"Q"
\List 6[N]=27\=>\Locate N,2,"R"
\List 6[N]=28\=>\Locate N,2,"S"
\List 6[N]=29\=>\Locate N,2,"T"
\List 6[N]=30\=>\Locate N,2,"U"
\List 6[N]=31\=>\Locate N,2,"V"
\List 6[N]=32\=>\Locate N,2,"W"
\List 6[N]=33\=>\Locate N,2,"X"
\List 6[N]=34\=>\Locate N,2,"Y"
\List 6[N]=35\=>\Locate N,2,"Z"
\Next 
\Locate 1,3,"BASE"
\Locate 6,3,\r
\Locate 1,4,"IS"
\For 1\->N \To M
\List 5[N]\<=9\=>\Locate N,5,\List 5[N]
\List 5[N]=10\=>\Locate N,5,"A"
\List 5[N]=11\=>\Locate N,5,"B"
\List 5[N]=12\=>\Locate N,5,"C"
\List 5[N]=13\=>\Locate N,5,"D"
\List 5[N]=14\=>\Locate N,5,"E"
\List 5[N]=15\=>\Locate N,5,"F"
\List 5[N]=16\=>\Locate N,5,"G"
\List 5[N]=17\=>\Locate N,5,"H"
\List 5[N]=18\=>\Locate N,5,"I"
\List 5[N]=19\=>\Locate N,5,"J"
\List 5[N]=20\=>\Locate N,5,"K"
\List 5[N]=21\=>\Locate N,5,"L"
\List 5[N]=22\=>\Locate N,5,"M"
\List 5[N]=23\=>\Locate N,5,"N"
\List 5[N]=24\=>\Locate N,5,"O"
\List 5[N]=25\=>\Locate N,5,"P"
\List 5[N]=26\=>\Locate N,5,"Q"
\List 5[N]=27\=>\Locate N,5,"R"
\List 5[N]=28\=>\Locate N,5,"S"
\List 5[N]=29\=>\Locate N,5,"T"
\List 5[N]=30\=>\Locate N,5,"U"
\List 5[N]=31\=>\Locate N,5,"V"
\List 5[N]=32\=>\Locate N,5,"W"
\List 5[N]=33\=>\Locate N,5,"X"
\List 5[N]=34\=>\Locate N,5,"Y"
\List 5[N]=35\=>\Locate N,5,"Z"
\Next 
\Locate 1,6,"BASE"
\Locate 6,6,\theta\Disp\ClrText
"(1)CHANGE TO ANOTHER BASE"
"(2)CHANGE NEW VALUE"
"(3)START OVER"
"(4)DONE"
"CHOICE="?\->C
\If C=1
\Then \Lbl 3
"BASE OF OUTPUT="?\->\theta
\theta<2\ Or \theta>36\ Or \Int \theta\<>\theta\=>\Goto3
\Goto4
\IfEnd
C=2\=>\Goto2
C=3\=>\Goto0\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:BONDCALC
Option Name:
Communication SW:0
Capacity:127
Data Type:PG
%Data Record
Password:
BaseN:0
\If U
\Then \Prog "360DAY"
\Else \Prog "ACTDAY"
\IfEnd
\If (N=1)
\Then \If Z=1
\Then \Prog "PRCSHRT"
\Else \Prog "YLDSHRT"
\IfEnd
\Else \If Z=1
\Then \Prog "PRCLONG"
\Else \Prog "YLDLONG"
\IfEnd
\IfEnd
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:BONDCHNG
Option Name:
Communication SW:0
Capacity:701
Data Type:PG
%Data Record
Password:
BaseN:0
\Lbl 0
\ClrText
\Prog "BONDDISP"\Disp\ClrText
" "
\Locate 1,1,"SELECT VAR TO CHANGE"
"0 DAY COUNT BASIS"
"1 COUPON PERIODS\slashYR."
"2 D1  3 D2  4 RDV"
"5 CPN 6 PRC 7 YLD"
"8 RESET   9 DONE"?\->Z
\ClrText
\If Z=0
\Then "DAY COUNT BASIS"
"  0 ACTUAL"
"  1 30\slash360"
?\->U
\Else \If Z=1
\Then "COUPON PERIODS\slashYR."
"  1 ANNUAL"
"  2 SEMI-ANNUAL"
?\->V
\Else \If Z=2
\Then "D1"
"M"?\->M
"D"?\->D
"Y (4 DIGITS)"?\->Y
\Prog "JULIAN"
J\->S
\Else \If Z=3
\Then "D2"
"M"?\->M
"D"?\->D
"Y (4 DIGITS)"?\->Y
\Prog "JULIAN"
J\->T
\Else \If Z=4
\Then "REDEMPTION VALUE"
"RDV"?\->R
\Else \If Z=5
\Then "COUPON RATE"
" (1 PERCENT = 1.0)"
"CPN"?\->C
\Else \If Z=6
\Then "PRICE"
"PRC"?\->P
\Else \If Z=7
\Then "YIELD"
" (1 PERCENT = 1.0)"
"YLD"?\->L
\Else \If Z=8
\Then 0\->U
1\->V
1\->M
1\->D
1901\->Y
\Prog "JULIAN"
J\->S
J\->T
100\->R
0\->C
0\->P
0\->L
\Else \If Z=9
\Then \Goto9
\IfEnd:\IfEnd:\IfEnd
\IfEnd:\IfEnd:\IfEnd
\IfEnd:\IfEnd:\IfEnd
\IfEnd
\Goto0
\Lbl 9\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:BONDDISP
Option Name:
Communication SW:0
Capacity:585
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
\If U\<>0\ And U\<>1
\Then 0\->U
\IfEnd
\If V\<>1\ And V\<>2
\Then 1\->V
\IfEnd
"\asterBOND\aster"
\If U=0
\Then " ACTUAL"
\Else " 30\slash360"
\IfEnd
\If V=1
\Then \Locate 15,2,"ANNU"
\Else \Locate 15,2,"SEMI"
\IfEnd
S\->J
\Prog "CALDAY"
" D1:"
\If M<10
\Then \Locate 5,3,"0"
\Locate 6,3,M
\Else \Locate 5,3,M
\IfEnd
\Locate 7,3,"M"
\If D<10
\Then \Locate 8,3,0
\Locate 9,3,D
\Else \Locate 8,3,D
\IfEnd
\Locate 10,3,"D"
\Locate 11,3,Y
\Locate 15,3,"Y"
T\->J
\Prog "CALDAY"
" D2:"
\If M<10
\Then \Locate 5,4,0
\Locate 6,4,M
\Else \Locate 5,4,M
\IfEnd
\Locate 7,4,"M"
\If D<10
\Then \Locate 8,4,0
\Locate 9,4,D
\Else \Locate 8,4,D
\IfEnd
\Locate 10,4,"D"
\Locate 11,4,Y
\Locate 15,4,"Y"
"R:"
\Int (R*1000)/1000\->R
\Locate 3,5,R
\Locate 10,5," C:"
\Int (C*1000+.5)/1000\->C
\Locate 13,5,C
"P:"
\Int (P*1000000+.5)/1000000\->P
\Int (1000*P)/1000\->X
\Locate 3,6,X
\Locate 10,6," Y:"
\Int (1000*L+.5)/1000\->L
\Locate 13,6,L
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:BONDMAIN
Option Name:
Communication SW:0
Capacity:70
Data Type:PG
%Data Record
Password:
BaseN:0
\Prog "BONDCHNG"
\Prog "BONDSOLV"
\Prog "BONDCALC"
\Prog "BONDDISP"\Disp\Prog "BONDMORE"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:BONDMORE
Option Name:
Communication SW:0
Capacity:290
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
\Locate 1,1,"PRICE"
\If P\>=100
\Then \Locate 12,2,P
\Else \If P\>=10
\Then \Locate 13,2,P
\Else \Locate 14,2,P
\IfEnd
\IfEnd
\Locate 1,3,"ACCRUED INTEREST"
\Int (I*1000000+.5)/1000000\->I
\If I\>=100
\Then \Locate 12,4,I
\Else \If I\>=10
\Then \Locate 13,4,I
\Else \Locate 14,4,I
\IfEnd
\IfEnd
\Locate 1,5,"TOTAL COST"
\Int ((P+I)*1000+.5)/1000\->X
\If X\>=100
\Then \Locate 12,6,X
\Else \If X\>=10
\Then \Locate 13,6,X
\Else \Locate 14,6,X
\IfEnd
\IfEnd
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:BONDSOLV
Option Name:
Communication SW:0
Capacity:44
Data Type:PG
%Data Record
Password:
BaseN:0
"SOLVE FOR"
" 1 PRC"
" 2 YLD"
?\->Z\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:CALDAY
Option Name:
Communication SW:0
Capacity:249
Data Type:PG
%Data Record
Password:
BaseN:0
J-2415020\->D
\If D>\(-)115860
\Then \Intg ((D/36524.25)+0.99835726)+14\->H
D+1+H-\Intg (H/4)\->D
\IfEnd
\Intg ((D/365.25)+0.802601)\->F
D-\Intg ((365.25*F)+0.750001)+416\->H
\Intg (H/30.6001)\->G
G-1\->M
H-\Intg (30.6001*G)\->D
F+1899\->Y
\If G>13.5
\Then G-13\->M
\IfEnd
\If M<2.5
\Then F+1900\->Y
\IfEnd
\If Y<1
\Then Y-1\->Y
\IfEnd\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:CMPLXPWR
Option Name:
Communication SW:0
Capacity:99
Data Type:PG
%Data Record
Password:
BaseN:0
"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))\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:CMPLXRT
Option Name:
Communication SW:0
Capacity:143
Data Type:PG
%Data Record
Password:
BaseN:0
"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"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:CMPLXSYS
Option Name:
Communication SW:0
Capacity:337
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"SOLVE SYSTEM OF"
"EQUATIONS OVER"
"COMPLEX NUMBERS"\Disp"(1) 2 EQUATIONS,"
"    2 VARIABLES"
"(2) 3 EQUATIONS,"
"    3 VARIABLES"
"(3) 4 EQUATIONS,"
"    4 VARIABLES":?\->\theta
\theta=1\=>\Prog "CPLXSYS2"
\theta=2\=>\Prog "CPLXSYS3"
\theta=3\=>\Prog "CPLXSYS4"
\ClrText
\If \r=0
\Then \Locate 2,4,"NO UNIQUE SOLUTION"
\Else "SOLUTION IS"
"X="
X\Disp"Y="
Y\Disp\theta\>=2\=>"Z="
\theta\>=2\=>Z\Disp\theta=3\=>"W="
\theta=3\=>W\Disp"DONE"
\IfEnd\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:CONICS
Option Name:
Communication SW:0
Capacity:3563
Data Type:PG
%Data Record
Password:
BaseN:0
\Lbl 1
\ClrText
"ANALYZE"
"(1)AX\x^2+CY\x^2+DX+EY+F=0"
"(2)Y=AX\x^2+BX+C"
"(3)X=AY\x^2+BY+C"
"CHOICE="?\->G
\ClrText
\If G=1
\Then "AX\x^2+CY\x^2+DX+EY+F=0"
"A="?\->A
0\->B
"C="?\->C
"D="?\->D
"E="?\->E
"F="?\->F
\IfEnd
\If G=2
\Then "Y=AX\x^2+BX+C"
"A="?\->A
0\->B
0\->C
"B="?\->D
-1\->E
"C="?\->F
\IfEnd
\If G=3
\Then "X=AY\x^2+BY+C"
0\->A
0\->B
"A="?\->C
-1\->D
"B="?\->E
"C="?\->F
\IfEnd
A=0\ And C=0\ And D=0\ And E=0\=>\Goto1
\If A=0\ And C=0
\Then \ClrText
\Locate 1,1,"DEGENERATE CONIC"
\Locate 1,2,"ONE LINE"
\If E\<>0
\Then -D/E\->S
1\->J
\While \Abs (\Int (JS)-JS)>1\EE-6
\Isz J
\WhileEnd
JS\->S
\Locate 1,3,"Y=("
4\->L
J\<=1\=>\Dsz L
S\<>0\=>\Locate L,3,S
S\<>0\=>L+\Int (\log (\Abs S))+(S<0)+1\->L
\If J>1
\Then \Locate L,3,"\slash"
\Locate L+1,3,J
L+\Int (\log J)+2\->L
\Locate L,3,")"
\Isz L
\IfEnd
S\<>0\=>\Locate L,3,"X+"
F>0\=>\Locate L+1,3,"-"
\Locate L+2,3,F
\Else -F/D\->S
1\->J
\While \Abs (\Int (JS)-JS)>1\EE-6
\Isz J
\WhileEnd
JS\->S
\Locate 1,3,"X="
\Locate 3,3,S
S\<>0\=>\Int (\log (\Abs S))+(S<0)+4\->L
\If J>1
\Then \Locate L,3,"\slash"
\Locate L+1,3,J
\IfEnd
\IfEnd
\Goto0
\IfEnd
B\x^2-4AC\->T
\If T=0
\Then \If C=0
\Then -D/(2A)\->H
-(AH\x^2+DH+F)/E\->K
-E/(4A)\->P
\Else -E/(2C)\->K
-(CK\x^2+EK+F)/D\->H
-D/(4C)\->P
\IfEnd
\ClrText
\Locate 1,1,"PARABOLA OPENS "
C=0\ And P>0\=>\Locate 16,1,"UP"
C=0\ And P<0\=>\Locate 16,1,"DOWN"
A=0\ And P>0\=>\Locate 16,1,"RIGHT"
A=0\ And P<0\=>\Locate 16,1,"LEFT"
\Locate 1,2,"VERTEX: ("
1\->I
\While \Abs (\Int (IH)-IH)>1\EE-6
\Isz I
\WhileEnd
IH\->R
\Locate 10,2,R
R\<>0\=>\Int (\log (\Abs R))+(R<0)+11\->L
R=0\=>11\->L
\If I>1
\Then \Locate L,2,"\slash"
\Locate L+1,2,I
L+\Int (\log I)+2\->L
\IfEnd
\Locate L,2,","
1\->J
\While \Abs (\Int (JK)-JK)>1\EE-6
\Isz J
\WhileEnd
JK\->S
\Locate L+1,2,S
S\<>0\=>L+\Int (\log (\Abs S))+(S<0)+2\->L
S=0\=>L+2\->L
\If J>1
\Then \Locate L,2,"\slash"
\Locate L+1,2,J
L+\Int (\log J)+2\->L
\IfEnd
\Locate L,2,")"
\Locate 1,3,"AXIS: "
C=0\=>\Locate 7,3,"X="
C=0\=>\Locate 9,3,H
A=0\=>\Locate 7,3,"Y="
A=0\=>\Locate 9,3,K
\Locate 1,4,"FOCUS: ("
A=0\=>H+P\->N
C=0\=>K+P\->N
1\->O
\While \Abs (\Int (ON)-ON)>1\EE-6
\Isz O
\WhileEnd
ON\->N
9\->L
C=0\=>\Locate L,4,R
A=0\=>\Locate L,4,N
C=0\ And R\<>0\=>L+\Int (\log (\Abs R))+(R<0)\->L
A=0\ And N\<>0\=>L+\Int (\log (\Abs N))+(N<0)\->L
\Isz L
\If (C=0\ And I>1)\ Or (A=0\ And O>1)
\Then \Locate L,4,"\slash"
C=0\=>\Locate L+1,4,I
A=0\=>\Locate L+1,4,O
C=0\=>L+\Int (\log I)+2\->L
A=0\=>L+\Int (\log O)+2\->L
\IfEnd
\Locate L,4,","
\Isz L
C=0\=>\Locate L,4,N
A=0\=>\Locate L,4,S
C=0\ And N\<>0\=>L+\Int (\log (\Abs N))+(N<0)\->L
A=0\ And S\<>0\=>L+\Int (\log (\Abs S))+(S<0)\->L
\Isz L
\If (C=0\ And O>1)\ Or (A=0\ And J>1)
\Then \Locate L,4,"\slash"
C=0\=>\Locate L+1,4,O
A=0\=>\Locate L+1,4,J
C=0\=>L+\Int (\log O)+2\->L
A=0\=>L+\Int (\log J)+2\->L
\IfEnd
\Locate L,4,")"
\Locate 1,5,"DIRECTRIX: "
C=0\=>\Locate 12,5,"Y="
A=0\=>\Locate 12,5,"X="
C=0\=>\Locate 14,5,K-P
A=0\=>\Locate 14,5,H-P
\Goto0
\IfEnd
-D/(2A)\->H
1\->I
\While \Abs (\Int (IH)-IH)>1\EE-6
\Isz I
\WhileEnd
IH\->R
-E/(2C)\->K
1\->J
\While \Abs (\Int (JK)-JK)>1\EE-6
\Isz J
\WhileEnd
JK\->S
AH\x^2+CK\x^2-F\->M
\If M=0
\Then \ClrText
\Locate 1,1,"DEGENERATE CONIC"
\If AC>0
\Then \Locate 1,2,"POINT"
\Locate 1,3,"X="
\Locate 3,3,H
\Locate 1,4,"Y="
\Locate 3,4,K
\IfEnd
\If AC<0
\Then \Locate 1,2,"INTERSECTING LINES"
\Locate 1,3,"Y=(+\slash-) "
\Locate 9,3,\sqrt(-A/C)
\If H=0
\Then \Locate 9,4,"X"
10\->L
\Else \Locate 9,4,"(X-"
H<0\=>\Locate 11,4,"+"
12\->L
\IfEnd
\If R\<>0
\Then \Locate L,4,\Abs R
L+\Int (\log (\Abs R))+1\->L
\IfEnd
\If I>1
\Then \Locate L,4,"\slash"
\Locate L+1,4,I
L+\Int (\log I)+2\->L
\IfEnd
R\<>0\=>\Locate L,4,")"
\If K\<>0
\Then \Locate 9,5,"+"
K<0\=>\Locate 9,5,"-"
\Locate 10,5,\Abs S
\IfEnd
\If J>1
\Then \Int (\log (\Abs S))+11\->L
\Locate L,5,"\slash"
\Locate L+1,5,J
\IfEnd
\Goto0
\IfEnd
\If AC>0\ And AM<0
\Then \Locate 1,3,"NO SOLUTION"
\IfEnd
\Goto0
\IfEnd
M/A\->X
M/C\->Y
\If T<0
\Then \ClrText
\If X=Y
\Then \Locate 1,1,"CIRCLE"
\Locate 1,2,"CENTER: ("
\Locate 10,2,R
R\<>0\=>\Int (\log (\Abs R))+(R<0)+11\->L
R=0\=>11\->L
\If I>1
\Then \Locate L,2,"\slash"
\Locate L+1,2,I
L+\Int (\log I)+2\->L
\IfEnd
\Locate L,2,","
\Locate L+1,2,S
S\<>0\=>L+\Int (\log (\Abs S))+(S<0)+2\->L
S=0\=>L+2\->L
\If J>1
\Then \Locate L,2,"\slash"
\Locate L+1,2,J
L+\Int (\log J)+2\->L
\IfEnd
\Locate L,2,")"
\Locate 1,3,"RADIUS="
\Locate 8,3,\sqrtX
\Else \Locate 1,1,"ELLIPSE"
\Locate 1,2,"MAJOR AXIS "
X>Y\=>\Locate 12,2,"HORIZONTAL"
Y>X\=>\Locate 12,2,"VERTICAL"
\Locate 1,3,"CENTER: ("
\Locate 10,3,R
R\<>0\=>\Int (\log (\Abs R))+(R<0)+11\->L
R=0\=>11\->L
\If I>1
\Then \Locate L,3,"\slash"
\Locate L+1,3,I
L+\Int (\log I)+2\->L
\IfEnd
\Locate L,3,","
\Locate L+1,3,S
S\<>0\=>L+\Int (\log (\Abs S))+(S<0)+2\->L
S=0\=>L+2\->L
\If J>1
\Then \Locate L,3,"\slash"
\Locate L+1,3,J
L+\Int (\log J)+2\->L
\IfEnd
\Locate L,3,")"
\Locate 1,4,"SEMI-MJR AXIS="
\Locate 1,5,"SEMI-MNR AXIS="
\If X>Y
\Then \Locate 15,4,\sqrtX
\Locate 15,5,\sqrtY
\Else \Locate 15,4,\sqrtY
\Locate 15,5,\sqrtX
\IfEnd
\Locate 1,6,"CNTR TO FOCUS="
\Locate 15,6,\sqrt\Abs (X-Y)
\IfEnd
\Goto0
\IfEnd
\If T>0
\Then \ClrText
\Locate 1,1,"HYPERBOLA"
\Locate 1,2,"T-VRS AXIS "
X>0\=>\Locate 12,2,"HORIZONTAL"
Y>0\=>\Locate 12,2,"VERTICAL"
\Locate 1,3,"CENTER: ("
\Locate 10,3,R
R\<>0\=>\Int (\log (\Abs R))+(R<0)+11\->L
R=0\=>11\->L
\If I>1
\Then \Locate L,3,"\slash"
\Locate L+1,3,I
L+\Int (\log I)+2\->L
\IfEnd
\Locate L,3,","
\Locate L+1,3,S
S\<>0\=>L+\Int (\log (\Abs S))+(S<0)+2\->L
S=0\=>L+2\->L
\If J>1
\Then \Locate L,3,"\slash"
\Locate L+1,3,J
L+\Int (\log J)+2\->L
\IfEnd
\Locate L,3,")"
\Locate 1,4,"CNTR TO VERTEX="
X>0\=>\Locate 16,4,\sqrtX
Y>0\=>\Locate 16,4,\sqrtY
\Locate 1,5,"CNTR-IM VERTEX="
X>0\=>\Locate 16,5,\sqrt\Abs Y
Y>0\=>\Locate 16,5,\sqrt\Abs X
\Locate 1,6,"CNTR TO FOCUS="
\Locate 15,6,\sqrt\Abs (X-Y)
\IfEnd
\Lbl 0\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:CPLXSYS2
Option Name:
Communication SW:0
Capacity:157
Data Type:PG
%Data Record
Password:
BaseN:0
"IN EQUATION 1,"
"AX+BY=C,"
"A="?\->A
"B="?\->B
"C="?\->C
"IN EQUATION 2,"
"DX+EY=F,"
"D="?\->D
"E="?\->E
"F="?\->F
AE-BD\->\r
\If \r\<>0
\Then (CE-BF)/\r\->X
(AF-CD)/\r\->Y
\IfEnd\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:CPLXSYS3
Option Name:
Communication SW:0
Capacity:338
Data Type:PG
%Data Record
Password:
BaseN:0
"IN EQUATION 1,"
"AX+BY+CZ=D,"
"A="?\->A
"B="?\->B
"C="?\->C
"D="?\->D
"IN EQUATION 2,"
"EX+FY+GZ=H,"
"E="?\->E
"F="?\->F
"G="?\->G
"H="?\->H
"IN EQUATION 3,"
"IX+JY+KZ=L,"
"I="?\->I
"J="?\->J
"K="?\->K
"L="?\->L
A(FK-GJ)-E(BK-CJ)+I(BG-CF)\->\r
\If \r\<>0
\Then (D(FK-GJ)-H(BK-CJ)+L(BG-CF))/\r\->X
(A(HK-GL)-E(DK-CL)+I(DG-CH))/\r\->Y
(A(FL-HJ)-E(BL-DJ)+I(BH-DF))/\r\->Z
\IfEnd\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:CPLXSYS4
Option Name:
Communication SW:0
Capacity:951
Data Type:PG
%Data Record
Password:
BaseN:0
"IN EQUATION 1,"
"AX+BY+CZ+DW=E,"
"A="?\->A
"B="?\->B
"C="?\->C
"D="?\->D
"E="?\->E
"IN EQUATION 2,"
"FX+GY+HZ+IW=J,"
"F="?\->F
"G="?\->G
"H="?\->H
"I="?\->I
"J="?\->J
"IN EQUATION 3,"
"KX+LY+MZ+NW=O,"
"K="?\->K
"L="?\->L
"M="?\->M
"N="?\->N
"O="?\->O
"IN EQUATION 4,"
"PX+QY+RZ+SW=T,"
"P="?\->P
"Q="?\->Q
"R="?\->R
"S="?\->S
"T="?\->T
AGMS-AGNR-ALHS+ALIR+AQHN-AQIM-FBMS+FBNR+FLCS-FLDR-FQCN+FQDM+KBHS-KBIR-KGCS+KGDR+KQCI-KQDH-PBHN+PBMI+PGCN-PGDM-PLCI+PLDH\->\r
\If \r\<>0
\Then EGMS-EGNR-ELHS+ELIR+EQHN-EQIM-JBMS+JBNR+JLCS-JLDR-JQCN+JQDM+OBHS-OBIR-OGCS+OGDR+OQCI-OQDH-TBHN+TBMI+TGCN-TGDM-TLCI+TLDH\->U
U/\r\->X
AJMS-AJNR-AOHS+AOIR+ATHN-ATIM-FEMS+FENR+FOCS-FODR-FTCN+FTDM+KEHS-KEIR-KJCS+KJDR+KTCI-KTDH-PEHN+PEMI+PJCN-PJDM-POCI+PODH\->U
U/\r\->Y
AGOS-AGNT-ALJS+ALIT+AQJN-AQIO-FBOS+FBNT+FLES-FLDT-FQEN+FQDO+KBJS-KBIT-KGES+KGDT+KQEI-KQDJ-PBJN+PBOI+PGEN-PGDO-PLEI+PLDJ\->U
U/\r\->Z
AGMT-AGOR-ALHT+ALJR+AQHO-AQJM-FBMT+FBOR+FLCT-FLER-FQCO+FQEM+KBHT-KBJR-KGCT+KGER+KQCJ-KQEH-PBHO+PBMJ+PGCO-PGEM-PLCJ+PLEH\->U
U/\r\->W
\IfEnd\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:DBLINT
Option Name:
Communication SW:0
Capacity:317
Data Type:PG
%Data Record
Password:
BaseN:0
"DOUBLE INTEGRAL"
"STORE \fn6(X,Y) FIRST"
"1ST INTEGRAL IS FROM \fn4 TO \fn5"
"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
(\fn5-\fn4)/N\->C
\For 0\->K \To N-1
O=1\=>\fn4+(K+.5)C\->X
O=2\=>\fn4+(K+.5)C\->Y
S+\fn6CD\->S
\Next 
\Next 
S\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:DEC-FRAC
Option Name:
Communication SW:0
Capacity:274
Data Type:PG
%Data Record
Password:
BaseN:0
"CONVERT DECIMAL TO   FRACTION"
"DECIMAL="?\->D
\For 1\->E \To 99
\If \Frac (D*\10^xE)=0
\Then E\->R
\Break
\IfEnd
\Next 
\For 0\->E \To 99
\If \Int (D/\10^xE)=0
\Then E\->L
\Break
\IfEnd
\Next 
L+R=10\ Or L+R=15\=>\Goto1
D*\10^xR\->N
N\ab/c\10^xR\->F
\Goto0
\Lbl 1
\For 1\->E \To R
D*\10^xE\->N
\For 0\->A \To E-1
D*\10^xA\->G
\Frac (G*\10^x(R-E))/\10^x(R-E)\->C
\If \Frac (N-G+C)=0
\Then (N-G+C)\ab/c(\10^xE-\10^xA)\->F
\Goto0
\IfEnd
\Next 
\Next 
\Lbl 0
F
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:DISCRIM
Option Name:
Communication SW:0
Capacity:184
Data Type:PG
%Data Record
Password:
BaseN:0
"PROGRAM CALCULATES"
"THE DISCRIMINANT OF"
"QUADRATIC EQUATIONS"
"OF THE FORM:"
\Lbl 1
"AX\x^2+BX+C=0"
"INPUT A"?\->A
"INPUT B"?\->B
"INPUT C"?\->C
(B\x^2-4*A*C)\->D
\ClrText
"DISCRIMINANT =":D\Disp\Goto1
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:ERR.DISP
Option Name:
Communication SW:0
Capacity:70
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"SSE = "
\Locate 7,1,E
"MEAN E = "
\Locate 10,2,F
"RMS E = "
\Locate 9,3,G\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:ERROR
Option Name:
Communication SW:0
Capacity:88
Data Type:PG
%Data Record
Password:
BaseN:0
\Dim \List 2\->M
\List 3-\List 2\->\List 4
\Abs \List 4\->\List 4
\Sum \List 4\->F
F/(M-1)\->F
\List 4^2\->\List 4
\Sum \List 4\->E
\sqrt(E/(M-1))\->G\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:EULER
Option Name:
Communication SW:0
Capacity:280
Data Type:PG
%Data Record
Password:
BaseN:0
"EULER'S METHOD       SOLUTION OF DE"
"STORE \d/dx(Y)=\fn6(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
\fn6\->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
\fn6\->M
X+D\->P
Y+MD\->Q
\Next 
\Green \Graph Y=0\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:EULERG
Option Name:
Communication SW:0
Capacity:288
Data Type:PG
%Data Record
Password:
BaseN:0
"EULER'S METHOD       SOLUTION OF DE"
"FIRST STORE:         \d/dx(Y)=\fn6(X,Y)"\Disp"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
\fn6\->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
\fn6\->M
X+D\->P
Y+MD\->Q
\Next 
\Graph Y=0\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:EULERN
Option Name:
Communication SW:0
Capacity:323
Data Type:PG
%Data Record
Password:
BaseN:0
"EULER'S METHOD SOLN OF DIFFEQ (NUMERICAL)"
"STORE \d/dx(Y)=\fn6(X,Y)FIRST"\Disp"KNOWN POINT IS AT"
"(A,F(A))"
"A="?\->A
"F(A)="?\->F
"COMPUTE F(B) FOR B="?\->B
"CHOOSE"
"(1)STEP SIZE OR"
"(2)NUMBER OF STEPS"?\->C
\If C=1
\Then "STEP SIZE="?\->H
(B-A)/H\->N
\Else "NUMBER OF STEPS="?\->N
(B-A)/N\->H
\IfEnd
A\->X
F\->Y
\For 1\->I \To N
Y+\fn6H\->Y
X+H\->X
\Next 
"F(B)~"
Y\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:EXPS
Option Name:
Communication SW:0
Capacity:216
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"\theta VARIABLE  0<\theta<1"
"SMOOTHS DATA"
"\theta"?\->\theta
\Dim \List 2\->M
\List 2\->\List 3
\For 2\->I \To M
\theta*\List 2[I]+(1-\theta)*\List 3[I-1]\->\List 3[I]
\Next 
\List 3[M]\->F
\For 0\->I \To M-2
M-I\->J
\List 3[J-1]\->\List 3[J]:\Next 
\ClrText
"EXPS \theta="
\Locate 8,1,\theta
"PREDICTED VALUE"
"      ="
\Locate 8,3,F\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:FORECAST
Option Name:
Communication SW:0
Capacity:312
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
\Locate 1,3,"PROGRAM REQUIRES"
\Locate 1,4,"LISTS FOR"
\Locate 1,5,"   TIME IN L1"
\Locate 1,6,"   DATA IN L2"
\Locate 1,7,"SMOOTHED DATA \-> L3"\Disp\Lbl 0
\ClrText
"CHOOSE AN OPERATION"
"1 EXPONENTIAL SMOOTH"
"2 HOLT-WINTER SMOOTH"
"0 ENDS"
?\->I
\If I=1
\Then \Prog "EXPS"\Disp\Else \If I=2
\Then \Prog "HOLTWINT"\Disp\Else \If I=0:\Then \ClrText:\Goto9
\IfEnd:\IfEnd:\IfEnd
\Prog "ST2GRPH"
\Prog "ERROR"
\Prog "ERR.DISP"\Disp\Lbl 9\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:FUNDTHM
Option Name:
Communication SW:0
Capacity:187
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrGraph
"FUNDAMENTAL THEOREM  SOLUTION OF DE"
"STORE \d/dx(Y)=\fn6(X)  FIRST"\Disp"KNOWN POINT IS AT    (A,F(A))"
"A="?\->A
"F(A)="?\->F
(\Xmax-\Xmin)/126\->D
\For 1\->B \To 125
\Integral(\fn6,A,\Xmin+BD)\->C
\Plot \Xmin+BD,C+F
\Next 
\Graph Y=0\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:GCDLCM
Option Name:
Communication SW:0
Capacity:220
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"GCD AND LCM OF TWO   POSITIVE INTEGERS"
"1ST INTEGER="?\->A
"2ND INTEGER="?\->B
A\->P
B\->R
\Do
P\->D
R\->P
D-P\Int (D/P)\->R
\LpWhile R>0
AB/P\->L
\ClrText
\Locate 1,1,"FOR"
\Locate 5,1,A
\Locate 1,2,"AND"
\Locate 5,2,B
\Locate 1,4,"GCD ="
\Locate 7,4,P
\Locate 1,6,"LCM="
\Locate 7,6,L\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:GNLCONIC
Option Name:
Communication SW:0
Capacity:211
Data Type:PG
%Data Record
Password:
BaseN:0
\Cls
"GRAPH OF"
"AX\x^2+BXY+CY\x^2+DX+EY+F=0"
"A="?\->A
"B="?\->B
"C="?\->C
"D="?\->D
"E="?\->E
"F="?\->F
\If C=0
\Then \Graph Y=\(-)(AX\x^2+DX+F)/(BX+E)
\Else \Graph Y=(\(-)(BX+E)+\sqrt((BX+E)\x^2-4C(AX\x^2+DX+F)))/(2C)
\Graph Y=(\(-)(BX+E)-\sqrt((BX+E)\x^2-4C(AX\x^2+DX+F)))/(2C)
\IfEnd
\Graph Y=0\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:HOLTWINT
Option Name:
Communication SW:0
Capacity:343
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"VARIABLE RANGES"
" 0<A<1  0<B<1"
"A SMOOTHS DATA"
"B SMOOTHS SLOPE"
"A"?\->A
"B"?\->B
\Dim \List 2\->M
\List 2\->\List 3
\List 2\->\List 4
\List 2\->\List 5
0\->\List 5[1]
\For 2\->I \To M
A*\List 2[I]+(1-A)*\List 4[I-1]\->\List 4[I]
B*(\List 4[I]-\List 4[I-1])+(1-B)*\List 5[I-1]\->\List 5[I]
\List 5[I-1]+\List 4[I-1]\->\List 3[I]
\Next 
\ClrText
"HOLT-WINTER"
"  A="
\Locate 5,2,A
"  B="
\Locate 5,3,B
"PREDICTED VALUE"
"   ="
\List 5[M]+\List 3[M]\->F
\Locate 5,5,F\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:IMPGRAPH
Option Name:
Communication SW:0
Capacity:242
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrGraph
"IMPLICIT GRAPH OF    \fn6(X,Y)=0"
"STORE \fn6(X,Y) FIRST"\Disp(\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(\fn6,X)\->R
R=0\=>\Break
X-\fn6/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 
\Graph Y=0\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:JULIAN
Option Name:
Communication SW:0
Capacity:112
Data Type:PG
%Data Record
Password:
BaseN:0
\Int ((M-14)/12)\->J
D-32075+\Int ((1461*(Y+4800+J))/4)
\Ans+\Int ((367*(M-2-J*12))/12)
\Ans-\Int ((3*\Int ((Y+4900+J)/100)/4)\->J
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:LINPROG
Option Name:
Communication SW:0
Capacity:595
Data Type:PG
%Data Record
Password:
BaseN:0
"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\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:MULTLREG
Option Name:
Communication SW:0
Capacity:843
Data Type:PG
%Data Record
Password:
BaseN:0
"MULTIPLE LINEAR"
"REGRESSION"
"X[1] IN \List 1,"
"X[2] IN \List 2, ETC. AND Y IN \List 6"
"NUMBER (2-5) OF X'S="?\->\r
"COEFFICIENTS IN Y="
"C[1]+C[2]X[1]+"
"C[3]X[2]+... ARE IN  \Mat C"
\Dim \List 1\->\theta
\Sum \List 1\->A
\Sum \List 2\->B
\Sum \List 6\->F
\Sum (\List 1\x^2)\->G
\Sum (\List 1\List 2)\->H
\Sum (\List 1\List 6)\->L
\Sum (\List 2\x^2)\->M
\Sum (\List 2\List 6)\->Q
\If \r=2
\Then [[\theta,A,B][A,G,H][B,H,M]]\->\Mat X
[[F][L][Q]]\->\Mat Y
\Goto0
\IfEnd
\Sum \List 3\->C
\Sum (\List 1\List 3)\->I
\Sum (\List 2\List 3)\->N
\Sum (\List 3\x^2)\->R
\Sum (\List 3\List 6)\->U
\If \r=3
\Then [[\theta,A,B,C][A,G,H,I][B,H,M,N][C,I,N,R]]\->\Mat X
[[F][L][Q][U]]\->\Mat Y
\Goto0
\IfEnd
\Sum \List 4\->D
\Sum (\List 1\List 4)\->J
\Sum (\List 2\List 4)\->O
\Sum (\List 3\List 4)\->S
\Sum (\List 4\x^2)\->V
\Sum (\List 4\List 6)\->X
\If \r=4
\Then [[\theta,A,B,C,D][A,G,H,I,J][B,H,M,N,O][C,I,N,R,S][D,J,O,S,V]]\->\Mat X
[[F][L][Q][U][X]]\->\Mat Y
\Goto0
\IfEnd
\Sum \List 5\->E
\Sum (\List 1\List 5)\->K
\Sum (\List 2\List 5)\->P
\Sum (\List 3\List 5)\->T
\Sum (\List 4\List 5)\->W
\Sum (\List 5\x^2)\->Y
\Sum (\List 5\List 6)\->Z
[[\theta,A,B,C,D,E][A,G,H,I,J,K][B,H,M,N,O,P][C,I,N,R,S,T][D,J,O,S,V,W][E,K,P,T,W,Y]]\->\Mat X
[[F][L][Q][U][X][Z]]\->\Mat Y
\Lbl 0
\Mat X\x^-1\Mat Y\->\Mat C\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:PHSRCALC
Option Name:
Communication SW:0
Capacity:423
Data Type:PG
%Data Record
Password:
BaseN:0
"NUMBER OF PHASORS"
"IN YOUR CALCULATION  (1-5) ="?\->N
"FOR PHASOR 'A'"
"\r="?\->\r
"\theta="?\->\theta
\r\cos \theta+\{i}\r\sin \theta\->A
N=1\=>\Goto0
"FOR PHASOR 'B'"
"\r="?\->\r
"\theta="?\->\theta
\r\cos \theta+\{i}\r\sin \theta\->B
N=2\=>\Goto0
"FOR PHASOR 'C'"
"\r="?\->\r
"\theta="?\->\theta
\r\cos \theta+\{i}\r\sin \theta\->C
N=3\=>\Goto0
"FOR PHASOR 'D'"
"\r="?\->\r
"\theta="?\->\theta
\r\cos \theta+\{i}\r\sin \theta\->D
N=4\=>\Goto0
"FOR PHASOR 'E'"
"\r="?\->\r
"\theta="?\->\theta
\r\cos \theta+\{i}\r\sin \theta\->E
\Lbl 0
"WHAT CALCULATION"?\->R
\Abs R\->\r
\Arg R\->\theta
\ClrText
\Locate 1,1,"RESULT IS PHASOR 'R'"
\Locate 3,3,"\r="
\Locate 6,3,\r
\Locate 3,5,"\theta="
\Locate 6,5,\theta\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:POLYDIV
Option Name:
Communication SW:0
Capacity:1572
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"COMPUTE \ProbP(X)/\ProbQ(X)"
"DEGREE OF \ProbP(X)="?\->P
{P+1,4}\->\Dim \Mat Q
\For 1\->N \To P+1
\ClrText
"ENTER \ProbP(X)"
"COEFFICIENT OF X^",P-N+1,"=":?\->\Mat Q[N,1]
\Next 
\ClrText
\Lbl 0
"DEGREE OF \ProbQ(X)="?\->Q
\If Q\>=P
\Then "DEGREE OF Q MUST BE"
"LESS THAN DEGREE OF P"
\Goto0
\IfEnd
\For 1\->N \To Q+1
\ClrText
\Locate 1,3,"ENTER \ProbQ(X)"
\Locate 1,4,"COEFFICIENT OF X^"
\Locate 18,4,Q-N+1
\Locate 20,4,"="
?\->\Mat Q[N,2]
\Next 
\ClrText
\For 1\->N \To Q+1
\Mat Q[N,1]\->\Mat Q[N,4]
\Next 
\For 1\->N \To P-Q+1
\Mat Q[1,4]/\Mat Q[1,2]\->\Mat Q[N,3]
\For 2\->J \To Q+1
\Mat Q[J,4]-\Mat Q[N,3]*\Mat Q[J,2]\->\Mat Q[J-1,4]
\Next 
N<P-Q+1\=>\Mat Q[N+Q+1,1]\->\Mat Q[Q+1,4]
\Next 
0\->\Mat Q[Q+1,4]
\Locate 1,1,"QUOTIENT IS"
1\->L
2\->Z
\For 1\->N \To P-Q+1
\Mat Q[N,3]\->O
\If O\<>0
\Then \If O<0\ And N=1
\Then \Locate L,Z,"-"
\Isz L
\IfEnd
O<0\=>-O\->O
1\->D
\While \Abs (\Int (DO)-DO)>1\EE-6
\Isz D
\WhileEnd
DO\->O
\If D>1
\Then \Int (\log O)+\Int (\log D)+5\->M
\If L+M>21
\Then \Isz Z
1\->L
\IfEnd
P-Q+1-N>0\=>\Locate L,Z,"("
P-Q+1-N>0\=>\Isz L
\Locate L,Z,O
L+\Int (\log O)+1\->L
\Locate L,Z,"\slash"
\Locate L+1,Z,D
L+\Int (\log D)+2\->L
P-Q+1-N>0\=>\Locate L,Z,")"
P-Q+1-N>0\=>\Isz L
\Else \Locate L,Z,O
L+\Int (\log O)+(O\<>1)\->L
\IfEnd
\If P-Q+1-N\<>0
\Then \If L\>=19
\Then \Isz Z
1\->L
\IfEnd
\If P-Q+1-N>1
\Then \Locate L,Z,"X^"
\Locate L+2,Z,P-Q+1-N
P-Q+1-N=2\=>\Locate L+1,Z,"\x^2 "
L+\Int (\log (P-Q+1-N))+3\->L
P-Q+1-N=2\=>\Dsz L
\Else \Locate L,Z,"X"
\Isz L
\IfEnd
\If L\>=22
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,"+"
\Mat Q[N+1,3]<0\=>\Locate L,Z,"-"
\Isz L
\IfEnd
\IfEnd
\Next 
\Isz Z
1\->L
\Locate L,Z,"REMAINDER IS"
\Isz Z
0\->R
\For 1\->N \To Q
\Mat Q[N,4]\->O
R+\Abs O\->R
\If O\<>0
\Then \If O<0\ And N=1
\Then \Locate L,Z,"-"
\Isz L
\IfEnd
O<0\=>-O\->O
1\->D
\While \Abs (\Int (DO)-DO)>1\EE-6
\Isz D
\WhileEnd
DO\->O
\If D>1
\Then \Int (\log O)+\Int (\log D)+5\->M
\If L+M>21
\Then \Isz Z
1\->L
\IfEnd
Q-N>0\=>\Locate L,Z,"("
Q-N>0\=>\Isz L
\Locate L,Z,O
L+\Int (\log O)+1\->L
\Locate L,Z,"\slash"
\Locate L+1,Z,D
L+\Int (\log D)+2\->L
Q-N>0\=>\Locate L,Z,")"
Q-N>0\=>\Isz L
\Else \Locate L,Z,O
L+\Int (\log O)+(O\<>1)\->L
\IfEnd
\If Q-N\<>0
\Then \If L\>=19
\Then \Isz Z
1\->L
\IfEnd
\If Q-N>1
\Then \Locate L,Z,"X^"
\Locate L+2,Z,Q-N
Q-N=2\=>\Locate L+1,Z,"\x^2 "
L+\Int (\log (P-Q+1-N))+3\->L
Q-N=2\=>\Dsz L
\Else \Locate L,Z,"X"
\Isz L
\IfEnd
\If L\>=22
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,"+"
\Mat Q[N+1,4]<0\=>\Locate L,Z,"-"
\Isz L
\IfEnd
\IfEnd
\Next 
R=0\=>\Locate 14,Z-1,"ZERO"
\Locate 17,7,"DONE"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:POLYFCTR
Option Name:
Communication SW:0
Capacity:2395
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"FACTOR \ProbP(X)"
"DEGREE OF \ProbP(X)="?\->P
{P+1,2P-1}\->\Dim \Mat Q
\For 1\->N \To P+1
\Lbl 0
\ClrText
\Locate 1,3,"ENTER \ProbP(X)"
\Locate 1,4,"INTEGER COEFFICIENT"
\Locate 1,5,"OF X^"
\Locate 6,5,P-N+1
\Locate 8,5,"="
?\->\Mat Q[N,1]
\Int \Mat Q[N,1]\<>\Mat Q[N,1]\=>\Goto0
\Next 
0\->V
\For 1\->N \To P+1
\If \Mat Q[P-N+2,1]=0
\Then \Isz V
\Else \Break
\IfEnd
\Next 
P-V\->P
1\->F
\Abs \Mat Q[1,1]\->M
\For 2\->N \To P+1
\Abs \Mat Q[N,1]\<>0\ And \Abs \Mat Q[N,1]<M\=>\Abs \Mat Q[N,1]\->M
\Next 
\If M\>=2
\Then \For 2\->I \To M
0\->S
\For 1\->N \To P+1
S+\Frac (\Abs \Mat Q[N,1]/I)\->S
\Next 
S=0\=>I\->F
\Next 
\IfEnd
\Mat Q[1,1]<0\=>-F\->F
\For 1\->N \To P+1
\Mat Q[N,1]/F\->\Mat Q[N,1]
\Next 
0\->I
\Lbl 2
I+2\->I
P+2-I/2\->R
\Mat Q[1,I-1]\->L
\Abs \Mat Q[R,I-1]\->M
1\->J
\While J\<=L
\If \Frac (\Mat Q[1,I-1]/J)=0
\Then J\->\Mat Q[1,I]
\Mat Q[1,I-1]/\Mat Q[1,I]\->\Mat Q[1,I+1]
\For 1\->K \To M
\If \Frac (\Mat Q[R,I-1]/K)=0
\Then K\->\Mat Q[2,I]
\For 2\->N \To R-1
(\Mat Q[N,I-1]-\Mat Q[2,I]*\Mat Q[N-1,I+1])/\Mat Q[1,I]\->\Mat Q[N,I+1]
\Next 
\Mat Q[R,I-1]-\Mat Q[2,I]*\Mat Q[R-1,I+1]\->\Mat Q[R,I+1]
\Mat Q[R,I+1]=0\=>\Break
-K\->\Mat Q[2,I]
\For 2\->N \To R-1
(\Mat Q[N,I-1]-\Mat Q[2,I]*\Mat Q[N-1,I+1])/\Mat Q[1,I]\->\Mat Q[N,I+1]
\Next 
\Mat Q[R,I-1]-\Mat Q[2,I]*\Mat Q[R-1,I+1]\->\Mat Q[R,I+1]
\Mat Q[R,I+1]=0\=>\Break
\IfEnd
\Next 
\IfEnd
\Mat Q[R,I+1]=0\=>\Break
\Isz J
\WhileEnd
\Mat Q[R,I+1]=0\ And I<2P-2\=>\Goto2
\ClrText
1\->L
1\->Z
F\Mat Q[1,1]<0\=>\Locate L,Z,"-"
F\Mat Q[1,1]<0\=>\Isz L
\For 1\->N \To P+V
\Abs (F\Mat Q[N,1])\->K
\If K\<>0
\Then \Locate L,Z,K
L+\Int (\log K)+(K\<>1)\->L
\If L\>=19
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,"X^"
\If P+V-N\<=1
\Then \Isz L
P+V-N=0\=>\Locate L,Z," "
P+V-N=1\=>\Locate L,Z,"\x^2"
P+V-N=1\=>\Isz L
\Else L+2\->L
\Locate L,Z,P+V-N+1
L+\Int (\log (P+V-N+1))+1\->L
\IfEnd
\If L\>=20
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,"+"
\Isz L
\IfEnd
F\Mat Q[N+1,1]<0\=>\Locate L-1,Z,"-"
\If L\>=18
\Then \Isz Z
1\->L
\IfEnd
\Next 
\Abs F\Mat Q[P+V+1,1]\->K
\If K\<>0
\Then \Locate L,Z,K
L+\Int (\log K)+1\->L
\Else \Dsz L
\IfEnd
\Locate L,Z,"="
\If I=2\ And \Mat Q[R,I+1]\<>0\ And F=1\ And V=0
\Then \Locate L,Z," "
\Isz Z
\Locate 1,Z,"HAS NO LINEAR FACTORS"
\Locate 1,Z+1,"OVER THE INTEGERS"
\Goto1
\IfEnd
I-1\->S
I=2P-2\ And \Mat Q[R,I+1]=0\=>I+1\->S
\Isz Z
\Locate 1,Z,F
\Int (\log (\Abs F))+(F<0)+(\Abs F\<>1)+1\->L
\If V>0
\Then \Locate L,Z,"X^"
V=2\=>\Locate L+1,Z,"\x^2"
V>2\=>\Locate L+2,Z,V
L+\Int (\log V)+(V>1)+(V>2)+1\->L
\IfEnd
\If S=1
\Then \Locate L,Z,"("
\Isz L
\For 1\->N \To P
\Abs \Mat Q[N,1]\->K
\If K\<>0
\Then \Locate L,Z,K
L+\Int (\log K)+(K\<>1)\->L
\If L\>=18
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,"X^"
\If P-N\<=1
\Then \Isz L
P-N=1\=>\Locate L,Z,"\x^2"
P-N=1\=>\Isz L
\Else L+2\->L
\Locate L,Z,P-N+1
L+\Int (\log (P-N+1))+1\->L
\IfEnd
\Locate L,Z,"+"
\Isz L
\IfEnd
\Mat Q[N+1,1]<0\=>\Locate L-1,Z,"-"
\If L\>=18
\Then \Isz Z
1\->L
\IfEnd
\Next 
\Abs \Mat Q[P+1,1]\->K
\Locate L,Z,K
L+\Int (\log K)+1\->L
\Locate L,Z,")"
\Else \For 2\->J \To S-1 \Step 2
\Locate L,Z,"("
\Isz L
\Mat Q[1,J]\->K
\Locate L,Z,K
L+\Int (\log K)+(K\<>1)\->L
\Locate L,Z,"X+"
\Isz L
\Mat Q[2,J]<0\=>\Locate L,Z,"-"
\Isz L
\If L\>=18
\Then \Isz Z
1\->L
\IfEnd
\Abs \Mat Q[2,J]\->K
\Locate L,Z,K
L+\Int (\log K)+1\->L
\Locate L,Z,")"
\Isz L
\If L\>=18
\Then \Isz Z
1\->L
\IfEnd
\Next 
(S-1)/2\->T
\Locate L,Z,"("
\Isz L
\For 1\->N \To P-T
\Abs \Mat Q[N,S]\->K
\If K\<>0
\Then \Locate L,Z,K
L+\Int (\log K)+(K\<>1)\->L
\If L\>=19
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,"X^"
\If P-T-N\<=1
\Then \Isz L
P-T-N=1\=>\Locate L,Z,"\x^2"
P-T-N=1\=>\Isz L
\Else L+2\->L
\Locate L,Z,P-T-N+1
L+\Int (\log (P-T-N+1))+1\->L
\IfEnd
\If L\>=21
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,"+"
\Isz L
\IfEnd
\Mat Q[N+1,S]<0\=>\Locate L-1,Z,"-"
\If L\>=19
\Then \Isz Z
1\->L
\IfEnd
\Next 
\Abs \Mat Q[P-T+1,S]\->K
\Locate L,Z,K
L+\Int (\log K)+1\->L
\Locate L,Z,")"
\IfEnd
\Lbl 1
\Locate 17,7,"DONE"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:POLYMULT
Option Name:
Communication SW:0
Capacity:903
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"COMPUTE \ProbP(X)*\ProbQ(X)"
"DEGREE OF \ProbP(X)="?\->P
"DEGREE OF \ProbQ(X)="?\->Q
{P+Q+1,3}\->\Dim \Mat Q
\For 1\->N \To P+1
\ClrText
\Locate 1,3,"ENTER \ProbP(X)"
\Locate 1,4,"COEFFICIENT OF X^"
\Locate 18,4,P-N+1
\Locate 20,4,"="
?\->\Mat Q[N,1]
\Next 
\For 1\->N \To Q+1
\ClrText
\Locate 1,3,"ENTER \ProbQ(X)"
\Locate 1,4,"COEFFICIENT OF X^"
\Locate 18,4,Q-N+1
\Locate 20,4,"="
?\->\Mat Q[N,2]
\Next 
\ClrText
\For 1\->N \To P+1
\For 1\->M \To Q+1
\Mat Q[N,1]*\Mat Q[M,2]+\Mat Q[N+M-1,3]\->\Mat Q[N+M-1,3]
\Next 
\Next 
\Locate 1,1,"PRODUCT IS"
1\->L
2\->Z
\For 1\->N \To P+Q+1
\Mat Q[N,3]\->O
\If O\<>0
\Then \If O<0\ And N=1
\Then \Locate L,Z,"-"
\Isz L
\IfEnd
O<0\=>-O\->O
1\->D
\While \Abs (\Int (DO)-DO)>1\EE-6
\Isz D
\WhileEnd
DO\->O
\If D>1
\Then \Int (\log O)+\Int (\log D)+5\->M
\If L+M>21
\Then \Isz Z
1\->L
\IfEnd
P-Q+1-N>0\=>\Locate L,Z,"("
P-Q+1-N>0\=>\Isz L
\Locate L,Z,O
L+\Int (\log O)+1\->L
\Locate L,Z,"\slash"
\Locate L+1,Z,D
L+\Int (\log D)+2\->L
P-Q+1-N>0\=>\Locate L,Z,")"
P-Q+1-N>0\=>\Isz L
\Else \Locate L,Z,O
L+\Int (\log O)+(O\<>1)\->L
\IfEnd
\If P+Q+1-N\<>0
\Then \If L\>=19
\Then \Isz Z
1\->L
\IfEnd
\If P+Q+1-N>1
\Then \Locate L,Z,"X^"
\Locate L+2,Z,P+Q+1-N
P+Q+1-N=2\=>\Locate L+1,Z,"\x^2 "
L+\Int (\log (P-Q+1-N))+3\->L
P+Q+1-N=2\=>\Dsz L
\Else \Locate L,Z,"X"
\Isz L
\IfEnd
\If L\>=22
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,"+"
\Mat Q[N+1,3]<0\=>\Locate L,Z,"-"
\Isz L
\IfEnd
\IfEnd
\Next 
\Locate 17,7,"DONE"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:PPRIME
Option Name:
Communication SW:0
Capacity:123
Data Type:PG
%Data Record
Password:
BaseN:0
0\->F
1+L/(100*V)\->Q
\For 1\->H \To N
F+(1-(H+B/K))/(Q^(H+B/K))\->F
\Next 
(C/V)*F\->F
R*(1-(N+B/K))/(Q^(N+B/K))\->G
(F+G)/(100*V)\->X
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:PRCLONG
Option Name:
Communication SW:0
Capacity:106
Data Type:PG
%Data Record
Password:
BaseN:0
(A/K)*(C/V)\->I
1+L/(100*V)\->F
F^(-B/K)\->G
R*F^(1-N)*G\->P
(C/V)*G\->G
\For 1\->H \To N
P+G*F^(1-H)\->P
\Next 
P-I\->P
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:PRCSHRT
Option Name:
Communication SW:0
Capacity:60
Data Type:PG
%Data Record
Password:
BaseN:0
(A/K)*(C/V)\->I
((R+C/V)/(1+(B/K)*(L/(100*V)))-I\->P
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:PRIME
Option Name:
Communication SW:0
Capacity:187
Data Type:PG
%Data Record
Password:
BaseN:0
"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\Disp\Stop
\Lbl 1
"NUMBER IS PRIME"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:PRIMES
Option Name:
Communication SW:0
Capacity:168
Data Type:PG
%Data Record
Password:
BaseN:0
"LIST ALL PRIMES \<="?\->N
[[2]]\->\Mat P
[[0]]\->\Mat E
3\->T
\While T<N
\Dim \Mat P
\List \Ans[2]\->C
1\->P
\For 1\->I \To C
\Frac (T/\Mat P[1,I])=0\=>0\->P
\Next 
\If P=1
\Then \Augment(\Mat P,\Mat E)\->\Mat P
T\->\Mat P[1,C+1]
\IfEnd
T+2\->T
\WhileEnd
\Trn \Mat P\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:PRIMFACT
Option Name:
Communication SW:0
Capacity:335
Data Type:PG
%Data Record
Password:
BaseN:0
"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\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:QUADFCTR
Option Name:
Communication SW:0
Capacity:3113
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"FACTOR AX\x^2+BX+C"
\Lbl 0
"ENTER INTEGER VALUES WITH A\<>0"
"A="?\->A
"B="?\->B
"C="?\->C
\Int A\<>A\ Or \Int B\<>B\ Or \Int C\<>C\ Or A=0\=>\Goto0
B=0\ And C=0\=>\Goto0
1\->F
\Abs A\->M
B\<>0\ And \Abs B<M\=>\Abs B\->M
C\<>0\ And \Abs C<M\=>\Abs C\->M
\If M\>=2
\Then \For 2\->I \To M
\Frac (\Abs A/I)+\Frac (\Abs B/I)+\Frac (\Abs C/I)=0\=>I\->F
\Next 
\IfEnd
A<0\=>-F\->F
A/F\->G
B/F\->H
C/F\->I
1\->R
0\->S
C=0\=>\Goto1
\If B=0
\Then \If \Frac (\sqrtG)=0
\Then \sqrtG\->D
\Else S+1\->S
1\->N
\While G\>=N\x^2
\Frac (G/N\x^2)=0\=>N\->K
\Isz N
\WhileEnd
G/K\x^2\->T
K\->D
\IfEnd
I>0\=>0\->R
I<0\=>-I\->I
\If \Frac (\sqrtI)=0
\Then \sqrtI\->E
\Else S+2\->S
1\->N
\While I\>=N\x^2
\Frac (I/N\x^2)=0\=>N\->K
\Isz N
\WhileEnd
I/K\x^2\->U
K\->E
\IfEnd
\Goto1
\IfEnd
-H\ab/c(2G)\->E
H\x^2-4GI\->D
\If D<0
\Then 0\->R
-D\->D
\IfEnd
\If \Frac (\sqrtD)=0
\Then 1\->S
(\sqrtD)\ab/c(2G)\->D
\Else 0\->S
1\->N
\While D\>=N\x^2
\Frac (D/N\x^2)=0\=>N\->K
\Isz N
\WhileEnd
D/K\x^2\->T
K\ab/c(2G)\->D
\IfEnd
\If R=1\ And S=1
\Then E+D\->P
E-D\->Q
\IfEnd
0\->K
1\->M
1\->W
G>1\=>\Int (G/2)\->M
\For 1\->N \To M
\If \Frac (G/N)=0
\Then G/N\->J
\If R=1\ And S=1
\Then \Int (NP)=NP\ And \Int (JQ)=JQ\=>N\->K
\Int (JP)=JP\ And \Int (NQ)=NQ\=>J\->K
\Else \Int (NE)=NE\ And \Int (ND)=ND\ And \Int (JE)=JE\ And \Int (JD)=JD\=>N\->K
\IfEnd
\IfEnd
\Next 
K\<>0\=>G/K\->J
K=0\=>0\->W
\If W=0
\Then A\->F
1\->K
\While \Abs (\Int (KE)-KE)>1\EE-6
\Isz K
\WhileEnd
KE\->E
1\->J
\While \Abs (\Int (JD)-JD)>1\EE-6
\Isz J
\WhileEnd
JD\->D
\IfEnd
\Lbl 1
\ClrText
1\->Z
\Int (\log (\Abs A))+(A<0)+(\Abs A\<>1)+1\->L
\Locate 1,Z,A
\Locate L,Z,"X\x^2+"
B<0\=>\Locate L+2,Z,"-"
\If B\<>0
\Then \Locate L+3,Z,\Abs B
L+\Int (\log (\Abs B))+(\Abs B\<>1)+3\->L
\Locate L,Z,"X+"
\Else L+1\->L
\IfEnd
C<0\=>\Locate L+1,Z,"-"
\If C\<>0
\Then \Locate L+2,Z,\Abs C
L+\Int (\log (\Abs C))+3\->L
\Locate L,Z,"="
\Else \Locate L+1,Z,"="
\IfEnd
Z+2\->Z
\Locate 1,Z,F
\Int (\log (\Abs F))+(F<0)+(\Abs F\<>1)+1\->L
\If C=0
\Then \Locate L,Z,"X("
\Locate L+2,Z,G
L+\Int (\log (\Abs G))+(\Abs G\<>1)+2\->L
\Locate L,Z,"X+"
H<0\=>\Locate L+1,Z,"-"
\Locate L+2,Z,\Abs H
L+\Int (\log (\Abs H))+3\->L
\Locate L,Z,")"
\Goto2
\IfEnd
\Locate L,Z,"("
\If B=0
\Then \Locate L+1,Z,D
L+\Int (\log D)+(D\<>1)+1\->L
\If S=1\ Or S=3
\Then \Locate L,Z,"\sqrt"
\Locate L+1,Z,T
L+\Int (\log T)+2\->L
\IfEnd
\Locate L,Z,"X+"
\Locate L+2,Z,E
L+\Int (\log E)+(E\<>1)+2\->L
\If R=0
\Then \Locate L,Z,"\{i}"
L+1\->L
\IfEnd
\If S=2\ Or S=3
\Then \Locate L,Z,"\sqrt"
\Locate L+1,Z,U
L+\Int (\log U)+2\->L
\IfEnd
\Locate L,Z,")("
\Locate L+2,Z,D
L+\Int (\log D)+(D\<>1)+2\->L
\If L\>=18
\Then \Isz Z
1\->L
\IfEnd
\If S=1\ Or S=3
\Then \Locate L,Z,"\sqrt"
\Locate L+1,Z,T
L+\Int (\log T)+2\->L
\IfEnd
\If L\>=18
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,"X-"
\Locate L+2,Z,E
L+\Int (\log E)+(E\<>1)+2\->L
\If L\>=18
\Then \Isz Z
1\->L
\IfEnd
\If R=0
\Then \Locate L,Z,"\{i}"
L+1\->L
\IfEnd
\If S=2\ Or S=3
\Then \Locate L,Z,"\sqrt"
\Locate L+1,Z,U
L+\Int (\log U)+2\->L
\IfEnd
\If L\>=18
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,")"
\Goto2
\IfEnd
\If W=1
\Then \Locate L+1,Z,K
L+\Int (\log K)+(K\<>1)+1\->L
\Else \Isz L
\IfEnd
\Locate L,Z,"X-"
L+2\->L
\If R=1\ And S=1
\Then P<0\=>\Locate L-1,Z,"+"
\Abs (KP)\->O
\Int (\log O)+1\->M
\If L+M>22
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,O
L+M\->L
\If L\>=21
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,")("
L+2\->L
\Int (\log J)+(J\<>1)\->M
\If L+M>22
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,J
L+M\->L
\If L\>=21
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,"X-"
L+2\->L
Q<0\=>\Locate L-1,Z,"+"
\Abs (JQ)\->O
\Int (\log O)+1\->M
\If L+M>22
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,O
L+M\->L
\If L\>=22
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,")"
\Else E<0\=>\Locate L-1,Z,"+"
\Abs (KE)\->O
W=0\=>\Abs E\->O
\Int (\log O)+1\->M
\If L+M>22
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,O
L+M\->L
\If L\>=21
\Then \Isz Z
1\->L
\IfEnd
\If W=0
\Then \Locate L,Z,"\slash"
\Isz L
\Int (\log K)+1\->M
\If L+M>21
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,K
L+M\->L
\IfEnd
\Locate L,Z,"-"
\Isz L
\Abs (KD)\->O
W=0\=>\Abs D\->O
\Int (\log O)+(O\<>1)\->M
\If L+M>22
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,O
L+M\->L
\If L\>=22
\Then \Isz Z
1\->L
\IfEnd
\If R=0
\Then \Locate L,Z,"\{i}"
\Isz L
\IfEnd
\If L\>=18
\Then \Isz Z
1\->L
\IfEnd
\If S=0
\Then \Locate L,Z,"\sqrt"
\Locate L+1,Z,T
L+\Int (\log T)+2\->L
\IfEnd
\If W=0
\Then \Locate L,Z,"\slash"
\Isz L
\Int (\log J)+1\->M
\If L+M>21
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,J
L+M\->L
\IfEnd
\If L\>=20
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,")("
L+2\->L
\If W=1
\Then \Int (\log J)+(J\<>1)\->M
\If L+M>21
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,J
L+M\->L
\IfEnd
\If L\>=21
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,"X-"
L+2\->L
E<0\=>\Locate L-1,Z,"+"
\Abs (JE)\->O
W=0\=>\Abs E\->O
\Int (\log O)+1\->M
\If L+M>22
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,O
L+M\->L
\If L\>=22
\Then \Isz Z
1\->L
\IfEnd
\If W=0
\Then \Locate L,Z,"\slash"
\Isz L
\Int (\log K)+1\->M
\If L+M>21
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,K
L+M\->L
\IfEnd
\Locate L,Z,"+"
\Isz L
\Abs (JD)\->O
W=0\=>\Abs D\->O
\Int (\log O)+(O\<>1)\->M
\If L+M>21
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,O
L+M\->L
\If L\>=22
\Then \Isz Z
1\->L
\IfEnd
\If R=0
\Then \Locate L,Z,"\{i}"
L+1\->L
\IfEnd
\If L\>=18
\Then \Isz Z
1\->L
\IfEnd
\If S=0
\Then \Locate L,Z,"\sqrt"
\Locate L+1,Z,T
L+\Int (\log T)+2\->L
\IfEnd
\If W=0
\Then \Locate L,Z,"\slash"
\Isz L
\Int (\log J)+1\->M
\If L+M>21
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,J
L+M\->L
\IfEnd
\If L\>=21
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,")"
\IfEnd
\Lbl 2
\Locate 17,7,"DONE"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:QUADROOT
Option Name:
Communication SW:0
Capacity:251
Data Type:PG
%Data Record
Password:
BaseN:0
"PROGRAM CALCULATES"
"THE REAL ROOTS OF"
"QUADRATIC EQUATIONS"
"OF THE FORM:"
\Lbl 1
"AX\x^2+BX+C=0"
"INPUT A"?\->A
"INPUT B"?\->B
"INPUT C"?\->C
(B\x^2-4*A*C)\->D
D<0\=>\Goto2
\sqrtD\->M
((-B-M)/2*A)\->E
((-B+M)/2*A)\->F
"X=":E\Disp"OR X=":F\Disp\ClrText
\Goto1
\Lbl 2
"NO REAL SOLUTIONS"\Disp\ClrText
\Goto1
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:RADICALS
Option Name:
Communication SW:0
Capacity:1657
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrText
"SIMPLIFY \xrtA"
\Lbl 0
"POSITIVE INTEGER X="?\->X
X\<=1\ Or \Int X\<>X\=>\Goto0
\Lbl 1
\If X>2\ And \Frac (X/2)=0
\Then "POSITIVE A="?\->A
A\<=0\=>\Goto1
\Else "A="?\->A
\IfEnd
1\->R
A<0\ And X=2\=>0\->R
\Abs A\->B
0\->N
\If \Int B\<>B
\Then 1\->D
\While \Abs (\Int (DB)-DB)>1\EE-6
\Isz D
\WhileEnd
DB\->N
\IfEnd
\If N=0
\Then 1\->M
\While B\>=M^X
\Frac (B/M^X)=0\=>M\->F
\Isz M
\WhileEnd
B/F^X\->G
\Else 1\->M
\While N\>=M^X
\Frac (N/M^X)=0\=>M\->P
\Isz M
\WhileEnd
N/P^X\->Q
1\->M
\While D\>=M^X
\Frac (D/M^X)=0\=>M\->S
\Isz M
\WhileEnd
D/S^X\->T
1\->U
\While \Frac X\xrt(UT)\<>0
\Isz U
\WhileEnd
1\->M
\While QU\>=M^X
\Frac (QU/M^X)=0\=>M\->J
\Isz M
\WhileEnd
QU/J^X\->K
\IfEnd
\ClrText
1\->Z
\If X>2
\Then \Locate 1,Z,X
\Int (\log X)+2\->L
\Locate L,Z,"\xrt("
L+3\->L
\Else \Locate 1,Z,"\sqrt("
3\->L
\IfEnd
\If N=0
\Then \Locate L,Z,A
L+\Int (\log (\Abs A))+(A<0)+1\->L
\Locate L,Z,")="
\Isz Z
\Else \If A<0
\Then \Locate L,Z,"-"
\Isz L
\IfEnd
\Locate L,Z,N
L+\Int (\log N)+1\->L
\Locate L,Z,"\slash"
\Locate L+1,Z,D
L+\Int (\log D)+2\->L
\Locate L,Z,")="
\Isz Z
\IfEnd
\If N=0
\Then \If A<0\ And \Frac (X/2)\<>0
\Then \Locate 1,Z,"-"
2\->L
\Else 1\->L
\IfEnd
F\<>1\=>\Locate L,Z,F
F\<>1\=>L+\Int (\log F)+1\->L
\If R=0
\Then \Locate L,Z,"\{i}"
\Isz L
\IfEnd
\If G\<>1
\Then \If X>2
\Then \Locate L+1,Z,X
L+\Int (\log X)+2\->L
\Locate L,Z,"\xrt("
\Isz L
\Else \Locate L,Z,"\sqrt("
\IfEnd
\Locate L+2,Z,G
L+\Int (\log G)+3\->L
\Locate L,Z,")="
\Else \Locate L,Z,"="
\IfEnd
\Isz Z
\Else \If A<0\ And \Frac (X/2)\<>0
\Then \Locate 1,Z,"-"
2\->L
\Else 1\->L
\IfEnd
P\<>1\=>\Locate L,Z,P
P\<>1\=>L+\Int (\log P)+1\->L
\If R=0
\Then \Locate L,Z,"\{i}"
\Isz L
\IfEnd
\If Q\<>1
\Then \If X>2
\Then \Locate L+1,Z,X
L+\Int (\log X)+2\->L
\Locate L,Z,"\xrt("
\Isz L
\Else \Locate L,Z,"\sqrt("
\IfEnd
\Locate L+2,Z,Q
L+\Int (\log Q)+3\->L
\Locate L,Z,")\slash"
\Isz L
\Else \Locate L,Z,"\slash"
\IfEnd
S\<>1\=>\Locate L+1,Z,S
S\<>1\=>L+\Int (\log S)+2\->L
\If T\<>1
\Then \If L\>=18
\Then \Isz Z
1\->L
\IfEnd
\If X>2
\Then \Locate L+1,Z,X
L+\Int (\log X)+2\->L
\Locate L,Z,"\xrt("
\Isz L
\Else \Locate L,Z,"\sqrt("
\IfEnd
\If L\>=16
\Then \Isz Z
1\->L
\IfEnd
\Locate L+2,Z,T
L+\Int (\log T)+3\->L
\If L\>=21
\Then \Isz Z
1\->L
\IfEnd
\Locate L,Z,")="
\Else \Locate L,Z,"="
\IfEnd
\Isz Z
\If A<0\ And \Frac (X/2)\<>0
\Then \Locate 1,Z,"-"
2\->L
\Else 1\->L
\IfEnd
PJ\<>1\=>\Locate L,Z,PJ
PJ\<>1\=>L+\Int (\log (PJ))+1\->L
\If R=0
\Then \Locate L,Z,"\{i}"
\Isz L
\IfEnd
\If K\<>1
\Then \If X>2
\Then \Locate L+1,Z,X
L+\Int (\log X)+2\->L
\Locate L,Z,"\xrt("
\Isz L
\Else \Locate L,Z,"\sqrt("
\IfEnd
\Locate L+2,Z,K
L+\Int (\log K)+3\->L
\Locate L,Z,")\slash"
\Isz L
\Else \Locate L,Z,"\slash"
\IfEnd
X\xrt(TU)\->V
\Locate L+1,Z,SV
L+\Int (\log (SV))+2\->L
\Locate L,Z,"="
\Isz Z
\IfEnd
\If A<0\ And \Frac (X/2)\<>0
\Then \Locate 1,Z,"-"
2\->L
\Else 1\->L
\IfEnd
\Locate L,Z,X\xrtB
\If R=0
\Then \Int (\log (\sqrtB))+1\->M
\If \Frac (\sqrtB)\<>0
\Then \While \Frac (\sqrtB\10^xM)\<>0
\Isz M
M>10\=>\Break
\WhileEnd
\IfEnd
\Locate M+1,Z,"\{i}"
\IfEnd\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:RECTANGL
Option Name:
Communication SW:0
Capacity:198
Data Type:PG
%Data Record
Password:
BaseN:0
"THIS PROGRAM FINDS   THE AREA,PERIMETER,  AND DIAGONAL OF A    RECTANGLE"
\Lbl 1
"ENTER THE LENGTH"?\->L
"ENTER THE WIDTH"?\->W
\ClrText
"PERIMETER IS":2L+2W\Disp"AREA IS":LW\Disp"DIAGONAL IS":\sqrt(L\x^2+W\x^2)\Disp\ClrText
\Goto1
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:REF Y  X
Option Name:
Communication SW:0
Capacity:336
Data Type:PG
%Data Record
Password:
BaseN:0
\AxesOn
"THIS PROGRAM         REFLECTS A TRIANGLE  ABOUT THE LINE Y=X."
\Lbl 1
\AxesOn
"ENTER THE VERTICES."
\ViewWindow \(-)12.6,12.6,0,\(-)6.2,6.2,0:\Deg
\BG-Pict 6
"(X1,Y1)
X1="?\->A
"Y1="?\->B
\Plot A,B\DispX\->A:Y\->B
"(X2,Y2)
X2="?\->C
"Y2="?\->D
\Plot C,D\DispX\->C:Y\->D
"(X3,Y3)
X3="?\->E
"Y3="?\->F
\Plot E,F\DispX\->E:Y\->F
\Line:\Plot A,B:\Line:\Plot C,D:\Line\Disp"PRESS EXE TO SEE THE REFLECTION."\Disp\Plot B,A
\Plot D,C:\Line
\Plot F,E:\Line
\Plot B,A:\Line\Disp\Cls:\Goto1
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:REFLCTYN
Option Name:
Communication SW:0
Capacity:338
Data Type:PG
%Data Record
Password:
BaseN:0
"THIS PROGRAM         REFLECTS A TRIANGLE  ABOUT THE LINE Y=\(-)X."
\Lbl 1
"ENTER THE VERTICES."
\ViewWindow \(-)12.6,12.6,1,\(-)6.2,6.2,1:\Deg
\BG-Pict 5
"(X1,Y1)
X1="?\->A
"Y1="?\->B
\Plot A,B\DispX\->A:Y\->B
"(X2,Y2)
X2="?\->C
"Y2="?\->D
\Plot C,D\DispX\->C:Y\->D
"(X3,Y3)
X3="?\->E
"Y3="?\->F
\Plot E,F\DispX\->E:Y\->F
\Line:\Plot A,B:\Line:\Plot C,D:\Line\Disp"PRESS EXE TO SEE THE REFLECTION."\Disp\Plot \(-)B,\(-)A
\Plot \(-)D,\(-)C:\Line
\Plot \(-)F,\(-)E:\Line
\Plot \(-)B,\(-)A:\Line\Disp\Cls:\Goto1\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:REFLECTX
Option Name:
Communication SW:0
Capacity:351
Data Type:PG
%Data Record
Password:
BaseN:0
\AxesOn
"THIS PROGRAM         REFLECTS A TRIANGLE  ABOUT THE X AXIS."
\Lbl 1
\AxesOn
"ENTER THE VERTICES."
\ViewWindow \(-)12.6,12.6,1,\(-)6.2,6.2,1:\Deg
"(X1,Y1)
X1="?\->A
"Y1="?\->B
\Plot A,B\DispX\->A:Y\->B
"(X2,Y2)
X2="?\->C
"Y2="?\->D
\Plot C,D\DispX\->C:Y\->D
"(X3,Y3)
X3="?\->E
"Y3="?\->F
\Plot E,F\DispX\->E:Y\->F
\Line:\Plot A,B:\Line:\Plot C,D:\Line\Disp"PRESS EXE TO SEE THE REFLECTION."\DispB*\(-)1\->R
\Plot A,R
D*\(-)1\->J
\Plot C,J:\Line
F*\(-)1\->L
\Plot E,L:\Line
\Plot A,R:\Line\Disp\Cls:\Goto1
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:REFLECTY
Option Name:
Communication SW:0
Capacity:344
Data Type:PG
%Data Record
Password:
BaseN:0
"THIS PROGRAM         REFLECTS A TRIANGLE  ABOUT THE Y AXIS."
\Lbl 1
"ENTER THE VERTICES."
\ViewWindow \(-)12.6,12.6,1,\(-)6.2,6.2,1:\Deg
"(X1,Y1)
X1="?\->A
"Y1="?\->B
\Plot A,B\DispX\->A:Y\->B
"(X2,Y2)
X2="?\->C
"Y2="?\->D
\Plot C,D\DispX\->C:Y\->D
"(X3,Y3)
X3="?\->E
"Y3="?\->F
\Plot E,F\DispX\->E:Y\->F
\Line:\Plot A,B:\Line:\Plot C,D:\Line\Disp"PRESS EXE TO SEE THE REFLECTION."\DispA*\(-)1\->R
\Plot R,B
C*\(-)1\->J
\Plot J,D:\Line
E*\(-)1\->L
\Plot L,F:\Line
\Plot R,B:\Line\Disp\Cls:\Goto1\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:RIEMANN
Option Name:
Communication SW:0
Capacity:307
Data Type:PG
%Data Record
Password:
BaseN:0
"RIEMANN SUM"
"STORE \fn6(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+\fn6D\->S
X+D\->X
\Next 
\If C=4
\Then A\->X
\fn6\->E
B\->X
\fn6\->F
S+(F-E)D/2\->S
\IfEnd
S\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:ROLLDICE
Option Name:
Communication SW:0
Capacity:180
Data Type:PG
%Data Record
Password:
BaseN:0
"THIS PROGRAM WILL    SIMULATE THE         ROLLING OF TWO DIE."
"(PRESS THE EXE KEY   TO CONTINUE.)"\Disp\Lbl 1
\ClrText
\Int (\Ran#*6)+1\->X
"FIRST DICE IS":X\Disp\Int (\Ran#*6)+1\->Y
"SECOND DICE IS":Y\Disp\Goto1
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:ROOTGRPH
Option Name:
Communication SW:0
Capacity:396
Data Type:PG
%Data Record
Password:
BaseN:0
"GRAPH POLYNOMIAL"
"WITH GIVEN ROOTS"
"DEGREE OF POLYNOMIAL="?\->N
N\->\Dim \List 6
"LEADING COEFFICIENT="?\->A
\For 1\->I \To N
\ClrText
\Locate 1,3,"ENTER ROOTS"
\Locate 1,4,"OF POLYNOMIAL"
\Locate 1,5,"ROOT"
\Locate 6,5,I
\Locate 8,5,"="
?\->\List 6[I]
\Next 
\Min(\List 6)\->B
\Max(\List 6)\->C
\If B=C
\Then B-5.25\->B
C+5.25\->C
\IfEnd
\FMin(A\Prod (X-\List 6),B,C)
\List \Ans[2]\->E
\FMax(A\Prod (X-\List 6),B,C)
\List \Ans[2]\->F
.1(C-B)\->D
\Int D\->J
J=0\=>1\->J
.1(F-E)\->G
\Int G\->K
K=0\=>1\->K
\ViewWindow B-D,C+D,J,E-G,F+G,K
"A\Prod (X-\List 6)"\->\Y 6
\Graph Y=\Y 6\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:ROTATE
Option Name:
Communication SW:0
Capacity:343
Data Type:PG
%Data Record
Password:
BaseN:0
"THIS PROGRAM ROTATES A TRIANGLE THROUGH A GIVEN ANGLE"
\ViewWindow \(-)12.6,12.6,1,\(-)6.2,6.2,1:\Deg
"(X1,Y1)
X1="?\->A
"Y1="?\->B
\Plot A,B\DispX\->A:Y\->B
"(X2,Y2)
X2="?\->C
"Y2="?\->D
\Plot C,D\DispX\->C:Y\->D
"(X3,Y3)
X3="?\->E
"Y3="?\->F
\Plot E,F\DispX\->E:Y\->F
\Lbl 1
\Line:\Plot A,B:\Line:\Plot C,D:\Line\Disp"ANGLE:\Deg"?\->Q
A\cos Q-B\sin Q\->G
A\sin Q+B\cos Q\->H
\Plot G,H
C\cos Q-D\sin Q\->I
C\sin Q+D\cos Q\->J
\Plot I,J:\Line
E\cos Q-F\sin Q\->K
E\sin Q+F\cos Q\->L
\Plot K,L:\Line
\Plot G,H:\Line\Disp\Cls:\Plot C,D:\Plot E,F:\Goto1\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:ROWREDA
Option Name:
Communication SW:0
Capacity:221
Data Type:PG
%Data Record
Password:
BaseN:0
"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\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:SIMPSON
Option Name:
Communication SW:0
Capacity:220
Data Type:PG
%Data Record
Password:
BaseN:0
"SIMPSON'S RULE"
"COMPUTE \Integral(\fn6)DX FROM A TO B"
"A="?\->A
"B="?\->B
\Lbl 0
"EVEN NUMBER OF"
"SUBINTERVALS="?\->N
\Frac (N/2)\<>0\=>\Goto0
(B-A)/N\->H
A\->X
\fn6\->S
\For 1\->I \To N-1
X+H\->X
1+2\Frac (I/2)\->K
2^K\fn6+S\->S
\Next 
B\->X
\fn6+S\->S
SH/3\->S
"INTEGRAL~"
S\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:SLDSMP
Option Name:
Communication SW:0
Capacity:429
Data Type:PG
%Data Record
Password:
BaseN:0
"FINDS THE SLOPE OF A LINE, GRAPHS THE SEGMENT, AND FINDS DISTANCE AND MIDPOINT BETWEEN THE TWO ENDPOINTS"\Disp\Lbl 1
\ClrGraph
\Deg
"X1="?\->A
"Y1="?\->B
"X2="?\->C
"Y2="?\->D
(A+C)\ab/c2\->E
(B+D)\ab/c2\->F
\If \Abs A\>=\Abs C
\Then \Abs A+1\->M
\Else \Abs C+1\->M
\IfEnd
\If \Abs B\>=\Abs D
\Then \Abs B+1\->N
\Else \Abs D+1\->N
\IfEnd
\If M\>=N
\Then M\->P
\Else N\->P
\IfEnd
\ViewWindow \(-)2P,2P,1,\(-)P,P,1
\ClrText
\Line:\Plot A,B:\Line:\Plot C,D:\Line\Disp"SLOPE ="
\If (C-A)=0
\Then "SLOPE IS UNDEFINED"\Disp\Else ((D-B)\ab/c(C-A))\Disp\IfEnd
"DISTANCE ="
\sqrt((C-A)\x^2+(D-B)\x^2)\Disp"MIDPOINT (X,Y) IS"
"X=":E\Disp"Y=":F\Disp\ClrText
\Goto1
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:SLOPEFL2
Option Name:
Communication SW:0
Capacity:200
Data Type:PG
%Data Record
Password:
BaseN:0
"SLOPE FIELD"
"STORE \d/dx(Y)=\fn6(X,Y)FIRST"\Disp\Cls
(\Ymax-\Ymin)/8\->C
(\Xmax-\Xmin)/12\->D
\For 0\->J \To 15
\Xmin+(J-1)D*D/2\->E
\For 0\->K \To 7
\Ymin+(K-1)C*C/2\->F
E\->X
F\->Y
\fn6\->G
2D\->H
\Abs G>C/D\=>2C/\Abs G\->H
\If 2H\>=D
\Then \Graph Y=G+F,[E-H,E+H]
\IfEnd
\Next 
\Next 
\Graph Y=0
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:SLOPEFLD
Option Name:
Communication SW:0
Capacity:220
Data Type:PG
%Data Record
Password:
BaseN:0
"SLOPE FIELD"
"STORE \d/dx(Y)=\fn6(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
\fn6\->G
2D\->H
\Abs G>C/D\=>2C/\Abs G\->H
\If 2H\>=D
\Then \Graph Y=G(X-E)+F,[E-H,E+H]
\Else \F-Line E,F+2C,E,F-2C
\IfEnd
\Next 
\Next 
\Green \Graph Y=0\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:ST2GRPH
Option Name:
Communication SW:0
Capacity:73
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrGraph
\S-WindAuto
\S-Gph1 \DrawOn,\Scatter,\List 1,\List 2,1,\Square,\Blue 
\S-Gph2 \DrawOn,\xyLine,\List 1,\List 3,1,\Square,\Orange 
\S-Gph3 \DrawOff
\DrawStat\Disp\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:TRANSLAT
Option Name:
Communication SW:0
Capacity:429
Data Type:PG
%Data Record
Password:
BaseN:0
"THIS PROGRAM SHIFTS ATRIANGLE IN THE X   AND-OR Y DIRECTION."\Disp"ENTER THE VERTICES."
\ViewWindow \(-)12.6,12.6,1,\(-)6.2,6.2,1:\Deg
" "
"(X1,Y1)
X1="?\->A
"Y1="?\->B
\Plot A,B\DispX\->A:Y\->B
"(X2,Y2)
X2="?\->C
"Y2="?\->D
\Plot C,D\DispX\->C:Y\->D
"(X3,Y3)
X3="?\->E
"Y3="?\->F
\Plot E,F\DispX\->E:Y\->F
\Lbl 1
\Line:\Plot A,B:\Line:\Plot C,D:\Line\Disp"HORIZONTAL SHIFT     X DIRECTION"?\->Q
A+Q\->G
"VERTICAL SHIFT       Y DIRECTION"?\->U
B+U\->R
\Orange \Plot G,R
C+Q\->I
D+U\->J
\Orange \Plot I,J:\Orange \Line
E+Q\->K
F+U\->L
\Orange \Plot K,L:\Orange \Line
\Orange \Plot G,R:\Orange \Line\Disp\Cls:\Plot C,D:\Plot E,F:\Goto1\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:TRIPLINT
Option Name:
Communication SW:0
Capacity:470
Data Type:PG
%Data Record
Password:
BaseN:0
"TRIPLE INTEGRAL"
"STORE \fn6(X,Y,Z) FIRST"\Disp"1ST INTEGRAL IS FROM \fn4 TO \fn5"
"IS IT (1)DX, (2)DY OR(3)DZ"?\->F
"2ND INTEGRAL IS FROM \fn2 TO \fn3"
"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
(\fn3-\fn2)/N\->E
\For 0\->K \To N-1
\fn2+(K+.5)E\->G
S=1\=>G\->X
S=2\=>G\->Y
S=3\=>G\->Z
(\fn5-\fn4)/N\->H
\For 0\->L \To N-1
\fn4+(L+.5)H\->M
F=1\=>M\->X
F=2\=>M\->Y
F=3\=>M\->Z
I+\fn6DEH\->I
\Next 
\Next 
\Next 
I\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:TVMCHANG
Option Name:
Communication SW:0
Capacity:564
Data Type:PG
%Data Record
Password:
BaseN:0
\Lbl 0
\ClrText
\Prog "TVMPANEL"\Disp\ClrText
" "
\Locate 1,1,"SELECT VAR TO CHANGE"
" 0 PMT: BEGIN OR END"
" 1 N     2 I"
" 3 PV    4 PMT"
" 5 FV    6 P\slashY"
" 7 C\slashY   8 DONE"?\->J
\ClrText
\If J=0
\Then "PAYMENT AT"
"  0 END"
"  1 BEGINNING"
?\->K
\Else \If J=1
\Then "NUMBER OF PAYMENTS"
"N"?\->N
\Else \If J=2
\Then "INTEREST RATE"
" (ONE PERCENT=1.0)"
"I"?\->I
0.01*I\->I
\Else \If J=3
\Then "PRESENT VALUE"
"PV="?\->V
\Else \If J=4
\Then "PAYMENT AMOUNT"
"PMT="?\->M
\Else \If J=5
\Then "FUTURE VALUE"
"FV="?\->U
\Else \If J=6
\Then "PAYMENTS PER YEAR"
"P\slashY"?\->P
\Else \If J=7
\Then "COMPOUNDINGS PER"
"                YEAR"
"C\slashY"?\->C
\Else \If J=8
\Then \Goto8
\IfEnd:\IfEnd:\IfEnd
\IfEnd:\IfEnd:\IfEnd
\IfEnd:\IfEnd:\IfEnd
\Goto0
\Lbl 8\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:TVMDFDZ
Option Name:
Communication SW:0
Capacity:163
Data Type:PG
%Data Record
Password:
BaseN:0
\If Z=1
\Then (V+N*M+U)\->F
(V*N+0.5*M*(N-1+K)*(N+K))\->D
\Else (1+(Z-1)*K)\->G
Z^(N-1)\->E
V*Z*E+((Z*E-1)/(Z-1))*M*G+U\->F
V*N*E+M*((1+((N-1+K)*Z-(N+K))*E*G)/(Z-1)^2)\->D
\IfEnd\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:TVMFUN
Option Name:
Communication SW:0
Capacity:1260
Data Type:PG
%Data Record
Password:
BaseN:0
\If A\<>2\ And B\<>2
\Then (1+I/C)^(C/P)\->Z
1+(Z-1)*K\->G
\IfEnd
\If A=1
\Then \If B=2
\Then "X"\->\Y 1
\Else \If B=3
\Then "(U+((1-Z^X)/(1-Z))*M*G)/(-Z^X)"\->\Y 1
\Else \If B=4
\Then "(U+V*Z^X)*(Z-1)/G/(1-Z^X)"\->\Y 1
\Else "-V*Z^X-((1-Z^X)/(1-Z))*M*G"\->\Y 1
\IfEnd:\IfEnd:\IfEnd
\Else \If A=2
\Then \If B=1
\Then "\In ((U*((1+0.01*X/C)^(C/P)-1)-M*(1+((1+0.01*X/C)^(C/P)-1)*K))/((1-(1+0.01*X/C)^(C/P))*V-M*(1+((1+0.01*X/C)^(C/P)-1)*K)))/\In ((1+0.01*X/C)^(C/P)"\->\Y 1
\Else \If B=3
\Then "(U+((1-((1+0.01*X/C)^(C/P))^N)/(1-(1+0.01*X/C)^(C/P)))*M*(1+((1+0.01*X/C)^(C/P)-1)*K))/(-((1+0.01*X/C)^(C/P))^N)"\->\Y 1
\Else \If B=4
\Then "(U+V*((1+0.01*X/C)^(C/P))^N)*((1+0.01*X/C)^(C/P)-1)/(1+((1+0.01*X/C)^(C/P)-1)*K)/(1-((1+0.01*X/C)^(C/P))^N)"\->\Y 1
\Else "-V*(1+0.01*X/C)^(C/P)^N-((1-(1+0.01*X/C)^(C/P)^N)/(1-(1+0.01*X/C)^(C/P)))*M*(1+((1+0.01*X/C)^(C/P)-1)*K)"\->\Y 1
\IfEnd:\IfEnd:\IfEnd
\Else \If A=3
\Then \If B=1
\Then "\In ((U*(Z-1)-M*G)/((1-Z)*X-M*G))/\In Z"\->\Y 1
\Else \If B=2
\Then "X"\->\Y 1
\Else \If B=4
\Then "(U+X*Z^N)*(Z-1)/G/(1-Z^N)"\->\Y 1
\Else "-X*Z^N-((1-Z^N)/(1-Z))*M*G"\->\Y 1
\IfEnd:\IfEnd:\IfEnd
\Else \If A=4
\Then \If B=1
\Then "\In ((U*(Z-1)-X*G)/((1-Z)*V-X*G))/\In Z"\->\Y 1
\Else \If B=2
\Then "X"\->\Y 1
\Else \If B=3
\Then "(U+((1-Z^N)/(1-Z))*X*G)/(-Z^N)"\->\Y 1
\Else "-V*Z^N-((1-Z^N)/(1-Z))*X*G"\->\Y 1
\IfEnd:\IfEnd:\IfEnd
\Else \If A=5
\Then \If B=1
\Then "\In ((X*(Z-1)-M*G)/((1-Z)*V-M*G))/\In Z"\->\Y 1
\Else \If B=2
\Then "X"\->\Y 1
\Else \If B=3
\Then "(X+((1-Z^N)/(1-Z))*M*G)/(-Z^N)"\->\Y 1
\Else "(X+V*Z^N)*(Z-1)/G/(1-Z^N)"\->\Y 1
\IfEnd:\IfEnd:\IfEnd
\IfEnd:\IfEnd:\IfEnd:\IfEnd:\IfEnd\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:TVMGRAPH
Option Name:
Communication SW:0
Capacity:196
Data Type:PG
%Data Record
Password:
BaseN:0
\ClrGraph
\ClrText
"GRAPHING RANGES"
"\Xmin"?\->\Xmin
"\Xmax"?\->\Xmax
1\->\Xscl
\If B\<>2
\Then "\Ymin"?\->\Ymin
"\Ymax"?\->\Ymax
1\->\Yscl
\IfEnd
\If B=2
\Then \Prog "TVMSETZ"
\S-Gph1 \DrawOn,\xyLine,\List 1,\List 2,1,\Dot,\Green 
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\Else \Y=Type
\AxesOn
\GridOff
\LabelOn
\GreenG 1
\G SelOn 1
\G SelOff 2
\G SelOff 3
\G SelOff 4
\G SelOff 5
\G SelOff 6
\DrawGraph
\IfEnd
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:TVMMAIN
Option Name:
Communication SW:0
Capacity:72
Data Type:PG
%Data Record
Password:
BaseN:0
0\->K
\Prog "TVMCHANG"
\Prog "TVMPICKX"
\Prog "TVMPICKY"
\Prog "TVMFUN"
\Prog "TVMGRAPH"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:TVMPANEL
Option Name:
Communication SW:0
Capacity:198
Data Type:PG
%Data Record
Password:
BaseN:0
" "
\Locate 1,1,"PAYMENT AT"
\If K=0
\Then \Locate 12,1,"END"
\Else \Locate 12,1,"BEGINNING"
\IfEnd
"N="
\Locate 3,2,N
\Locate 10,2,"I="
\Locate 13,2,100*I
"PV="
\Locate 4,3,V
"PMT="
\Locate 5,4,M
"FV="
\Locate 4,5,U
"P\slashY="
\Locate 5,6,P
\Locate 10,6," C\slashY="
\Locate 15,6,C\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:TVMPICKX
Option Name:
Communication SW:0
Capacity:71
Data Type:PG
%Data Record
Password:
BaseN:0
"ASSIGN X-AXIS VAR."
" 1 N   2 I"
" 3 PV  4 PMT"
" 5 FV"
?\->A\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:TVMPICKY
Option Name:
Communication SW:0
Capacity:115
Data Type:PG
%Data Record
Password:
BaseN:0
\Lbl 0
\ClrText
"ASSIGN Y-AXIS VAR."
"              (Y\<>X)"
" 1 N    2 I"
" 3 PV   4 PMT"
" 5 FV"
?\->B
\If A=B
\Then \Goto0
\IfEnd\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:TVMSETZ
Option Name:
Communication SW:0
Capacity:393
Data Type:PG
%Data Record
Password:
BaseN:0
\If A=1
\Then 1\->H
\While (\Xmax-\Xmin+1)/H>63
2*H\->H
\WhileEnd
\Int ((\Xmax-\Xmin+1)/H)\->R
\Seq(X,X,\Xmin,\Xmax,H)\->\List 1
\Else 43\->R
\Seq(X,X,\Xmin,\Xmax,(\Xmax-\Xmin)/(R-1))\->\List 1
\IfEnd
\Seq(X,X,0,100,100/(R-1))\->\List 2
\For 1\->H \To R
\List 1[H]\->X
\If A=1
\Then X\->N
\Else \If A=3
\Then X\->V
\Else \If A=4
\Then X\->M
\Else X\->U
\IfEnd:\IfEnd:\IfEnd
\If H=1
\Then 0\->I
1\->Z
\Prog "TVMDFDZ"
\While (F<0)\ And (D<0)
I+0.05\->I
(1+I/C)^(C/P)\->Z
\Prog "TVMDFDZ"
\WhileEnd
F/D\->W
Z-W\->Z
\IfEnd
\Do
\Prog "TVMDFDZ"
F/D\->W
Z-W\->Z
\LpWhile \Abs W>0.00001
C*(Z^(P/C)-1)\->I
100*I\->\List 2[H]
\Next 
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:YLDLONG
Option Name:
Communication SW:0
Capacity:79
Data Type:PG
%Data Record
Password:
BaseN:0
P\->O
C\->L
\Do
\Prog "PRCLONG"
P
\Prog "PPRIME"
L\->W
L-(P-O)/X\->L
\LpWhile (L-W)>0.001
O\->P
\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:YLDSHRT
Option Name:
Communication SW:0
Capacity:55
Data Type:PG
%Data Record
Password:
BaseN:0
P+(A/K)*(C/V)\->F
100*(((R+C/V)-F)/F)*V*K/B\->L
\@00
%End