%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:249
File Name:REVERSEP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"REVERSE P"
"WWW.MADWEB.4T.COM"
\Lbl A
?\->A
A\<=0\=>"ERROR: \<=0.1"
A\<=0\=>\GotoA
A\>=1\=>"ERROR: \>=1"
A\>=1\=>\GotoA
1\->E
-2\->C
\GotoM
\Lbl L
D\->C
E/10\->E
A>\ProbP(C+5E)\=>(4E)+C\->C
\Lbl M
C\->D
C+E\->C
A<\ProbP(C)\=>\GotoL
E<0.00001\=>\GotoN
\GotoM
\Lbl N
C

%End