%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:184
File Name:P102700
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
{31,28,31,30,31,30,31,31,30,31,30,31}\->\List 1
\Seq(0,A,1,100,1)\->\List 2
\For 1\->A \To 12
\List 1[A]\->B
\For 1\->C \To B
AC\->D
\If D\<=100
\Then \List 2[D]+1\->\List 2[D]
\IfEnd
\Next 
\Next 
\Max(\List 2)\->B
\For 1\->A \To 100
\If \List 2[A]=B
\Then 1900+A\Disp\IfEnd
\Next 
"\Done"
%End