void SUB_SET_CONSTFUNCTIONS(){
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 "data197.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 (__ARRAY_UDT_CONSTFUNCS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_CONSTFUNCS)[8])->id=(++mem_lock_id);
if (__ARRAY_UDT_CONSTFUNCS[2]&1){
tmp_long=__ARRAY_UDT_CONSTFUNCS[5];
while(tmp_long--) {
qbs_free(*(qbs**)(__ARRAY_UDT_CONSTFUNCS[0]+10*tmp_long+ 0));}
if (__ARRAY_UDT_CONSTFUNCS[2]&4){
cmem_dynamic_free((uint8*)(__ARRAY_UDT_CONSTFUNCS[0]));
}else{
free((void*)(__ARRAY_UDT_CONSTFUNCS[0]));
}
}
__ARRAY_UDT_CONSTFUNCS[4]= 0 ;
__ARRAY_UDT_CONSTFUNCS[5]=( 10000 )-__ARRAY_UDT_CONSTFUNCS[4]+1;
__ARRAY_UDT_CONSTFUNCS[6]=1;
__ARRAY_UDT_CONSTFUNCS[0]=(ptrszint)malloc(__ARRAY_UDT_CONSTFUNCS[5]*10);
if (!__ARRAY_UDT_CONSTFUNCS[0]) error(257);
__ARRAY_UDT_CONSTFUNCS[2]|=1;
tmp_long=__ARRAY_UDT_CONSTFUNCS[5];
ZeroMemory((uint8*)(__ARRAY_UDT_CONSTFUNCS[0]),tmp_long*10);
while(tmp_long--){
*(qbs**)(__ARRAY_UDT_CONSTFUNCS[0]+10*tmp_long+ 0)=qbs_new(0,0);}
}
if(!qbevent)break;evnt(24222,816,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,819,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_PI",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,819,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,819,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,820,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_ACOS",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,820,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,820,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,821,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_ASIN",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,821,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,821,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,822,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_ARCSEC",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,822,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,822,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,823,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_ARCCSC",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,823,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,823,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,824,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_ARCCOT",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,824,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,824,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,825,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_SECH",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,825,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,825,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,826,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_CSCH",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,826,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,826,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,827,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_COTH",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,827,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,827,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,828,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("COS",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,828,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,828,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,829,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("SIN",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,829,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,829,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,830,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("TAN",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,830,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,830,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,831,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("LOG",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,831,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,831,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,832,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("EXP",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,832,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,832,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,833,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("ATN",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,833,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,833,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,834,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("SQR",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,834,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,834,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,835,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_D2R",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,835,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,835,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,836,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_D2G",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,836,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,836,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,837,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_R2D",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,837,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,837,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,838,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_R2G",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,838,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,838,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,839,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_G2D",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,839,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,839,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,840,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_G2R",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,840,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,840,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,841,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("ABS",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,841,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,841,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,842,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("SGN",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,842,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,842,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,843,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("INT",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,843,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,843,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,844,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_ROUND",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,844,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,844,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,845,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_CEIL",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,845,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,845,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,846,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("FIX",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,846,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,846,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,847,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_SEC",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,847,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,847,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,848,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_CSC",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,848,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,848,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,849,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_COT",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,849,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,849,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,851,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_RGB32",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,851,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= -1 ;
if(!qbevent)break;evnt(24222,851,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,852,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_RGBA32",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,852,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 4 ;
if(!qbevent)break;evnt(24222,852,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,853,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_RGBA",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,853,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 5 ;
if(!qbevent)break;evnt(24222,853,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,854,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_RGB",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,854,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 4 ;
if(!qbevent)break;evnt(24222,854,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,855,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_RED32",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,855,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,855,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,856,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_GREEN32",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,856,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,856,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,857,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_BLUE32",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,857,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,857,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,858,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_ALPHA32",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,858,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,858,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,859,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_RED",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,859,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 2 ;
if(!qbevent)break;evnt(24222,859,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,860,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_GREEN",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,860,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 2 ;
if(!qbevent)break;evnt(24222,860,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,861,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_BLUE",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,861,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 2 ;
if(!qbevent)break;evnt(24222,861,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,862,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("_ALPHA",6));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,862,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 2 ;
if(!qbevent)break;evnt(24222,862,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,864,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("CHR$",4));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,864,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= 1 ;
if(!qbevent)break;evnt(24222,864,"const_eval.bas");}while(r);
do{
*_SUB_SET_CONSTFUNCTIONS_LONG_I=*_SUB_SET_CONSTFUNCTIONS_LONG_I+ 1 ;
if(!qbevent)break;evnt(24222,865,"const_eval.bas");}while(r);
do{
qbs_set(*((qbs**)((char*)(__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10))),qbs_new_txt_len("ASC",3));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24222,865,"const_eval.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_CONSTFUNCS[0])+((array_check((*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4],__ARRAY_UDT_CONSTFUNCS[5]))*10+8))= -1 ;
if(!qbevent)break;evnt(24222,865,"const_eval.bas");}while(r);
do{

if (__ARRAY_UDT_CONSTFUNCS[2]&2){
error(10);
}else{
((mem_lock*)((ptrszint*)__ARRAY_UDT_CONSTFUNCS)[8])->id=(++mem_lock_id);
static int32 preserved_elements;
if (__ARRAY_UDT_CONSTFUNCS[2]&1){
preserved_elements=__ARRAY_UDT_CONSTFUNCS[5];
}
else preserved_elements=0;
__ARRAY_UDT_CONSTFUNCS[4]= 0 ;
__ARRAY_UDT_CONSTFUNCS[5]=(*_SUB_SET_CONSTFUNCTIONS_LONG_I)-__ARRAY_UDT_CONSTFUNCS[4]+1;
__ARRAY_UDT_CONSTFUNCS[6]=1;
if (preserved_elements){
static ptrszint tmp_long2;
tmp_long2=__ARRAY_UDT_CONSTFUNCS[5];
if (tmp_long2<preserved_elements){
for(tmp_long=tmp_long2;tmp_long<preserved_elements;tmp_long++) {
qbs_free(*(qbs**)(__ARRAY_UDT_CONSTFUNCS[0]+10*tmp_long+ 0));
}}
__ARRAY_UDT_CONSTFUNCS[0]=(ptrszint)realloc((void*)(__ARRAY_UDT_CONSTFUNCS[0]),tmp_long2*10);
if (!__ARRAY_UDT_CONSTFUNCS[0]) error(257);
if (preserved_elements<tmp_long2){
ZeroMemory(((uint8*)(__ARRAY_UDT_CONSTFUNCS[0]))+preserved_elements*10,(tmp_long2*10)-(preserved_elements*10));
for(tmp_long=preserved_elements;tmp_long<tmp_long2;tmp_long++){
*(qbs**)(__ARRAY_UDT_CONSTFUNCS[0]+10*tmp_long+ 0)=qbs_new(0,0);
}
}
}else{
__ARRAY_UDT_CONSTFUNCS[0]=(ptrszint)malloc(__ARRAY_UDT_CONSTFUNCS[5]*10);
if (!__ARRAY_UDT_CONSTFUNCS[0]) error(257);
__ARRAY_UDT_CONSTFUNCS[2]|=1;
tmp_long=__ARRAY_UDT_CONSTFUNCS[5];
ZeroMemory((uint8*)(__ARRAY_UDT_CONSTFUNCS[0]),tmp_long*10);
while(tmp_long--){
*(qbs**)(__ARRAY_UDT_CONSTFUNCS[0]+10*tmp_long+ 0)=qbs_new(0,0);}
}
}
if(!qbevent)break;evnt(24222,867,"const_eval.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free197.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;
}
