%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:85
File Name:P020401
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->D
\For 1\->A \To 12
\For 1\->B \To 31
AB\->C
\If C\>=90\ And C\<=99
\Then 100(100A+B)+C\DispD+1\->D
\IfEnd
\Next 
\Next 
"Count"
D
%End