0 Members and 1 Guest are viewing this topic.
.AA"appvMINES2DE"->Str3"appvMINESAVE"->Str4GetCalc(Str3,Y1)->ZIf Z UnArchive Str3EndGetCalc(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 EndEndFor(N,0,2) If {Z+N}>1 N=0->{Z+N} EndEnd{Z+5}[sup]r[/sup]->A{Z+7}[sup]r[/sup]->B{Z+9}[sup]r[/sup]->CA+1*(B+1)->NIf 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}EndGetCalc(Str4)->N!If {Z+4} If N 1->{Z+4} EndEndReturnLbl ENDReturn