qbs* FUNC_APPLY_LAYOUT_INDENT(qbs*_FUNC_APPLY_LAYOUT_INDENT_STRING_ORIGINAL){
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 "data265.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
if (is_error_pending()) goto exit_subfunc;
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,__STRING_LAYOUT);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,3,"format.bas");}while(r);
S_39227:;
if ((qbs_cleanup(qbs_tmp_base,_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2->len))||is_error_pending()){
if(qbevent){evnt(25761,6,"format.bas");if(r)goto S_39227;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_L=_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,9,"format.bas");}while(r);
S_39229:;
fornext_value4615= 1 ;
fornext_finalvalue4615=*_FUNC_APPLY_LAYOUT_INDENT_LONG_L;
fornext_step4615= 1 ;
if (fornext_step4615<0) fornext_step_negative4615=1; else fornext_step_negative4615=0;
if (is_error_pending()) goto fornext_error4615;
goto fornext_entrylabel4615;
while(1){
fornext_value4615=fornext_step4615+(*_FUNC_APPLY_LAYOUT_INDENT_LONG_I);
fornext_entrylabel4615:
*_FUNC_APPLY_LAYOUT_INDENT_LONG_I=fornext_value4615;
if (fornext_step_negative4615){
if (fornext_value4615<fornext_finalvalue4615) break;
}else{
if (fornext_value4615>fornext_finalvalue4615) break;
}
fornext_error4615:;
if(qbevent){evnt(25761,10,"format.bas");if(r)goto S_39229;}
S_39230:;
if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,*_FUNC_APPLY_LAYOUT_INDENT_LONG_I)!= 32 ))|(-(*_FUNC_APPLY_LAYOUT_INDENT_LONG_I==*_FUNC_APPLY_LAYOUT_INDENT_LONG_L))))||is_error_pending()){
if(qbevent){evnt(25761,11,"format.bas");if(r)goto S_39230;}
S_39231:;
if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,*_FUNC_APPLY_LAYOUT_INDENT_LONG_I)== 32 )))||is_error_pending()){
if(qbevent){evnt(25761,12,"format.bas");if(r)goto S_39231;}
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,13,"format.bas");}while(r);
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_INDENT=*_FUNC_APPLY_LAYOUT_INDENT_LONG_I;
if(!qbevent)break;evnt(25761,13,"format.bas");}while(r);
}else{
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_INDENT=*_FUNC_APPLY_LAYOUT_INDENT_LONG_I- 1 ;
if(!qbevent)break;evnt(25761,15,"format.bas");}while(r);
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,qbs_right(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2->len-*_FUNC_APPLY_LAYOUT_INDENT_LONG_I+ 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,16,"format.bas");}while(r);
}
do{
goto fornext_exit_4614;
if(!qbevent)break;evnt(25761,18,"format.bas");}while(r);
}
fornext_continue_4614:;
}
fornext_exit_4614:;
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT3,_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,22,"format.bas");}while(r);
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_I2= 1 ;
if(!qbevent)break;evnt(25761,22,"format.bas");}while(r);
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_IGNORESP= 0 ;
if(!qbevent)break;evnt(25761,23,"format.bas");}while(r);
S_39244:;
fornext_value4618= 1 ;
fornext_finalvalue4618=_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2->len;
fornext_step4618= 1 ;
if (fornext_step4618<0) fornext_step_negative4618=1; else fornext_step_negative4618=0;
if (is_error_pending()) goto fornext_error4618;
goto fornext_entrylabel4618;
while(1){
fornext_value4618=fornext_step4618+(*_FUNC_APPLY_LAYOUT_INDENT_LONG_I);
fornext_entrylabel4618:
*_FUNC_APPLY_LAYOUT_INDENT_LONG_I=fornext_value4618;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative4618){
if (fornext_value4618<fornext_finalvalue4618) break;
}else{
if (fornext_value4618>fornext_finalvalue4618) break;
}
fornext_error4618:;
if(qbevent){evnt(25761,24,"format.bas");if(r)goto S_39244;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_A=qbs_asc(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,*_FUNC_APPLY_LAYOUT_INDENT_LONG_I);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,25,"format.bas");}while(r);
S_39246:;
if ((-(*_FUNC_APPLY_LAYOUT_INDENT_LONG_A== 34 ))||is_error_pending()){
if(qbevent){evnt(25761,26,"format.bas");if(r)goto S_39246;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_IGNORESP=*_FUNC_APPLY_LAYOUT_INDENT_LONG_IGNORESP+ 1 ;
if(!qbevent)break;evnt(25761,27,"format.bas");}while(r);
S_39248:;
if ((-(*_FUNC_APPLY_LAYOUT_INDENT_LONG_IGNORESP== 2 ))||is_error_pending()){
if(qbevent){evnt(25761,27,"format.bas");if(r)goto S_39248;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_IGNORESP= 0 ;
if(!qbevent)break;evnt(25761,27,"format.bas");}while(r);
}
}
S_39252:;
if ((-(*_FUNC_APPLY_LAYOUT_INDENT_LONG_IGNORESP== 0 ))||is_error_pending()){
if(qbevent){evnt(25761,29,"format.bas");if(r)goto S_39252;}
S_39253:;
if ((-(*_FUNC_APPLY_LAYOUT_INDENT_LONG_A==*__LONG_SP_ASC))||is_error_pending()){
if(qbevent){evnt(25761,30,"format.bas");if(r)goto S_39253;}
do{
tqbs=_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT3; if (!is_error_pending()){
tmp_fileno=*_FUNC_APPLY_LAYOUT_INDENT_LONG_I2; if (!is_error_pending()){
tmp_long= 32 ; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(25761,30,"format.bas");}while(r);
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_I2=*_FUNC_APPLY_LAYOUT_INDENT_LONG_I2+ 1 ;
if(!qbevent)break;evnt(25761,30,"format.bas");}while(r);
do{
goto LABEL_SKIPCHAR;
if(!qbevent)break;evnt(25761,30,"format.bas");}while(r);
}
S_39258:;
if ((-(*_FUNC_APPLY_LAYOUT_INDENT_LONG_A==*__LONG_SP2_ASC))||is_error_pending()){
if(qbevent){evnt(25761,31,"format.bas");if(r)goto S_39258;}
do{
goto LABEL_SKIPCHAR;
if(!qbevent)break;evnt(25761,31,"format.bas");}while(r);
}
}
do{
tqbs=_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT3; if (!is_error_pending()){
tmp_fileno=*_FUNC_APPLY_LAYOUT_INDENT_LONG_I2; if (!is_error_pending()){
tmp_long=*_FUNC_APPLY_LAYOUT_INDENT_LONG_A; if (!is_error_pending()){
if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);}
}}}
if(!qbevent)break;evnt(25761,33,"format.bas");}while(r);
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_I2=*_FUNC_APPLY_LAYOUT_INDENT_LONG_I2+ 1 ;
if(!qbevent)break;evnt(25761,33,"format.bas");}while(r);
LABEL_SKIPCHAR:;
if(qbevent){evnt(25761,34,"format.bas");r=0;}
fornext_continue_4617:;
}
fornext_exit_4617:;
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,qbs_left(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT3,*_FUNC_APPLY_LAYOUT_INDENT_LONG_I2- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,36,"format.bas");}while(r);
S_39266:;
if ((-(*__LONG_IDEAUTOINDENT== 0 ))||is_error_pending()){
if(qbevent){evnt(25761,38,"format.bas");if(r)goto S_39266;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_INDENT= 0 ;
if(!qbevent)break;evnt(25761,41,"format.bas");}while(r);
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_L=_FUNC_APPLY_LAYOUT_INDENT_STRING_ORIGINAL->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,42,"format.bas");}while(r);
S_39269:;
fornext_value4622= 1 ;
fornext_finalvalue4622=*_FUNC_APPLY_LAYOUT_INDENT_LONG_L;
fornext_step4622= 1 ;
if (fornext_step4622<0) fornext_step_negative4622=1; else fornext_step_negative4622=0;
if (is_error_pending()) goto fornext_error4622;
goto fornext_entrylabel4622;
while(1){
fornext_value4622=fornext_step4622+(*_FUNC_APPLY_LAYOUT_INDENT_LONG_I);
fornext_entrylabel4622:
*_FUNC_APPLY_LAYOUT_INDENT_LONG_I=fornext_value4622;
if (fornext_step_negative4622){
if (fornext_value4622<fornext_finalvalue4622) break;
}else{
if (fornext_value4622>fornext_finalvalue4622) break;
}
fornext_error4622:;
if(qbevent){evnt(25761,43,"format.bas");if(r)goto S_39269;}
S_39270:;
if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_APPLY_LAYOUT_INDENT_STRING_ORIGINAL,*_FUNC_APPLY_LAYOUT_INDENT_LONG_I)!= 32 ))|(-(*_FUNC_APPLY_LAYOUT_INDENT_LONG_I==*_FUNC_APPLY_LAYOUT_INDENT_LONG_L))))||is_error_pending()){
if(qbevent){evnt(25761,44,"format.bas");if(r)goto S_39270;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_INDENT=*_FUNC_APPLY_LAYOUT_INDENT_LONG_I- 1 ;
if(!qbevent)break;evnt(25761,45,"format.bas");}while(r);
do{
goto fornext_exit_4621;
if(!qbevent)break;evnt(25761,46,"format.bas");}while(r);
}
fornext_continue_4621:;
}
fornext_exit_4621:;
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_INDENT,func_space(*_FUNC_APPLY_LAYOUT_INDENT_LONG_INDENT));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,49,"format.bas");}while(r);
}else{
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_INDENT,func_space(*_FUNC_APPLY_LAYOUT_INDENT_LONG_INDENT**__LONG_IDEAUTOINDENTSIZE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,51,"format.bas");}while(r);
}
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_OLAY,_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,54,"format.bas");}while(r);
S_39280:;
if ((-(*__LONG_IDEAUTOLAYOUT== 0 ))||is_error_pending()){
if(qbevent){evnt(25761,55,"format.bas");if(r)goto S_39280;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_L=_FUNC_APPLY_LAYOUT_INDENT_STRING_ORIGINAL->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,57,"format.bas");}while(r);
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,58,"format.bas");}while(r);
S_39283:;
fornext_value4625= 1 ;
fornext_finalvalue4625=*_FUNC_APPLY_LAYOUT_INDENT_LONG_L;
fornext_step4625= 1 ;
if (fornext_step4625<0) fornext_step_negative4625=1; else fornext_step_negative4625=0;
if (is_error_pending()) goto fornext_error4625;
goto fornext_entrylabel4625;
while(1){
fornext_value4625=fornext_step4625+(*_FUNC_APPLY_LAYOUT_INDENT_LONG_I);
fornext_entrylabel4625:
*_FUNC_APPLY_LAYOUT_INDENT_LONG_I=fornext_value4625;
if (fornext_step_negative4625){
if (fornext_value4625<fornext_finalvalue4625) break;
}else{
if (fornext_value4625>fornext_finalvalue4625) break;
}
fornext_error4625:;
if(qbevent){evnt(25761,59,"format.bas");if(r)goto S_39283;}
S_39284:;
if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_APPLY_LAYOUT_INDENT_STRING_ORIGINAL,*_FUNC_APPLY_LAYOUT_INDENT_LONG_I)!= 32 ))|(-(*_FUNC_APPLY_LAYOUT_INDENT_LONG_I==*_FUNC_APPLY_LAYOUT_INDENT_LONG_L))))||is_error_pending()){
if(qbevent){evnt(25761,60,"format.bas");if(r)goto S_39284;}
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,qbs_right(_FUNC_APPLY_LAYOUT_INDENT_STRING_ORIGINAL,*_FUNC_APPLY_LAYOUT_INDENT_LONG_L-*_FUNC_APPLY_LAYOUT_INDENT_LONG_I+ 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,61,"format.bas");}while(r);
do{
goto fornext_exit_4624;
if(!qbevent)break;evnt(25761,62,"format.bas");}while(r);
}
fornext_continue_4624:;
}
fornext_exit_4624:;
}
S_39290:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,_FUNC_APPLY_LAYOUT_INDENT_STRING_OLAY)))||is_error_pending()){
if(qbevent){evnt(25761,67,"format.bas");if(r)goto S_39290;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_LCNT= 0 ;
if(!qbevent)break;evnt(25761,68,"format.bas");}while(r);
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_OCNT= 0 ;
if(!qbevent)break;evnt(25761,68,"format.bas");}while(r);
S_39293:;
while((qbs_cleanup(qbs_tmp_base,-(*_FUNC_APPLY_LAYOUT_INDENT_LONG_LCNT<=_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2->len)))||is_error_pending()){
if(qbevent){evnt(25761,69,"format.bas");if(r)goto S_39293;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_LCNT=*_FUNC_APPLY_LAYOUT_INDENT_LONG_LCNT+ 1 ;
if(!qbevent)break;evnt(25761,70,"format.bas");}while(r);
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_OCNT=*_FUNC_APPLY_LAYOUT_INDENT_LONG_OCNT+ 1 ;
if(!qbevent)break;evnt(25761,70,"format.bas");}while(r);
LABEL_RECHECKDIFF:;
if(qbevent){evnt(25761,71,"format.bas");r=0;}
S_39296:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_APPLY_LAYOUT_INDENT_STRING_LCH,qbs_new_txt_len("",0)))&(qbs_notequal(_FUNC_APPLY_LAYOUT_INDENT_STRING_LCH,qbs_new_txt_len(" ",1)))))||is_error_pending()){
if(qbevent){evnt(25761,72,"format.bas");if(r)goto S_39296;}
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_LLCH,_FUNC_APPLY_LAYOUT_INDENT_STRING_LCH);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,72,"format.bas");}while(r);
}
S_39299:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_APPLY_LAYOUT_INDENT_STRING_OCH,qbs_new_txt_len("",0)))&(qbs_notequal(_FUNC_APPLY_LAYOUT_INDENT_STRING_OCH,qbs_new_txt_len(" ",1)))))||is_error_pending()){
if(qbevent){evnt(25761,73,"format.bas");if(r)goto S_39299;}
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_LOCH,_FUNC_APPLY_LAYOUT_INDENT_STRING_OCH);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,73,"format.bas");}while(r);
}
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_LCH,func_mid(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,*_FUNC_APPLY_LAYOUT_INDENT_LONG_LCNT, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,74,"format.bas");}while(r);
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_OCH,func_mid(_FUNC_APPLY_LAYOUT_INDENT_STRING_OLAY,*_FUNC_APPLY_LAYOUT_INDENT_LONG_OCNT, 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,75,"format.bas");}while(r);
S_39304:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_APPLY_LAYOUT_INDENT_STRING_LCH,_FUNC_APPLY_LAYOUT_INDENT_STRING_OCH)))||is_error_pending()){
if(qbevent){evnt(25761,76,"format.bas");if(r)goto S_39304;}
do{
goto ww_continue_4626;
if(!qbevent)break;evnt(25761,76,"format.bas");}while(r);
}
S_39307:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_APPLY_LAYOUT_INDENT_STRING_LCH,qbs_new_txt_len(" ",1))))||is_error_pending()){
if(qbevent){evnt(25761,77,"format.bas");if(r)goto S_39307;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_LCNT=*_FUNC_APPLY_LAYOUT_INDENT_LONG_LCNT+ 1 ;
if(!qbevent)break;evnt(25761,78,"format.bas");}while(r);
S_39309:;
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_APPLY_LAYOUT_INDENT_LONG_LCNT>_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2->len))&(-(*_FUNC_APPLY_LAYOUT_INDENT_LONG_OCNT>_FUNC_APPLY_LAYOUT_INDENT_STRING_OLAY->len))))||is_error_pending()){
if(qbevent){evnt(25761,78,"format.bas");if(r)goto S_39309;}
do{
goto ww_exit_4626;
if(!qbevent)break;evnt(25761,78,"format.bas");}while(r);
}
do{
goto LABEL_RECHECKDIFF;
if(!qbevent)break;evnt(25761,79,"format.bas");}while(r);
}
S_39314:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_APPLY_LAYOUT_INDENT_STRING_OCH,qbs_new_txt_len(" ",1))))||is_error_pending()){
if(qbevent){evnt(25761,81,"format.bas");if(r)goto S_39314;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_OCNT=*_FUNC_APPLY_LAYOUT_INDENT_LONG_OCNT+ 1 ;
if(!qbevent)break;evnt(25761,82,"format.bas");}while(r);
S_39316:;
if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_APPLY_LAYOUT_INDENT_LONG_OCNT>_FUNC_APPLY_LAYOUT_INDENT_STRING_OLAY->len))&(-(*_FUNC_APPLY_LAYOUT_INDENT_LONG_LCNT>_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2->len))))||is_error_pending()){
if(qbevent){evnt(25761,82,"format.bas");if(r)goto S_39316;}
do{
goto ww_exit_4626;
if(!qbevent)break;evnt(25761,82,"format.bas");}while(r);
}
do{
goto LABEL_RECHECKDIFF;
if(!qbevent)break;evnt(25761,83,"format.bas");}while(r);
}
S_39321:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_APPLY_LAYOUT_INDENT_STRING_LCH,qbs_new_txt_len("?",1)))&(qbs_equal(qbs_ucase(func_mid(_FUNC_APPLY_LAYOUT_INDENT_STRING_OLAY,*_FUNC_APPLY_LAYOUT_INDENT_LONG_OCNT, 5 ,0|1)),qbs_new_txt_len("PRINT",5)))))||is_error_pending()){
if(qbevent){evnt(25761,85,"format.bas");if(r)goto S_39321;}
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_PS,qbs_new_txt_len("print",5));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,86,"format.bas");}while(r);
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_NLCH,func_mid(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,*_FUNC_APPLY_LAYOUT_INDENT_LONG_LCNT+ 1 , 1 ,0|1));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,86,"format.bas");}while(r);
S_39324:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_APPLY_LAYOUT_INDENT_STRING_NLCH,qbs_new_txt_len(" ",1)))&(qbs_notequal(_FUNC_APPLY_LAYOUT_INDENT_STRING_NLCH,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(25761,87,"format.bas");if(r)goto S_39324;}
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_PS,qbs_add(_FUNC_APPLY_LAYOUT_INDENT_STRING_PS,qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,87,"format.bas");}while(r);
}
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,qbs_add(qbs_add(qbs_left(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,*_FUNC_APPLY_LAYOUT_INDENT_LONG_LCNT- 1 ),_FUNC_APPLY_LAYOUT_INDENT_STRING_PS),qbs_right(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2->len-*_FUNC_APPLY_LAYOUT_INDENT_LONG_LCNT)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,88,"format.bas");}while(r);
do{
goto LABEL_RECHECKDIFF;
if(!qbevent)break;evnt(25761,89,"format.bas");}while(r);
}
S_39330:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_APPLY_LAYOUT_INDENT_STRING_OCH,func_chr( 34 )))&(qbs_equal(_FUNC_APPLY_LAYOUT_INDENT_STRING_LLCH,_FUNC_APPLY_LAYOUT_INDENT_STRING_LOCH))))||is_error_pending()){
if(qbevent){evnt(25761,91,"format.bas");if(r)goto S_39330;}
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,qbs_add(qbs_add(qbs_left(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,*_FUNC_APPLY_LAYOUT_INDENT_LONG_LCNT- 1 ),func_chr( 34 )),qbs_right(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2->len-*_FUNC_APPLY_LAYOUT_INDENT_LONG_LCNT)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,92,"format.bas");}while(r);
do{
goto LABEL_RECHECKDIFF;
if(!qbevent)break;evnt(25761,93,"format.bas");}while(r);
}
do{
*_FUNC_APPLY_LAYOUT_INDENT_INTEGER_LAS=((_FUNC_APPLY_LAYOUT_INDENT_STRING_LCH->len)?(qbs_asc(_FUNC_APPLY_LAYOUT_INDENT_STRING_LCH)):( 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,95,"format.bas");}while(r);
do{
*_FUNC_APPLY_LAYOUT_INDENT_INTEGER_OAS=((_FUNC_APPLY_LAYOUT_INDENT_STRING_OCH->len)?(qbs_asc(_FUNC_APPLY_LAYOUT_INDENT_STRING_OCH)):( 0 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,95,"format.bas");}while(r);
S_39336:;
if ((((int32*)(__ARRAY_LONG_ISALPHA[0]))[array_check((*_FUNC_APPLY_LAYOUT_INDENT_INTEGER_LAS)-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5])]&((int32*)(__ARRAY_LONG_ISALPHA[0]))[array_check((*_FUNC_APPLY_LAYOUT_INDENT_INTEGER_OAS)-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5])]&(-(func_abs((int64)(*_FUNC_APPLY_LAYOUT_INDENT_INTEGER_LAS-*_FUNC_APPLY_LAYOUT_INDENT_INTEGER_OAS))== 32 )))||is_error_pending()){
if(qbevent){evnt(25761,96,"format.bas");if(r)goto S_39336;}
do{
sub_mid(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,*_FUNC_APPLY_LAYOUT_INDENT_LONG_LCNT, 1 ,_FUNC_APPLY_LAYOUT_INDENT_STRING_OCH,1);
if(!qbevent)break;evnt(25761,96,"format.bas");}while(r);
}
ww_continue_4626:;
}
ww_exit_4626:;
}
S_39341:;
if ((qbs_cleanup(qbs_tmp_base,_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2->len))||is_error_pending()){
if(qbevent){evnt(25761,100,"format.bas");if(r)goto S_39341;}
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_APPLY_LAYOUT_INDENT,qbs_add(_FUNC_APPLY_LAYOUT_INDENT_STRING_INDENT,_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25761,101,"format.bas");}while(r);
}
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free265.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;
qbs_maketmp(_FUNC_APPLY_LAYOUT_INDENT_STRING_APPLY_LAYOUT_INDENT);return _FUNC_APPLY_LAYOUT_INDENT_STRING_APPLY_LAYOUT_INDENT;
}
