qbs* FUNC_EVALUATEFUNCTION(int32*_FUNC_EVALUATEFUNCTION_LONG_P,qbs*_FUNC_EVALUATEFUNCTION_STRING_ARGS){
qbs *tqbs;
ptrszint tmp_long;
int32 tmp_fileno;
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
uint8 *tmp_mem_static_pointer=mem_static_pointer;
uint32 tmp_cmem_sp=cmem_sp;
#include "data207.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
if (is_error_pending()) goto exit_subfunc;
do{
if(!qbevent)break;evnt(25756,874,"const_eval.bas");}while(r);
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**)(_FUNC_EVALUATEFUNCTION_ARRAY_UDT_ARGS[0]+60*tmp_long+ 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--) ((uint64*)(_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[0]))[tmp_long]=(uint64)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];
}
}
if(!qbevent)break;evnt(25756,875,"const_eval.bas");}while(r);
do{
*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT=FUNC_COUNTFUNCTIONELEMENTS(_FUNC_EVALUATEFUNCTION_STRING_ARGS);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,878,"const_eval.bas");}while(r);
S_37255:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(25756,880,"const_eval.bas");if(r)goto S_37255;}
do{
sub__echo(qbs_add(qbs_new_txt_len("argCount:",9),qbs_str((int32)(*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,880,"const_eval.bas");}while(r);
}
S_37258:;
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()){
if(qbevent){evnt(25756,882,"const_eval.bas");if(r)goto S_37258;}
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,883,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,884,"const_eval.bas");}while(r);
}
S_37262:;
fornext_value4424= 1 ;
fornext_finalvalue4424=*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT;
fornext_step4424= 1 ;
if (fornext_step4424<0) fornext_step_negative4424=1; else fornext_step_negative4424=0;
if (is_error_pending()) goto fornext_error4424;
goto fornext_entrylabel4424;
while(1){
fornext_value4424=fornext_step4424+(*_FUNC_EVALUATEFUNCTION_LONG_I);
fornext_entrylabel4424:
*_FUNC_EVALUATEFUNCTION_LONG_I=fornext_value4424;
if (fornext_step_negative4424){
if (fornext_value4424<fornext_finalvalue4424) break;
}else{
if (fornext_value4424>fornext_finalvalue4424) break;
}
fornext_error4424:;
if(qbevent){evnt(25756,887,"const_eval.bas");if(r)goto S_37262;}
do{
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_ELE,FUNC_GETELEMENT(_FUNC_EVALUATEFUNCTION_STRING_ARGS,&(pass4425=( 1 )+((*_FUNC_EVALUATEFUNCTION_LONG_I- 1 )* 2 ))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,888,"const_eval.bas");}while(r);
do{
tmp_long=array_check((*_FUNC_EVALUATEFUNCTION_LONG_I)-_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[0]))[tmp_long])),_FUNC_EVALUATEFUNCTION_STRING_ELE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,889,"const_eval.bas");}while(r);
S_37265:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(25756,891,"const_eval.bas");if(r)goto S_37265;}
do{
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)))))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,891,"const_eval.bas");}while(r);
}
S_37268:;
if ((qbs_cleanup(qbs_tmp_base,FUNC_ELEMENTISNUMBER(_FUNC_EVALUATEFUNCTION_STRING_ELE)))||is_error_pending()){
if(qbevent){evnt(25756,893,"const_eval.bas");if(r)goto S_37268;}
do{
*(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)) ));
if(!qbevent)break;evnt(25756,895,"const_eval.bas");}while(r);
S_37270:;
}else{
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 )))){
if(qbevent){evnt(25756,896,"const_eval.bas");if(r)goto S_37270;}
do{
*(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)))));
if(!qbevent)break;evnt(25756,897,"const_eval.bas");}while(r);
}else{
do{
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_add(qbs_new_txt_len("ERROR - Unexpected argument: ",29),_FUNC_EVALUATEFUNCTION_STRING_ELE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,899,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,900,"const_eval.bas");}while(r);
}
}
S_37276:;
if (( 0ll )||is_error_pending()){
if(qbevent){evnt(25756,903,"const_eval.bas");if(r)goto S_37276;}
do{
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,&(pass4426=( 1 )+((*_FUNC_EVALUATEFUNCTION_LONG_I- 1 )* 2 )))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,903,"const_eval.bas");}while(r);
}
fornext_continue_4423:;
}
fornext_exit_4423:;
do{
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25756,907,"const_eval.bas");}while(r);
S_37281:;
qbs_set(sc_4427,*((qbs**)((char*)__ARRAY_UDT_CONSTFUNCS[0]+(((array_check((*_FUNC_EVALUATEFUNCTION_LONG_P)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+0)))));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25756,909,"const_eval.bas");if(r)goto S_37281;}
S_37282:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_PI",3))))||is_error_pending()){
if(qbevent){evnt(25756,910,"const_eval.bas");if(r)goto S_37282;}
do{
*_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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,912,"const_eval.bas");}while(r);
sc_ec_146_end:;
goto sc_4427_end;
}
S_37284:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_ACOS",5))))||is_error_pending()){
if(qbevent){evnt(25756,914,"const_eval.bas");if(r)goto S_37284;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,914,"const_eval.bas");}while(r);
sc_ec_147_end:;
goto sc_4427_end;
}
S_37286:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_ASIN",5))))||is_error_pending()){
if(qbevent){evnt(25756,915,"const_eval.bas");if(r)goto S_37286;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,915,"const_eval.bas");}while(r);
sc_ec_148_end:;
goto sc_4427_end;
}
S_37288:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_ARCSEC",7))))||is_error_pending()){
if(qbevent){evnt(25756,916,"const_eval.bas");if(r)goto S_37288;}
S_37289:;
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()){
if(qbevent){evnt(25756,917,"const_eval.bas");if(r)goto S_37289;}
do{
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_new_txt_len("ERROR - ABS(_ARCSEC) value < 1",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,917,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,917,"const_eval.bas");}while(r);
}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,918,"const_eval.bas");}while(r);
sc_ec_149_end:;
goto sc_4427_end;
}
S_37294:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_ARCCSC",7))))||is_error_pending()){
if(qbevent){evnt(25756,920,"const_eval.bas");if(r)goto S_37294;}
S_37295:;
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()){
if(qbevent){evnt(25756,921,"const_eval.bas");if(r)goto S_37295;}
do{
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_new_txt_len("ERROR - ABS(_ARCCSC) value < 1",30));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,921,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,921,"const_eval.bas");}while(r);
}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,922,"const_eval.bas");}while(r);
sc_ec_150_end:;
goto sc_4427_end;
}
S_37300:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_ARCCOT",7))))||is_error_pending()){
if(qbevent){evnt(25756,924,"const_eval.bas");if(r)goto S_37300;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,924,"const_eval.bas");}while(r);
sc_ec_151_end:;
goto sc_4427_end;
}
S_37302:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_SECH",5))))||is_error_pending()){
if(qbevent){evnt(25756,925,"const_eval.bas");if(r)goto S_37302;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,925,"const_eval.bas");}while(r);
sc_ec_152_end:;
goto sc_4427_end;
}
S_37304:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_CSCH",5))))||is_error_pending()){
if(qbevent){evnt(25756,926,"const_eval.bas");if(r)goto S_37304;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,926,"const_eval.bas");}while(r);
sc_ec_153_end:;
goto sc_4427_end;
}
S_37306:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_COTH",5))))||is_error_pending()){
if(qbevent){evnt(25756,927,"const_eval.bas");if(r)goto S_37306;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,927,"const_eval.bas");}while(r);
sc_ec_154_end:;
goto sc_4427_end;
}
S_37308:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_RGB32",6))))||is_error_pending()){
if(qbevent){evnt(25756,928,"const_eval.bas");if(r)goto S_37308;}
do{
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25756,929,"const_eval.bas");}while(r);
S_37310:;
if(qbevent){evnt(25756,930,"const_eval.bas");if(r)goto S_37310;}
S_37311:;
if (((*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT==( 1 )))||is_error_pending()){
if(qbevent){evnt(25756,931,"const_eval.bas");if(r)goto S_37311;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,932,"const_eval.bas");}while(r);
sc_ec_155_end:;
goto sc_4428_end;
}
S_37313:;
if (((*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT==( 2 )))||is_error_pending()){
if(qbevent){evnt(25756,934,"const_eval.bas");if(r)goto S_37313;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,935,"const_eval.bas");}while(r);
sc_ec_156_end:;
goto sc_4428_end;
}
S_37315:;
if (((*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT==( 3 )))||is_error_pending()){
if(qbevent){evnt(25756,937,"const_eval.bas");if(r)goto S_37315;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,938,"const_eval.bas");}while(r);
sc_ec_157_end:;
goto sc_4428_end;
}
S_37317:;
if (((*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT==( 4 )))||is_error_pending()){
if(qbevent){evnt(25756,940,"const_eval.bas");if(r)goto S_37317;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,941,"const_eval.bas");}while(r);
sc_ec_158_end:;
goto sc_4428_end;
}
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,944,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,945,"const_eval.bas");}while(r);
sc_4428_end:;
sc_ec_159_end:;
goto sc_4427_end;
}
S_37323:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_RGBA32",7))))||is_error_pending()){
if(qbevent){evnt(25756,948,"const_eval.bas");if(r)goto S_37323;}
do{
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25756,949,"const_eval.bas");}while(r);
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,951,"const_eval.bas");}while(r);
sc_ec_160_end:;
goto sc_4427_end;
}
S_37326:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_RGB",4))))||is_error_pending()){
if(qbevent){evnt(25756,953,"const_eval.bas");if(r)goto S_37326;}
do{
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25756,954,"const_eval.bas");}while(r);
S_37328:;
sc_4429=*(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)));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25756,956,"const_eval.bas");if(r)goto S_37328;}
S_37329:;
if ((((sc_4429>=( 0 ))&&(sc_4429<=( 2 )))||((sc_4429>=( 7 ))&&(sc_4429<=( 13 )))||(sc_4429==( 256 ))||(sc_4429==( 32 )))||is_error_pending()){
if(qbevent){evnt(25756,957,"const_eval.bas");if(r)goto S_37329;}
sc_ec_161_end:;
goto sc_4429_end;
}
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,959,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,959,"const_eval.bas");}while(r);
sc_4429_end:;
do{
*_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);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,961,"const_eval.bas");}while(r);
do{
*_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);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,962,"const_eval.bas");}while(r);
do{
sub__freeimage(*_FUNC_EVALUATEFUNCTION_LONG_T,1);
if(!qbevent)break;evnt(25756,963,"const_eval.bas");}while(r);
sc_ec_162_end:;
goto sc_4427_end;
}
S_37337:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_RGBA",5))))||is_error_pending()){
if(qbevent){evnt(25756,965,"const_eval.bas");if(r)goto S_37337;}
do{
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25756,966,"const_eval.bas");}while(r);
S_37339:;
sc_4430=*(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)));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25756,968,"const_eval.bas");if(r)goto S_37339;}
S_37340:;
if ((((sc_4430>=( 0 ))&&(sc_4430<=( 2 )))||((sc_4430>=( 7 ))&&(sc_4430<=( 13 )))||(sc_4430==( 256 ))||(sc_4430==( 32 )))||is_error_pending()){
if(qbevent){evnt(25756,969,"const_eval.bas");if(r)goto S_37340;}
sc_ec_163_end:;
goto sc_4430_end;
}
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,971,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,971,"const_eval.bas");}while(r);
sc_4430_end:;
do{
*_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);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,973,"const_eval.bas");}while(r);
do{
*_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);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,974,"const_eval.bas");}while(r);
do{
sub__freeimage(*_FUNC_EVALUATEFUNCTION_LONG_T,1);
if(!qbevent)break;evnt(25756,975,"const_eval.bas");}while(r);
sc_ec_164_end:;
goto sc_4427_end;
}
S_37348:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_RED",4))||qbs_equal(sc_4427,qbs_new_txt_len("_GREEN",6))||qbs_equal(sc_4427,qbs_new_txt_len("_BLUE",5))||qbs_equal(sc_4427,qbs_new_txt_len("_ALPHA",6))))||is_error_pending()){
if(qbevent){evnt(25756,977,"const_eval.bas");if(r)goto S_37348;}
do{
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25756,978,"const_eval.bas");}while(r);
S_37350:;
sc_4431=*(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)));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25756,979,"const_eval.bas");if(r)goto S_37350;}
S_37351:;
if ((((sc_4431>=( 0 ))&&(sc_4431<=( 2 )))||((sc_4431>=( 7 ))&&(sc_4431<=( 13 )))||(sc_4431==( 256 ))||(sc_4431==( 32 )))||is_error_pending()){
if(qbevent){evnt(25756,980,"const_eval.bas");if(r)goto S_37351;}
sc_ec_165_end:;
goto sc_4431_end;
}
do{
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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,982,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,982,"const_eval.bas");}while(r);
sc_4431_end:;
do{
*_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);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,984,"const_eval.bas");}while(r);
S_37357:;
qbs_set(sc_4432,*((qbs**)((char*)__ARRAY_UDT_CONSTFUNCS[0]+(((array_check((*_FUNC_EVALUATEFUNCTION_LONG_P)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+0)))));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25756,985,"const_eval.bas");if(r)goto S_37357;}
S_37358:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4432,qbs_new_txt_len("_RED",4))))||is_error_pending()){
if(qbevent){evnt(25756,986,"const_eval.bas");if(r)goto S_37358;}
do{
*_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);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,986,"const_eval.bas");}while(r);
sc_ec_166_end:;
goto sc_4432_end;
}
S_37360:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4432,qbs_new_txt_len("_BLUE",5))))||is_error_pending()){
if(qbevent){evnt(25756,987,"const_eval.bas");if(r)goto S_37360;}
do{
*_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);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,987,"const_eval.bas");}while(r);
sc_ec_167_end:;
goto sc_4432_end;
}
S_37362:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4432,qbs_new_txt_len("_GREEN",6))))||is_error_pending()){
if(qbevent){evnt(25756,988,"const_eval.bas");if(r)goto S_37362;}
do{
*_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);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,988,"const_eval.bas");}while(r);
sc_ec_168_end:;
goto sc_4432_end;
}
S_37364:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4432,qbs_new_txt_len("_ALPHA",6))))||is_error_pending()){
if(qbevent){evnt(25756,989,"const_eval.bas");if(r)goto S_37364;}
do{
*_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);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,989,"const_eval.bas");}while(r);
sc_ec_169_end:;
goto sc_4432_end;
}
sc_4432_end:;
do{
sub__freeimage(*_FUNC_EVALUATEFUNCTION_LONG_T,1);
if(!qbevent)break;evnt(25756,991,"const_eval.bas");}while(r);
sc_ec_170_end:;
goto sc_4427_end;
}
S_37368:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_RED32",6))||qbs_equal(sc_4427,qbs_new_txt_len("_GREEN32",8))||qbs_equal(sc_4427,qbs_new_txt_len("_BLUE32",7))||qbs_equal(sc_4427,qbs_new_txt_len("_ALPHA32",8))))||is_error_pending()){
if(qbevent){evnt(25756,993,"const_eval.bas");if(r)goto S_37368;}
do{
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25756,994,"const_eval.bas");}while(r);
S_37370:;
qbs_set(sc_4433,*((qbs**)((char*)__ARRAY_UDT_CONSTFUNCS[0]+(((array_check((*_FUNC_EVALUATEFUNCTION_LONG_P)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+0)))));
qbs_cleanup(qbs_tmp_base,0);
if(qbevent){evnt(25756,995,"const_eval.bas");if(r)goto S_37370;}
S_37371:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4433,qbs_new_txt_len("_RED32",6))))||is_error_pending()){
if(qbevent){evnt(25756,996,"const_eval.bas");if(r)goto S_37371;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,996,"const_eval.bas");}while(r);
sc_ec_171_end:;
goto sc_4433_end;
}
S_37373:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4433,qbs_new_txt_len("_BLUE32",7))))||is_error_pending()){
if(qbevent){evnt(25756,997,"const_eval.bas");if(r)goto S_37373;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,997,"const_eval.bas");}while(r);
sc_ec_172_end:;
goto sc_4433_end;
}
S_37375:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4433,qbs_new_txt_len("_GREEN32",8))))||is_error_pending()){
if(qbevent){evnt(25756,998,"const_eval.bas");if(r)goto S_37375;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,998,"const_eval.bas");}while(r);
sc_ec_173_end:;
goto sc_4433_end;
}
S_37377:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4433,qbs_new_txt_len("_ALPHA32",8))))||is_error_pending()){
if(qbevent){evnt(25756,999,"const_eval.bas");if(r)goto S_37377;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,999,"const_eval.bas");}while(r);
sc_ec_174_end:;
goto sc_4433_end;
}
sc_4433_end:;
sc_ec_175_end:;
goto sc_4427_end;
}
S_37380:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("COS",3))))||is_error_pending()){
if(qbevent){evnt(25756,1002,"const_eval.bas");if(r)goto S_37380;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1002,"const_eval.bas");}while(r);
sc_ec_176_end:;
goto sc_4427_end;
}
S_37382:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("SIN",3))))||is_error_pending()){
if(qbevent){evnt(25756,1003,"const_eval.bas");if(r)goto S_37382;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1003,"const_eval.bas");}while(r);
sc_ec_177_end:;
goto sc_4427_end;
}
S_37384:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("TAN",3))))||is_error_pending()){
if(qbevent){evnt(25756,1004,"const_eval.bas");if(r)goto S_37384;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1004,"const_eval.bas");}while(r);
sc_ec_178_end:;
goto sc_4427_end;
}
S_37386:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("LOG",3))))||is_error_pending()){
if(qbevent){evnt(25756,1005,"const_eval.bas");if(r)goto S_37386;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1005,"const_eval.bas");}while(r);
sc_ec_179_end:;
goto sc_4427_end;
}
S_37388:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("EXP",3))))||is_error_pending()){
if(qbevent){evnt(25756,1006,"const_eval.bas");if(r)goto S_37388;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1006,"const_eval.bas");}while(r);
sc_ec_180_end:;
goto sc_4427_end;
}
S_37390:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("ATN",3))))||is_error_pending()){
if(qbevent){evnt(25756,1007,"const_eval.bas");if(r)goto S_37390;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1007,"const_eval.bas");}while(r);
sc_ec_181_end:;
goto sc_4427_end;
}
S_37392:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("SQR",3))))||is_error_pending()){
if(qbevent){evnt(25756,1008,"const_eval.bas");if(r)goto S_37392;}
S_37393:;
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()){
if(qbevent){evnt(25756,1009,"const_eval.bas");if(r)goto S_37393;}
do{
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_new_txt_len("ERROR - Argument to SQR cannot be negative",42));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1009,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,1009,"const_eval.bas");}while(r);
}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1010,"const_eval.bas");}while(r);
sc_ec_182_end:;
goto sc_4427_end;
}
S_37398:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_D2R",4))))||is_error_pending()){
if(qbevent){evnt(25756,1011,"const_eval.bas");if(r)goto S_37398;}
do{
*_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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1011,"const_eval.bas");}while(r);
sc_ec_183_end:;
goto sc_4427_end;
}
S_37400:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_D2G",4))))||is_error_pending()){
if(qbevent){evnt(25756,1012,"const_eval.bas");if(r)goto S_37400;}
do{
*_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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1012,"const_eval.bas");}while(r);
sc_ec_184_end:;
goto sc_4427_end;
}
S_37402:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_R2D",4))))||is_error_pending()){
if(qbevent){evnt(25756,1013,"const_eval.bas");if(r)goto S_37402;}
do{
*_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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1013,"const_eval.bas");}while(r);
sc_ec_185_end:;
goto sc_4427_end;
}
S_37404:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_R2G",4))))||is_error_pending()){
if(qbevent){evnt(25756,1014,"const_eval.bas");if(r)goto S_37404;}
do{
*_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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1014,"const_eval.bas");}while(r);
sc_ec_186_end:;
goto sc_4427_end;
}
S_37406:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_G2D",4))))||is_error_pending()){
if(qbevent){evnt(25756,1015,"const_eval.bas");if(r)goto S_37406;}
do{
*_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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1015,"const_eval.bas");}while(r);
sc_ec_187_end:;
goto sc_4427_end;
}
S_37408:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_G2R",4))))||is_error_pending()){
if(qbevent){evnt(25756,1016,"const_eval.bas");if(r)goto S_37408;}
do{
*_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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1016,"const_eval.bas");}while(r);
sc_ec_188_end:;
goto sc_4427_end;
}
S_37410:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("ABS",3))))||is_error_pending()){
if(qbevent){evnt(25756,1017,"const_eval.bas");if(r)goto S_37410;}
do{
*_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)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1017,"const_eval.bas");}while(r);
do{
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25756,1017,"const_eval.bas");}while(r);
sc_ec_189_end:;
goto sc_4427_end;
}
S_37413:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("SGN",3))))||is_error_pending()){
if(qbevent){evnt(25756,1018,"const_eval.bas");if(r)goto S_37413;}
do{
*_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)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1018,"const_eval.bas");}while(r);
do{
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25756,1018,"const_eval.bas");}while(r);
sc_ec_190_end:;
goto sc_4427_end;
}
S_37416:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("INT",3))))||is_error_pending()){
if(qbevent){evnt(25756,1019,"const_eval.bas");if(r)goto S_37416;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1019,"const_eval.bas");}while(r);
do{
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25756,1019,"const_eval.bas");}while(r);
sc_ec_191_end:;
goto sc_4427_end;
}
S_37419:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_ROUND",6))))||is_error_pending()){
if(qbevent){evnt(25756,1020,"const_eval.bas");if(r)goto S_37419;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1020,"const_eval.bas");}while(r);
do{
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25756,1020,"const_eval.bas");}while(r);
sc_ec_192_end:;
goto sc_4427_end;
}
S_37422:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_CEIL",5))))||is_error_pending()){
if(qbevent){evnt(25756,1021,"const_eval.bas");if(r)goto S_37422;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1021,"const_eval.bas");}while(r);
do{
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25756,1021,"const_eval.bas");}while(r);
sc_ec_193_end:;
goto sc_4427_end;
}
S_37425:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("FIX",3))))||is_error_pending()){
if(qbevent){evnt(25756,1022,"const_eval.bas");if(r)goto S_37425;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1022,"const_eval.bas");}while(r);
do{
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25756,1022,"const_eval.bas");}while(r);
sc_ec_194_end:;
goto sc_4427_end;
}
S_37428:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_SEC",4))))||is_error_pending()){
if(qbevent){evnt(25756,1023,"const_eval.bas");if(r)goto S_37428;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1023,"const_eval.bas");}while(r);
sc_ec_195_end:;
goto sc_4427_end;
}
S_37430:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_CSC",4))))||is_error_pending()){
if(qbevent){evnt(25756,1024,"const_eval.bas");if(r)goto S_37430;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1024,"const_eval.bas");}while(r);
sc_ec_196_end:;
goto sc_4427_end;
}
S_37432:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("_COT",4))))||is_error_pending()){
if(qbevent){evnt(25756,1025,"const_eval.bas");if(r)goto S_37432;}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1025,"const_eval.bas");}while(r);
sc_ec_197_end:;
goto sc_4427_end;
}
S_37434:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("CHR$",4))))||is_error_pending()){
if(qbevent){evnt(25756,1027,"const_eval.bas");if(r)goto S_37434;}
S_37435:;
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()){
if(qbevent){evnt(25756,1028,"const_eval.bas");if(r)goto S_37435;}
do{
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_add(qbs_new_txt_len("ERROR - Invalid argument to CHR$, valid range is 0-255: ",56),((qbs*)(((uint64*)(_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[0]))[array_check(( 1 )-_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[4],_FUNC_EVALUATEFUNCTION_ARRAY_STRING_ORIGARGS[5])]))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1028,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,1028,"const_eval.bas");}while(r);
}
do{
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)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1030,"const_eval.bas");}while(r);
do{
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_STRINGTYPE;
if(!qbevent)break;evnt(25756,1031,"const_eval.bas");}while(r);
sc_ec_198_end:;
goto sc_4427_end;
}
S_37441:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4427,qbs_new_txt_len("ASC",3))))||is_error_pending()){
if(qbevent){evnt(25756,1033,"const_eval.bas");if(r)goto S_37441;}
S_37442:;
if (((-(*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT< 1 ))|(-(*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT> 2 )))||is_error_pending()){
if(qbevent){evnt(25756,1034,"const_eval.bas");if(r)goto S_37442;}
do{
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_new_txt_len("ERROR - Wrong number of arguments provided to ASC",49));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1034,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,1034,"const_eval.bas");}while(r);
}
S_37446:;
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()){
if(qbevent){evnt(25756,1035,"const_eval.bas");if(r)goto S_37446;}
do{
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Unexpected argument: '",30),((qbs*)(((uint64*)(_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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1035,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,1035,"const_eval.bas");}while(r);
}
S_37450:;
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()){
if(qbevent){evnt(25756,1036,"const_eval.bas");if(r)goto S_37450;}
do{
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_new_txt_len("ERROR - ASC cannot apply to empty string",40));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1036,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,1036,"const_eval.bas");}while(r);
}
S_37454:;
if ((-(*_FUNC_EVALUATEFUNCTION_LONG_ARGCOUNT== 1 ))||is_error_pending()){
if(qbevent){evnt(25756,1038,"const_eval.bas");if(r)goto S_37454;}
do{
*_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)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1039,"const_eval.bas");}while(r);
}else{
S_37457:;
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()){
if(qbevent){evnt(25756,1041,"const_eval.bas");if(r)goto S_37457;}
do{
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Expected integer argument: '",36),((qbs*)(((uint64*)(_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)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1041,"const_eval.bas");}while(r);
do{
goto exit_subfunc;
if(!qbevent)break;evnt(25756,1041,"const_eval.bas");}while(r);
}
do{
*_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))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1043,"const_eval.bas");}while(r);
}
do{
*_FUNC_EVALUATEFUNCTION_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25756,1046,"const_eval.bas");}while(r);
sc_ec_199_end:;
goto sc_4427_end;
}
sc_4427_end:;
S_37465:;
if ((*_FUNC_EVALUATEFUNCTION_LONG_TYP&*__LONG_ISSTRING)||is_error_pending()){
if(qbevent){evnt(25756,1049,"const_eval.bas");if(r)goto S_37465;}
do{
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,FUNC_CREATEELEMENTSTRING(_FUNC_EVALUATEFUNCTION_STRING_NSTR));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1050,"const_eval.bas");}while(r);
S_37467:;
}else{
if (*_FUNC_EVALUATEFUNCTION_LONG_TYP&*__LONG_ISFLOAT){
if(qbevent){evnt(25756,1051,"const_eval.bas");if(r)goto S_37467;}
do{
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs__tostr((long double)(*_FUNC_EVALUATEFUNCTION_FLOAT_N1),NULL,0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1052,"const_eval.bas");}while(r);
}else{
do{
*_FUNC_EVALUATEFUNCTION_INTEGER64_N=qbr(*_FUNC_EVALUATEFUNCTION_FLOAT_N1);
if(!qbevent)break;evnt(25756,1054,"const_eval.bas");}while(r);
do{
qbs_set(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION,qbs_add(qbs__tostr((int64)(*_FUNC_EVALUATEFUNCTION_INTEGER64_N),NULL,0),qbs_new_txt_len("&&",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25756,1055,"const_eval.bas");}while(r);
}
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free207.txt"
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;
cmem_sp=tmp_cmem_sp;
qbs_maketmp(_FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION);return _FUNC_EVALUATEFUNCTION_STRING_EVALUATEFUNCTION;
}
