#line 28305 "qb64pe.bas"
uint32 FUNC_VRGBS(qbs*_FUNC_VRGBS_STRING_TEXT,uint32*_FUNC_VRGBS_ULONG_DEFAULTCOLOR){
#line 28305 "qb64pe.bas"
qbs *tqbs;
#line 28305 "qb64pe.bas"
ptrszint tmp_long;
#line 28305 "qb64pe.bas"
int32 tmp_fileno;
#line 28305 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 28305 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 28305 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 28305 "qb64pe.bas"
#include "data108.txt"
#line 28305 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 28305 "qb64pe.bas"
new_mem_lock();
#line 28305 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 28305 "qb64pe.bas"
sf_mem_lock->type=3;
#line 28305 "qb64pe.bas"
libqb_check_stack();
#line 28305 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 28311 "qb64pe.bas"
do{
#line 28311 "qb64pe.bas"
*_FUNC_VRGBS_ULONG_VRGBS=*_FUNC_VRGBS_ULONG_DEFAULTCOLOR;
#line 28311 "qb64pe.bas"
if(!qbevent)break;evnt(28311);}while(r);
#line 28312 "qb64pe.bas"
S_36686:;
#line 28312 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_FUNC_VRGBS_STRING_TEXT, 4 )),qbs_new_txt_len("_RGB",4))))||is_error_pending()){
#line 28312 "qb64pe.bas"
if(qbevent){evnt(28312);if(r)goto S_36686;}
#line 28313 "qb64pe.bas"
do{
#line 28313 "qb64pe.bas"
*_FUNC_VRGBS_LONG_RPOS=func_instr(NULL,_FUNC_VRGBS_STRING_TEXT,qbs_new_txt_len("(",1),0);
#line 28313 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28313 "qb64pe.bas"
if(!qbevent)break;evnt(28313);}while(r);
#line 28314 "qb64pe.bas"
do{
#line 28314 "qb64pe.bas"
*_FUNC_VRGBS_LONG_GPOS=func_instr(*_FUNC_VRGBS_LONG_RPOS,_FUNC_VRGBS_STRING_TEXT,qbs_new_txt_len(",",1),0|1);
#line 28314 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28314 "qb64pe.bas"
if(!qbevent)break;evnt(28314);}while(r);
#line 28315 "qb64pe.bas"
do{
#line 28315 "qb64pe.bas"
*_FUNC_VRGBS_LONG_BPOS=func_instr(*_FUNC_VRGBS_LONG_GPOS+ 1 ,_FUNC_VRGBS_STRING_TEXT,qbs_new_txt_len(",",1),0|1);
#line 28315 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28315 "qb64pe.bas"
if(!qbevent)break;evnt(28315);}while(r);
#line 28316 "qb64pe.bas"
S_36690:;
#line 28316 "qb64pe.bas"
if (((-(*_FUNC_VRGBS_LONG_RPOS!= 0 ))&(-(*_FUNC_VRGBS_LONG_BPOS!= 0 ))&(-(*_FUNC_VRGBS_LONG_GPOS!= 0 )))||is_error_pending()){
#line 28316 "qb64pe.bas"
if(qbevent){evnt(28316);if(r)goto S_36690;}
#line 28317 "qb64pe.bas"
do{
#line 28317 "qb64pe.bas"
*_FUNC_VRGBS_LONG_RED=qbr(qbs_val<long double>(qbs__trim(func_mid(_FUNC_VRGBS_STRING_TEXT,*_FUNC_VRGBS_LONG_RPOS+ 1 ,NULL,0))));
#line 28317 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28317 "qb64pe.bas"
if(!qbevent)break;evnt(28317);}while(r);
#line 28318 "qb64pe.bas"
do{
#line 28318 "qb64pe.bas"
*_FUNC_VRGBS_LONG_GREEN=qbr(qbs_val<long double>(qbs__trim(func_mid(_FUNC_VRGBS_STRING_TEXT,*_FUNC_VRGBS_LONG_GPOS+ 1 ,NULL,0))));
#line 28318 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28318 "qb64pe.bas"
if(!qbevent)break;evnt(28318);}while(r);
#line 28319 "qb64pe.bas"
do{
#line 28319 "qb64pe.bas"
*_FUNC_VRGBS_LONG_BLUE=qbr(qbs_val<long double>(qbs__trim(func_mid(_FUNC_VRGBS_STRING_TEXT,*_FUNC_VRGBS_LONG_BPOS+ 1 ,NULL,0))));
#line 28319 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 28319 "qb64pe.bas"
if(!qbevent)break;evnt(28319);}while(r);
#line 28320 "qb64pe.bas"
do{
#line 28320 "qb64pe.bas"
*_FUNC_VRGBS_ULONG_VRGBS=func__rgb32(*_FUNC_VRGBS_LONG_RED,*_FUNC_VRGBS_LONG_GREEN,*_FUNC_VRGBS_LONG_BLUE);
#line 28320 "qb64pe.bas"
if(!qbevent)break;evnt(28320);}while(r);
#line 28321 "qb64pe.bas"
}
#line 28322 "qb64pe.bas"
}
#line 28323 "qb64pe.bas"
exit_subfunc:;
#line 28323 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 28323 "qb64pe.bas"
#include "free108.txt"
#line 28323 "qb64pe.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 28323 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 28323 "qb64pe.bas"
return *_FUNC_VRGBS_ULONG_VRGBS;
#line 28323 "qb64pe.bas"
}
