.AA
"appvMINES2DE"->Str3
"appvMINESAVE"->Str4
GetCalc(Str3,Y1)->Z
If Z
UnArchive Str3
End
GetCalc(Str3)->Z
!If Z
GetCalc(Str3,55)->Z
0->{Z+2}->{Z+11}+1->{Z}->{Z+1}
9->{Z+5}[radians]->{Z+7}[sup]r[/sup]+1->{Z+9}[sup]r[/sup]
For(N,0,20)
999->{N*2+12+Z}[sup]r[/sup]
End
For(N,0,4)
0->{N*10+18+Z}[sup]r[/sup]->{N*10+20+Z}[sup]r[/sup]
End
!If Z
Goto END
End
End
For(N,0,2)
If {Z+N}>1
N=0->{Z+N}
End
End
{Z+5}[sup]r[/sup]->A
{Z+7}[sup]r[/sup]->B
{Z+9}[sup]r[/sup]->C
A+1*(B+1)->N
If N>710 or (C>N)
9->A->B->{Z+5}[sup]r[/sup]->{Z+7}[sup]r[/sup]
10->C->{Z+9}[sup]r[/sup]
0->{Z+11}
End
GetCalc(Str4)->N
!If {Z+4}
If N
1->{Z+4}
End
End
Return
Lbl END
Return