%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:106
File Name:CALENDAR
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"DAY"?\->D
"MONTH"?\->M
"YEAR"?\->Y
1+D+2M+\Int (3(M+1)/5)+Y+\Int (Y/4)-\Int (Y/100)+\Int (Y/400)\->W
7*\Frac (W/7)\->W
"WEEKDAY IS"
W
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:52
File Name:ZERO
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\While \Abs (\Y 1)>0.00000001
X-(\Y 1/\d/dx(\Y 1,X))\->X
\WhileEnd
{X,\Y 1}
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:104
File Name:QUADEQTN
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"AX\x^2+BX+C=0"
"A"?\->A
"B"?\->B
"C"?\->C
B\x^2-4AC\->D
\If D<0
\Then "NO REAL SOLUTION":\Stop
\Else {(\(-)B+\sqrtD)/2A,(\(-)B-\sqrtD)/2A}
\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:83
File Name:DICE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"NO OF ROLLS"?\->N
\Seq(0,X,1,N,1)\->\List 1
\For 1\->A \To N
\Int (6\Ran#+1)\->\List 1[A]
\Next 
"MEAN SCORE"
\Mean\List 1)
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:58
File Name:SEARCH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\For 10\->X \To 100
\Int (X/10)\->A
10*\Frac (X/10)\->B
\If AB+A+B=X
\Then X\Disp\IfEnd
\Next 
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:123
File Name:INTRSECT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"USE Y1 AND Y2"
\Fix 3
(\Xmax-\Xmin)/78\->W
10\->D
\Lbl 1
X+W\->X
D\->P
\Abs (\Y 2-\Y 1)\->D
\If D<0.0001
\Then \Goto2
\IfEnd
\If D<P
\Then \Goto1
\Else \(-)(W/10)\->W
\Goto1
\Lbl 2
{X,\Y 1}\Disp\Norm
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:159
File Name:2 X 2 EQ
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"A11X+A12Y=B1"
"A21X+A22Y=B2"
"A\(-)11 "?\->A
"A\(-)12 "?\->B
"B\(-)1 "?\->C
"A\(-)21 "?\->D
"A\(-)22 "?\->E
"B\(-)2 "?\->F
AE-BD\->G
\If G\<>0
\Then \Goto1
\Else "NO SOLUTION":\Stop
\Lbl 1
{(EC-BF)\ab/cG,(AF-DC)\ab/cG}
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:294
File Name:3 * 3 EQ
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"A\(-)11 "?\->A
"A\(-)12 "?\->B
"A\(-)13 "?\->C
"B\(-)1 "?\->D
"A\(-)21 "?\->E
"A\(-)22 "?\->F
"A\(-)23 "?\->G
"B\(-)2 "?\->H
"A\(-)31 "?\->I
"A\(-)32 "?\->J
"A\(-)33 "?\->K
"B\(-)3 "?\->L
A(FK-GJ)-B(EK-IG)+C(EJ-IF)\->W
\If W\<>0
\Then \Goto1
\Else "NO SOLUTION":\Stop
\Lbl 1
D(FK-GJ)-B(HK-LG)+C(HJ-FL)\->X
A(HK-GL)-D(EK-GI)+C(EL-HI)\->Y
A(FL-HJ)-B(EL-HI)+D(EJ-FI)\->Z
{X\ab/cW,Y\ab/cW,Z\ab/cW}
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:118
File Name:INTEGRAL
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"FUNCTION Y1"
"LOWER "?\->A
"UPPER "?\->B
100\->N
A\->X:\Y 1\->S
(B-A)/N\->W
\For 1\->K \To N-1
X+W\->X
2\Y 1+S\->S
\Next 
X+W\->X
\Y 1+S\->S
WS/2\->S
S
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:155
File Name:LONGRUN
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\(-)0.1\->\Ymin:1\->\Ymax:0.1\->\Yscl:0\->\Xmin:78\->\Xmax:10\->\Xscl
"PROBABILITY"?\->P
\Horizontal P
0\->S:0\->K:0\->X
\While X<78
\Int (\Ran#+P)\->T
\If T\<>1
\Then \Goto1
\Else S+1\->S
\IfEnd
\Lbl 1
K+1\->K
\PlotOn X,S/K
X+1\->X
\WhileEnd
"REL FREQ ="
S/K
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:98
File Name:SRANSAMP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"SAMPLE SIZE"?\->N
\Seq(0,X,1,N,1)\->\List 6
\Dim \List 1\->M
\For 1\->K \To N
\List 1[\Int (M\Ran#+1)]\->\List 6[K]
\Next 
"SAMPLE MEAN"
\Mean\List 6)

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:175
File Name:DIFFLIST
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"DATA ARE"
"IN LIST 1"
\Dim \List 1\->N
\Seq(0,X,1,N-1,1)\->\List 2
\Seq(0,X,1,N-2,1)\->\List 3
\For 1\->K \To N-1
\List 1[K+1]-\List 1[K]\->\List 2[K]
\Next 
\For 1\->K \To N-2
\List 2[K+1]-\List 2[K]\->\List 3[K]
\Next 
"PRESS MENU 2"
"FOR RESULTS"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:62
File Name:DECIMAL
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"NUMERATOR"?\->N
"DENOMINATOR"?\->X
\Lbl 1
\Int (N/X)\->D
10(N-DX)\->N
D\Disp\Goto1
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:220
File Name:BINPROB
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"NUMBER"?\->N
"PROBABILITY"?\->P
"PROB X=0 IS"
(1-P)^N\->F\Disp\Seq(0,X,1,N,1)\->\List 1
\List 1\->\List 2
\For 1\->X \To N
(N\nCrX)(P^X)(((1-P)^(N-X))\->\List 1[X]
\Next 
\List 1[1]+F\->\List 2[1]
\For 2\->X \To N
\List 1[X]+\List 2[X-1]\->\List 2[X]
\Next 
"PRESS MENU 2"
"LIST1:PROB"
"LIST2:CUMPROB"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:88
File Name:FACTORS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"NUMBER"?\->N
N\->X
\While \Frac (X/2)=0
2\DispX/2\->X
\WhileEnd
\For 3\->D \To \sqrtN \Step 2
\Lbl 1
\If \Frac (X/D)=0
\Then D\DispX/D\->X
\Goto1
\IfEnd
\Next 
X
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:97
File Name:MINIMUM
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
(\Xmax-\Xmin)/78\->H
\Lbl 1
\Y 1\->A
X+H\->X
\Y 1\->B
\If B<A
\Then \Goto1
\Else \(-)H/10\->H
\IfEnd
\If \Abs H<0.00001
\Then \Goto2
\Else \Goto1
\IfEnd
\Lbl 2
{X,\Y 1}
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:95
File Name:MAXIMUM
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
(\Xmax-\Xmin)/78\->H
\Lbl 1
\Y 1\->A
X+H\->X
\Y 1\->B
\If B>A
\Then \Goto1
\Else \(-)H/10\->H
\IfEnd
\If \Abs H<0.00001
\Then \Goto2
\Else \Goto1
\IfEnd
\Lbl 2
{X,Y}
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:65
File Name:COIN
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"NO OF TOSSES"?\->N
0\->X
\For 1\->K \To N
\Int (\Ran#+0.5)+X\->X
\Next 
"NO OF HEADS"
X
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:115
File Name:BINOMIAL
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"PROBABILITY"?\->P
"NO. TRIALS"?\->N
"HOW MANY"?\->K
\Seq(0,X,1,K,1)\->\List 1
\For 1\->I \To K
0\->X
\For 1\->J \To N
\Int (\Ran#+P)+X\->X
\Next 
X\->\List 1[I]
\Next 

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:184
File Name:FREQDIST
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"DATA IN LIST1"
"DATA INTEGERS"\Disp\Min(\List 1)\->A
\Max(\List 1)\->B
B-A+1\->N
\Seq(X+A,X,0,N-1,1)\->\List 2
\Seq(0,X,0,N-1,1)\->\List 3
\Dim \List 1\->K
\For 1\->J \To K
\List 1[J]\->X:X-A+1\->X
\List 3[X]+1\->\List 3[X]
\Next 
"FREQ DISTRIB"
"IN LISTS 2,3"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:91
File Name:TWODICE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"NO OF ROLLS"?\->N
\Seq(0,X,1,N,1)\->\List 1
\For 1\->A \To N
\Int (6\Ran#+1)+\Int (6\Ran#+1)\->\List 1[A]
\Next 
"MEAN SCORE"
\Mean\List 1)
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:178
File Name:NORMAL
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"MEAN"?\->M
"STD DEV"?\->S
"(1/(S\sqrt(2\Pi)))\e^x(\(-)(X-M)\x^2/2S\x^2)"\->\Y 1
50\->N
\Lbl 1
"LOWER VALUE"?\->L
"UPPER VALUE"?\->U
L\->X:\Y 1\->T
(U-L)/N\->W
\For 1\->K \To N-1
X+W\->X
2\Y 1+T\->T
\Next 
X+W\->X
\Y 1+T\->T
\Fix 4
WT/2\->T\Disp\Norm
\Goto1
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:334
File Name:CMPNDINT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"PRINCIPAL"?\->P
"AMOUNT"?\->A
"RATE P.A."?\->R
"# PERIODS"?\->N
"TIMES\slashYEAR"?\->C
\Fix 2
\If R\>=1:\Then R/100\->R:\IfEnd
\If P>0:\Then \Goto1:\Else "PRINCIPAL":A/((1+R/C)^(N))\->P:\Stop
\Lbl 1
\If A>0:\Then \Goto2:\Else "AMOUNT":P(1+R/C)^(N)\->A:\Stop
\Lbl 2
\If R>0:\Then \Goto3:\Else "INT RATE P.A.":100C((A/P)^(1/N)-1)\->R:\Stop
\Lbl 3
\If C>0:\Then \Goto4:\Else "TIMES\slashYEAR":R/((A/P)^(1/N)-1)\->C:\Stop
\Lbl 4
"# PERIODS":(\In (A/P)/(\In (1+R/C))\->N:\Stop
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:80
File Name:HERON
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"SIDE 1"?\->A
"SIDE 2"?\->B
"SIDE 3"?\->C
(A+B+C)/2\->S
"AREA IS"
\sqrt(S(S-A)(S-B)(S-C))
%End