#line 287 "utilities/type.bas"
qbs* FUNC_SYMBOL2FULLTYPENAME(qbs*_FUNC_SYMBOL2FULLTYPENAME_STRING_S2){
#line 287 "utilities/type.bas"
qbs *tqbs;
#line 287 "utilities/type.bas"
ptrszint tmp_long;
#line 287 "utilities/type.bas"
int32 tmp_fileno;
#line 287 "utilities/type.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 287 "utilities/type.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 287 "utilities/type.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 287 "utilities/type.bas"
#include "data290.txt"
#line 287 "utilities/type.bas"
mem_lock *sf_mem_lock;
#line 287 "utilities/type.bas"
new_mem_lock();
#line 287 "utilities/type.bas"
sf_mem_lock=mem_lock_tmp;
#line 287 "utilities/type.bas"
sf_mem_lock->type=3;
#line 287 "utilities/type.bas"
libqb_check_stack();
#line 287 "utilities/type.bas"
if (is_error_pending()) goto exit_subfunc;
#line 289 "utilities/type.bas"
do{
#line 289 "utilities/type.bas"
qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,_FUNC_SYMBOL2FULLTYPENAME_STRING_S2);
#line 289 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 289 "utilities/type.bas"
if(!qbevent)break;evnt(28809,289,"type.bas");}while(r);
#line 291 "utilities/type.bas"
S_42386:;
#line 291 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_SYMBOL2FULLTYPENAME_STRING_S, 1 ),qbs_new_txt_len("~",1))))||is_error_pending()){
#line 291 "utilities/type.bas"
if(qbevent){evnt(28809,291,"type.bas");if(r)goto S_42386;}
#line 292 "utilities/type.bas"
do{
#line 292 "utilities/type.bas"
*_FUNC_SYMBOL2FULLTYPENAME_LONG_U= 1 ;
#line 292 "utilities/type.bas"
if(!qbevent)break;evnt(28809,292,"type.bas");}while(r);
#line 293 "utilities/type.bas"
S_42388:;
#line 293 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_SYMBOL2FULLTYPENAME_STRING_TYP->len== 1 )))||is_error_pending()){
#line 293 "utilities/type.bas"
if(qbevent){evnt(28809,293,"type.bas");if(r)goto S_42388;}
#line 293 "utilities/type.bas"
do{
#line 293 "utilities/type.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected ~...",13));
#line 293 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 293 "utilities/type.bas"
if(!qbevent)break;evnt(28809,293,"type.bas");}while(r);
#line 293 "utilities/type.bas"
do{
#line 293 "utilities/type.bas"
goto exit_subfunc;
#line 293 "utilities/type.bas"
if(!qbevent)break;evnt(28809,293,"type.bas");}while(r);
#line 293 "utilities/type.bas"
}
#line 294 "utilities/type.bas"
do{
#line 294 "utilities/type.bas"
qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_right(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len- 1 ));
#line 294 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 294 "utilities/type.bas"
if(!qbevent)break;evnt(28809,294,"type.bas");}while(r);
#line 295 "utilities/type.bas"
do{
#line 295 "utilities/type.bas"
qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("_UNSIGNED ",10));
#line 295 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 295 "utilities/type.bas"
if(!qbevent)break;evnt(28809,295,"type.bas");}while(r);
#line 296 "utilities/type.bas"
}
#line 298 "utilities/type.bas"
S_42395:;
#line 298 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("%%",2))))||is_error_pending()){
#line 298 "utilities/type.bas"
if(qbevent){evnt(28809,298,"type.bas");if(r)goto S_42395;}
#line 298 "utilities/type.bas"
do{
#line 298 "utilities/type.bas"
qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("_BYTE",5)));
#line 298 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 298 "utilities/type.bas"
if(!qbevent)break;evnt(28809,298,"type.bas");}while(r);
#line 298 "utilities/type.bas"
do{
#line 298 "utilities/type.bas"
goto LABEL_GOTSYM2TYP;
#line 298 "utilities/type.bas"
if(!qbevent)break;evnt(28809,298,"type.bas");}while(r);
#line 298 "utilities/type.bas"
}
#line 299 "utilities/type.bas"
S_42399:;
#line 299 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("%",1))))||is_error_pending()){
#line 299 "utilities/type.bas"
if(qbevent){evnt(28809,299,"type.bas");if(r)goto S_42399;}
#line 299 "utilities/type.bas"
do{
#line 299 "utilities/type.bas"
qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("INTEGER",7)));
#line 299 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 299 "utilities/type.bas"
if(!qbevent)break;evnt(28809,299,"type.bas");}while(r);
#line 299 "utilities/type.bas"
do{
#line 299 "utilities/type.bas"
goto LABEL_GOTSYM2TYP;
#line 299 "utilities/type.bas"
if(!qbevent)break;evnt(28809,299,"type.bas");}while(r);
#line 299 "utilities/type.bas"
}
#line 300 "utilities/type.bas"
S_42403:;
#line 300 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("&",1))))||is_error_pending()){
#line 300 "utilities/type.bas"
if(qbevent){evnt(28809,300,"type.bas");if(r)goto S_42403;}
#line 300 "utilities/type.bas"
do{
#line 300 "utilities/type.bas"
qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("LONG",4)));
#line 300 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 300 "utilities/type.bas"
if(!qbevent)break;evnt(28809,300,"type.bas");}while(r);
#line 300 "utilities/type.bas"
do{
#line 300 "utilities/type.bas"
goto LABEL_GOTSYM2TYP;
#line 300 "utilities/type.bas"
if(!qbevent)break;evnt(28809,300,"type.bas");}while(r);
#line 300 "utilities/type.bas"
}
#line 301 "utilities/type.bas"
S_42407:;
#line 301 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("&&",2))))||is_error_pending()){
#line 301 "utilities/type.bas"
if(qbevent){evnt(28809,301,"type.bas");if(r)goto S_42407;}
#line 301 "utilities/type.bas"
do{
#line 301 "utilities/type.bas"
qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("_INTEGER64",10)));
#line 301 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 301 "utilities/type.bas"
if(!qbevent)break;evnt(28809,301,"type.bas");}while(r);
#line 301 "utilities/type.bas"
do{
#line 301 "utilities/type.bas"
goto LABEL_GOTSYM2TYP;
#line 301 "utilities/type.bas"
if(!qbevent)break;evnt(28809,301,"type.bas");}while(r);
#line 301 "utilities/type.bas"
}
#line 302 "utilities/type.bas"
S_42411:;
#line 302 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("%&",2))))||is_error_pending()){
#line 302 "utilities/type.bas"
if(qbevent){evnt(28809,302,"type.bas");if(r)goto S_42411;}
#line 302 "utilities/type.bas"
do{
#line 302 "utilities/type.bas"
qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("_OFFSET",7)));
#line 302 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 302 "utilities/type.bas"
if(!qbevent)break;evnt(28809,302,"type.bas");}while(r);
#line 302 "utilities/type.bas"
do{
#line 302 "utilities/type.bas"
goto LABEL_GOTSYM2TYP;
#line 302 "utilities/type.bas"
if(!qbevent)break;evnt(28809,302,"type.bas");}while(r);
#line 302 "utilities/type.bas"
}
#line 304 "utilities/type.bas"
S_42415:;
#line 304 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_SYMBOL2FULLTYPENAME_STRING_S, 1 ),qbs_new_txt_len("`",1))))||is_error_pending()){
#line 304 "utilities/type.bas"
if(qbevent){evnt(28809,304,"type.bas");if(r)goto S_42415;}
#line 305 "utilities/type.bas"
S_42416:;
#line 305 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len== 1 )))||is_error_pending()){
#line 305 "utilities/type.bas"
if(qbevent){evnt(28809,305,"type.bas");if(r)goto S_42416;}
#line 306 "utilities/type.bas"
do{
#line 306 "utilities/type.bas"
qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("_BIT * 1",8)));
#line 306 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 306 "utilities/type.bas"
if(!qbevent)break;evnt(28809,306,"type.bas");}while(r);
#line 307 "utilities/type.bas"
do{
#line 307 "utilities/type.bas"
goto LABEL_GOTSYM2TYP;
#line 307 "utilities/type.bas"
if(!qbevent)break;evnt(28809,307,"type.bas");}while(r);
#line 308 "utilities/type.bas"
}
#line 309 "utilities/type.bas"
do{
#line 309 "utilities/type.bas"
qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_N,qbs_right(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len- 1 ));
#line 309 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 309 "utilities/type.bas"
if(!qbevent)break;evnt(28809,309,"type.bas");}while(r);
#line 310 "utilities/type.bas"
S_42421:;
#line 310 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_SYMBOL2FULLTYPENAME_STRING_N)== 0 )))||is_error_pending()){
#line 310 "utilities/type.bas"
if(qbevent){evnt(28809,310,"type.bas");if(r)goto S_42421;}
#line 310 "utilities/type.bas"
do{
#line 310 "utilities/type.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected number after symbol `",30));
#line 310 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 310 "utilities/type.bas"
if(!qbevent)break;evnt(28809,310,"type.bas");}while(r);
#line 310 "utilities/type.bas"
do{
#line 310 "utilities/type.bas"
goto exit_subfunc;
#line 310 "utilities/type.bas"
if(!qbevent)break;evnt(28809,310,"type.bas");}while(r);
#line 310 "utilities/type.bas"
}
#line 311 "utilities/type.bas"
do{
#line 311 "utilities/type.bas"
qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("_BIT * ",7)),_FUNC_SYMBOL2FULLTYPENAME_STRING_N));
#line 311 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 311 "utilities/type.bas"
if(!qbevent)break;evnt(28809,311,"type.bas");}while(r);
#line 312 "utilities/type.bas"
do{
#line 312 "utilities/type.bas"
goto LABEL_GOTSYM2TYP;
#line 312 "utilities/type.bas"
if(!qbevent)break;evnt(28809,312,"type.bas");}while(r);
#line 313 "utilities/type.bas"
}
#line 315 "utilities/type.bas"
S_42428:;
#line 315 "utilities/type.bas"
if ((-(*_FUNC_SYMBOL2FULLTYPENAME_LONG_U== 1 ))||is_error_pending()){
#line 315 "utilities/type.bas"
if(qbevent){evnt(28809,315,"type.bas");if(r)goto S_42428;}
#line 315 "utilities/type.bas"
do{
#line 315 "utilities/type.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected type symbol after ~",28));
#line 315 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 315 "utilities/type.bas"
if(!qbevent)break;evnt(28809,315,"type.bas");}while(r);
#line 315 "utilities/type.bas"
do{
#line 315 "utilities/type.bas"
goto exit_subfunc;
#line 315 "utilities/type.bas"
if(!qbevent)break;evnt(28809,315,"type.bas");}while(r);
#line 315 "utilities/type.bas"
}
#line 317 "utilities/type.bas"
S_42432:;
#line 317 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("!",1))))||is_error_pending()){
#line 317 "utilities/type.bas"
if(qbevent){evnt(28809,317,"type.bas");if(r)goto S_42432;}
#line 317 "utilities/type.bas"
do{
#line 317 "utilities/type.bas"
qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len("SINGLE",6));
#line 317 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 317 "utilities/type.bas"
if(!qbevent)break;evnt(28809,317,"type.bas");}while(r);
#line 317 "utilities/type.bas"
do{
#line 317 "utilities/type.bas"
goto LABEL_GOTSYM2TYP;
#line 317 "utilities/type.bas"
if(!qbevent)break;evnt(28809,317,"type.bas");}while(r);
#line 317 "utilities/type.bas"
}
#line 318 "utilities/type.bas"
S_42436:;
#line 318 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("#",1))))||is_error_pending()){
#line 318 "utilities/type.bas"
if(qbevent){evnt(28809,318,"type.bas");if(r)goto S_42436;}
#line 318 "utilities/type.bas"
do{
#line 318 "utilities/type.bas"
qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len("DOUBLE",6));
#line 318 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 318 "utilities/type.bas"
if(!qbevent)break;evnt(28809,318,"type.bas");}while(r);
#line 318 "utilities/type.bas"
do{
#line 318 "utilities/type.bas"
goto LABEL_GOTSYM2TYP;
#line 318 "utilities/type.bas"
if(!qbevent)break;evnt(28809,318,"type.bas");}while(r);
#line 318 "utilities/type.bas"
}
#line 319 "utilities/type.bas"
S_42440:;
#line 319 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("##",2))))||is_error_pending()){
#line 319 "utilities/type.bas"
if(qbevent){evnt(28809,319,"type.bas");if(r)goto S_42440;}
#line 319 "utilities/type.bas"
do{
#line 319 "utilities/type.bas"
qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len("_FLOAT",6));
#line 319 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 319 "utilities/type.bas"
if(!qbevent)break;evnt(28809,319,"type.bas");}while(r);
#line 319 "utilities/type.bas"
do{
#line 319 "utilities/type.bas"
goto LABEL_GOTSYM2TYP;
#line 319 "utilities/type.bas"
if(!qbevent)break;evnt(28809,319,"type.bas");}while(r);
#line 319 "utilities/type.bas"
}
#line 320 "utilities/type.bas"
S_42444:;
#line 320 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("$",1))))||is_error_pending()){
#line 320 "utilities/type.bas"
if(qbevent){evnt(28809,320,"type.bas");if(r)goto S_42444;}
#line 320 "utilities/type.bas"
do{
#line 320 "utilities/type.bas"
qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len("STRING",6));
#line 320 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 320 "utilities/type.bas"
if(!qbevent)break;evnt(28809,320,"type.bas");}while(r);
#line 320 "utilities/type.bas"
do{
#line 320 "utilities/type.bas"
goto LABEL_GOTSYM2TYP;
#line 320 "utilities/type.bas"
if(!qbevent)break;evnt(28809,320,"type.bas");}while(r);
#line 320 "utilities/type.bas"
}
#line 322 "utilities/type.bas"
S_42448:;
#line 322 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_SYMBOL2FULLTYPENAME_STRING_S, 1 ),qbs_new_txt_len("$",1))))||is_error_pending()){
#line 322 "utilities/type.bas"
if(qbevent){evnt(28809,322,"type.bas");if(r)goto S_42448;}
#line 323 "utilities/type.bas"
do{
#line 323 "utilities/type.bas"
qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_N,qbs_right(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len- 1 ));
#line 323 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 323 "utilities/type.bas"
if(!qbevent)break;evnt(28809,323,"type.bas");}while(r);
#line 324 "utilities/type.bas"
S_42450:;
#line 324 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_SYMBOL2FULLTYPENAME_STRING_N)== 0 )))||is_error_pending()){
#line 324 "utilities/type.bas"
if(qbevent){evnt(28809,324,"type.bas");if(r)goto S_42450;}
#line 324 "utilities/type.bas"
do{
#line 324 "utilities/type.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("Expected number after symbol $",30));
#line 324 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 324 "utilities/type.bas"
if(!qbevent)break;evnt(28809,324,"type.bas");}while(r);
#line 324 "utilities/type.bas"
do{
#line 324 "utilities/type.bas"
goto exit_subfunc;
#line 324 "utilities/type.bas"
if(!qbevent)break;evnt(28809,324,"type.bas");}while(r);
#line 324 "utilities/type.bas"
}
#line 325 "utilities/type.bas"
do{
#line 325 "utilities/type.bas"
qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_new_txt_len("STRING * ",9),_FUNC_SYMBOL2FULLTYPENAME_STRING_N));
#line 325 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 325 "utilities/type.bas"
if(!qbevent)break;evnt(28809,325,"type.bas");}while(r);
#line 326 "utilities/type.bas"
do{
#line 326 "utilities/type.bas"
goto LABEL_GOTSYM2TYP;
#line 326 "utilities/type.bas"
if(!qbevent)break;evnt(28809,326,"type.bas");}while(r);
#line 327 "utilities/type.bas"
}
#line 329 "utilities/type.bas"
do{
#line 329 "utilities/type.bas"
qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,_FUNC_SYMBOL2FULLTYPENAME_STRING_S);
#line 329 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 329 "utilities/type.bas"
if(!qbevent)break;evnt(28809,329,"type.bas");}while(r);
#line 331 "utilities/type.bas"
LABEL_GOTSYM2TYP:;
#line 331 "utilities/type.bas"
if(qbevent){evnt(28809,331,"type.bas");r=0;}
#line 333 "utilities/type.bas"
S_42458:;
#line 333 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(qbs_add(qbs_new_txt_len(" ",1),_FUNC_SYMBOL2FULLTYPENAME_STRING_T), 5 ),qbs_new_txt_len(" _BIT",5))))||is_error_pending()){
#line 333 "utilities/type.bas"
if(qbevent){evnt(28809,333,"type.bas");if(r)goto S_42458;}
#line 333 "utilities/type.bas"
do{
#line 333 "utilities/type.bas"
qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len(" * 1",4)));
#line 333 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 333 "utilities/type.bas"
if(!qbevent)break;evnt(28809,333,"type.bas");}while(r);
#line 333 "utilities/type.bas"
}
#line 335 "utilities/type.bas"
S_42461:;
#line 335 "utilities/type.bas"
fornext_value4245= 1 ;
#line 335 "utilities/type.bas"
fornext_finalvalue4245=_FUNC_SYMBOL2FULLTYPENAME_STRING_T->len;
#line 335 "utilities/type.bas"
fornext_step4245= 1 ;
#line 335 "utilities/type.bas"
if (fornext_step4245<0) fornext_step_negative4245=1; else fornext_step_negative4245=0;
#line 335 "utilities/type.bas"
if (is_error_pending()) goto fornext_error4245;
#line 335 "utilities/type.bas"
goto fornext_entrylabel4245;
#line 335 "utilities/type.bas"
while(1){
#line 335 "utilities/type.bas"
fornext_value4245=fornext_step4245+(*_FUNC_SYMBOL2FULLTYPENAME_LONG_I);
#line 335 "utilities/type.bas"
fornext_entrylabel4245:
#line 335 "utilities/type.bas"
*_FUNC_SYMBOL2FULLTYPENAME_LONG_I=fornext_value4245;
#line 335 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 335 "utilities/type.bas"
if (fornext_step_negative4245){
#line 335 "utilities/type.bas"
if (fornext_value4245<fornext_finalvalue4245) break;
#line 335 "utilities/type.bas"
}else{
#line 335 "utilities/type.bas"
if (fornext_value4245>fornext_finalvalue4245) break;
#line 335 "utilities/type.bas"
}
#line 335 "utilities/type.bas"
fornext_error4245:;
#line 335 "utilities/type.bas"
if(qbevent){evnt(28809,335,"type.bas");if(r)goto S_42461;}
#line 336 "utilities/type.bas"
S_42462:;
#line 336 "utilities/type.bas"
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,*_FUNC_SYMBOL2FULLTYPENAME_LONG_I)==qbs_asc(__STRING1_SP))))||is_error_pending()){
#line 336 "utilities/type.bas"
if(qbevent){evnt(28809,336,"type.bas");if(r)goto S_42462;}
#line 336 "utilities/type.bas"
do{
#line 336 "utilities/type.bas"
tqbs=_FUNC_SYMBOL2FULLTYPENAME_STRING_T; if (!is_error_pending()){
#line 336 "utilities/type.bas"
tmp_fileno=*_FUNC_SYMBOL2FULLTYPENAME_LONG_I; if (!is_error_pending()){
#line 336 "utilities/type.bas"
tmp_long= 32 ; if (!is_error_pending()){
#line 336 "utilities/type.bas"
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
#line 336 "utilities/type.bas"
}}}
#line 336 "utilities/type.bas"
if(!qbevent)break;evnt(28809,336,"type.bas");}while(r);
#line 336 "utilities/type.bas"
}
#line 337 "utilities/type.bas"
fornext_continue_4244:;
#line 337 "utilities/type.bas"
}
#line 337 "utilities/type.bas"
fornext_exit_4244:;
#line 339 "utilities/type.bas"
do{
#line 339 "utilities/type.bas"
qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_SYMBOL2FULLTYPENAME,_FUNC_SYMBOL2FULLTYPENAME_STRING_T);
#line 339 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 339 "utilities/type.bas"
if(!qbevent)break;evnt(28809,339,"type.bas");}while(r);
#line 341 "utilities/type.bas"
exit_subfunc:;
#line 341 "utilities/type.bas"
free_mem_lock(sf_mem_lock);
#line 341 "utilities/type.bas"
#include "free290.txt"
#line 341 "utilities/type.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 341 "utilities/type.bas"
cmem_sp=tmp_cmem_sp;
#line 341 "utilities/type.bas"
qbs_maketmp(_FUNC_SYMBOL2FULLTYPENAME_STRING_SYMBOL2FULLTYPENAME);return _FUNC_SYMBOL2FULLTYPENAME_STRING_SYMBOL2FULLTYPENAME;
#line 341 "utilities/type.bas"
}
