%Header Record
Format:MCS1
Type Number:1
File Name:ARCHIMED
Option Name:
Communication SW:0
Capacity:72
Data Type:PG
%Data Record
Password:
BaseN:0
"NO. POINTS"?\->N
0\->S
\For 1\->X \To N
\Ran#\->A:\Ran#\->B
\If B<A\x^2
\Then S+1\->S
\IfEnd
\Next 
S/N\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:BINPROB
Option Name:
Communication SW:0
Capacity:133
Data Type:PG
%Data Record
Password:
BaseN:0
"NUMBER"?\->N
"PROBABILITY"?\->P
"PROB (X=0) IS"
(1-P)^N\Disp\Seq(0,X,1,N,1)\->\List 1
\For 1\->X \To N
N\nCrX*P^X*(1-P)^(N-X)\->\List 1[X]
\Next 
\List 1\Disp\ClrText
"\Done"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:CALENDAR
Option Name:
Communication SW:0
Capacity:115
Data Type:PG
%Data Record
Password:
BaseN:0
"DAY"?\->D
"MONTH"?\->M
"YEAR"?\->Y
2+D+2M+\Int (3(M+1)/5)+Y+\Int (Y/4)-\Int (Y/100)+\Int (Y/400)\->W
7*\Frac (W/7)\->W
"WEEK DAY IS"
W\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:CARDS
Option Name:
Communication SW:0
Capacity:177
Data Type:PG
%Data Record
Password:
BaseN:0
"NO TO COLLECT"?\->N
\Seq(0,X,1,100,1)\->\List 1
\Seq(0,X,1,N,1)\->\List 2
\For 1\->T \To 100
\Int (N\Ran#+1)\->K
K\->\List 1[T]
1\->\List 2[K]
0\->S
\For 1\->M \To N
\If \List 2[M]=1
\Then S+1\->S
\IfEnd
\Next 
\If S=N
\Then "NO OF CARDS ="
T\Disp\Stop
\IfEnd
\Next \@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:COIN
Option Name:
Communication SW:0
Capacity:102
Data Type:PG
%Data Record
Password:
BaseN:0
"NO OF TOSSES"?\->N
\Seq(0,X,1,60,1)\->\List 1
\For 1\->J \To 60
0\->X
\For 1\->K \To N
\Int (\Ran#+0.5)+X\->X
\Next 
X\->\List 1[J]
\Next 
\List 1\Disp\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:DEPLOT
Option Name:
Communication SW:0
Capacity:120
Data Type:PG
%Data Record
Password:
BaseN:0
"INITIAL X= "?\->A
"INITIAL Y= "?\->B
\PlotOn A,B
(\Xmax-\Xmin)/126\->H
\While A<\Xmax
A\->X
B\->Y
A+H\->C
\Y 1*H\->V
B+V\->D
\F-Line A,B,C,D
C\->A
D\->B
\WhileEnd\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:DIFFLIST
Option Name:
Communication SW:0
Capacity:110
Data Type:PG
%Data Record
Password:
BaseN:0
"DATA MUST BE LIST 1"
\Dim \List 1\->N
\Seq(0,X,1,N-1,1)\->\List 2
\For 1\->K \To N-1
\List 1[K+1]-\List 1[K]\->\List 2[K]
\Next 
\List 2\Disp\ClrText
"\Done"\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:DIRECFLD
Option Name:
Communication SW:0
Capacity:137
Data Type:PG
%Data Record
Password:
BaseN:0
(\Xmax-\Xmin)/126\->H
(\Ymax-\Ymin)/62\->V
\Xmin-4H\->X
\While X<\Xmax
X+10H\->X
\For \Ymin-5V\->Y \To \Ymax \Step 9V
\Y 1\->M
1/\sqrt(1+M\x^2)\->F
\F-Line X-3FH,Y-3FMH,X+3FH,Y+3FMH
\Next 
\WhileEnd
\PxlOff 1,1\Disp\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:DISPLAY
Option Name:
Communication SW:0
Capacity:258
Data Type:PG
%Data Record
Password:
BaseN:0
{1,0}\->\List 6
\Send(\List 6)
{3,1,\(-)1}\->\List 6
\Send(\List 6)
\Cls
"NO OF POINTS"?\->N
\Seq(X,X,0,N-1,1)\->\List 1
\Seq(0,X,1,N,1)\->\List 2
\(-)2\->\Xmin:N\->\Xmax:5\->\Xscl
\(-)5\->\Ymin:40\->\Ymax:5\->\Yscl
\Text 2,10,"TEMP"
\Text 58,100,"TIME"
"PRESS EXE TO START"
"READING TEMPERATURE"\Disp\For 1\->T \To N
\Receive(A)
\PlotOn T,A
A\->\List 2[T]
\Next 
{1,0}\->\List 6
\Send(\List 6)\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:FACTORS
Option Name:
Communication SW:0
Capacity:96
Data Type:PG
%Data Record
Password:
BaseN:0
"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\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:MANDLBRT
Option Name:
Communication SW:0
Capacity:183
Data Type:PG
%Data Record
Password:
BaseN:0
\(-)0.8\->\Xmin
\(-)0.4\->\Xmax
0.5\->\Ymin
0.7\->\Ymax
(\Xmax-\Xmin)/127\->H
(\Ymax-\Ymin)/63\->V
\Xmin\->X
\Ymin\->Y
\While X<\Xmax+H
\While Y<\Ymax+V
X+\{i}Y\->Z
0\->N
Z\->C
\While \Abs Z<2\ And N<30
Z\x^2+C\->Z
N+1\->N
\WhileEnd
\If N>29
\Then \Plot X,Y
\IfEnd
Y+V\->Y
\WhileEnd
\Ymin\->Y
X+H\->X
\WhileEnd
\Stop\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:SAMPDIST
Option Name:
Communication SW:0
Capacity:179
Data Type:PG
%Data Record
Password:
BaseN:0
"POPULATION IN LIST1"
\Dim (\List 1)\->D
"SAMPLE SIZE"?\->N
"NO OF SAMPLES"?\->S
\Seq(0,X,1,N,1)\->\List 2
\Seq(0,X,1,S,1)\->\List 3
\For 1\->J \To S
\For 1\->K \To N
\Int (D\Ran#+1)\->X
\List 1[X]\->\List 2[K]
\Next 
\Mean\List 2)\->\List 3[J]
\Next 
\List 3\Disp\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:SAMPLE
Option Name:
Communication SW:0
Capacity:127
Data Type:PG
%Data Record
Password:
BaseN:0
"P ="?\->P
"SAMPLE SIZE"?\->N
"NO OF SAMPLES"?\->X
\Seq(0,A,1,X,1)\->\List 1
\For 1\->J \To X
0\->S
\For 1\->K \To N
S+\Int (\Ran#+P)\->S
\Next 
S/N\->\List 1[J]
\Next 
\List 1\Disp\@00
%End