#line 873 "utilities/const_eval.bas"
qbs* FUNC_EVALUATEFUNCTION(int32*_FUNC_EVALUATEFUNCTION_LONG_P,qbs*_FUNC_EVALUATEFUNCTION_STRING_ARGS){
#line 873 "utilities/const_eval.bas"
qbs *tqbs;
#line 873 "utilities/const_eval.bas"
ptrszint tmp_long;
#line 873 "utilities/const_eval.bas"
int32 tmp_fileno;
#line 873 "utilities/const_eval.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 873 "utilities/const_eval.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 873 "utilities/const_eval.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 873 "utilities/const_eval.bas"
#include "data268.txt"
#line 873 "utilities/const_eval.bas"
mem_lock *sf_mem_lock;
#line 873 "utilities/const_eval.bas"
new_mem_lock();
#line 873 "utilities/const_eval.bas"
sf_mem_lock=mem_lock_tmp;
#line 873 "utilities/const_eval.bas"
sf_mem_lock->type=3;
#line 873 "utilities/const_eval.bas"
libqb_check_stack();
#line 873 "utilities/const_eval.bas"
if (is_error_pending()) goto exit_subfunc;
#line 874 "utilities/const_eval.bas"
do{
#line 874 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,874,"const_eval.bas");}while(r);
#line 875 "utilities/const_eval.bas"
do{
if (_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 5 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(60);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0]) error(257);
_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
ZeroMemory((uint8*)(_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0]),tmp_long*60);
while(tmp_long--){

*(qbs**)(((uint8*)((_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0]+60*tmp_long)))+((0+48)))=qbs_new(0,0);}
_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4]=alloc_new_desc[4];
_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]=alloc_new_desc[5];
_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[6]=alloc_new_desc[6];
_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[7]=alloc_new_desc[7];
}
}
if (_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
if (_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[2]&1){
if (!error_occurred) error(10);
}else{
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=( 5 )-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[0]) error(257);
_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[2]&4){
while(tmp_long--) ((qbs**)(_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[0]))[tmp_long]=qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((qbs**)(_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[0]))[tmp_long]=qbs_new(0,0);
}
_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[4]=alloc_new_desc[4];
_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[5]=alloc_new_desc[5];
_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[6]=alloc_new_desc[6];
_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[7]=alloc_new_desc[7];
}
}
#line 875 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,875,"const_eval.bas");}while(r);
#line 878 "utilities/const_eval.bas"
do{
#line 878 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT=FUNC_COUNTFUNCTIONELEMENTS(_FUNC_EVALUATEFUNCTION_STRING_ARGS);
#line 878 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 878 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,878,"const_eval.bas");}while(r);
#line 880 "utilities/const_eval.bas"
S_41468:;
#line 880 "utilities/const_eval.bas"
if (( 0ll )||is_error_pending()){
#line 880 "utilities/const_eval.bas"
if(qbevent){evnt(28806,880,"const_eval.bas");if(r)goto S_41468;}
#line 880 "utilities/const_eval.bas"
do{
#line 880 "utilities/const_eval.bas"
sub__echo(qbs_add(qbs_new_txt_len("argCount:",9),qbs_str((int32)(*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT))));
#line 880 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 880 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,880,"const_eval.bas");}while(r);
#line 880 "utilities/const_eval.bas"
}
#line 882 "utilities/const_eval.bas"
S_41471:;
#line 882 "utilities/const_eval.bas"
if (((-(*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+(((array_check((*_FUNC_EVALUATEFUNCTION_LONG_P)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8)))> 0 ))&(-(*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT!=*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+(((array_check((*_FUNC_EVALUATEFUNCTION_LONG_P)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))))))||is_error_pending()){
#line 882 "utilities/const_eval.bas"
if(qbevent){evnt(28806,882,"const_eval.bas");if(r)goto S_41471;}
#line 883 "utilities/const_eval.bas"
do{
#line 883 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Wrong number of arguments provided to ",46),*((qbs**)((char*)__ARRAY_UDT_CONSTFUNCS[0]+(((array_check((*_FUNC_EVALUATEFUNCTION_LONG_P)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+0))))),qbs_new_txt_len("!",1)));
#line 883 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 883 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,883,"const_eval.bas");}while(r);
#line 884 "utilities/const_eval.bas"
do{
#line 884 "utilities/const_eval.bas"
goto exit_subfunc;
#line 884 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,884,"const_eval.bas");}while(r);
#line 885 "utilities/const_eval.bas"
}
#line 887 "utilities/const_eval.bas"
S_41475:;
#line 887 "utilities/const_eval.bas"
fornext_value4174= 1 ;
#line 887 "utilities/const_eval.bas"
fornext_finalvalue4174=*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT;
#line 887 "utilities/const_eval.bas"
fornext_step4174= 1 ;
#line 887 "utilities/const_eval.bas"
if (fornext_step4174<0) fornext_step_negative4174=1; else fornext_step_negative4174=0;
#line 887 "utilities/const_eval.bas"
if (is_error_pending()) goto fornext_error4174;
#line 887 "utilities/const_eval.bas"
goto fornext_entrylabel4174;
#line 887 "utilities/const_eval.bas"
while(1){
#line 887 "utilities/const_eval.bas"
fornext_value4174=fornext_step4174+(*_FUNC_EVALUATEFUNCTION_LONG_I);
#line 887 "utilities/const_eval.bas"
fornext_entrylabel4174:
#line 887 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_LONG_I=fornext_value4174;
#line 887 "utilities/const_eval.bas"
if (fornext_step_negative4174){
#line 887 "utilities/const_eval.bas"
if (fornext_value4174<fornext_finalvalue4174) break;
#line 887 "utilities/const_eval.bas"
}else{
#line 887 "utilities/const_eval.bas"
if (fornext_value4174>fornext_finalvalue4174) break;
#line 887 "utilities/const_eval.bas"
}
#line 887 "utilities/const_eval.bas"
fornext_error4174:;
#line 887 "utilities/const_eval.bas"
if(qbevent){evnt(28806,887,"const_eval.bas");if(r)goto S_41475;}
#line 888 "utilities/const_eval.bas"
do{
#line 888 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_ELE,FUNC_GETELEMENT(_FUNC_EVALUATEFUNCTION_STRING_ARGS,&(pass4175=( 1 )+((*_FUNC_EVALUATEFUNCTION_LONG_I- 1 )* 2 ))));
#line 888 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 888 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,888,"const_eval.bas");}while(r);
#line 889 "utilities/const_eval.bas"
do{
#line 889 "utilities/const_eval.bas"
tmp_long=array_check((*_FUNC_EVALUATEFUNCTION_LONG_I)-_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[5]);
#line 889 "utilities/const_eval.bas"
if (!is_error_pending()) qbs_set( ((qbs**)(_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[0]))[tmp_long],_FUNC_EVALUATEFUNCTION_STRING_ELE);
#line 889 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 889 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,889,"const_eval.bas");}while(r);
#line 891 "utilities/const_eval.bas"
S_41478:;
#line 891 "utilities/const_eval.bas"
if (( 0ll )||is_error_pending()){
#line 891 "utilities/const_eval.bas"
if(qbevent){evnt(28806,891,"const_eval.bas");if(r)goto S_41478;}
#line 891 "utilities/const_eval.bas"
do{
#line 891 "utilities/const_eval.bas"
sub__echo(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("arg is string:",14),qbs_str((int32)(FUNC_ELEMENTISSTRING(_FUNC_EVALUATEFUNCTION_STRING_ELE)))),qbs_new_txt_len(", argCount:",11)),qbs_str((int16)(*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+(((array_check((*_FUNC_EVALUATEFUNCTION_LONG_P)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8)))))));
#line 891 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 891 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,891,"const_eval.bas");}while(r);
#line 891 "utilities/const_eval.bas"
}
#line 893 "utilities/const_eval.bas"
S_41481:;
#line 893 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,FUNC_ELEMENTISNUMBER(_FUNC_EVALUATEFUNCTION_STRING_ELE)))||is_error_pending()){
#line 893 "utilities/const_eval.bas"
if(qbevent){evnt(28806,893,"const_eval.bas");if(r)goto S_41481;}
#line 895 "utilities/const_eval.bas"
do{
#line 895 "utilities/const_eval.bas"
*(int32*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check((*_FUNC_EVALUATEFUNCTION_LONG_I)-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+56)))=FUNC_ELEMENTGETNUMERICVALUE(_FUNC_EVALUATEFUNCTION_STRING_ELE,(long double*)(void*)( ((char*)(_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])) + (((array_check((*_FUNC_EVALUATEFUNCTION_LONG_I)-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0)) ),(int64*)(void*)( ((char*)(_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])) + (((array_check((*_FUNC_EVALUATEFUNCTION_LONG_I)-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+32)) ),(uint64*)(void*)( ((char*)(_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])) + (((array_check((*_FUNC_EVALUATEFUNCTION_LONG_I)-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40)) ));
#line 895 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,895,"const_eval.bas");}while(r);
#line 896 "utilities/const_eval.bas"
S_41483:;
#line 896 "utilities/const_eval.bas"
}else{
#line 896 "utilities/const_eval.bas"
if (qbs_cleanup(qbs_tmp_base,(FUNC_ELEMENTISSTRING(_FUNC_EVALUATEFUNCTION_STRING_ELE))&(-(*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+(((array_check((*_FUNC_EVALUATEFUNCTION_LONG_P)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8)))< 0 )))){
#line 896 "utilities/const_eval.bas"
if(qbevent){evnt(28806,896,"const_eval.bas");if(r)goto S_41483;}
#line 897 "utilities/const_eval.bas"
do{
#line 897 "utilities/const_eval.bas"
*(int32*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check((*_FUNC_EVALUATEFUNCTION_LONG_I)-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+56)))=FUNC_ELEMENTGETSTRINGVALUE(_FUNC_EVALUATEFUNCTION_STRING_ELE,*((qbs**)((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0]+(((array_check((*_FUNC_EVALUATEFUNCTION_LONG_I)-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+48)))));
#line 897 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,897,"const_eval.bas");}while(r);
#line 898 "utilities/const_eval.bas"
}else{
#line 899 "utilities/const_eval.bas"
do{
#line 899 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_add(qbs_new_txt_len("ERROR - Unexpected argument: ",29),_FUNC_EVALUATEFUNCTION_STRING_ELE));
#line 899 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 899 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,899,"const_eval.bas");}while(r);
#line 900 "utilities/const_eval.bas"
do{
#line 900 "utilities/const_eval.bas"
goto exit_subfunc;
#line 900 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,900,"const_eval.bas");}while(r);
#line 901 "utilities/const_eval.bas"
}
#line 901 "utilities/const_eval.bas"
}
#line 903 "utilities/const_eval.bas"
S_41489:;
#line 903 "utilities/const_eval.bas"
if (( 0ll )||is_error_pending()){
#line 903 "utilities/const_eval.bas"
if(qbevent){evnt(28806,903,"const_eval.bas");if(r)goto S_41489;}
#line 903 "utilities/const_eval.bas"
do{
#line 903 "utilities/const_eval.bas"
sub__echo(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Argument: ",10),qbs__tostr((long double)(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check((*_FUNC_EVALUATEFUNCTION_LONG_I)-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0)))),NULL,0)),qbs_new_txt_len(", str: ",7)),FUNC_GETELEMENT(_FUNC_EVALUATEFUNCTION_STRING_ARGS,&(pass4176=( 1 )+((*_FUNC_EVALUATEFUNCTION_LONG_I- 1 )* 2 )))));
#line 903 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 903 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,903,"const_eval.bas");}while(r);
#line 903 "utilities/const_eval.bas"
}
#line 904 "utilities/const_eval.bas"
fornext_continue_4173:;
#line 904 "utilities/const_eval.bas"
}
#line 904 "utilities/const_eval.bas"
fornext_exit_4173:;
#line 907 "utilities/const_eval.bas"
do{
#line 907 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
#line 907 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,907,"const_eval.bas");}while(r);
#line 909 "utilities/const_eval.bas"
S_41494:;
#line 909 "utilities/const_eval.bas"
qbs_set(sc_4177,*((qbs**)((char*)__ARRAY_UDT_CONSTFUNCS[0]+(((array_check((*_FUNC_EVALUATEFUNCTION_LONG_P)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+0)))));
#line 909 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 909 "utilities/const_eval.bas"
if(qbevent){evnt(28806,909,"const_eval.bas");if(r)goto S_41494;}
#line 910 "utilities/const_eval.bas"
S_41495:;
#line 910 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_PI",3))))||is_error_pending()){
#line 910 "utilities/const_eval.bas"
if(qbevent){evnt(28806,910,"const_eval.bas");if(r)goto S_41495;}
#line 912 "utilities/const_eval.bas"
do{
#line 912 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1= 3.14159265358979323846264338327950288E+0L **(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0)));
#line 912 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 912 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,912,"const_eval.bas");}while(r);
#line 914 "utilities/const_eval.bas"
sc_ec_141_end:;
#line 914 "utilities/const_eval.bas"
goto sc_4177_end;
#line 914 "utilities/const_eval.bas"
}
#line 914 "utilities/const_eval.bas"
S_41497:;
#line 914 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_ACOS",5))))||is_error_pending()){
#line 914 "utilities/const_eval.bas"
if(qbevent){evnt(28806,914,"const_eval.bas");if(r)goto S_41497;}
#line 914 "utilities/const_eval.bas"
do{
#line 914 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=std::acos(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 914 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 914 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,914,"const_eval.bas");}while(r);
#line 915 "utilities/const_eval.bas"
sc_ec_142_end:;
#line 915 "utilities/const_eval.bas"
goto sc_4177_end;
#line 915 "utilities/const_eval.bas"
}
#line 915 "utilities/const_eval.bas"
S_41499:;
#line 915 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_ASIN",5))))||is_error_pending()){
#line 915 "utilities/const_eval.bas"
if(qbevent){evnt(28806,915,"const_eval.bas");if(r)goto S_41499;}
#line 915 "utilities/const_eval.bas"
do{
#line 915 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=std::asin(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 915 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 915 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,915,"const_eval.bas");}while(r);
#line 916 "utilities/const_eval.bas"
sc_ec_143_end:;
#line 916 "utilities/const_eval.bas"
goto sc_4177_end;
#line 916 "utilities/const_eval.bas"
}
#line 916 "utilities/const_eval.bas"
S_41501:;
#line 916 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_ARCSEC",7))))||is_error_pending()){
#line 916 "utilities/const_eval.bas"
if(qbevent){evnt(28806,916,"const_eval.bas");if(r)goto S_41501;}
#line 917 "utilities/const_eval.bas"
S_41502:;
#line 917 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func_abs((long double)(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0)))))< 1 )))||is_error_pending()){
#line 917 "utilities/const_eval.bas"
if(qbevent){evnt(28806,917,"const_eval.bas");if(r)goto S_41502;}
#line 917 "utilities/const_eval.bas"
do{
#line 917 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_new_txt_len("ERROR - ABS(_ARCSEC) value < 1",30));
#line 917 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 917 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,917,"const_eval.bas");}while(r);
#line 917 "utilities/const_eval.bas"
do{
#line 917 "utilities/const_eval.bas"
goto exit_subfunc;
#line 917 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,917,"const_eval.bas");}while(r);
#line 917 "utilities/const_eval.bas"
}
#line 918 "utilities/const_eval.bas"
do{
#line 918 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func_arcsec(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 918 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 918 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,918,"const_eval.bas");}while(r);
#line 920 "utilities/const_eval.bas"
sc_ec_144_end:;
#line 920 "utilities/const_eval.bas"
goto sc_4177_end;
#line 920 "utilities/const_eval.bas"
}
#line 920 "utilities/const_eval.bas"
S_41507:;
#line 920 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_ARCCSC",7))))||is_error_pending()){
#line 920 "utilities/const_eval.bas"
if(qbevent){evnt(28806,920,"const_eval.bas");if(r)goto S_41507;}
#line 921 "utilities/const_eval.bas"
S_41508:;
#line 921 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,-(func_abs((long double)(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0)))))< 1 )))||is_error_pending()){
#line 921 "utilities/const_eval.bas"
if(qbevent){evnt(28806,921,"const_eval.bas");if(r)goto S_41508;}
#line 921 "utilities/const_eval.bas"
do{
#line 921 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_new_txt_len("ERROR - ABS(_ARCCSC) value < 1",30));
#line 921 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 921 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,921,"const_eval.bas");}while(r);
#line 921 "utilities/const_eval.bas"
do{
#line 921 "utilities/const_eval.bas"
goto exit_subfunc;
#line 921 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,921,"const_eval.bas");}while(r);
#line 921 "utilities/const_eval.bas"
}
#line 922 "utilities/const_eval.bas"
do{
#line 922 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func_arccsc(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 922 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 922 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,922,"const_eval.bas");}while(r);
#line 924 "utilities/const_eval.bas"
sc_ec_145_end:;
#line 924 "utilities/const_eval.bas"
goto sc_4177_end;
#line 924 "utilities/const_eval.bas"
}
#line 924 "utilities/const_eval.bas"
S_41513:;
#line 924 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_ARCCOT",7))))||is_error_pending()){
#line 924 "utilities/const_eval.bas"
if(qbevent){evnt(28806,924,"const_eval.bas");if(r)goto S_41513;}
#line 924 "utilities/const_eval.bas"
do{
#line 924 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func_arccot(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 924 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 924 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,924,"const_eval.bas");}while(r);
#line 925 "utilities/const_eval.bas"
sc_ec_146_end:;
#line 925 "utilities/const_eval.bas"
goto sc_4177_end;
#line 925 "utilities/const_eval.bas"
}
#line 925 "utilities/const_eval.bas"
S_41515:;
#line 925 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_SECH",5))))||is_error_pending()){
#line 925 "utilities/const_eval.bas"
if(qbevent){evnt(28806,925,"const_eval.bas");if(r)goto S_41515;}
#line 925 "utilities/const_eval.bas"
do{
#line 925 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func_sech(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 925 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 925 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,925,"const_eval.bas");}while(r);
#line 926 "utilities/const_eval.bas"
sc_ec_147_end:;
#line 926 "utilities/const_eval.bas"
goto sc_4177_end;
#line 926 "utilities/const_eval.bas"
}
#line 926 "utilities/const_eval.bas"
S_41517:;
#line 926 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_CSCH",5))))||is_error_pending()){
#line 926 "utilities/const_eval.bas"
if(qbevent){evnt(28806,926,"const_eval.bas");if(r)goto S_41517;}
#line 926 "utilities/const_eval.bas"
do{
#line 926 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func_csch(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 926 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 926 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,926,"const_eval.bas");}while(r);
#line 927 "utilities/const_eval.bas"
sc_ec_148_end:;
#line 927 "utilities/const_eval.bas"
goto sc_4177_end;
#line 927 "utilities/const_eval.bas"
}
#line 927 "utilities/const_eval.bas"
S_41519:;
#line 927 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_COTH",5))))||is_error_pending()){
#line 927 "utilities/const_eval.bas"
if(qbevent){evnt(28806,927,"const_eval.bas");if(r)goto S_41519;}
#line 927 "utilities/const_eval.bas"
do{
#line 927 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func_coth(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 927 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 927 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,927,"const_eval.bas");}while(r);
#line 928 "utilities/const_eval.bas"
sc_ec_149_end:;
#line 928 "utilities/const_eval.bas"
goto sc_4177_end;
#line 928 "utilities/const_eval.bas"
}
#line 928 "utilities/const_eval.bas"
S_41521:;
#line 928 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_RGB32",6))))||is_error_pending()){
#line 928 "utilities/const_eval.bas"
if(qbevent){evnt(28806,928,"const_eval.bas");if(r)goto S_41521;}
#line 929 "utilities/const_eval.bas"
do{
#line 929 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 929 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,929,"const_eval.bas");}while(r);
#line 930 "utilities/const_eval.bas"
S_41523:;
#line 930 "utilities/const_eval.bas"
if(qbevent){evnt(28806,930,"const_eval.bas");if(r)goto S_41523;}
#line 931 "utilities/const_eval.bas"
S_41524:;
#line 931 "utilities/const_eval.bas"
if (((*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT==( 1 )))||is_error_pending()){
#line 931 "utilities/const_eval.bas"
if(qbevent){evnt(28806,931,"const_eval.bas");if(r)goto S_41524;}
#line 932 "utilities/const_eval.bas"
do{
#line 932 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func__rgb32(*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))));
#line 932 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 932 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,932,"const_eval.bas");}while(r);
#line 934 "utilities/const_eval.bas"
sc_ec_150_end:;
#line 934 "utilities/const_eval.bas"
goto sc_4178_end;
#line 934 "utilities/const_eval.bas"
}
#line 934 "utilities/const_eval.bas"
S_41526:;
#line 934 "utilities/const_eval.bas"
if (((*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT==( 2 )))||is_error_pending()){
#line 934 "utilities/const_eval.bas"
if(qbevent){evnt(28806,934,"const_eval.bas");if(r)goto S_41526;}
#line 935 "utilities/const_eval.bas"
do{
#line 935 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func__rgb32(*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 2 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))));
#line 935 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 935 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,935,"const_eval.bas");}while(r);
#line 937 "utilities/const_eval.bas"
sc_ec_151_end:;
#line 937 "utilities/const_eval.bas"
goto sc_4178_end;
#line 937 "utilities/const_eval.bas"
}
#line 937 "utilities/const_eval.bas"
S_41528:;
#line 937 "utilities/const_eval.bas"
if (((*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT==( 3 )))||is_error_pending()){
#line 937 "utilities/const_eval.bas"
if(qbevent){evnt(28806,937,"const_eval.bas");if(r)goto S_41528;}
#line 938 "utilities/const_eval.bas"
do{
#line 938 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func__rgb32(*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 2 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 3 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))));
#line 938 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 938 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,938,"const_eval.bas");}while(r);
#line 940 "utilities/const_eval.bas"
sc_ec_152_end:;
#line 940 "utilities/const_eval.bas"
goto sc_4178_end;
#line 940 "utilities/const_eval.bas"
}
#line 940 "utilities/const_eval.bas"
S_41530:;
#line 940 "utilities/const_eval.bas"
if (((*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT==( 4 )))||is_error_pending()){
#line 940 "utilities/const_eval.bas"
if(qbevent){evnt(28806,940,"const_eval.bas");if(r)goto S_41530;}
#line 941 "utilities/const_eval.bas"
do{
#line 941 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func__rgb32(*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 2 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 3 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 4 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))));
#line 941 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 941 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,941,"const_eval.bas");}while(r);
#line 943 "utilities/const_eval.bas"
sc_ec_153_end:;
#line 943 "utilities/const_eval.bas"
goto sc_4178_end;
#line 943 "utilities/const_eval.bas"
}
#line 944 "utilities/const_eval.bas"
do{
#line 944 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid comma count (",29),_FUNC_EVALUATEFUNCTION_STRING_ARGS),qbs_new_txt_len(")",1)));
#line 944 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 944 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,944,"const_eval.bas");}while(r);
#line 945 "utilities/const_eval.bas"
do{
#line 945 "utilities/const_eval.bas"
goto exit_subfunc;
#line 945 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,945,"const_eval.bas");}while(r);
#line 946 "utilities/const_eval.bas"
sc_4178_end:;
#line 948 "utilities/const_eval.bas"
sc_ec_154_end:;
#line 948 "utilities/const_eval.bas"
goto sc_4177_end;
#line 948 "utilities/const_eval.bas"
}
#line 948 "utilities/const_eval.bas"
S_41536:;
#line 948 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_RGBA32",7))))||is_error_pending()){
#line 948 "utilities/const_eval.bas"
if(qbevent){evnt(28806,948,"const_eval.bas");if(r)goto S_41536;}
#line 949 "utilities/const_eval.bas"
do{
#line 949 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 949 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,949,"const_eval.bas");}while(r);
#line 951 "utilities/const_eval.bas"
do{
#line 951 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func__rgba32(*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 2 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 3 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 4 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))));
#line 951 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 951 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,951,"const_eval.bas");}while(r);
#line 953 "utilities/const_eval.bas"
sc_ec_155_end:;
#line 953 "utilities/const_eval.bas"
goto sc_4177_end;
#line 953 "utilities/const_eval.bas"
}
#line 953 "utilities/const_eval.bas"
S_41539:;
#line 953 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_RGB",4))))||is_error_pending()){
#line 953 "utilities/const_eval.bas"
if(qbevent){evnt(28806,953,"const_eval.bas");if(r)goto S_41539;}
#line 954 "utilities/const_eval.bas"
do{
#line 954 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 954 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,954,"const_eval.bas");}while(r);
#line 956 "utilities/const_eval.bas"
S_41541:;
#line 956 "utilities/const_eval.bas"
sc_4179=*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 4 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40)));
#line 956 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 956 "utilities/const_eval.bas"
if(qbevent){evnt(28806,956,"const_eval.bas");if(r)goto S_41541;}
#line 957 "utilities/const_eval.bas"
S_41542:;
#line 957 "utilities/const_eval.bas"
if ((((sc_4179>=( 0 ))&&(sc_4179<=( 2 )))||((sc_4179>=( 7 ))&&(sc_4179<=( 13 )))||(sc_4179==( 256 ))||(sc_4179==( 32 )))||is_error_pending()){
#line 957 "utilities/const_eval.bas"
if(qbevent){evnt(28806,957,"const_eval.bas");if(r)goto S_41542;}
#line 958 "utilities/const_eval.bas"
sc_ec_156_end:;
#line 958 "utilities/const_eval.bas"
goto sc_4179_end;
#line 958 "utilities/const_eval.bas"
}
#line 959 "utilities/const_eval.bas"
do{
#line 959 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid Screen Mode (",29),qbs__tostr((uint64)(*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 4 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40)))),NULL,0)),qbs_new_txt_len(")",1)));
#line 959 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 959 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,959,"const_eval.bas");}while(r);
#line 959 "utilities/const_eval.bas"
do{
#line 959 "utilities/const_eval.bas"
goto exit_subfunc;
#line 959 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,959,"const_eval.bas");}while(r);
#line 960 "utilities/const_eval.bas"
sc_4179_end:;
#line 961 "utilities/const_eval.bas"
do{
#line 961 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_LONG_T=func__newimage( 1 , 1 ,*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 4 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),0|1);
#line 961 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 961 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,961,"const_eval.bas");}while(r);
#line 962 "utilities/const_eval.bas"
do{
#line 962 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func__rgb(*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 2 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 3 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),*_FUNC_EVALUATEFUNCTION_LONG_T,0|1);
#line 962 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 962 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,962,"const_eval.bas");}while(r);
#line 963 "utilities/const_eval.bas"
do{
#line 963 "utilities/const_eval.bas"
sub__freeimage(*_FUNC_EVALUATEFUNCTION_LONG_T,1);
#line 963 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,963,"const_eval.bas");}while(r);
#line 965 "utilities/const_eval.bas"
sc_ec_157_end:;
#line 965 "utilities/const_eval.bas"
goto sc_4177_end;
#line 965 "utilities/const_eval.bas"
}
#line 965 "utilities/const_eval.bas"
S_41550:;
#line 965 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_RGBA",5))))||is_error_pending()){
#line 965 "utilities/const_eval.bas"
if(qbevent){evnt(28806,965,"const_eval.bas");if(r)goto S_41550;}
#line 966 "utilities/const_eval.bas"
do{
#line 966 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 966 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,966,"const_eval.bas");}while(r);
#line 968 "utilities/const_eval.bas"
S_41552:;
#line 968 "utilities/const_eval.bas"
sc_4180=*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 5 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40)));
#line 968 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 968 "utilities/const_eval.bas"
if(qbevent){evnt(28806,968,"const_eval.bas");if(r)goto S_41552;}
#line 969 "utilities/const_eval.bas"
S_41553:;
#line 969 "utilities/const_eval.bas"
if ((((sc_4180>=( 0 ))&&(sc_4180<=( 2 )))||((sc_4180>=( 7 ))&&(sc_4180<=( 13 )))||(sc_4180==( 256 ))||(sc_4180==( 32 )))||is_error_pending()){
#line 969 "utilities/const_eval.bas"
if(qbevent){evnt(28806,969,"const_eval.bas");if(r)goto S_41553;}
#line 970 "utilities/const_eval.bas"
sc_ec_158_end:;
#line 970 "utilities/const_eval.bas"
goto sc_4180_end;
#line 970 "utilities/const_eval.bas"
}
#line 971 "utilities/const_eval.bas"
do{
#line 971 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid Screen Mode (",29),qbs__tostr((uint64)(*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 5 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40)))),NULL,0)),qbs_new_txt_len(")",1)));
#line 971 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 971 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,971,"const_eval.bas");}while(r);
#line 971 "utilities/const_eval.bas"
do{
#line 971 "utilities/const_eval.bas"
goto exit_subfunc;
#line 971 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,971,"const_eval.bas");}while(r);
#line 972 "utilities/const_eval.bas"
sc_4180_end:;
#line 973 "utilities/const_eval.bas"
do{
#line 973 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_LONG_T=func__newimage( 1 , 1 ,*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 5 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),0|1);
#line 973 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 973 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,973,"const_eval.bas");}while(r);
#line 974 "utilities/const_eval.bas"
do{
#line 974 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func__rgba(*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 2 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 3 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 4 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40))),*_FUNC_EVALUATEFUNCTION_LONG_T,0|1);
#line 974 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 974 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,974,"const_eval.bas");}while(r);
#line 975 "utilities/const_eval.bas"
do{
#line 975 "utilities/const_eval.bas"
sub__freeimage(*_FUNC_EVALUATEFUNCTION_LONG_T,1);
#line 975 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,975,"const_eval.bas");}while(r);
#line 977 "utilities/const_eval.bas"
sc_ec_159_end:;
#line 977 "utilities/const_eval.bas"
goto sc_4177_end;
#line 977 "utilities/const_eval.bas"
}
#line 977 "utilities/const_eval.bas"
S_41561:;
#line 977 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_RED",4))||qbs_equal(sc_4177,qbs_new_txt_len("_GREEN",6))||qbs_equal(sc_4177,qbs_new_txt_len("_BLUE",5))||qbs_equal(sc_4177,qbs_new_txt_len("_ALPHA",6))))||is_error_pending()){
#line 977 "utilities/const_eval.bas"
if(qbevent){evnt(28806,977,"const_eval.bas");if(r)goto S_41561;}
#line 978 "utilities/const_eval.bas"
do{
#line 978 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 978 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,978,"const_eval.bas");}while(r);
#line 979 "utilities/const_eval.bas"
S_41563:;
#line 979 "utilities/const_eval.bas"
sc_4181=*(int64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 2 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+32)));
#line 979 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 979 "utilities/const_eval.bas"
if(qbevent){evnt(28806,979,"const_eval.bas");if(r)goto S_41563;}
#line 980 "utilities/const_eval.bas"
S_41564:;
#line 980 "utilities/const_eval.bas"
if ((((sc_4181>=( 0 ))&&(sc_4181<=( 2 )))||((sc_4181>=( 7 ))&&(sc_4181<=( 13 )))||(sc_4181==( 256 ))||(sc_4181==( 32 )))||is_error_pending()){
#line 980 "utilities/const_eval.bas"
if(qbevent){evnt(28806,980,"const_eval.bas");if(r)goto S_41564;}
#line 981 "utilities/const_eval.bas"
sc_ec_160_end:;
#line 981 "utilities/const_eval.bas"
goto sc_4181_end;
#line 981 "utilities/const_eval.bas"
}
#line 982 "utilities/const_eval.bas"
do{
#line 982 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid Screen Mode (",29),qbs__tostr((int64)(*(int64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 2 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+32)))),NULL,0)),qbs_new_txt_len(")",1)));
#line 982 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 982 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,982,"const_eval.bas");}while(r);
#line 982 "utilities/const_eval.bas"
do{
#line 982 "utilities/const_eval.bas"
goto exit_subfunc;
#line 982 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,982,"const_eval.bas");}while(r);
#line 983 "utilities/const_eval.bas"
sc_4181_end:;
#line 984 "utilities/const_eval.bas"
do{
#line 984 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_LONG_T=func__newimage( 1 , 1 ,*(int64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 2 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+32))),0|1);
#line 984 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 984 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,984,"const_eval.bas");}while(r);
#line 985 "utilities/const_eval.bas"
S_41570:;
#line 985 "utilities/const_eval.bas"
qbs_set(sc_4182,*((qbs**)((char*)__ARRAY_UDT_CONSTFUNCS[0]+(((array_check((*_FUNC_EVALUATEFUNCTION_LONG_P)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+0)))));
#line 985 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 985 "utilities/const_eval.bas"
if(qbevent){evnt(28806,985,"const_eval.bas");if(r)goto S_41570;}
#line 986 "utilities/const_eval.bas"
S_41571:;
#line 986 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4182,qbs_new_txt_len("_RED",4))))||is_error_pending()){
#line 986 "utilities/const_eval.bas"
if(qbevent){evnt(28806,986,"const_eval.bas");if(r)goto S_41571;}
#line 986 "utilities/const_eval.bas"
do{
#line 986 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func__red(*(int64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+32))),*_FUNC_EVALUATEFUNCTION_LONG_T,0|1);
#line 986 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 986 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,986,"const_eval.bas");}while(r);
#line 987 "utilities/const_eval.bas"
sc_ec_161_end:;
#line 987 "utilities/const_eval.bas"
goto sc_4182_end;
#line 987 "utilities/const_eval.bas"
}
#line 987 "utilities/const_eval.bas"
S_41573:;
#line 987 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4182,qbs_new_txt_len("_BLUE",5))))||is_error_pending()){
#line 987 "utilities/const_eval.bas"
if(qbevent){evnt(28806,987,"const_eval.bas");if(r)goto S_41573;}
#line 987 "utilities/const_eval.bas"
do{
#line 987 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func__blue(*(int64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+32))),*_FUNC_EVALUATEFUNCTION_LONG_T,0|1);
#line 987 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 987 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,987,"const_eval.bas");}while(r);
#line 988 "utilities/const_eval.bas"
sc_ec_162_end:;
#line 988 "utilities/const_eval.bas"
goto sc_4182_end;
#line 988 "utilities/const_eval.bas"
}
#line 988 "utilities/const_eval.bas"
S_41575:;
#line 988 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4182,qbs_new_txt_len("_GREEN",6))))||is_error_pending()){
#line 988 "utilities/const_eval.bas"
if(qbevent){evnt(28806,988,"const_eval.bas");if(r)goto S_41575;}
#line 988 "utilities/const_eval.bas"
do{
#line 988 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func__green(*(int64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+32))),*_FUNC_EVALUATEFUNCTION_LONG_T,0|1);
#line 988 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 988 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,988,"const_eval.bas");}while(r);
#line 989 "utilities/const_eval.bas"
sc_ec_163_end:;
#line 989 "utilities/const_eval.bas"
goto sc_4182_end;
#line 989 "utilities/const_eval.bas"
}
#line 989 "utilities/const_eval.bas"
S_41577:;
#line 989 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4182,qbs_new_txt_len("_ALPHA",6))))||is_error_pending()){
#line 989 "utilities/const_eval.bas"
if(qbevent){evnt(28806,989,"const_eval.bas");if(r)goto S_41577;}
#line 989 "utilities/const_eval.bas"
do{
#line 989 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func__alpha(*(int64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+32))),*_FUNC_EVALUATEFUNCTION_LONG_T,0|1);
#line 989 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 989 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,989,"const_eval.bas");}while(r);
#line 990 "utilities/const_eval.bas"
sc_ec_164_end:;
#line 990 "utilities/const_eval.bas"
goto sc_4182_end;
#line 990 "utilities/const_eval.bas"
}
#line 990 "utilities/const_eval.bas"
sc_4182_end:;
#line 991 "utilities/const_eval.bas"
do{
#line 991 "utilities/const_eval.bas"
sub__freeimage(*_FUNC_EVALUATEFUNCTION_LONG_T,1);
#line 991 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,991,"const_eval.bas");}while(r);
#line 993 "utilities/const_eval.bas"
sc_ec_165_end:;
#line 993 "utilities/const_eval.bas"
goto sc_4177_end;
#line 993 "utilities/const_eval.bas"
}
#line 993 "utilities/const_eval.bas"
S_41581:;
#line 993 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_RED32",6))||qbs_equal(sc_4177,qbs_new_txt_len("_GREEN32",8))||qbs_equal(sc_4177,qbs_new_txt_len("_BLUE32",7))||qbs_equal(sc_4177,qbs_new_txt_len("_ALPHA32",8))))||is_error_pending()){
#line 993 "utilities/const_eval.bas"
if(qbevent){evnt(28806,993,"const_eval.bas");if(r)goto S_41581;}
#line 994 "utilities/const_eval.bas"
do{
#line 994 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 994 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,994,"const_eval.bas");}while(r);
#line 995 "utilities/const_eval.bas"
S_41583:;
#line 995 "utilities/const_eval.bas"
qbs_set(sc_4183,*((qbs**)((char*)__ARRAY_UDT_CONSTFUNCS[0]+(((array_check((*_FUNC_EVALUATEFUNCTION_LONG_P)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+0)))));
#line 995 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 995 "utilities/const_eval.bas"
if(qbevent){evnt(28806,995,"const_eval.bas");if(r)goto S_41583;}
#line 996 "utilities/const_eval.bas"
S_41584:;
#line 996 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4183,qbs_new_txt_len("_RED32",6))))||is_error_pending()){
#line 996 "utilities/const_eval.bas"
if(qbevent){evnt(28806,996,"const_eval.bas");if(r)goto S_41584;}
#line 996 "utilities/const_eval.bas"
do{
#line 996 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func__red32(*(int64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+32))));
#line 996 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 996 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,996,"const_eval.bas");}while(r);
#line 997 "utilities/const_eval.bas"
sc_ec_166_end:;
#line 997 "utilities/const_eval.bas"
goto sc_4183_end;
#line 997 "utilities/const_eval.bas"
}
#line 997 "utilities/const_eval.bas"
S_41586:;
#line 997 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4183,qbs_new_txt_len("_BLUE32",7))))||is_error_pending()){
#line 997 "utilities/const_eval.bas"
if(qbevent){evnt(28806,997,"const_eval.bas");if(r)goto S_41586;}
#line 997 "utilities/const_eval.bas"
do{
#line 997 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func__blue32(*(int64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+32))));
#line 997 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 997 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,997,"const_eval.bas");}while(r);
#line 998 "utilities/const_eval.bas"
sc_ec_167_end:;
#line 998 "utilities/const_eval.bas"
goto sc_4183_end;
#line 998 "utilities/const_eval.bas"
}
#line 998 "utilities/const_eval.bas"
S_41588:;
#line 998 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4183,qbs_new_txt_len("_GREEN32",8))))||is_error_pending()){
#line 998 "utilities/const_eval.bas"
if(qbevent){evnt(28806,998,"const_eval.bas");if(r)goto S_41588;}
#line 998 "utilities/const_eval.bas"
do{
#line 998 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func__green32(*(int64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+32))));
#line 998 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 998 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,998,"const_eval.bas");}while(r);
#line 999 "utilities/const_eval.bas"
sc_ec_168_end:;
#line 999 "utilities/const_eval.bas"
goto sc_4183_end;
#line 999 "utilities/const_eval.bas"
}
#line 999 "utilities/const_eval.bas"
S_41590:;
#line 999 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4183,qbs_new_txt_len("_ALPHA32",8))))||is_error_pending()){
#line 999 "utilities/const_eval.bas"
if(qbevent){evnt(28806,999,"const_eval.bas");if(r)goto S_41590;}
#line 999 "utilities/const_eval.bas"
do{
#line 999 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func__alpha32(*(int64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+32))));
#line 999 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 999 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,999,"const_eval.bas");}while(r);
#line 1000 "utilities/const_eval.bas"
sc_ec_169_end:;
#line 1000 "utilities/const_eval.bas"
goto sc_4183_end;
#line 1000 "utilities/const_eval.bas"
}
#line 1000 "utilities/const_eval.bas"
sc_4183_end:;
#line 1002 "utilities/const_eval.bas"
sc_ec_170_end:;
#line 1002 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1002 "utilities/const_eval.bas"
}
#line 1002 "utilities/const_eval.bas"
S_41593:;
#line 1002 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("COS",3))))||is_error_pending()){
#line 1002 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1002,"const_eval.bas");if(r)goto S_41593;}
#line 1002 "utilities/const_eval.bas"
do{
#line 1002 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=std::cos(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 1002 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1002 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1002,"const_eval.bas");}while(r);
#line 1003 "utilities/const_eval.bas"
sc_ec_171_end:;
#line 1003 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1003 "utilities/const_eval.bas"
}
#line 1003 "utilities/const_eval.bas"
S_41595:;
#line 1003 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("SIN",3))))||is_error_pending()){
#line 1003 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1003,"const_eval.bas");if(r)goto S_41595;}
#line 1003 "utilities/const_eval.bas"
do{
#line 1003 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=std::sin(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 1003 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1003 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1003,"const_eval.bas");}while(r);
#line 1004 "utilities/const_eval.bas"
sc_ec_172_end:;
#line 1004 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1004 "utilities/const_eval.bas"
}
#line 1004 "utilities/const_eval.bas"
S_41597:;
#line 1004 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("TAN",3))))||is_error_pending()){
#line 1004 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1004,"const_eval.bas");if(r)goto S_41597;}
#line 1004 "utilities/const_eval.bas"
do{
#line 1004 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=std::tan(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 1004 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1004 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1004,"const_eval.bas");}while(r);
#line 1005 "utilities/const_eval.bas"
sc_ec_173_end:;
#line 1005 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1005 "utilities/const_eval.bas"
}
#line 1005 "utilities/const_eval.bas"
S_41599:;
#line 1005 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("LOG",3))))||is_error_pending()){
#line 1005 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1005,"const_eval.bas");if(r)goto S_41599;}
#line 1005 "utilities/const_eval.bas"
do{
#line 1005 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func_log(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 1005 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1005 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1005,"const_eval.bas");}while(r);
#line 1006 "utilities/const_eval.bas"
sc_ec_174_end:;
#line 1006 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1006 "utilities/const_eval.bas"
}
#line 1006 "utilities/const_eval.bas"
S_41601:;
#line 1006 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("EXP",3))))||is_error_pending()){
#line 1006 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1006,"const_eval.bas");if(r)goto S_41601;}
#line 1006 "utilities/const_eval.bas"
do{
#line 1006 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func_exp_float(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 1006 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1006 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1006,"const_eval.bas");}while(r);
#line 1007 "utilities/const_eval.bas"
sc_ec_175_end:;
#line 1007 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1007 "utilities/const_eval.bas"
}
#line 1007 "utilities/const_eval.bas"
S_41603:;
#line 1007 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("ATN",3))))||is_error_pending()){
#line 1007 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1007,"const_eval.bas");if(r)goto S_41603;}
#line 1007 "utilities/const_eval.bas"
do{
#line 1007 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=std::atan(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 1007 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1007 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1007,"const_eval.bas");}while(r);
#line 1008 "utilities/const_eval.bas"
sc_ec_176_end:;
#line 1008 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1008 "utilities/const_eval.bas"
}
#line 1008 "utilities/const_eval.bas"
S_41605:;
#line 1008 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("SQR",3))))||is_error_pending()){
#line 1008 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1008,"const_eval.bas");if(r)goto S_41605;}
#line 1009 "utilities/const_eval.bas"
S_41606:;
#line 1009 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,-(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0)))< 0 )))||is_error_pending()){
#line 1009 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1009,"const_eval.bas");if(r)goto S_41606;}
#line 1009 "utilities/const_eval.bas"
do{
#line 1009 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_new_txt_len("ERROR - Argument to SQR cannot be negative",42));
#line 1009 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1009 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1009,"const_eval.bas");}while(r);
#line 1009 "utilities/const_eval.bas"
do{
#line 1009 "utilities/const_eval.bas"
goto exit_subfunc;
#line 1009 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1009,"const_eval.bas");}while(r);
#line 1009 "utilities/const_eval.bas"
}
#line 1010 "utilities/const_eval.bas"
do{
#line 1010 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func_sqr(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 1010 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1010 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1010,"const_eval.bas");}while(r);
#line 1011 "utilities/const_eval.bas"
sc_ec_177_end:;
#line 1011 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1011 "utilities/const_eval.bas"
}
#line 1011 "utilities/const_eval.bas"
S_41611:;
#line 1011 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_D2R",4))))||is_error_pending()){
#line 1011 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1011,"const_eval.bas");if(r)goto S_41611;}
#line 1011 "utilities/const_eval.bas"
do{
#line 1011 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1= 0.0174532925E+0 **(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0)));
#line 1011 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1011 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1011,"const_eval.bas");}while(r);
#line 1012 "utilities/const_eval.bas"
sc_ec_178_end:;
#line 1012 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1012 "utilities/const_eval.bas"
}
#line 1012 "utilities/const_eval.bas"
S_41613:;
#line 1012 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_D2G",4))))||is_error_pending()){
#line 1012 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1012,"const_eval.bas");if(r)goto S_41613;}
#line 1012 "utilities/const_eval.bas"
do{
#line 1012 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1= 1.1111111111E+0 **(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0)));
#line 1012 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1012 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1012,"const_eval.bas");}while(r);
#line 1013 "utilities/const_eval.bas"
sc_ec_179_end:;
#line 1013 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1013 "utilities/const_eval.bas"
}
#line 1013 "utilities/const_eval.bas"
S_41615:;
#line 1013 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_R2D",4))))||is_error_pending()){
#line 1013 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1013,"const_eval.bas");if(r)goto S_41615;}
#line 1013 "utilities/const_eval.bas"
do{
#line 1013 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1= 57.2957795E+0 **(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0)));
#line 1013 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1013 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1013,"const_eval.bas");}while(r);
#line 1014 "utilities/const_eval.bas"
sc_ec_180_end:;
#line 1014 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1014 "utilities/const_eval.bas"
}
#line 1014 "utilities/const_eval.bas"
S_41617:;
#line 1014 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_R2G",4))))||is_error_pending()){
#line 1014 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1014,"const_eval.bas");if(r)goto S_41617;}
#line 1014 "utilities/const_eval.bas"
do{
#line 1014 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1= 0.015707963E+0 **(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0)));
#line 1014 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1014 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1014,"const_eval.bas");}while(r);
#line 1015 "utilities/const_eval.bas"
sc_ec_181_end:;
#line 1015 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1015 "utilities/const_eval.bas"
}
#line 1015 "utilities/const_eval.bas"
S_41619:;
#line 1015 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_G2D",4))))||is_error_pending()){
#line 1015 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1015,"const_eval.bas");if(r)goto S_41619;}
#line 1015 "utilities/const_eval.bas"
do{
#line 1015 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1= 0.9E+0 **(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0)));
#line 1015 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1015 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1015,"const_eval.bas");}while(r);
#line 1016 "utilities/const_eval.bas"
sc_ec_182_end:;
#line 1016 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1016 "utilities/const_eval.bas"
}
#line 1016 "utilities/const_eval.bas"
S_41621:;
#line 1016 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_G2R",4))))||is_error_pending()){
#line 1016 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1016,"const_eval.bas");if(r)goto S_41621;}
#line 1016 "utilities/const_eval.bas"
do{
#line 1016 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1= 63.661977237E+0 **(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0)));
#line 1016 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1016 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1016,"const_eval.bas");}while(r);
#line 1017 "utilities/const_eval.bas"
sc_ec_183_end:;
#line 1017 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1017 "utilities/const_eval.bas"
}
#line 1017 "utilities/const_eval.bas"
S_41623:;
#line 1017 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("ABS",3))))||is_error_pending()){
#line 1017 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1017,"const_eval.bas");if(r)goto S_41623;}
#line 1017 "utilities/const_eval.bas"
do{
#line 1017 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func_abs((long double)(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0)))));
#line 1017 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1017 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1017,"const_eval.bas");}while(r);
#line 1017 "utilities/const_eval.bas"
do{
#line 1017 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 1017 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1017,"const_eval.bas");}while(r);
#line 1018 "utilities/const_eval.bas"
sc_ec_184_end:;
#line 1018 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1018 "utilities/const_eval.bas"
}
#line 1018 "utilities/const_eval.bas"
S_41626:;
#line 1018 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("SGN",3))))||is_error_pending()){
#line 1018 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1018,"const_eval.bas");if(r)goto S_41626;}
#line 1018 "utilities/const_eval.bas"
do{
#line 1018 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func_sgn((long double)(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0)))));
#line 1018 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1018 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1018,"const_eval.bas");}while(r);
#line 1018 "utilities/const_eval.bas"
do{
#line 1018 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 1018 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1018,"const_eval.bas");}while(r);
#line 1019 "utilities/const_eval.bas"
sc_ec_185_end:;
#line 1019 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1019 "utilities/const_eval.bas"
}
#line 1019 "utilities/const_eval.bas"
S_41629:;
#line 1019 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("INT",3))))||is_error_pending()){
#line 1019 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1019,"const_eval.bas");if(r)goto S_41629;}
#line 1019 "utilities/const_eval.bas"
do{
#line 1019 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=std::floor(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 1019 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1019 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1019,"const_eval.bas");}while(r);
#line 1019 "utilities/const_eval.bas"
do{
#line 1019 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 1019 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1019,"const_eval.bas");}while(r);
#line 1020 "utilities/const_eval.bas"
sc_ec_186_end:;
#line 1020 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1020 "utilities/const_eval.bas"
}
#line 1020 "utilities/const_eval.bas"
S_41632:;
#line 1020 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_ROUND",6))))||is_error_pending()){
#line 1020 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1020,"const_eval.bas");if(r)goto S_41632;}
#line 1020 "utilities/const_eval.bas"
do{
#line 1020 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func_round_float(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 1020 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1020 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1020,"const_eval.bas");}while(r);
#line 1020 "utilities/const_eval.bas"
do{
#line 1020 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 1020 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1020,"const_eval.bas");}while(r);
#line 1021 "utilities/const_eval.bas"
sc_ec_187_end:;
#line 1021 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1021 "utilities/const_eval.bas"
}
#line 1021 "utilities/const_eval.bas"
S_41635:;
#line 1021 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_CEIL",5))))||is_error_pending()){
#line 1021 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1021,"const_eval.bas");if(r)goto S_41635;}
#line 1021 "utilities/const_eval.bas"
do{
#line 1021 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=std::ceil(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 1021 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1021 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1021,"const_eval.bas");}while(r);
#line 1021 "utilities/const_eval.bas"
do{
#line 1021 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 1021 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1021,"const_eval.bas");}while(r);
#line 1022 "utilities/const_eval.bas"
sc_ec_188_end:;
#line 1022 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1022 "utilities/const_eval.bas"
}
#line 1022 "utilities/const_eval.bas"
S_41638:;
#line 1022 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("FIX",3))))||is_error_pending()){
#line 1022 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1022,"const_eval.bas");if(r)goto S_41638;}
#line 1022 "utilities/const_eval.bas"
do{
#line 1022 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func_fix_float(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 1022 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1022 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1022,"const_eval.bas");}while(r);
#line 1022 "utilities/const_eval.bas"
do{
#line 1022 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 1022 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1022,"const_eval.bas");}while(r);
#line 1023 "utilities/const_eval.bas"
sc_ec_189_end:;
#line 1023 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1023 "utilities/const_eval.bas"
}
#line 1023 "utilities/const_eval.bas"
S_41641:;
#line 1023 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_SEC",4))))||is_error_pending()){
#line 1023 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1023,"const_eval.bas");if(r)goto S_41641;}
#line 1023 "utilities/const_eval.bas"
do{
#line 1023 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func_sec(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 1023 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1023 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1023,"const_eval.bas");}while(r);
#line 1024 "utilities/const_eval.bas"
sc_ec_190_end:;
#line 1024 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1024 "utilities/const_eval.bas"
}
#line 1024 "utilities/const_eval.bas"
S_41643:;
#line 1024 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_CSC",4))))||is_error_pending()){
#line 1024 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1024,"const_eval.bas");if(r)goto S_41643;}
#line 1024 "utilities/const_eval.bas"
do{
#line 1024 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func_csc(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 1024 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1024 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1024,"const_eval.bas");}while(r);
#line 1025 "utilities/const_eval.bas"
sc_ec_191_end:;
#line 1025 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1025 "utilities/const_eval.bas"
}
#line 1025 "utilities/const_eval.bas"
S_41645:;
#line 1025 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("_COT",4))))||is_error_pending()){
#line 1025 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1025,"const_eval.bas");if(r)goto S_41645;}
#line 1025 "utilities/const_eval.bas"
do{
#line 1025 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=func_cot(*(long double*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+0))));
#line 1025 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1025 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1025,"const_eval.bas");}while(r);
#line 1027 "utilities/const_eval.bas"
sc_ec_192_end:;
#line 1027 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1027 "utilities/const_eval.bas"
}
#line 1027 "utilities/const_eval.bas"
S_41647:;
#line 1027 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("CHR$",4))))||is_error_pending()){
#line 1027 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1027,"const_eval.bas");if(r)goto S_41647;}
#line 1028 "utilities/const_eval.bas"
S_41648:;
#line 1028 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,(-(*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40)))> 255 ))|(-(*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40)))< 0 ))))||is_error_pending()){
#line 1028 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1028,"const_eval.bas");if(r)goto S_41648;}
#line 1028 "utilities/const_eval.bas"
do{
#line 1028 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_add(qbs_new_txt_len("ERROR - Invalid argument to CHR$, valid range is 0-255: ",56),(((qbs**)(_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[0]))[array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[5])])));
#line 1028 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1028 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1028,"const_eval.bas");}while(r);
#line 1028 "utilities/const_eval.bas"
do{
#line 1028 "utilities/const_eval.bas"
goto exit_subfunc;
#line 1028 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1028,"const_eval.bas");}while(r);
#line 1028 "utilities/const_eval.bas"
}
#line 1030 "utilities/const_eval.bas"
do{
#line 1030 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_NSTR,func_chr(*(uint64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+40)))));
#line 1030 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1030 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1030,"const_eval.bas");}while(r);
#line 1031 "utilities/const_eval.bas"
do{
#line 1031 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_STRINGTYPE;
#line 1031 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1031,"const_eval.bas");}while(r);
#line 1033 "utilities/const_eval.bas"
sc_ec_193_end:;
#line 1033 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1033 "utilities/const_eval.bas"
}
#line 1033 "utilities/const_eval.bas"
S_41654:;
#line 1033 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4177,qbs_new_txt_len("ASC",3))))||is_error_pending()){
#line 1033 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1033,"const_eval.bas");if(r)goto S_41654;}
#line 1034 "utilities/const_eval.bas"
S_41655:;
#line 1034 "utilities/const_eval.bas"
if (((-(*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT< 1 ))|(-(*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT> 2 )))||is_error_pending()){
#line 1034 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1034,"const_eval.bas");if(r)goto S_41655;}
#line 1034 "utilities/const_eval.bas"
do{
#line 1034 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_new_txt_len("ERROR - Wrong number of arguments provided to ASC",49));
#line 1034 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1034 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1034,"const_eval.bas");}while(r);
#line 1034 "utilities/const_eval.bas"
do{
#line 1034 "utilities/const_eval.bas"
goto exit_subfunc;
#line 1034 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1034,"const_eval.bas");}while(r);
#line 1034 "utilities/const_eval.bas"
}
#line 1035 "utilities/const_eval.bas"
S_41659:;
#line 1035 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,-((*(int32*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+56)))&*__LONG_ISSTRING)== 0 )))||is_error_pending()){
#line 1035 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1035,"const_eval.bas");if(r)goto S_41659;}
#line 1035 "utilities/const_eval.bas"
do{
#line 1035 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Unexpected argument: '",30),(((qbs**)(_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[0]))[array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[5])])),qbs_new_txt_len("'",1)));
#line 1035 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1035 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1035,"const_eval.bas");}while(r);
#line 1035 "utilities/const_eval.bas"
do{
#line 1035 "utilities/const_eval.bas"
goto exit_subfunc;
#line 1035 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1035,"const_eval.bas");}while(r);
#line 1035 "utilities/const_eval.bas"
}
#line 1036 "utilities/const_eval.bas"
S_41663:;
#line 1036 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+48))))->len< 1 )))||is_error_pending()){
#line 1036 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1036,"const_eval.bas");if(r)goto S_41663;}
#line 1036 "utilities/const_eval.bas"
do{
#line 1036 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_new_txt_len("ERROR - ASC cannot apply to empty string",40));
#line 1036 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1036 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1036,"const_eval.bas");}while(r);
#line 1036 "utilities/const_eval.bas"
do{
#line 1036 "utilities/const_eval.bas"
goto exit_subfunc;
#line 1036 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1036,"const_eval.bas");}while(r);
#line 1036 "utilities/const_eval.bas"
}
#line 1038 "utilities/const_eval.bas"
S_41667:;
#line 1038 "utilities/const_eval.bas"
if ((-(*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT== 1 ))||is_error_pending()){
#line 1038 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1038,"const_eval.bas");if(r)goto S_41667;}
#line 1039 "utilities/const_eval.bas"
do{
#line 1039 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=qbs_asc(*((qbs**)((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0]+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+48)))));
#line 1039 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1039 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1039,"const_eval.bas");}while(r);
#line 1040 "utilities/const_eval.bas"
}else{
#line 1041 "utilities/const_eval.bas"
S_41670:;
#line 1041 "utilities/const_eval.bas"
if ((qbs_cleanup(qbs_tmp_base,*(int32*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 2 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+56)))&*__LONG_ISSTRING))||is_error_pending()){
#line 1041 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1041,"const_eval.bas");if(r)goto S_41670;}
#line 1041 "utilities/const_eval.bas"
do{
#line 1041 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Expected integer argument: '",36),(((qbs**)(_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[0]))[array_check(( 2 )-_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[5])])),qbs_new_txt_len("'",1)));
#line 1041 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1041 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1041,"const_eval.bas");}while(r);
#line 1041 "utilities/const_eval.bas"
do{
#line 1041 "utilities/const_eval.bas"
goto exit_subfunc;
#line 1041 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1041,"const_eval.bas");}while(r);
#line 1041 "utilities/const_eval.bas"
}
#line 1043 "utilities/const_eval.bas"
do{
#line 1043 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_FLOAT_N1=qbs_asc(*((qbs**)((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0]+(((array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+48)))),*(int64*)(((char*)_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0])+(((array_check(( 2 )-_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[5]))*60+32))));
#line 1043 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1043 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1043,"const_eval.bas");}while(r);
#line 1044 "utilities/const_eval.bas"
}
#line 1046 "utilities/const_eval.bas"
do{
#line 1046 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
#line 1046 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1046,"const_eval.bas");}while(r);
#line 1047 "utilities/const_eval.bas"
sc_ec_194_end:;
#line 1047 "utilities/const_eval.bas"
goto sc_4177_end;
#line 1047 "utilities/const_eval.bas"
}
#line 1047 "utilities/const_eval.bas"
sc_4177_end:;
#line 1049 "utilities/const_eval.bas"
S_41678:;
#line 1049 "utilities/const_eval.bas"
if ((*_FUNC_EVALUATEFUNCTION_LONG_TYP&*__LONG_ISSTRING)||is_error_pending()){
#line 1049 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1049,"const_eval.bas");if(r)goto S_41678;}
#line 1050 "utilities/const_eval.bas"
do{
#line 1050 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,FUNC_CREATEELEMENTSTRING(_FUNC_EVALUATEFUNCTION_STRING_NSTR));
#line 1050 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1050 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1050,"const_eval.bas");}while(r);
#line 1051 "utilities/const_eval.bas"
S_41680:;
#line 1051 "utilities/const_eval.bas"
}else{
#line 1051 "utilities/const_eval.bas"
if (*_FUNC_EVALUATEFUNCTION_LONG_TYP&*__LONG_ISFLOAT){
#line 1051 "utilities/const_eval.bas"
if(qbevent){evnt(28806,1051,"const_eval.bas");if(r)goto S_41680;}
#line 1052 "utilities/const_eval.bas"
do{
#line 1052 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs__tostr((long double)(*_FUNC_EVALUATEFUNCTION_FLOAT_N1),NULL,0));
#line 1052 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1052 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1052,"const_eval.bas");}while(r);
#line 1053 "utilities/const_eval.bas"
}else{
#line 1054 "utilities/const_eval.bas"
do{
#line 1054 "utilities/const_eval.bas"
*_FUNC_EVALUATEFUNCTION_INTEGER64_N=qbr(*_FUNC_EVALUATEFUNCTION_FLOAT_N1);
#line 1054 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1054,"const_eval.bas");}while(r);
#line 1055 "utilities/const_eval.bas"
do{
#line 1055 "utilities/const_eval.bas"
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_add(qbs__tostr((int64)(*_FUNC_EVALUATEFUNCTION_INTEGER64_N),NULL,0),qbs_new_txt_len("&&",2)));
#line 1055 "utilities/const_eval.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 1055 "utilities/const_eval.bas"
if(!qbevent)break;evnt(28806,1055,"const_eval.bas");}while(r);
#line 1056 "utilities/const_eval.bas"
}
#line 1056 "utilities/const_eval.bas"
}
#line 1057 "utilities/const_eval.bas"
exit_subfunc:;
#line 1057 "utilities/const_eval.bas"
free_mem_lock(sf_mem_lock);
#line 1057 "utilities/const_eval.bas"
#include "free268.txt"
#line 1057 "utilities/const_eval.bas"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
#line 1057 "utilities/const_eval.bas"
cmem_sp=tmp_cmem_sp;
#line 1057 "utilities/const_eval.bas"
qbs_maketmp(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION);return _FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION;
#line 1057 "utilities/const_eval.bas"
}
