%Header Record
Format:VAL
Communication SW:0
Data Type:LT
Rows:4
Columns:1
Variable Name:List 6
Group Name:
Variable Type:R
Variable Length:10
Option1:
Option2:
Option3:
Option4:
%Data Record
Value : 1 1 3
Value : 2 1 2\EE-2
Value : 3 1 1.5\EE+2
Value : 4 1 1
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:180
File Name:CELLAUTO
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\AxesOff
1\->N
\For 1+N\->J \To 127-N
\Int (2\Ran#)\->S
\If S=1
\Then \PxlOn 1,J
\IfEnd
\Next
\For 1\->I \To 62
\For 2+N\->J \To 126-N
\PxlTest I,J-2
\Ans\->A
\PxlTest I,J-1
\Ans\->B
\PxlTest I,J
\Ans\->C
\PxlTest I,J+1
\Ans\->D
\PxlTest I,J+2
\Ans\->E
\If A+B+D+E=0\ Or A+B+D+E=4
\Then \PxlOn I+1,J
\IfEnd
\Next
\Next

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:140
File Name:SHADEPLT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"X\x^2+V\x^2-1"\->\Y 1
\AxesOn
\Cls
\ViewWindow -3,3,1,-3,3,1
\PlotOn 0,0
\Xmin\->A
\Xmax\->B
\Ymin\->C
\Ymax\->D
(D-C)/62\->R
(B-A)/126\->S
\For C\->V \To D \Step R
\For A\->X \To B \Step S
\If \Y 1<0
\Then \Plot X,V
\IfEnd
\Next
\Next
\PlotOn 0,0

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:149
File Name:IFPLOT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\AxesOff
\Cls
5000\->M
0\->X
0\->Y
\For 1\->N \To M
\Ran#\->R
1\->K
\While R>\Mat A[K,7]
K+1\->K
\WhileEnd
\Mat A[K,1]X+\Mat A[K,2]Y+\Mat A[K,5]\->Z
\Mat A[K,3]X+\Mat A[K,4]Y+\Mat A[K,6]\->Y
Z\->X
\If N>10
\Then \PlotOn X,Y
\IfEnd
\Next

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:122
File Name:TRANSFER
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\AxesOn
\Cls
\ViewWindow -12,12,1,-6,6,1
4\->N
22\->M
\Mat B\->\Mat C
\For 1\->K \To M
\For 1\->J \To N
\Plot \Mat C[1,J],\Mat C[2,J]
\Plot \Mat C[1,J+1],\Mat C[2,J+1]
\Line
\Next
\Mat A*\Mat C\->\Mat C
\Next

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:221
File Name:SAFESET
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ViewWindow -1.2,1.2,1,-1,1,1
\Cls
0.22\->A
0.96\->B
30\->N
10\->R
\Xmin\->S
\Xmax\->T
\Ymin\->U
\Ymax\->V
(T-S)/126\->D
(V-U)/62\->E
\For 0\->J \To 62
U+JE\->Q
\For 0\->I \To 126
S+ID\->P
\PlotOn P,Q
P\->X
Q\->Y
0\->K
\Do
K+1\->K
X^3-3XY\x^2+A\->Z
3X\x^2Y-Y^3+B\->Y
Z\->X
\LpWhile X\x^2+Y\x^2\<=R\ And K\<>N
\If K\<>N
\Then \PlotOff P,Q
\IfEnd
\Next
\Next

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:106
File Name:CAOS1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\AxesOff
\ViewWindow -20,20,2,-10,11,2
0.14\->A
5\->B
0\->I
4\->P
0\->Q
\Do
Q+AP+B/(1+P\x^2)\->R
-P\->S
\PlotOn R+S,R-S
R\->P
S\->Q
I+1\->I
\LpWhile I\<=50000

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:244
File Name:3DPLOT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"2-\Int (X\x^2+V\x^2)"\->\Y 1
\AxesOn
\Cls
\ViewWindow -5,5,1,-5,5,1
\Xmin+2\->A
\Xmax-2\->B
\Ymin\->M
\Ymax\->N
(B-A)/126\->D
(N-M)/62\->E
\Pi/3\->T
\cos T\->C
\sin T\->S
4D\->F
\For A\->X \To B \Step F
A\->V
X\->R
\Y 1\->Z
V-XC\->I
Z-XS\->J
\For (A+D)\->V \To B \Step D
\Y 1\->Z
V-XC\->P
Z-XS\->Q
\F-Line I,J,P,Q
\For (J-12E)\->H \To (J-1E) \Step E
\PlotOff I,H
\Next
R\->X
P\->I
Q\->J
\Next
\Next

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:160
File Name:SONIC
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
{0}\->\List 6
\Send(\List 6)
{1,4,2}\->\List 6
\Send(\List 6)
{3,.02,150,1}\->\List 6
\Send(\List 6)\Disp\Receive(\List 1)
\Receive(\List 2)
\Max(\List 2)-\List 2\->\List 2
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Dot,\Blue
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\Text 2,10,"HEIGHT"
\Text 55,100,"TIME"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:147
File Name:TEMP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\S-WindAuto
\AxesOn
\Cls
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{3,1,30,1}\->\List 6
\Send(\List 6)\Disp\Receive(\List 1)
\Receive(\List 2)
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Dot,\Blue
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\Text 2,10,"TEMP."
\Text 55,100,"TIME"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:154
File Name:REALTIME
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\AxesOn
0\->\Xmin
110\->\Xmax
20\->\Xscl
50\->\Ymin
80\->\Ymax
10\->\Yscl
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{3,3,\(-)1}\->\List 6
\Send(\List 6)
\For 1\->I \To 100
\Receive(A)
\PlotOn I,A
\Next
\Text 2,10,"TEMP."
\Text 55,100,"TIME"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:323
File Name:VOLT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
"HOW MANY POINTS"?\->N
\Seq(0,X,1,N,1)\->\List 1
\Seq(0,X,1,N,1)\->\List 2
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
\For 1\->I \To N \Step 1
"ENTER REGISTANCE"
?\->\List 1[I]
"ENTER TRIGGER KEY ON THE CDA"
{3,.01,5,0,1}\->\List 6
\Send(\List 6)
"THEN PRESS [EXE]"\Disp\Receive(\List 3)
(\Sum \List 3-\Max(\List 3)-\Min(\List 3))/3\->\List 2[I]
\Next
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Blue
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\Text 2,15,"VOLTAGE"
\Text 55,80,"REGISTANCE"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:321
File Name:LIGHT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
"HOW MANY POINTS"?\->N
\Seq(0,X,1,N,1)\->\List 1
\Seq(0,X,1,N,1)\->\List 2
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
\For 1\->I \To N \Step 1
"ENTER DISTANCE"
?\->\List 1[I]
"ENTER TRIGGER KEY ON THE CDA"
{3,.01,5,0,1}\->\List 6
\Send(\List 6)
"THEN PRESS [EXE]"\Disp\Receive(\List 3)
(\Sum \List 3-\Max(\List 3)-\Min(\List 3))/3\->\List 2[I]
\Next
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Blue
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\Text 2,15,"INTENSITY"
\Text 55,80,"DISTANCE"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:84
File Name:MANUAL
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\Receive(\List 1)
\Receive(\List 2)
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Dot,\Blue
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\Text 2,10,"TEMP."
\Text 55,100,"TIME"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:169
File Name:SONIC-2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
{0}\->\List 6
\Send(\List 6)
{1,4,2,1}\->\List 6
\Send(\List 6)
{3,.02,150,1,1,0,0,0,0,0,0,1}\->\List 6
\Send(\List 6)\Disp\Receive(\List 1)
\Receive(\List 2)
\Receive(\List 3)
\S-Gph1 \DrawOn,\Scatter,\List1,\List3,1,\Dot,\Blue
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\Text 2,10,"SPEED"
\Text 55,100,"TIME"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:69
File Name:PARAMET
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ViewWindow -3,3,1,-3,3,1,0,2\Pi,\Pi/90
\AxesOn
\Cls
"A="?\->A
"B="?\->B
\Graph (X,Y)=(2\cos AT+\sin BT,2\sin AT+\cos BT)

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:44
File Name:POLAR
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ViewWindow -3,3,1,-3,3,1,-3\Pi,3\Pi,\Pi/90
\AxesOn
\Cls
\Graph r=\theta/(\theta-3)

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:12
File Name:LIFE2D
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\AxesOff
1\->N

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:250
File Name:RDOT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\AxesOff
\ViewWindow -10,10,1,-10,10,1
\Xmin\->A
\Xmax\->B
\Ymin\->C
\Ymax\->D
(B-A)/6\->E
-1\->F
1\->G
E/(G-F)/4\->H
\For 1\->N \To 500
\Ran#\->R
R(D-C)+C\->Y
A+E/2\->W
\Y 1\->Z
\If Z>G
\Then G\->Z
\IfEnd
\If Z<F
\Then F\->Z
\IfEnd
A+E+HZ\->L
\Ran#\->R
R(L-A)+A\->X
\Lbl 1
\Plot X,Y
X+E/2\->W
\Y 1\->Z
\If Z>G
\Then G\->Z
\IfEnd
\If Z<F
\Then F\->Z
\IfEnd
X+E+HZ\->X
\If X<B
\Then \Goto1
\IfEnd
\Next

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:352
File Name:DLA2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\ViewWindow 1,127,1,1,63,1
\AxesOff
5000\->N
\For 1\->J \To 127 \Step 2
\PxlOn 63,J
\Next
\For 1\->J \To N
0\->E
0\->F
3+2\Int (62\Ran#)\->S
\For 1\->K \To 63 \Step 2
\PxlTest K,S-2
\Ans\->A
\PxlTest K,S+2
\Ans\->C
\If A=1
\Then 1\->E
\IfEnd
\If C=1
\Then 1\->F
\IfEnd
\PxlTest K,S
\Ans\->B
\If B=1\ And E=0\ And F=0
\Then \F-Line S,64-K,S+2\Int (3\Ran#)-2,66-K
\Break
\IfEnd
\If B=1\ And E=0\ And F=1
\Then \F-Line S,64-K,S+2\Int (2\Ran#)-2,66-K
\Break
\IfEnd
\If B=1\ And E=1\ And F=0
\Then \F-Line S,64-K,S+2\Int (2\Ran#),66-K
\Break
\IfEnd
\If B=1\ And E=1\ And F=1
\Then \F-Line S,64-K,S,66-K
\Break
\IfEnd
\Next
\Next

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:375
File Name:DLA
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\ViewWindow -63,63,4,-31,31,4
\AxesOff
\PxlOn 32,64
30\->R
\For 1\->J \To 1500
2\Pi\Ran#\->T
R\cos T\->V
R\sin T\->W
\PxlOn 32-\Int (W),64+\Int (V)
\For 28\->R \To 0 \Step -2
\Int (R\cos T)\->\r
\Int (R\sin T)\->\theta
\PxlTest 32-\theta,64+\r
\Ans\->A
\If A=1
\Then \Int (V+3\Ran#-1)\->P
\Int (W+3\Ran#-1)\->Q
\PxlTest 32+1-Q,64+P
\Ans\->B
\PxlTest 32-1-Q,64+P
\Ans\->C
\PxlTest 32-Q,64+1+P
\Ans\->D
\PxlTest 32-Q,64-1+P
\Ans\->E
\PxlTest 32+1-Q,64+1+P
\Ans\->F
\PxlTest 32-1-Q,64+1+P
\Ans\->G
\PxlTest 32+1-Q,64-1+P
\Ans\->H
\PxlTest 32-1-Q,64-1-P
\Ans\->I
\If B+C+D+E+F+G+H+I=0
\Then \F-Line P,Q,\r,\theta
\IfEnd
\Break
\IfEnd
\r\->V
\theta\->W
\Next
\Next

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:203
File Name:DLA3
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\ViewWindow -63,63,4,-31,31,4
\AxesOff
\PxlOn 32,64
30\->R
\For 1\->J \To 1500
2\Pi\Ran#\->T
R\cos T\->V
R\sin T\->W
\PxlOn 32+\Int (W),64+\Int (V)
\For 26\->R \To 0 \Step -1
\Prog "JUDGE"
\If B+C+D+E+F+G+H+I\<>0
\Then \Break
\IfEnd
\Next
\Int (\Ran#*8+1)\->Z
\For 0\->V \To Z
\PxlOn 32+\Int ((R+V)\sin T),64+\Int ((R+V)\cos T)
\Next
30\->R
\Next

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:176
File Name:JUDGE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Int (R\cos T)\->K
\Int (R\sin T)\->L
\PxlTest 32+1+L,64+K
\Ans\->B
\PxlTest 32-1+L,64+K
\Ans\->C
\PxlTest 32+L,64+1+K
\Ans\->D
\PxlTest 32+L,64-1+K
\Ans\->E
\PxlTest 32+1+L,64+1+K
\Ans\->F
\PxlTest 32+1+L,64-1+K
\Ans\->G
\PxlTest 32-1+L,64+1+K
\Ans\->H
\PxlTest 32-1+L,64-1+K
\Ans\->I
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:333
File Name:EPOTE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\AxesOff
\ViewWindow 1,137,1,1,63,1
\For 1\->I \To 7
\For 1\->J \To 11
\Orange \PlotOn 10(J-1)+5I,4I+6
\Next
\Next
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
\For 1\->I \To 7
\For 1\->J \To 11
10(J-1)+5I\->Q
4I+6\->R
\Locate 2,2,"(X,Y)="
\Locate 2,3,J
\Locate 5,3,","
\Locate 6,3,I
\Locate 1,4,"PRESS TRIGGER KEY"
{3,.5,5,0,1}\->\List 6
\Send(\List 6)
\Locate 1,5,"THEN PRESS [EXE]"\Disp\Receive(\List 3)
2\Int (\Median\List 3))\->P
\Orange \F-Line Q,R,Q,R+P
\If J>1
\Then \Green \F-Line S,T,Q,R+P
\IfEnd
Q\->S
R+P\->T
\Next
\Next

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:3
File Name:LFREQ1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:100
File Name:RSAMP1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\ViewWindow -63,63,5,-31,31,5
\AxesOn
{1,0}\->\List 6
\Send(\List 6)
{3,.001,-1,0,1}\->\List 6
\Send(\List 6)
\For -63\->I \To 63
\Receive(P)
\PlotOn I,5P-31
\Next
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:333
File Name:LIGHT3P
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{1,2,1}\->\List 6
\Send(\List 6)
{1,3,1}\->\List 6
\Send(\List 6)
{3,0.001,500,1}\->\List 6
\Send(\List 6)\Disp\Receive(\List 1)
\Receive(\List 2)
\Receive(\List 3)
\Receive(\List 4)
(\Max(\List 2)+\Min(\List 2)/2\->A
\For 1\->I \To 500
\If \List 2[I]<A
\Then \Break
\IfEnd
\Next
\List 1[I]\->S
(\Max(\List 3)+\Min(\List 3))/2\->B
\For 1\->I \To 500
\If \List 3[I]<B
\Then \Break
\Next
\List 1[I]\->T
(\Max(\List 4)+\Min(\List 4))/2\->C
\For 1\->I \To 500
\If \List 4[I]<C
\Then \Break
\Next
\List 1[I]\->U
\Locate 1,1,S
\Locate 1,2,T
\Locate 1,3,U

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:127
File Name:LISS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{1,4,2}\->\List 6
\Send(\List 6)
{3,.5,5}\->\List 6
\Send(\List 6)\Disp\Receive(\List 2)
\Receive(\List 3)
\S-Gph1 \DrawOn,\Scatter,\List 2,\List 3,1,\Square,\Blue
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:153
File Name:DLA1-1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\ViewWindow 1,127,1,1,63,1
\AxesOff
7500\->N
\For 1\->J \To 126
\PxlOn 63,J
\Next
\For 1\->J \To N
2+\Int (124\Ran#)\->S
\For 3\->K \To 63
\PxlTest K+1,S-1
\Ans\->A
\PxlTest K+1,S
\Ans\->B
\PxlTest K+1,S+1
\Ans\->C
\If A+B+C\<>0
\Then \Break
\IfEnd
\Next
\PxlOn K,S
\Next

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:358
File Name:EX1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ViewWindow ,,,,,,.2
\S-WindAuto
\AxesOn
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{3,0.01,100,1}\->\List 6
\Send(\List 6)\Disp\Receive(\List 1)
\Receive(\List 2)
(\Max(\List 2)+\Min(\List 2))/2\->A
0\->J
0\->F
\Seq(0,X,1,100,1)\->\List 3
\For 1\->I \To 100
\If \List 2[I]>A
\Then \If F=1
\Then J+1\->J
\List 1[I]\->\List 3[J]
0\->F
\IfEnd
\Else 1\->F
\IfEnd
\Next
\Seq(0,X,1,J-1,1)\->\List 4
\Seq(0,X,1,J-1,1)\->\List 5
\For 1\->I \To J-1
\List 3[I+1]-\List 3[I]\->\List 4[I]
0.04/\List 4[I]\->\List 5[I]
\Next
\Seq(X,X,1,J-1,1)\->\List 4
\S-Gph1 \DrawOn,\xyLine,\List4,\List5,1,\Square,\Blue
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:387
File Name:EX2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{1,2,1}\->\List 6
\Send(\List 6)
{1,3,1}\->\List 6
\Send(\List 6)
{3,0.01,100,1}\->\List 6
\Send(\List 6)\Disp\Receive(\List 1)
\Receive(\List 2)
\Receive(\List 3)
\Receive(\List 4)
(\Max(\List 2)+\Min(\List 2))/2\->A
\For 1\->I \To 100
\If \List 2[I]<A
\Then \Break
\IfEnd
\Next
\List 1[I]\->S
(\Max(\List 3)+\Min(\List 3))/2\->B
\For 1\->I \To 100
\If \List 3[I]<B
\Then \Break
\IfEnd
\Next
\List 1[I]\->T
(\Max(\List 4)+\Min(\List 4))/2\->C
\For 1\->I \To 100
\If \List 4[I]<C
\Then \Break
\IfEnd
\Next
\List 1[I]\->U
"SOKUDO-1"
0.1/(T-S)\->V\Disp"SOKUDO-2"
0.1/(U-T)\->W\Disp"KASOKUDO"
(W-V)/((U-S)/2)
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:39
File Name:EX4
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"KAITEN-SUU"
" 15"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:320
File Name:EX5
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\S-WindAuto
\AxesOn
\Cls
"HOW MANY POINTS"?\->N
"ENTER
FIRST DISTANCE"?\->D
\Seq(D+0.1(X-1),X,1,N,1)\->\List 1
\Seq(0,X,1,N,1)\->\List 2
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
\For 1\->I \To N \Step 1
"ENTER TRIGGER KEY ON THE CDA"
{3,.01,5,0,1}\->\List 6
\Send(\List 6)
"THEN PRESS [EXE]"\Disp\Receive(\List 3)
\Mean\List 3)\->\List 2[I]
\Next
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Blue
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\Text 1,15,"INTENSITY"
\Text 58,80,"DISTANCE"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:135
File Name:EX3
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\S-WindAuto
\AxesOn
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{1,2,1}\->\List 6
\Send(\List 6)
{3,0.002,255}\->\List 6
\Send(\List 6)\Disp\Receive(\List 1)
\Receive(\List 2)
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Square,\Blue
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:163
File Name:VOLT1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\S-WindAuto
\AxesOn
{0}\->\List 6
\Send(\List 6)
{1,1,1,1}\->\List 6
\Send(\List 6)
{3,1,20,1}\->\List 6
\Send(\List 6)\Disp\Receive(\List 1)
\Receive(\List 2)
\Receive(\List 3)
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Dot,\Blue
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat\Disp\StoPict 1
\S-Gph2 \DrawOn,\Scatter,\List 1,\List 3,1,\Dot,\Orange
\S-Gph1 \DrawOff
\DrawStat\Disp\RclPict 1

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:149
File Name:VOLT2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{3,2,100,1}\->\List 6
\Send(\List 6)\Disp\Receive(\List 1)
\Receive(\List 2)
\Receive(\List 3)
\S-Gph1 \DrawOn,\Scatter,\List1,\List 3,1,\Dot,\Blue
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\Text 2,10,"CURR."
\Text 55,100,"TIME"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:196
File Name:EX5-2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\S-WindAuto
\AxesOn
\Cls
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{1,4,1}\->\List 6
\Send(\List 6)
{3,2,8,0,1}\->\List 6
\Send(\List 6)
"PRESS [TRIGGER] KEY"\Disp\Receive(\List 1)
\Receive(\List 2)
\S-Gph1 \DrawOn,\Scatter,\List2,\List1,1,\Square,\Blue
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\Text 1,15,"INTENSITY"
\Text 58,80,"DISTANCE"

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:227
File Name:EX6
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"KEISUU"?\->A
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
\While 1
\ClrText
"READY?"
"THEN PRESS [EXE]"\Disp{3,0.02,5,0,0}\->\List 6
\Send(\List 6)
\Receive(\List 1)
\Mean\List 1)\->B
A*B\->C
\Fix 1
\ClrText
\Locate 1,3,C
\Locate 4,3,"[CM]"\Disp\Norm
\ClrText
"CONTINUE?"
" YES:[0]"
" NO:[1]"
?\->D
\If D=1
\Then "END":\Stop
\IfEnd
\WhileEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:117
File Name:EX7
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\S-WindAuto
\AxesOn
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{3,0.02,200,1}\->\List 6
\Send(\List 6)\Disp\Receive(\List 1)
\Receive(\List 2)
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Dot,\Blue
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:206
File Name:EX8
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\S-WindAuto
\AxesOn
{0}\->\List 6
\Send(\List 6)
{1,1,1,1}\->\List 6
\Send(\List 6)
{3,0.2,25,1,1}\->\List 6
\Send(\List 6)
"IF SAMPLING IS DONE,"
"THEN PRESS [EXE]"\Disp\Receive(\List 1)
\Receive(\List 2)
\Receive(\List 3)
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Dot,\Blue
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat\Disp\StoPict 1
\S-Gph2 \DrawOn,\Scatter,\List1,\List3,1,\Dot,\Orange
\S-Gph1 \DrawOff
\DrawStat\Disp\RclPict 1
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:147
File Name:EX9
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\S-WindAuto
\AxesOn
\Cls
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
{3,2,150,1}\->\List 6
\Send(\List 6)\Disp\Receive(\List 1)
\Receive(\List 2)
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Dot,\Blue
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\Text 2,10,"TEMP."
\Text 55,100,"TIME"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:231
File Name:EX10
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\S-WindAuto
\AxesOn
{0}\->\List 6
\Send(\List 6)
{1,4,1,2}\->\List 6
\Send(\List 6)
{3,.05,080,1}\->\List 6
\Send(\List 6)\Disp\Receive(\List 1)
\Receive(\List 2)
\Receive(\List 3)
\Receive(\List 4)
\Max(\List 2)-\List 2\->\List 2
\S-Gph1 \DrawOn,\Scatter,\List1,\List2,1,\Dot,\Blue
\S-Gph2 \DrawOn,\Scatter,\List1,\List3,1,\Dot,\Orange
\S-Gph3 \DrawOn,\Scatter,\List1,\List4,1,\Dot,\Green
\S-Gph2 \DrawOff
\S-Gph3 \DrawOff
\DrawStat
\StoPict 1\Disp\S-Gph1 \DrawOff
\S-Gph2 \DrawOn
\DrawStat\Disp\RclPict 1\Disp\S-Gph2 \DrawOff
\S-Gph3 \DrawOn
\DrawStat\Disp"END"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:227
File Name:EX11
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"KEISUU"?\->A
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
\While 1
\ClrText
"READY?"
"THEN PRESS [EXE]"\Disp{3,0.02,5,0,0}\->\List 6
\Send(\List 6)
\Receive(\List 1)
\Mean\List 1)\->B
A*B\->C
\Fix 1
\ClrText
\Locate 1,3,C
\Locate 4,3,"[PH]"\Disp\Norm
\ClrText
"CONTINUE?"
" YES:[0]"
" NO:[1]"
?\->D
\If D=1
\Then "END":\Stop
\IfEnd
\WhileEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:182
File Name:EX12
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\AxesOn
\ViewWindow 0,80,5,18,35,10
\Seq(0,X,1,255,1)\->\List 1
{0}\->\List 6
\Send(\List 6)
{1,1,1}\->\List 6
\Send(\List 6)
1\->I
\While 1
\ClrText
"READY?"
"THEN PRESS [EXE]"\Disp{3,0.02,5,0,0}\->\List 6
\Send(\List 6)
\Receive(\List 2)
\Mean\List 2)\->\List 1[I]
\PlotOn I,\List 1[I]\DispI+1\->I
\WhileEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:207
File Name:DLA1-2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\ViewWindow 1,127,1,1,63,1
\AxesOff
400\->N
\For 1\->J \To 121 \Step 5
\PxlOn 63,J
\Next
\For 1\->J \To N
0\->F
1+5\Int (25\Ran#)\->S
5\Int (\Ran#+.5)\->G
\For 3\->K \To 63 \Step 5
\PxlTest K,S+5
\Ans\->A
\If A=1
\Then 1\->F
\IfEnd
\PxlTest K,S
\Ans\->B
\If B=1
\Then \If F=0
\Then \F-Line S,64-K,S+G,69-K
\Else \F-Line S,64-K,S,69-K
\IfEnd
\Break
\IfEnd
\Next
\Next

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:214
File Name:DLA1-3
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\ViewWindow 1,127,1,1,63,1
\AxesOff
2000\->N
\For 1\->J \To 125 \Step 2
\PxlOn 63,J
\Next
\For 1\->J \To N
0\->F
1+2\Int (63\Ran#)\->S
2-4\Int (\Ran#+.5)\->G
\For 3\->K \To 63 \Step 2
\PxlTest K,S+2
\Ans\->A
\If A=1
\Then 1\->F
\IfEnd
\PxlTest K,S-2
\Ans\->B
\If B=1
\Then \If F=0
\Then \F-Line S,64-K,S-2,66-K
\Else \F-Line S,64-K,S+2,66-K
\IfEnd
\Break
\IfEnd
\Next
\Next

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:159
File Name:DLA1-4
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\ViewWindow 1,127,1,1,63,1
\AxesOff
7500\->N
\For 1\->J \To 125 \Step 2
\PxlOn 63,J
\Next
\For 1\->J \To N
2+\Int (124\Ran#)\->S
\For 3\->K \To 62
\PxlTest K+1,S-1
\Ans\->A
\PxlTest K+1,S
\Ans\->B
\PxlTest K+1,S+1
\Ans\->C
\If A=0\ And B+C\<>0
\Then \Break
\IfEnd
\Next
\PxlOn K,S
\Next

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:202
File Name:DLA3-1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\ViewWindow -63,63,4,-31,31,4
\AxesOff
\PxlOn 32,64
30\->R
\For 1\->J \To 1500
2\Pi\Ran#\->T
R\cos T\->V
R\sin T\->W
\PxlOn 32+\Int (W),64+\Int (V)
\For 26\->R \To 0 \Step -1
\Prog "JUDGE"
\If B+C+D+E+F+G+H+I\<>0
\Then \Break
\IfEnd
\Next
\Int (\Ran#*3+1)\->Z
\For 0\->V \To Z
\PxlOn 32+\Int ((R+V)\sin T,64+\Int ((R+V)\cos T)
\Next
30\->R
\Next

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:245
File Name:DLA3-2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\ViewWindow -63,63,4,1,63,4
\AxesOff
\PxlOn 60,64
60\->R
\For 1\->J \To 1500
\Pi\Ran#\->T
R\cos T\->V
R\sin T\->W
\PxlOn 60-\Int (W),64-\Int (V)
\For 56\->R \To 0 \Step -1
\Prog "JUDGE2"
\If B+C+D+E+F+G+H+I\<>0
\Then \Break
\IfEnd
\Next
\Int (2\Ran#)\->Z
\If Z=0
\Then \For 0\->V \To 1
\PxlOn 60-\Int ((R+V)\sin T),64-\Int (R\cos T)
\Next
\Else \For 0\->V \To 1
\PxlOn 60-\Int (R\sin T),64-\Int ((R+V)\cos T)
\Next
\IfEnd
60\->R
\Next

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:176
File Name:JUDGE2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Int (R\cos T)\->K
\Int (R\sin T)\->L
\PxlTest 60+1-L,64-K
\Ans\->B
\PxlTest 60-1-L,64-K
\Ans\->C
\PxlTest 60-L,64+1-K
\Ans\->D
\PxlTest 60-L,64-1-K
\Ans\->E
\PxlTest 60+1-L,64+1-K
\Ans\->F
\PxlTest 60+1-L,64-1-K
\Ans\->G
\PxlTest 60-1-L,64+1-K
\Ans\->H
\PxlTest 60-1-L,64-1-K
\Ans\->I
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:413
File Name:2DLIFE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls
\ViewWindow 1,127,1,1,63,1
\AxesOff
\Text 50,6,"2DLIFE-GAME"
\PxlOn 3,4
\PxlOn 3,5
\PxlOn 3,6
\PxlOn 5,3
\PxlOn 5,7
\PxlOn 6,3
\PxlOn 6,7
\PxlOn 7,4
\PxlOn 7,6
\Text 22,5,"11"
\Text 22,16,"12"
\Text 22,27,"13"
\Text 22,38,"14"
\Text 22,49,"15"
\Text 22,60,"16"
\Text 22,71,"17"
\Text 22,82,"18"
\Text 22,93,"19"
\Text 22,104,"20"
\Text 22,115,"21"
\For 0\->M \To 9
\For 2\->J \To 11
\For 2+11*M\->K \To 11+11*M
\Prog "JUDGE3"
B+C+D+E+F+G+H+I\->L
\If A=1
\Then \If L=2\ Or L=3
\Then \Prog "WIDE"
\IfEnd
\Else \If L=3
\Then \Prog "WIDE"
\IfEnd
\IfEnd
\Next
\Next
\For 0\->P \To 29
\For 0\->Q \To 29
\PxlOff 32+P,92+Q
\Next
\Next
\Next

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:120
File Name:JUDGE3
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\PxlTest J,K
\Ans\->A
\PxlTest J-1,K-1
\Ans\->B
\PxlTest J,K-1
\Ans\->C
\PxlTest J+1,K-1
\Ans\->D
\PxlTest J-1,K
\Ans\->E
\PxlTest J+1,K
\Ans\->F
\PxlTest J-1,K+1
\Ans\->G
\PxlTest J,K+1
\Ans\->H
\PxlTest J+1,K+1
\Ans\->I
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:77
File Name:WIDE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\PxlOn J,K+11
\For 0\->P \To 2
\For 0\->Q \To 2
\PxlOn 30+3*J+P,92+3*(K-2-11*\Int ((K-1)/11))+Q
\Next
\Next
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:9
File Name:TTT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\DrawStat\Fix
%End