void SUB_DUMP_UDTS(){
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 "data306.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
libqb_check_stack();
if (is_error_pending()) goto exit_subfunc;
do{
*_SUB_DUMP_UDTS_LONG_FH=func_freefile();
if(!qbevent)break;evnt(28172,2444,"type.bas");}while(r);
do{
sub_open(qbs_new_txt_len("types.txt",9), 4 ,NULL,NULL,*_SUB_DUMP_UDTS_LONG_FH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(28172,2445,"type.bas");}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_FH;
if (is_error_pending()) goto skip5218;
sub_file_print(tmp_fileno,qbs_new_txt_len("Name   Size   Next   Var?",25), 0, 0, 1);
if (is_error_pending()) goto skip5218;
skip5218:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(28172,2446,"type.bas");}while(r);
S_43188:;
fornext_value5220= 1 ;
fornext_finalvalue5220=*__LONG_LASTTYPE;
fornext_step5220= 1 ;
if (fornext_step5220<0) fornext_step_negative5220=1; else fornext_step_negative5220=0;
if (is_error_pending()) goto fornext_error5220;
goto fornext_entrylabel5220;
while(1){
fornext_value5220=fornext_step5220+(*_SUB_DUMP_UDTS_LONG_I);
fornext_entrylabel5220:
*_SUB_DUMP_UDTS_LONG_I=fornext_value5220;
if (fornext_step_negative5220){
if (fornext_value5220<fornext_finalvalue5220) break;
}else{
if (fornext_value5220>fornext_finalvalue5220) break;
}
fornext_error5220:;
if(qbevent){evnt(28172,2447,"type.bas");if(r)goto S_43188;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_FH;
if (is_error_pending()) goto skip5221;
sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)), 0, 1, 0);
if (is_error_pending()) goto skip5221;
sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])])), 1, 1, 0);
if (is_error_pending()) goto skip5221;
sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])])), 1, 1, 0);
if (is_error_pending()) goto skip5221;
sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])), 1, 0, 1);
if (is_error_pending()) goto skip5221;
skip5221:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(28172,2448,"type.bas");}while(r);
fornext_continue_5219:;
}
fornext_exit_5219:;
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_FH;
if (is_error_pending()) goto skip5222;
sub_file_print(tmp_fileno,qbs_new_txt_len("Name   Size   Next   Type   Tsize  Arr   FieldMode",50), 0, 0, 1);
if (is_error_pending()) goto skip5222;
skip5222:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(28172,2450,"type.bas");}while(r);
S_43192:;
fornext_value5224= 1 ;
fornext_finalvalue5224=*__LONG_LASTTYPEELEMENT;
fornext_step5224= 1 ;
if (fornext_step5224<0) fornext_step_negative5224=1; else fornext_step_negative5224=0;
if (is_error_pending()) goto fornext_error5224;
goto fornext_entrylabel5224;
while(1){
fornext_value5224=fornext_step5224+(*_SUB_DUMP_UDTS_LONG_I);
fornext_entrylabel5224:
*_SUB_DUMP_UDTS_LONG_I=fornext_value5224;
if (fornext_step_negative5224){
if (fornext_value5224<fornext_finalvalue5224) break;
}else{
if (fornext_value5224>fornext_finalvalue5224) break;
}
fornext_error5224:;
if(qbevent){evnt(28172,2451,"type.bas");if(r)goto S_43192;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_FH;
if (is_error_pending()) goto skip5225;
sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[(array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]))*256],256,1)), 0, 1, 0);
if (is_error_pending()) goto skip5225;
sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])])), 1, 1, 0);
if (is_error_pending()) goto skip5225;
sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])])), 1, 1, 0);
if (is_error_pending()) goto skip5225;
sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])])), 1, 1, 0);
if (is_error_pending()) goto skip5225;
sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])), 1, 1, 0);
if (is_error_pending()) goto skip5225;
sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])), 1, 1, 0);
if (is_error_pending()) goto skip5225;
sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTEARRAYBASE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTEARRAYBASE[4],__ARRAY_LONG_UDTEARRAYBASE[5])])), 1, 1, 0);
if (is_error_pending()) goto skip5225;
sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTEARRAYDIMS[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTEARRAYDIMS[4],__ARRAY_LONG_UDTEARRAYDIMS[5])])), 1, 1, 0);
if (is_error_pending()) goto skip5225;
sub_file_print(tmp_fileno,((qbs*)(((uint64*)(__ARRAY_STRING_UDTEARRAYDESC[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_STRING_UDTEARRAYDESC[4],__ARRAY_STRING_UDTEARRAYDESC[5])])), 0, 1, 0);
if (is_error_pending()) goto skip5225;
sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTEARRAYFIELDMODE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTEARRAYFIELDMODE[4],__ARRAY_LONG_UDTEARRAYFIELDMODE[5])])), 1, 0, 1);
if (is_error_pending()) goto skip5225;
skip5225:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(28172,2452,"type.bas");}while(r);
fornext_continue_5223:;
}
fornext_exit_5223:;
do{
sub_close(*_SUB_DUMP_UDTS_LONG_FH,1);
if(!qbevent)break;evnt(28172,2454,"type.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free306.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;
}
