%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:127
File Name:INVNORMD
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
0\->R
"AREA"?\->A
"SD"?\->S
"MEAN"?\->M
M-4S\->B
M+4S\->C
\Lbl 2
R+1\->R
(B+C)/2\->Y
A>\ProbP((Y-M)/S\=>Y\->B
A\<=\ProbP((Y-M)/S\=>Y\->C
R\>=30\=>\Goto1
\Goto2
\Lbl 1
\Int (10000Y)/10000
%End