var l1 : long ;  moveconst (l1, 1);
var l_Result : long;
var ltemp : long;
var ltemp2 : long;
var ln : long ;

var f_Result : float;

var ftemp1 : float;
var ftemp2 : float;
var ftemp3 : float;

var a_Source : buffer[20] ;
var a_Source2 : buffer[20] ;



:main;
jump :Formel01;

:Formel01;
moveconst (ln, 5);
moveconst (ltemp, 30529);
moveconst (a_Source[0], #0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00);
moveconst (a_Source[0], "  1.406965173957");
moveconst (a_Source2[0], "  15500");
jump :Calc;

:Formel02;
moveconst (ln, 0);
moveconst (ltemp, 81);
moveconst (a_Source[0], #0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00#0x00);

moveconst (a_Source[0], "  1");
moveconst (a_Source2[0], "  8.625");
jump :Calc;

:Calc;
Convert ( a_Source2[0] , Dynamic_ASCII_DEC , ftemp2 , Float ) ;
Convert ( a_Source[0] , Dynamic_ASCII_DEC , ftemp3 , Float ) ;

CalculateLong ( l1 , ln , shl , l_Result ) ; // (2^n) für n=5
CalculateLong ( l_Result , ltemp , mul , l_Result ) ; //30529 * (2^5) = 976928
Convert ( l_Result , Long , ftemp1 , Float ) ;
CalculateFloat ( ftemp1 , ftemp2 , div , f_Result ) ;  // 63,0276 => 63,027612903225806451612903225806
CalculateFloat ( f_Result , ftemp3 , mul , f_Result ) ; // 88,6777 => 88,677656352481554580645161290323


jump :main;