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 "data254.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(24227,3,"format.bas");}while(r);
S_37574:;
if ((qbs_cleanup(qbs_tmp_base,_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2->len))||is_error_pending()){
if(qbevent){evnt(24227,6,"format.bas");if(r)goto S_37574;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_L=_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24227,9,"format.bas");}while(r);
S_37576:;
fornext_value4344= 1 ;
fornext_finalvalue4344=*_FUNC_APPLY_LAYOUT_INDENT_LONG_L;
fornext_step4344= 1 ;
if (fornext_step4344<0) fornext_step_negative4344=1; else fornext_step_negative4344=0;
if (is_error_pending()) goto fornext_error4344;
goto fornext_entrylabel4344;
while(1){
fornext_value4344=fornext_step4344+(*_FUNC_APPLY_LAYOUT_INDENT_LONG_I);
fornext_entrylabel4344:
*_FUNC_APPLY_LAYOUT_INDENT_LONG_I=fornext_value4344;
if (fornext_step_negative4344){
if (fornext_value4344<fornext_finalvalue4344) break;
}else{
if (fornext_value4344>fornext_finalvalue4344) break;
}
fornext_error4344:;
if(qbevent){evnt(24227,10,"format.bas");if(r)goto S_37576;}
S_37577:;
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(24227,11,"format.bas");if(r)goto S_37577;}
S_37578:;
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(24227,12,"format.bas");if(r)goto S_37578;}
do{
qbs_set(_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24227,13,"format.bas");}while(r);
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_INDENT=*_FUNC_APPLY_LAYOUT_INDENT_LONG_I;
if(!qbevent)break;evnt(24227,13,"format.bas");}while(r);
}else{
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_INDENT=*_FUNC_APPLY_LAYOUT_INDENT_LONG_I- 1 ;
if(!qbevent)break;evnt(24227,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(24227,16,"format.bas");}while(r);
}
do{
goto fornext_exit_4343;
if(!qbevent)break;evnt(24227,18,"format.bas");}while(r);
}
fornext_continue_4343:;
}
fornext_exit_4343:;
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(24227,22,"format.bas");}while(r);
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_I2= 1 ;
if(!qbevent)break;evnt(24227,22,"format.bas");}while(r);
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_IGNORESP= 0 ;
if(!qbevent)break;evnt(24227,23,"format.bas");}while(r);
S_37591:;
fornext_value4347= 1 ;
fornext_finalvalue4347=_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2->len;
fornext_step4347= 1 ;
if (fornext_step4347<0) fornext_step_negative4347=1; else fornext_step_negative4347=0;
if (is_error_pending()) goto fornext_error4347;
goto fornext_entrylabel4347;
while(1){
fornext_value4347=fornext_step4347+(*_FUNC_APPLY_LAYOUT_INDENT_LONG_I);
fornext_entrylabel4347:
*_FUNC_APPLY_LAYOUT_INDENT_LONG_I=fornext_value4347;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative4347){
if (fornext_value4347<fornext_finalvalue4347) break;
}else{
if (fornext_value4347>fornext_finalvalue4347) break;
}
fornext_error4347:;
if(qbevent){evnt(24227,24,"format.bas");if(r)goto S_37591;}
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(24227,25,"format.bas");}while(r);
S_37593:;
if ((-(*_FUNC_APPLY_LAYOUT_INDENT_LONG_A== 34 ))||is_error_pending()){
if(qbevent){evnt(24227,26,"format.bas");if(r)goto S_37593;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_IGNORESP=*_FUNC_APPLY_LAYOUT_INDENT_LONG_IGNORESP+ 1 ;
if(!qbevent)break;evnt(24227,27,"format.bas");}while(r);
S_37595:;
if ((-(*_FUNC_APPLY_LAYOUT_INDENT_LONG_IGNORESP== 2 ))||is_error_pending()){
if(qbevent){evnt(24227,27,"format.bas");if(r)goto S_37595;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_IGNORESP= 0 ;
if(!qbevent)break;evnt(24227,27,"format.bas");}while(r);
}
}
S_37599:;
if ((-(*_FUNC_APPLY_LAYOUT_INDENT_LONG_IGNORESP== 0 ))||is_error_pending()){
if(qbevent){evnt(24227,29,"format.bas");if(r)goto S_37599;}
S_37600:;
if ((-(*_FUNC_APPLY_LAYOUT_INDENT_LONG_A==*__LONG_SP_ASC))||is_error_pending()){
if(qbevent){evnt(24227,30,"format.bas");if(r)goto S_37600;}
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(24227,30,"format.bas");}while(r);
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_I2=*_FUNC_APPLY_LAYOUT_INDENT_LONG_I2+ 1 ;
if(!qbevent)break;evnt(24227,30,"format.bas");}while(r);
do{
goto LABEL_SKIPCHAR;
if(!qbevent)break;evnt(24227,30,"format.bas");}while(r);
}
S_37605:;
if ((-(*_FUNC_APPLY_LAYOUT_INDENT_LONG_A==*__LONG_SP2_ASC))||is_error_pending()){
if(qbevent){evnt(24227,31,"format.bas");if(r)goto S_37605;}
do{
goto LABEL_SKIPCHAR;
if(!qbevent)break;evnt(24227,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(24227,33,"format.bas");}while(r);
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_I2=*_FUNC_APPLY_LAYOUT_INDENT_LONG_I2+ 1 ;
if(!qbevent)break;evnt(24227,33,"format.bas");}while(r);
LABEL_SKIPCHAR:;
if(qbevent){evnt(24227,34,"format.bas");r=0;}
fornext_continue_4346:;
}
fornext_exit_4346:;
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(24227,36,"format.bas");}while(r);
S_37613:;
if ((-(*__LONG_IDEAUTOINDENT== 0 ))||is_error_pending()){
if(qbevent){evnt(24227,38,"format.bas");if(r)goto S_37613;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_INDENT= 0 ;
if(!qbevent)break;evnt(24227,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(24227,42,"format.bas");}while(r);
S_37616:;
fornext_value4351= 1 ;
fornext_finalvalue4351=*_FUNC_APPLY_LAYOUT_INDENT_LONG_L;
fornext_step4351= 1 ;
if (fornext_step4351<0) fornext_step_negative4351=1; else fornext_step_negative4351=0;
if (is_error_pending()) goto fornext_error4351;
goto fornext_entrylabel4351;
while(1){
fornext_value4351=fornext_step4351+(*_FUNC_APPLY_LAYOUT_INDENT_LONG_I);
fornext_entrylabel4351:
*_FUNC_APPLY_LAYOUT_INDENT_LONG_I=fornext_value4351;
if (fornext_step_negative4351){
if (fornext_value4351<fornext_finalvalue4351) break;
}else{
if (fornext_value4351>fornext_finalvalue4351) break;
}
fornext_error4351:;
if(qbevent){evnt(24227,43,"format.bas");if(r)goto S_37616;}
S_37617:;
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(24227,44,"format.bas");if(r)goto S_37617;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_INDENT=*_FUNC_APPLY_LAYOUT_INDENT_LONG_I- 1 ;
if(!qbevent)break;evnt(24227,45,"format.bas");}while(r);
do{
goto fornext_exit_4350;
if(!qbevent)break;evnt(24227,46,"format.bas");}while(r);
}
fornext_continue_4350:;
}
fornext_exit_4350:;
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(24227,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(24227,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(24227,54,"format.bas");}while(r);
S_37627:;
if ((-(*__LONG_IDEAUTOLAYOUT== 0 ))||is_error_pending()){
if(qbevent){evnt(24227,55,"format.bas");if(r)goto S_37627;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_L=_FUNC_APPLY_LAYOUT_INDENT_STRING_ORIGINAL->len;
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(24227,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(24227,58,"format.bas");}while(r);
S_37630:;
fornext_value4354= 1 ;
fornext_finalvalue4354=*_FUNC_APPLY_LAYOUT_INDENT_LONG_L;
fornext_step4354= 1 ;
if (fornext_step4354<0) fornext_step_negative4354=1; else fornext_step_negative4354=0;
if (is_error_pending()) goto fornext_error4354;
goto fornext_entrylabel4354;
while(1){
fornext_value4354=fornext_step4354+(*_FUNC_APPLY_LAYOUT_INDENT_LONG_I);
fornext_entrylabel4354:
*_FUNC_APPLY_LAYOUT_INDENT_LONG_I=fornext_value4354;
if (fornext_step_negative4354){
if (fornext_value4354<fornext_finalvalue4354) break;
}else{
if (fornext_value4354>fornext_finalvalue4354) break;
}
fornext_error4354:;
if(qbevent){evnt(24227,59,"format.bas");if(r)goto S_37630;}
S_37631:;
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(24227,60,"format.bas");if(r)goto S_37631;}
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(24227,61,"format.bas");}while(r);
do{
goto fornext_exit_4353;
if(!qbevent)break;evnt(24227,62,"format.bas");}while(r);
}
fornext_continue_4353:;
}
fornext_exit_4353:;
}
S_37637:;
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(24227,67,"format.bas");if(r)goto S_37637;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_LCNT= 0 ;
if(!qbevent)break;evnt(24227,68,"format.bas");}while(r);
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_OCNT= 0 ;
if(!qbevent)break;evnt(24227,68,"format.bas");}while(r);
S_37640:;
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(24227,69,"format.bas");if(r)goto S_37640;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_LCNT=*_FUNC_APPLY_LAYOUT_INDENT_LONG_LCNT+ 1 ;
if(!qbevent)break;evnt(24227,70,"format.bas");}while(r);
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_OCNT=*_FUNC_APPLY_LAYOUT_INDENT_LONG_OCNT+ 1 ;
if(!qbevent)break;evnt(24227,70,"format.bas");}while(r);
LABEL_RECHECKDIFF:;
if(qbevent){evnt(24227,71,"format.bas");r=0;}
S_37643:;
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(24227,72,"format.bas");if(r)goto S_37643;}
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(24227,72,"format.bas");}while(r);
}
S_37646:;
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(24227,73,"format.bas");if(r)goto S_37646;}
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(24227,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(24227,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(24227,75,"format.bas");}while(r);
S_37651:;
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(24227,76,"format.bas");if(r)goto S_37651;}
do{
goto ww_continue_4355;
if(!qbevent)break;evnt(24227,76,"format.bas");}while(r);
}
S_37654:;
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(24227,77,"format.bas");if(r)goto S_37654;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_LCNT=*_FUNC_APPLY_LAYOUT_INDENT_LONG_LCNT+ 1 ;
if(!qbevent)break;evnt(24227,78,"format.bas");}while(r);
S_37656:;
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(24227,78,"format.bas");if(r)goto S_37656;}
do{
goto ww_exit_4355;
if(!qbevent)break;evnt(24227,78,"format.bas");}while(r);
}
do{
goto LABEL_RECHECKDIFF;
if(!qbevent)break;evnt(24227,79,"format.bas");}while(r);
}
S_37661:;
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(24227,81,"format.bas");if(r)goto S_37661;}
do{
*_FUNC_APPLY_LAYOUT_INDENT_LONG_OCNT=*_FUNC_APPLY_LAYOUT_INDENT_LONG_OCNT+ 1 ;
if(!qbevent)break;evnt(24227,82,"format.bas");}while(r);
S_37663:;
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(24227,82,"format.bas");if(r)goto S_37663;}
do{
goto ww_exit_4355;
if(!qbevent)break;evnt(24227,82,"format.bas");}while(r);
}
do{
goto LABEL_RECHECKDIFF;
if(!qbevent)break;evnt(24227,83,"format.bas");}while(r);
}
S_37668:;
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(24227,85,"format.bas");if(r)goto S_37668;}
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(24227,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(24227,86,"format.bas");}while(r);
S_37671:;
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(24227,87,"format.bas");if(r)goto S_37671;}
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(24227,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(24227,88,"format.bas");}while(r);
do{
goto LABEL_RECHECKDIFF;
if(!qbevent)break;evnt(24227,89,"format.bas");}while(r);
}
S_37677:;
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(24227,91,"format.bas");if(r)goto S_37677;}
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(24227,92,"format.bas");}while(r);
do{
goto LABEL_RECHECKDIFF;
if(!qbevent)break;evnt(24227,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(24227,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(24227,95,"format.bas");}while(r);
S_37683:;
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(24227,96,"format.bas");if(r)goto S_37683;}
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(24227,96,"format.bas");}while(r);
}
ww_continue_4355:;
}
ww_exit_4355:;
}
S_37688:;
if ((qbs_cleanup(qbs_tmp_base,_FUNC_APPLY_LAYOUT_INDENT_STRING_LAYOUT2->len))||is_error_pending()){
if(qbevent){evnt(24227,100,"format.bas");if(r)goto S_37688;}
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(24227,101,"format.bas");}while(r);
}
}
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free254.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;
}
