#line 24502 "qb64pe.bas"
void SUB_GETID(int32*_SUB_GETID_LONG_I){
#line 24502 "qb64pe.bas"
qbs *tqbs;
#line 24502 "qb64pe.bas"
ptrszint tmp_long;
#line 24502 "qb64pe.bas"
int32 tmp_fileno;
#line 24502 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 24502 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 24502 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 24502 "qb64pe.bas"
#include "data73.txt"
#line 24502 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 24502 "qb64pe.bas"
new_mem_lock();
#line 24502 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 24502 "qb64pe.bas"
sf_mem_lock->type=3;
#line 24502 "qb64pe.bas"
libqb_check_stack();
#line 24502 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 24503 "qb64pe.bas"
S_28060:;
#line 24503 "qb64pe.bas"
if ((-(*_SUB_GETID_LONG_I== -1 ))||is_error_pending()){
#line 24503 "qb64pe.bas"
if(qbevent){evnt(24503);if(r)goto S_28060;}
#line 24503 "qb64pe.bas"
do{
#line 24503 "qb64pe.bas"
SUB_GIVE_ERROR(qbs_new_txt_len("-1 passed to getid!",19));
#line 24503 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 24503 "qb64pe.bas"
if(!qbevent)break;evnt(24503);}while(r);
#line 24503 "qb64pe.bas"
do{
#line 24503 "qb64pe.bas"
goto exit_subfunc;
#line 24503 "qb64pe.bas"
if(!qbevent)break;evnt(24503);}while(r);
#line 24503 "qb64pe.bas"
}
#line 24505 "qb64pe.bas"
do{
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+0))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+0))),256);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+256))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+256))),256);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+512))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+512))),4);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+516))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+516))),2);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+518))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+518))),2);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+520))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+520))),2);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+522))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+522))),2);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+524))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+524))),8);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+532))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+532))),8);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+540))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+540))),4);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+544))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+544))),4);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+548))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+548))),2);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+550))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+550))),2);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+552))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+552))),2);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+554))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+554))),256);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+810))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+810))),2);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+812))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+812))),1);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+813))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+813))),2);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+815))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+815))),2);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+817))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+817))),400);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+1217))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+1217))),400);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+1617))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+1617))),256);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+1873))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+1873))),256);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+2129))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2129))),256);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+2385))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2385))),4);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+2389))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2389))),256);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+2645))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2645))),4);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+2649))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2649))),2);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+2651))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2651))),100);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+2751))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2751))),100);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+2851))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2851))),100);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+2951))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2951))),4);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+2955))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2955))),2);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+2957))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2957))),2);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+2959))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2959))),4);
#line 24505 "qb64pe.bas"
memcpy((((char*)__UDT_ID)+((0+0))+((0+2963))),(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2963))),2);
#line 24505 "qb64pe.bas"
qbs_set(*(qbs**)(((char*)__UDT_ID)+((0+0))+((0+2965))),*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+(((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2973+0))+((0+2965))));
#line 24505 "qb64pe.bas"
if(!qbevent)break;evnt(24505);}while(r);
#line 24507 "qb64pe.bas"
do{
#line 24507 "qb64pe.bas"
*__LONG_CURRENTID=*_SUB_GETID_LONG_I;
#line 24507 "qb64pe.bas"
if(!qbevent)break;evnt(24507);}while(r);
#line 24508 "qb64pe.bas"
exit_subfunc:;
#line 24508 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 24508 "qb64pe.bas"
#include "free73.txt"
#line 24508 "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 24508 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 24508 "qb64pe.bas"
}
