#line 2150 "utilities/type.bas"
void SUB_DUMP_UDTS(){
#line 2150 "utilities/type.bas"
qbs *tqbs;
#line 2150 "utilities/type.bas"
ptrszint tmp_long;
#line 2150 "utilities/type.bas"
int32 tmp_fileno;
#line 2150 "utilities/type.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 2150 "utilities/type.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 2150 "utilities/type.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 2150 "utilities/type.bas"
#include "data347.txt"
#line 2150 "utilities/type.bas"
mem_lock *sf_mem_lock;
#line 2150 "utilities/type.bas"
new_mem_lock();
#line 2150 "utilities/type.bas"
sf_mem_lock=mem_lock_tmp;
#line 2150 "utilities/type.bas"
sf_mem_lock->type=3;
#line 2150 "utilities/type.bas"
libqb_check_stack();
#line 2150 "utilities/type.bas"
if (is_error_pending()) goto exit_subfunc;
#line 2151 "utilities/type.bas"
do{
#line 2151 "utilities/type.bas"
*_SUB_DUMP_UDTS_LONG_FH=func_freefile();
#line 2151 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2151,"type.bas");}while(r);
#line 2152 "utilities/type.bas"
do{
#line 2152 "utilities/type.bas"
sub_open(qbs_new_txt_len("types.txt",9), 4 ,NULL,NULL,*_SUB_DUMP_UDTS_LONG_FH,NULL,0);
#line 2152 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2152 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2152,"type.bas");}while(r);
#line 2153 "utilities/type.bas"
do{
#line 2153 "utilities/type.bas"
tab_spc_cr_size=2;
#line 2153 "utilities/type.bas"
tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_FH;
#line 2153 "utilities/type.bas"
if (is_error_pending()) goto skip4507;
#line 2153 "utilities/type.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("Name   Size   Next   Var?",25), 0, 0, 1);
#line 2153 "utilities/type.bas"
if (is_error_pending()) goto skip4507;
#line 2153 "utilities/type.bas"
skip4507:
#line 2153 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2153 "utilities/type.bas"
tab_spc_cr_size=1;
#line 2153 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2153,"type.bas");}while(r);
#line 2154 "utilities/type.bas"
S_44299:;
#line 2154 "utilities/type.bas"
fornext_value4509= 1 ;
#line 2154 "utilities/type.bas"
fornext_finalvalue4509=*__LONG_LASTTYPE;
#line 2154 "utilities/type.bas"
fornext_step4509= 1 ;
#line 2154 "utilities/type.bas"
if (fornext_step4509<0) fornext_step_negative4509=1; else fornext_step_negative4509=0;
#line 2154 "utilities/type.bas"
if (is_error_pending()) goto fornext_error4509;
#line 2154 "utilities/type.bas"
goto fornext_entrylabel4509;
#line 2154 "utilities/type.bas"
while(1){
#line 2154 "utilities/type.bas"
fornext_value4509=fornext_step4509+(*_SUB_DUMP_UDTS_LONG_I);
#line 2154 "utilities/type.bas"
fornext_entrylabel4509:
#line 2154 "utilities/type.bas"
*_SUB_DUMP_UDTS_LONG_I=fornext_value4509;
#line 2154 "utilities/type.bas"
if (fornext_step_negative4509){
#line 2154 "utilities/type.bas"
if (fornext_value4509<fornext_finalvalue4509) break;
#line 2154 "utilities/type.bas"
}else{
#line 2154 "utilities/type.bas"
if (fornext_value4509>fornext_finalvalue4509) break;
#line 2154 "utilities/type.bas"
}
#line 2154 "utilities/type.bas"
fornext_error4509:;
#line 2154 "utilities/type.bas"
if(qbevent){evnt(28809,2154,"type.bas");if(r)goto S_44299;}
#line 2155 "utilities/type.bas"
do{
#line 2155 "utilities/type.bas"
tab_spc_cr_size=2;
#line 2155 "utilities/type.bas"
tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_FH;
#line 2155 "utilities/type.bas"
if (is_error_pending()) goto skip4510;
#line 2155 "utilities/type.bas"
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);
#line 2155 "utilities/type.bas"
if (is_error_pending()) goto skip4510;
#line 2155 "utilities/type.bas"
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);
#line 2155 "utilities/type.bas"
if (is_error_pending()) goto skip4510;
#line 2155 "utilities/type.bas"
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);
#line 2155 "utilities/type.bas"
if (is_error_pending()) goto skip4510;
#line 2155 "utilities/type.bas"
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);
#line 2155 "utilities/type.bas"
if (is_error_pending()) goto skip4510;
#line 2155 "utilities/type.bas"
skip4510:
#line 2155 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2155 "utilities/type.bas"
tab_spc_cr_size=1;
#line 2155 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2155,"type.bas");}while(r);
#line 2156 "utilities/type.bas"
fornext_continue_4508:;
#line 2156 "utilities/type.bas"
}
#line 2156 "utilities/type.bas"
fornext_exit_4508:;
#line 2157 "utilities/type.bas"
do{
#line 2157 "utilities/type.bas"
tab_spc_cr_size=2;
#line 2157 "utilities/type.bas"
tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_FH;
#line 2157 "utilities/type.bas"
if (is_error_pending()) goto skip4511;
#line 2157 "utilities/type.bas"
sub_file_print(tmp_fileno,qbs_new_txt_len("Name   Size   Next   Type   Tsize  Arr   FieldMode",50), 0, 0, 1);
#line 2157 "utilities/type.bas"
if (is_error_pending()) goto skip4511;
#line 2157 "utilities/type.bas"
skip4511:
#line 2157 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2157 "utilities/type.bas"
tab_spc_cr_size=1;
#line 2157 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2157,"type.bas");}while(r);
#line 2158 "utilities/type.bas"
S_44303:;
#line 2158 "utilities/type.bas"
fornext_value4513= 1 ;
#line 2158 "utilities/type.bas"
fornext_finalvalue4513=*__LONG_LASTTYPEELEMENT;
#line 2158 "utilities/type.bas"
fornext_step4513= 1 ;
#line 2158 "utilities/type.bas"
if (fornext_step4513<0) fornext_step_negative4513=1; else fornext_step_negative4513=0;
#line 2158 "utilities/type.bas"
if (is_error_pending()) goto fornext_error4513;
#line 2158 "utilities/type.bas"
goto fornext_entrylabel4513;
#line 2158 "utilities/type.bas"
while(1){
#line 2158 "utilities/type.bas"
fornext_value4513=fornext_step4513+(*_SUB_DUMP_UDTS_LONG_I);
#line 2158 "utilities/type.bas"
fornext_entrylabel4513:
#line 2158 "utilities/type.bas"
*_SUB_DUMP_UDTS_LONG_I=fornext_value4513;
#line 2158 "utilities/type.bas"
if (fornext_step_negative4513){
#line 2158 "utilities/type.bas"
if (fornext_value4513<fornext_finalvalue4513) break;
#line 2158 "utilities/type.bas"
}else{
#line 2158 "utilities/type.bas"
if (fornext_value4513>fornext_finalvalue4513) break;
#line 2158 "utilities/type.bas"
}
#line 2158 "utilities/type.bas"
fornext_error4513:;
#line 2158 "utilities/type.bas"
if(qbevent){evnt(28809,2158,"type.bas");if(r)goto S_44303;}
#line 2159 "utilities/type.bas"
do{
#line 2159 "utilities/type.bas"
tab_spc_cr_size=2;
#line 2159 "utilities/type.bas"
tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_FH;
#line 2159 "utilities/type.bas"
if (is_error_pending()) goto skip4514;
#line 2159 "utilities/type.bas"
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);
#line 2159 "utilities/type.bas"
if (is_error_pending()) goto skip4514;
#line 2159 "utilities/type.bas"
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);
#line 2159 "utilities/type.bas"
if (is_error_pending()) goto skip4514;
#line 2159 "utilities/type.bas"
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);
#line 2159 "utilities/type.bas"
if (is_error_pending()) goto skip4514;
#line 2159 "utilities/type.bas"
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);
#line 2159 "utilities/type.bas"
if (is_error_pending()) goto skip4514;
#line 2159 "utilities/type.bas"
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);
#line 2159 "utilities/type.bas"
if (is_error_pending()) goto skip4514;
#line 2159 "utilities/type.bas"
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);
#line 2159 "utilities/type.bas"
if (is_error_pending()) goto skip4514;
#line 2159 "utilities/type.bas"
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);
#line 2159 "utilities/type.bas"
if (is_error_pending()) goto skip4514;
#line 2159 "utilities/type.bas"
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);
#line 2159 "utilities/type.bas"
if (is_error_pending()) goto skip4514;
#line 2159 "utilities/type.bas"
sub_file_print(tmp_fileno,(((qbs**)(__ARRAY_STRING_UDTEARRAYDESC[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_STRING_UDTEARRAYDESC[4],__ARRAY_STRING_UDTEARRAYDESC[5])]), 0, 1, 0);
#line 2159 "utilities/type.bas"
if (is_error_pending()) goto skip4514;
#line 2159 "utilities/type.bas"
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);
#line 2159 "utilities/type.bas"
if (is_error_pending()) goto skip4514;
#line 2159 "utilities/type.bas"
skip4514:
#line 2159 "utilities/type.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 2159 "utilities/type.bas"
tab_spc_cr_size=1;
#line 2159 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2159,"type.bas");}while(r);
#line 2160 "utilities/type.bas"
fornext_continue_4512:;
#line 2160 "utilities/type.bas"
}
#line 2160 "utilities/type.bas"
fornext_exit_4512:;
#line 2161 "utilities/type.bas"
do{
#line 2161 "utilities/type.bas"
sub_close(*_SUB_DUMP_UDTS_LONG_FH,1);
#line 2161 "utilities/type.bas"
if(!qbevent)break;evnt(28809,2161,"type.bas");}while(r);
#line 2162 "utilities/type.bas"
exit_subfunc:;
#line 2162 "utilities/type.bas"
free_mem_lock(sf_mem_lock);
#line 2162 "utilities/type.bas"
#include "free347.txt"
#line 2162 "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 2162 "utilities/type.bas"
cmem_sp=tmp_cmem_sp;
#line 2162 "utilities/type.bas"
}
