%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:109
File Name:P042301
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"Digits"?\->A
\Int \Abs A\->A
\10^xA\->E
0\->B
.1E\->D
E-1\->E
\For D\->A \To E
A\->C
\While C\<>0
\If 10\Frac (C/10)=7
\Then 0\->C
B+1\->B
\Else \Int (C/10)\->C
\IfEnd
\WhileEnd
\Next 
B
%End