%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:142
File Name:MARKS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"END HI. MAX MARK"?\->M:0\->S:0\->N:\Lbl 1
"MARK"?\->B
B>M\=>\Goto2
100*B/M\->B
\Int (B+.5)\->B\DispN+1\->N:B+S\->S
\Goto1
\Lbl 2
"END~0,CONT~9"?\->C
C\<>0\=>\Goto1
"ENTRIES"\DispN\Disp"AVERAGE"\DispS/N\Disp
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:116
File Name:BORGS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"Age"?\->A
"Rest Heart Rate"?\->R
"Intensity percent"?\->I
\Int ((220-A-R)*I/100+R+.49)\->T
"Targets (min)(10s)"\DispT\Disp\Int (T/6+.49)
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:490
File Name:LINEAR
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"Eqn of straight line TYPE 1.M AND POINT        2.2 POINTS"
?\->A
A=2\=>\Goto2
"M="?\->M:\Goto3
\Lbl 2:"X2="?\->P
"Y2="?\->Q
\Lbl 3
"X1="?\->X
"Y1="?\->Y
\If A=2\ And X=P
\Then \(-)X\->C:0\->B:1\->A:1000\->J
\Goto6
\IfEnd
A=2\=>(Y-Q)\ab/c(X-P)\->M
.000001\->E
\For 1\->J \To 1000
\If \Abs ((J*M)-\Intg (J*M+E)<E
\Then (\Intg (J*M+E))\ab/cJ\->M
\Goto5
\IfEnd
\Next 
"No exact value found"\Disp\Lbl 5
Y-M*X\->C
\ClrText
\Locate 1,2,"Y=MX+C"
\Locate 1,3,"M="
\Locate 3,3,M
\Locate 1,4,"C="
\Locate 3,4,C\DispJM<0\=>\(-)J\->J
JM\->A:\(-)J\->B:JC\->C
\Lbl 6
\ClrText
\Locate 1,2,"AX+BY+C=0"
\Locate 1,3,"A="
\Locate 3,3,A
\Locate 1,4,"B="
\Locate 3,4,B
\Locate 1,5,"C="
\Locate 3,5,C
\Locate 2,7,"AGAIN:EXE END:AC\slashON"
\Abs J\<=999\=>\Break

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:208
File Name:QUADS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"Eqn of parabola"
"Warning: Lists 1 \-> 6"
"altered by program"
\ClrList
"Enter co\ordinates of 3 points on curve"
"X1="?\->P:"Y1="?\->Q
"X2="?\->R:"Y2="?\->S
"X3="?\->T:"Y3="?\->U
{P,R,T}\->\List 5
{Q,S,U}\->\List 6
\QuadReg \List 5,\List 6\Disp\Ra\->A:\Rb\->B:\Rc\->C
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:88
File Name:D2F
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
?\->M
.000001\->E
\For 1\->J \To 1000
\If \Abs ((J*M)-\Int (J*M+E)<E
\Then (\Int (J*M+E))\ab/cJ\->N
\Stop
\IfEnd
\Next 
"NOT FOUND"\Disp
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:99
File Name:EZ
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Rad
"ANGLE SETUP NOW RADS"
"e^Z program"
"RE(Z)="?\->R
"IM(Z)="?\->I
R+I\{i}\->Z
"e^Z="
\e^x\ReP Z(\cos \ImP Z+\{i}\sin \ImP Z)

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:131
File Name:CMPLXPWR
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Rad
"ANGLE SETUP NOW RADS"
"POWER OF COMPLEX NO."
"RE(Z)="?\->R
"IM(Z)="?\->I
R+I\{i}\->Z
"POWER : N"?\->N
\Abs Z\->\r
\Arg Z/\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:157
File Name:CMPLXRT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Rad
"ANGLE SETUP NOW RADS"
"ROOTS OF COMPLEX NO."
"RE(Z)="?\->R
"IM(Z)="?\->I
R+I\{i}\->Z
"NTH ROOTS:N"?\->N
\For 1\->K \To N
\Rec(N\xrt(\Abs Z),(\Arg Z+2\PiK)/N)\->\List 1
\List 1[1]+\List 1[2]\{i}\->A\Disp\Next 
""
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:520
File Name:TRIGSOLV
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"TRIG SOLVER"
"TYPE"
"1:DEGREES 2:RADIANS"
"CHOICE"?\->C
"ANGLE SETUP NOW"
\If C=1
\Then "DEG":\Deg:180\->R
\Else "RAD":\Rad:\Pi\->R
\IfEnd
""
"TYPE"
"1:SIN 2:COS 3:TAN"
"CHOICE"?\->T
10^(\(-)6)\->U
\If T=1:\Then "SIN OF ANGLE"?\->F:\asin F\->A:\IfEnd
\If T=2:\Then "COS OF ANGLE"?\->F:\acos F\->A:\IfEnd
\If T=3:\Then "TAN OF ANGLE"?\->F:\atan F\->A:\IfEnd
"MIN"?\->N
"MAX"?\->M
\Int ((A+N)/R)-2\->S
\Lbl 4
S+1\->S
\If T=1:\Then RS+A(\(-)1)^S\->D:\IfEnd
\If T=2:\Then 2R\Intg ((S+1)/2)+A(\(-)1)^S\->D:\IfEnd
\If T=3:\Then RS+A\->D:\IfEnd
\If D>M
\Then \Goto7
\IfEnd
\If D\>=N
\Then D\Disp0\->J
\While J<7
J+1\->J:JD/\Pi\->V
\If \Abs (\Intg (V+U)-V)<U
\Then "EXACT EQUIV FOUND"
\Intg (V+U)\Disp"\Pi OVER":J\Disp8\->J
\IfEnd
\WhileEnd
\IfEnd
\Goto4
\Lbl 7
"FINISHED"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:434
File Name:PBISECT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"Eqn of perp bisect\or"
"X2="?\->P
"Y2="?\->Q
"X1="?\->X
"Y1="?\->Y
\If X=P
\Then \(-)X\->C:0\->B:1\->A:1000\->J
\Goto1
\IfEnd
(P-X)\ab/c(Y-Q)\->M
(P+X)\ab/c2\->R:(Q+Y)\ab/c2\->S
.000001\->E
\For 1\->J \To 1000
\If \Abs ((J*M)-\Intg (J*M+E)<E
\Then (\Intg (J*M+E))\ab/cJ\->M
\Goto2
\IfEnd
\Next 
"No exact value found"\Disp\Lbl 2
S-MR\->C
\ClrText
\Locate 1,2,"Y=MX+C"
\Locate 1,3,"M="
\Locate 3,3,M
\Locate 1,4,"C="
\Locate 3,4,C\DispJM<0\=>-J\->J
JM\->A:\(-)J\->B:JC\->C
\Lbl 1
\ClrText
\Locate 1,2,"AX+BY+C=0"
\Locate 1,3,"A="
\Locate 3,3,A
\Locate 1,4,"B="
\Locate 3,4,B
\Locate 1,5,"C="
\Locate 3,5,C
\Locate 2,7,"AGAIN:EXE END:AC\slashON"
\Abs J\<=999\=>\Break

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:797
File Name:GP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"GP SOLVER: You know:"
"1. a,r"
"2. 2 terms"
"Select"?\->C
C=2\=>\Goto2
\ClrText
"Tn=a.r^(n-1)"
" ":"a="?\->A:A\->B
"r="?\->R:R\->S
\Goto1
\Lbl 2
\ClrText
"Known term 1"
"n="?\->D:"Tn="?\->F
"Known term 2"
"n="?\->G:"Tn="?\->H
G-D\->P:H/F\->Q:P\xrtQ\->R
F/(R^(D-1))\->A
R*(\(-)1)^(1+2\Frac (P/2))\->S
F/(S^(D-1))\->B
\ClrText
\Locate 1,2,"Tn=a.r^(n-1)"
\Locate 1,4,"a="
\Locate 3,4,A
\Locate 1,5,"r="
\Locate 3,5,R
\If R+S=0
\Then \Locate 1,6,"\or"
\Locate 3,6,S
\IfEnd
\Locate 1,7,""\Disp\Lbl 1
\ClrText
"1. Term Tn"
"2. \Sum Sn"
"3. \Sum to inf"
"4. Table"
"5. End"
"Choice"?\->C
C=2\=>\Goto3
C=3\=>\Goto4
C=4\=>\Goto5
C=5\=>\Goto6
\ClrText
"Term Tn. n="?\->N:AR^(N-1)\->T\DispBS^(N-1)\->U
T\<>U\=>U\Disp\Goto1
\Lbl 3
\ClrText
"\Sum to n. n="?\->N
A(1-R^N)/(1-R)\->T\DispB(1-S^N)/(1-S)\->U
T\<>U\=>U\Disp\Goto1
\Lbl 4
\ClrText
\Abs R\>=1\=>\Goto1
"\Sum to inf"
A/(1-R)\->T\DispB/(1-S)\->U
T\<>U\=>U\Disp\Goto1
\Lbl 5
\ClrText
\SumDispOn:\aRanType
"AR^(\R n-1)"\->\R an
"BS^(\R n-1)"\->\R bn
1\->\R Start
A\->\R a1:B\->\R b1
A/R\->\R a0:B/S\->\R b0
"Table"
"N from 1 to "?\->\R End
\R SelOn \R an
\If R\<>S
\Then \R SelOn \R bn
\Else \R SelOff \R bn
\IfEnd
\DispR-Tbl\Disp\Goto1
\Lbl 6
\ClrText
\Locate 2,7,"AGAIN:EXE END:AC\slashON"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:551
File Name:AP
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
"AP SOLVER: You know:"
"1. a,d"
"2. 2 terms"
"Select"?\->C
C=2\=>\Goto2
\ClrText
"Tn=a+(n-1)d"
" ":"a="?\->A:"d="?\->D
\Goto1
\Lbl 2
\ClrText
"2 Terms"
"Known term 1"
"n="?\->E:"Tn="?\->F
"Known term 2"
"n="?\->G:"Tn="?\->H
G-E\->P:H-F\->Q:Q/P\->D
F-D(E-1)\->A
\ClrText
\Locate 1,2,"Tn=a+(n-1)d)"
\Locate 1,4,"a="
\Locate 3,4,A
\Locate 1,5,"d="
\Locate 3,5,D\Disp\Lbl 1
\ClrText
"1. Term Tn"
"2. \Sum Sn"
"3. Table"
"4. End"
"Choice"?\->C
C=2\=>\Goto3
C=3\=>\Goto5
C=4\=>\Goto6
\ClrText
"Term Tn. n="?\->N
A+D(N-1)\Disp\Goto1
\Lbl 3
\ClrText
"\Sum to n. n="?\->N
N(2A+(N-1)D)/2\Disp\Goto1
\Lbl 5
\ClrText
\SumDispOn:\aRanType
"A+D(\R n-1)"\->\R an
1\->\R Start
A\->\R a1
A-D\->\R a0
"Table"
"N from 1 to "?\->\R End
\R SelOn \R an
\DispR-Tbl\Disp\Goto1
\Lbl 6
\ClrText
\Locate 2,7,"AGAIN:EXE END:AC\slashON"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:66
File Name:NWTNRAPH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"F(X) IN Y1"
"X="?\->X:\Do:X\->W
X-\Y 1/\d/dx(\Y 1,X)\->X\Disp\LpWhile \Abs (X-W)>\EE\(-)9:"END"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1167
File Name:LINPRG
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"\Linear \Prog Solver"
"Program overwrites"
"\Mat A,F,T \and \List 6"
"Press MENU to ab\ort"
"No. of inequalities"?\->Q:Q+1\->R:R+3\->C
\Identity R\->\Mat A
\Seq(0,X,1,R,1)\->\List 6
\List->Mat(\List 6,\List 6,\List 6)
\Augment(\Mat \Ans,\Mat A)\->\Mat A
1\->\Mat A[R,1]
0\->\Mat A[R,C]
\For 1\->K \To Q
\ClrText
\Locate 1,7,"Constraint"
\Locate 12,7,K
"ax+by (\>= \<=) c"
\Do
"Choose \>=:3 \<=:4"?\->T
\LpWhile T<3\ Or T>4
1\->F:T=3\=>\(-)F\->F
"a"?\->A
AF\->\Mat A[K,2]
"b"?\->B
BF\->\Mat A[K,3]
"c"?\->D
DF\->\Mat A[K,C]
\Next 
\ClrText
"Obj Func = ax+by"
\Do
"Min:1 Max:2 Choice"?\->T
\LpWhile T<1\ Or T>2
1\->F:T=2\=>\(-)1\->F
"a"?\->A
FA\->\Mat A[R,2]
"b"?\->B
FB\->\Mat A[R,3]
\ClrText
"Solving..."
0\->I:0\->J:0\->X:0\->Y
\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
\If (\List 6[K]>0\ And \Mat F[K,C]\<>0)
\Then \List 6[K]/\Mat F[K,C]\->\List 6[K]
\Else 0\->\List 6[K]
\IfEnd
\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 
R>2\ And J=2\=>I\->X
R>3\ And J=3\=>I\->Y
\IfEnd
\LpWhile P\<>0
\ClrText
\Locate 1,1,"Optimum:":\Locate 10,1,\(-)F\Mat F[R,C]
\Locate 1,2,"x:":X\<>0\=>\Locate 3,2,\Mat F[X,C]
\Locate 1,3,"y:":Y\<>0\=>\Locate 3,3,\Mat F[Y,C]
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:205
File Name:POLYDIV
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"Dividing...."
\Dim \Mat A
\List \Ans[2]-1\->A
\*Row(0,A,3
\*Row(0,A,4
0\->B
\Do
B+1\->B
\LpWhile \Mat A[2,B]=0
A-B+1\->B
\Row+(A,1,4
\For 0\->F \To A-B
\Mat A[4,F+1]\ab/c\Mat A[2,A-B+1]\->C
C\->\Mat A[3,B+1+F]
\For 1\->E \To B+1
\Mat A[4,F+E]-C*\Mat A[2,A-B+E]\->\Mat A[4,F+E]
\Next 
\Next 
\Mat A
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:213
File Name:POLYMULT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"Multiplying...."
\Dim \Mat A:\List \Ans[2]\->A:\*Row(0,A,3
0\->J:\Do:1+J\->J:\LpWhile \Mat A[2,J]=0
A-J\->B:A-1\->A:A+B+1\->N
{0,0,0}\->\List 6:\For 1\->J \To B:\List->Mat(\List 6):\Augment(\Mat \Ans,\Mat A)\->\Mat A:\Next 
\For N-A\->I \To N
\For N-B\->J \To N
I+J-N\->K
\Mat A[1,I]\Mat A[2,J]+\Mat A[3,K]\->\Mat A[3,K]
\Next :\Next 
\Mat A
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:471
File Name:BINPROB
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"\Binomial prob"
"Trials,n"?\->N:"Prob of success,p"?\->P:"Successes,x"?\->X
2\->C
\If NP>5\ And N(1-P)>5:\Then "Use \Normal approx?":"Yes:1 No:2"?\->C:\IfEnd
\If C=1:\Then NP\->M:\sqrt(NP*(1-P))\->S:\ProbP((X-M-.5)/S)\->U:\ProbP((X-M+.5)/S)\->L
\Else 0\->L:\For 0\->R \To X:N\nCrR*P^R*(1-P)^(N-R)\->V:L+V\->L:\Next :L-V\->U:\IfEnd
\ClrText
\Locate 1,1,"n="
\Locate 3,1,N
\Locate 9,1,"p="
\Locate 11,1,P
\Locate 1,2,"x="
\Locate 3,2,X
C\<>1\=>\Locate 14,2,"\Bin(n,p)"
C=1\=>\Locate 9,2,"N(np,np(1-p))"
\Locate 1,3,"\ProbP(X<x)="
\Locate 8,3,U
\Locate 1,4,"\ProbP(X\<=x)="
\Locate 8,4,L
\Locate 1,5,"\ProbP(X=x)="
\Locate 8,5,L-U
\Locate 1,6,"\ProbP(X\>=x)="
\Locate 8,6,1-U
\Locate 1,7,"\ProbP(X>x)="
\Locate 8,7,1-L
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:408
File Name:GUESS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Do\ClrText" ":" ":" "\Locate 3,2,"Guess 5 seconds!"\Locate 1,3,"How many goes (10-50)"?\->N:\Int N\->N\LpWhile N>50\ Or N<10\ClrList\Seq(0,X,1,N,1)\->\List 1\Seq(0,X,1,N,1)\->\List 2\ClrText\Locate 1,1,N\Locate 1,2,"     "\Locate 6,1,"Go     Err\or (s)"\For 1\->J \To N\Locate 6,2,J\Locate 3,6,"start:EXE"\Locate 13,6,"      "\Do\LpWhile \Getkey\<>31\Locate 13,6,"stop:0"\Locate 14,2,"      "\Locate 3,6,"         "\For 0\->A \To 1000\If \Getkey=71\Then \Break\IfEnd\Next (A-500)/100\->A\Locate 15,2,AJ\->\List 1[J]A\->\List 2[J]\Next \S-Gph3 \DrawOff\S-Gph2 \DrawOff\S-Gph1 \DrawOn,\Hist,\List 2,1\DrawStat\Disp\ClrText"\Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:413
File Name:REACT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Do\ClrText" ":" ":" "\Locate 3,1,"<reaction timer>"\Locate 1,3,"How many goes (2-50)":?\->N\Int N\->N\LpWhile N<2\ Or N>50\ClrList\Seq(0,X,1,N,1)\->\List 1\Seq(0,X,1,N,1)\->\List 2\For 1\->J \To N\ClrText\Locate 1,1,"Go    of"\Locate 4,1,J\Locate 10,1,N\Locate 2,4,"****   Hit 0  ****"\Locate 2,5,"when screen clears"\Ran#\->R600*R+400\->R\For 0\->I \To R\Next \ClrText:" "\For 0\->A \To 1000\If \Getkey=71\Then \Break\IfEnd\Next \Locate 5,2,"Time (s):"\Locate 15,2,A/100J\->\List 1[J]A/100\->\List 2[J]\For 0\->A \To 200:\Next \Next \S-Gph3 \DrawOff\S-Gph2 \DrawOff\S-Gph1 \DrawOn,\xyLine,\List 1,\List 2,1,\Cross\DrawStat\Disp\ClrText"\Done"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:96
File Name:TRAPRULE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"FIRST"?\->F"LAST"?\->L"WIDTH"?\->W\Seq(\f1,X,F,L-W,W)\->\List 1\Seq(\f1,X,F+W,L,W)\->\List 2(\List 1+\List 2)*W/2\->\List 3\Sum \List 3
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1557
File Name:MAV
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Locate 1,2,"Moving average prog"\Locate 1,3,"Uses data lists:1-2"\Locate 1,4,"Finds\slashplots y=ax+b"\Locate 1,5,"f\or moving average"\Locate 1,6,"\and rsdls\slashseas adj"\Locate 1,7,"Press EXE to resume"\Disp\ClrText\Dim \List 2\->N\List 1[2]-\List 1[1]\->W\For 3\->I \To N\If \List 1[I]-\List 1[I-1]\<>W\Then \Locate 1,1,"ERROR!"\Locate 1,2,"Check \List 1: values"\Locate 1,3,"must go up unif\ormly"\Stop\IfEnd\Next "Points"?\->P\Locate 1,4,"Finding averages....".5\->E\Int (\Frac (P/2)+.5)\<>0\=>1\->E\Int (P/2)\->L1+L\->FN-L\->Q2L\->L\Seq(0,X,1,N,1)\->\List 3\List 3\->\List 4\List 3\->\List 5\List 3\->\List 6\For 1\->I \To (N-L)E(\List 2[I]+\List 2[I+L])\->S\For (I+1)\->J \To (I+L-1)\List 2[J]+S\->S\Next I+(L/2)\->KS/P\->\List 3[K]\List 2[K]-\List 3[K]\->\List 4[K]\Next \For F\->I \To Q1\->\List 5[I]\Next \S-WindMan\ViewWindow \Min(\List 1),\Max(\List 1),(\Xmax-\Xmin)/4,\Min(\List 2),\Max(\List 2),(\Ymax-\Ymin)/4\S-Gph1 \DrawOn,\xyLine,\List 1,\List 2,1,\Cross,\Blue \S-Gph2 \DrawOn,\Scatter,\List 1,\List 3,\List 5,\Square,\Orange \S-Gph3 \DrawOn,\Linear,\List 1,\List 3,\List 5,\Green \DrawStat\Disp\LinearReg \List 1,\List 3,\List 5\Disp\Ra\->A:\Rb\->B:\Cor\->R\ClrText\Locate 1,3,"Finding residuals..."\For 1\->J \To N0\->T:0\->SF+\Int (P\Frac ((J+P-F)/P)+.5)\->M\For M\->I \To Q \Step P\List 4[I]+S\->S1+T\->T\Next S/T\->\List 5[J]\List 2[J]-\List 5[J]\->\List 6[J]\Next \Do\ClrText\Locate 1,3,"Type 1 : Yes"\Locate 1,4,"     2 : No"\Locate 1,5,"\Then press EXE""Predict values"?\->E\If E=1\Then \ClrText"x value"?\->X\ClrText\Locate 10,2,"x="\Locate 12,2,XX\->V(X-\List 1[1])/W+1\->X\If \Int X\<>X\Then \Int (X+.5)\->XW(X-1)+\List 1[1]\->V\Locate 4,3,"Using x="\Locate 12,3,V\IfEnd\RaV+\Rb\->Y\Locate 10,4,"y="\Locate 12,4,Y\Int (P\Frac (\Abs (X/P))+.5)\->MM=0\=>P\->M\Locate 1,5,"Seas Comp ="\Locate 12,5,\List 5[M]\Locate 1,6,"Future Val="\Locate 12,6,Y+\List 5[M]\Disp\IfEnd\LpWhile E=1\S-WindAuto\ClrText\Locate 1,2,"Lists now contain:"\Locate 1,3,"3: Mov Avs"\Locate 1,4,"4: \Residuals"\Locate 1,5,"5: Av residuals"\Locate 1,6,"6: Seas adjusted"\Disp\ClrText\Locate 1,1,"Finished"\Locate 1,2,"Again...... EXE"\Locate 1,3,"See Lists.. MENU,4"\Locate 1,4,"End........ AC\slashON"\For 1\->I \To 10\Locate 1,6,"                   "\Locate 1,7,"                   "\Locate 1,6,"Warning:use y=ax+b"\Locate 1,7,"from this prog ONLY"\Next 
%End