#line 14782 "qb64pe.bas"
void SUB_APPENDRETAINCOORDINATEWALK(int32*_SUB_APPENDRETAINCOORDINATEWALK_LONG_BUF,int32*_SUB_APPENDRETAINCOORDINATEWALK_LONG_DIMENSION_COUNT,qbs*_SUB_APPENDRETAINCOORDINATEWALK_STRING_PAYLOAD_CODE){
#line 14782 "qb64pe.bas"
qbs *tqbs;
#line 14782 "qb64pe.bas"
ptrszint tmp_long;
#line 14782 "qb64pe.bas"
int32 tmp_fileno;
#line 14782 "qb64pe.bas"
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
#line 14782 "qb64pe.bas"
uint8 *tmp_mem_static_pointer=mem_static_pointer;
#line 14782 "qb64pe.bas"
uint32 tmp_cmem_sp=cmem_sp;
#line 14782 "qb64pe.bas"
#include "data11.txt"
#line 14782 "qb64pe.bas"
mem_lock *sf_mem_lock;
#line 14782 "qb64pe.bas"
new_mem_lock();
#line 14782 "qb64pe.bas"
sf_mem_lock=mem_lock_tmp;
#line 14782 "qb64pe.bas"
sf_mem_lock->type=3;
#line 14782 "qb64pe.bas"
libqb_check_stack();
#line 14782 "qb64pe.bas"
if (is_error_pending()) goto exit_subfunc;
#line 14783 "qb64pe.bas"
do{
#line 14783 "qb64pe.bas"
if(!qbevent)break;evnt(14783);}while(r);
#line 14784 "qb64pe.bas"
do{
#line 14784 "qb64pe.bas"
if(!qbevent)break;evnt(14784);}while(r);
#line 14786 "qb64pe.bas"
do{
#line 14786 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1993=*_SUB_APPENDRETAINCOORDINATEWALK_LONG_BUF),qbs_new_txt_len("if (preserve_any){",18));
#line 14786 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14786 "qb64pe.bas"
if(!qbevent)break;evnt(14786);}while(r);
#line 14787 "qb64pe.bas"
S_17372:;
#line 14787 "qb64pe.bas"
fornext_value1995= 0 ;
#line 14787 "qb64pe.bas"
fornext_finalvalue1995=*_SUB_APPENDRETAINCOORDINATEWALK_LONG_DIMENSION_COUNT- 1 ;
#line 14787 "qb64pe.bas"
fornext_step1995= 1 ;
#line 14787 "qb64pe.bas"
if (fornext_step1995<0) fornext_step_negative1995=1; else fornext_step_negative1995=0;
#line 14787 "qb64pe.bas"
if (is_error_pending()) goto fornext_error1995;
#line 14787 "qb64pe.bas"
goto fornext_entrylabel1995;
#line 14787 "qb64pe.bas"
while(1){
#line 14787 "qb64pe.bas"
fornext_value1995=fornext_step1995+(*_SUB_APPENDRETAINCOORDINATEWALK_LONG_WALK_DIM);
#line 14787 "qb64pe.bas"
fornext_entrylabel1995:
#line 14787 "qb64pe.bas"
*_SUB_APPENDRETAINCOORDINATEWALK_LONG_WALK_DIM=fornext_value1995;
#line 14787 "qb64pe.bas"
if (fornext_step_negative1995){
#line 14787 "qb64pe.bas"
if (fornext_value1995<fornext_finalvalue1995) break;
#line 14787 "qb64pe.bas"
}else{
#line 14787 "qb64pe.bas"
if (fornext_value1995>fornext_finalvalue1995) break;
#line 14787 "qb64pe.bas"
}
#line 14787 "qb64pe.bas"
fornext_error1995:;
#line 14787 "qb64pe.bas"
if(qbevent){evnt(14787);if(r)goto S_17372;}
#line 14788 "qb64pe.bas"
do{
#line 14788 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1996=*_SUB_APPENDRETAINCOORDINATEWALK_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_idx[",13),qbs__tostr((int32)(*_SUB_APPENDRETAINCOORDINATEWALK_LONG_WALK_DIM),NULL,0)),qbs_new_txt_len("]=preserve_lo[",14)),qbs__tostr((int32)(*_SUB_APPENDRETAINCOORDINATEWALK_LONG_WALK_DIM),NULL,0)),qbs_new_txt_len("];",2)));
#line 14788 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14788 "qb64pe.bas"
if(!qbevent)break;evnt(14788);}while(r);
#line 14789 "qb64pe.bas"
fornext_continue_1994:;
#line 14789 "qb64pe.bas"
}
#line 14789 "qb64pe.bas"
fornext_exit_1994:;
#line 14790 "qb64pe.bas"
do{
#line 14790 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1997=*_SUB_APPENDRETAINCOORDINATEWALK_LONG_BUF),qbs_new_txt_len("for(;;){",8));
#line 14790 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14790 "qb64pe.bas"
if(!qbevent)break;evnt(14790);}while(r);
#line 14792 "qb64pe.bas"
do{
#line 14792 "qb64pe.bas"
*_SUB_APPENDRETAINCOORDINATEWALK_LONG_DESC_SLOT=((*_SUB_APPENDRETAINCOORDINATEWALK_LONG_DIMENSION_COUNT- 1 )* 4 )+( 4 );
#line 14792 "qb64pe.bas"
if(!qbevent)break;evnt(14792);}while(r);
#line 14793 "qb64pe.bas"
do{
#line 14793 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1998=*_SUB_APPENDRETAINCOORDINATEWALK_LONG_BUF),qbs_add(qbs_add(qbs_new_txt_len("preserve_old_off=preserve_idx[0]-preserve_old_desc[",51),qbs__tostr((int32)(*_SUB_APPENDRETAINCOORDINATEWALK_LONG_DESC_SLOT),NULL,0)),qbs_new_txt_len("];",2)));
#line 14793 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14793 "qb64pe.bas"
if(!qbevent)break;evnt(14793);}while(r);
#line 14794 "qb64pe.bas"
do{
#line 14794 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass1999=*_SUB_APPENDRETAINCOORDINATEWALK_LONG_BUF),qbs_add(qbs_add(qbs_new_txt_len("preserve_new_off=preserve_idx[0]-alloc_new_desc[",48),qbs__tostr((int32)(*_SUB_APPENDRETAINCOORDINATEWALK_LONG_DESC_SLOT),NULL,0)),qbs_new_txt_len("];",2)));
#line 14794 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14794 "qb64pe.bas"
if(!qbevent)break;evnt(14794);}while(r);
#line 14795 "qb64pe.bas"
S_17379:;
#line 14795 "qb64pe.bas"
fornext_value2001= 2 ;
#line 14795 "qb64pe.bas"
fornext_finalvalue2001=*_SUB_APPENDRETAINCOORDINATEWALK_LONG_DIMENSION_COUNT;
#line 14795 "qb64pe.bas"
fornext_step2001= 1 ;
#line 14795 "qb64pe.bas"
if (fornext_step2001<0) fornext_step_negative2001=1; else fornext_step_negative2001=0;
#line 14795 "qb64pe.bas"
if (is_error_pending()) goto fornext_error2001;
#line 14795 "qb64pe.bas"
goto fornext_entrylabel2001;
#line 14795 "qb64pe.bas"
while(1){
#line 14795 "qb64pe.bas"
fornext_value2001=fornext_step2001+(*_SUB_APPENDRETAINCOORDINATEWALK_LONG_WALK_DIM);
#line 14795 "qb64pe.bas"
fornext_entrylabel2001:
#line 14795 "qb64pe.bas"
*_SUB_APPENDRETAINCOORDINATEWALK_LONG_WALK_DIM=fornext_value2001;
#line 14795 "qb64pe.bas"
if (fornext_step_negative2001){
#line 14795 "qb64pe.bas"
if (fornext_value2001<fornext_finalvalue2001) break;
#line 14795 "qb64pe.bas"
}else{
#line 14795 "qb64pe.bas"
if (fornext_value2001>fornext_finalvalue2001) break;
#line 14795 "qb64pe.bas"
}
#line 14795 "qb64pe.bas"
fornext_error2001:;
#line 14795 "qb64pe.bas"
if(qbevent){evnt(14795);if(r)goto S_17379;}
#line 14796 "qb64pe.bas"
do{
#line 14796 "qb64pe.bas"
*_SUB_APPENDRETAINCOORDINATEWALK_LONG_DESC_SLOT=((*_SUB_APPENDRETAINCOORDINATEWALK_LONG_DIMENSION_COUNT-*_SUB_APPENDRETAINCOORDINATEWALK_LONG_WALK_DIM)* 4 )+( 4 );
#line 14796 "qb64pe.bas"
if(!qbevent)break;evnt(14796);}while(r);
#line 14797 "qb64pe.bas"
do{
#line 14797 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2002=*_SUB_APPENDRETAINCOORDINATEWALK_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_old_off+=(preserve_idx[",32),qbs__tostr((int64)(*_SUB_APPENDRETAINCOORDINATEWALK_LONG_WALK_DIM- 1 ),NULL,0)),qbs_new_txt_len("]-preserve_old_desc[",20)),qbs__tostr((int32)(*_SUB_APPENDRETAINCOORDINATEWALK_LONG_DESC_SLOT),NULL,0)),qbs_new_txt_len("])*preserve_old_desc[",21)),qbs__tostr((int64)(*_SUB_APPENDRETAINCOORDINATEWALK_LONG_DESC_SLOT+ 2 ),NULL,0)),qbs_new_txt_len("];",2)));
#line 14797 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14797 "qb64pe.bas"
if(!qbevent)break;evnt(14797);}while(r);
#line 14798 "qb64pe.bas"
do{
#line 14798 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2003=*_SUB_APPENDRETAINCOORDINATEWALK_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("preserve_new_off+=(preserve_idx[",32),qbs__tostr((int64)(*_SUB_APPENDRETAINCOORDINATEWALK_LONG_WALK_DIM- 1 ),NULL,0)),qbs_new_txt_len("]-alloc_new_desc[",17)),qbs__tostr((int32)(*_SUB_APPENDRETAINCOORDINATEWALK_LONG_DESC_SLOT),NULL,0)),qbs_new_txt_len("])*alloc_new_desc[",18)),qbs__tostr((int64)(*_SUB_APPENDRETAINCOORDINATEWALK_LONG_DESC_SLOT+ 2 ),NULL,0)),qbs_new_txt_len("];",2)));
#line 14798 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14798 "qb64pe.bas"
if(!qbevent)break;evnt(14798);}while(r);
#line 14799 "qb64pe.bas"
fornext_continue_2000:;
#line 14799 "qb64pe.bas"
}
#line 14799 "qb64pe.bas"
fornext_exit_2000:;
#line 14801 "qb64pe.bas"
S_17384:;
#line 14801 "qb64pe.bas"
if ((qbs_cleanup(qbs_tmp_base,_SUB_APPENDRETAINCOORDINATEWALK_STRING_PAYLOAD_CODE->len))||is_error_pending()){
#line 14801 "qb64pe.bas"
if(qbevent){evnt(14801);if(r)goto S_17384;}
#line 14801 "qb64pe.bas"
do{
#line 14801 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2005=*_SUB_APPENDRETAINCOORDINATEWALK_LONG_BUF),_SUB_APPENDRETAINCOORDINATEWALK_STRING_PAYLOAD_CODE);
#line 14801 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14801 "qb64pe.bas"
if(!qbevent)break;evnt(14801);}while(r);
#line 14801 "qb64pe.bas"
}
#line 14803 "qb64pe.bas"
do{
#line 14803 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2006=*_SUB_APPENDRETAINCOORDINATEWALK_LONG_BUF),qbs_new_txt_len("preserve_dim=0;",15));
#line 14803 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14803 "qb64pe.bas"
if(!qbevent)break;evnt(14803);}while(r);
#line 14804 "qb64pe.bas"
do{
#line 14804 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2007=*_SUB_APPENDRETAINCOORDINATEWALK_LONG_BUF),qbs_add(qbs_add(qbs_new_txt_len("while (preserve_dim<",20),qbs__tostr((int32)(*_SUB_APPENDRETAINCOORDINATEWALK_LONG_DIMENSION_COUNT),NULL,0)),qbs_new_txt_len("){",2)));
#line 14804 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14804 "qb64pe.bas"
if(!qbevent)break;evnt(14804);}while(r);
#line 14805 "qb64pe.bas"
do{
#line 14805 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2008=*_SUB_APPENDRETAINCOORDINATEWALK_LONG_BUF),qbs_new_txt_len("preserve_idx[preserve_dim]++;",29));
#line 14805 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14805 "qb64pe.bas"
if(!qbevent)break;evnt(14805);}while(r);
#line 14806 "qb64pe.bas"
do{
#line 14806 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2009=*_SUB_APPENDRETAINCOORDINATEWALK_LONG_BUF),qbs_new_txt_len("if (preserve_idx[preserve_dim]<=preserve_hi[preserve_dim]) break;",65));
#line 14806 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14806 "qb64pe.bas"
if(!qbevent)break;evnt(14806);}while(r);
#line 14807 "qb64pe.bas"
do{
#line 14807 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2010=*_SUB_APPENDRETAINCOORDINATEWALK_LONG_BUF),qbs_new_txt_len("preserve_idx[preserve_dim]=preserve_lo[preserve_dim];",53));
#line 14807 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14807 "qb64pe.bas"
if(!qbevent)break;evnt(14807);}while(r);
#line 14808 "qb64pe.bas"
do{
#line 14808 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2011=*_SUB_APPENDRETAINCOORDINATEWALK_LONG_BUF),qbs_new_txt_len("preserve_dim++;",15));
#line 14808 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14808 "qb64pe.bas"
if(!qbevent)break;evnt(14808);}while(r);
#line 14809 "qb64pe.bas"
do{
#line 14809 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2012=*_SUB_APPENDRETAINCOORDINATEWALK_LONG_BUF),qbs_new_txt_len("}",1));
#line 14809 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14809 "qb64pe.bas"
if(!qbevent)break;evnt(14809);}while(r);
#line 14810 "qb64pe.bas"
do{
#line 14810 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2013=*_SUB_APPENDRETAINCOORDINATEWALK_LONG_BUF),qbs_add(qbs_add(qbs_new_txt_len("if (preserve_dim==",18),qbs__tostr((int32)(*_SUB_APPENDRETAINCOORDINATEWALK_LONG_DIMENSION_COUNT),NULL,0)),qbs_new_txt_len(") break;",8)));
#line 14810 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14810 "qb64pe.bas"
if(!qbevent)break;evnt(14810);}while(r);
#line 14811 "qb64pe.bas"
do{
#line 14811 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2014=*_SUB_APPENDRETAINCOORDINATEWALK_LONG_BUF),qbs_new_txt_len("}",1));
#line 14811 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14811 "qb64pe.bas"
if(!qbevent)break;evnt(14811);}while(r);
#line 14812 "qb64pe.bas"
do{
#line 14812 "qb64pe.bas"
SUB_WRITEBUFLINE(&(pass2015=*_SUB_APPENDRETAINCOORDINATEWALK_LONG_BUF),qbs_new_txt_len("}",1));
#line 14812 "qb64pe.bas"
qbs_cleanup(qbs_tmp_base,0);
#line 14812 "qb64pe.bas"
if(!qbevent)break;evnt(14812);}while(r);
#line 14813 "qb64pe.bas"
exit_subfunc:;
#line 14813 "qb64pe.bas"
free_mem_lock(sf_mem_lock);
#line 14813 "qb64pe.bas"
#include "free11.txt"
#line 14813 "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 14813 "qb64pe.bas"
cmem_sp=tmp_cmem_sp;
#line 14813 "qb64pe.bas"
}
