indentation de lignes.

' modifier l'incrémentation des lignes
dim a%,b%,a$,b$ , x% , a1$ ,flag%  ,d%
dim fo%(20),wh%(20),re%(20),se%(20),ca%(20), if%(20) ,th$ ,n% ,g%
dim for%,whi%,rep%,sel%,cas%,fi%
th$="THEN "  : d%=2
' le mieux est de remplacer les mots clés par des variables, car la lecture du programme, le texte est pris en compte
dim for$,while$,repeat$,select$,case$,if$,then$,end_if$,end_while$,until$,end_select$,next$ ,else$ ,return$
for$="FOR "
while$ = "WHILE "
repeat$="REPEAT"
select$="SELECT "
case$="CASE "
if$="IF "
then$="THEN "
end_if$="END_IF"
next$="NEXT "
end_while$="END_WHILE"
until$="UNTIL "
end_select$="END_SELECT"
else$="ELSE"
return$="RETURN"

label traitement , marque , next1 ,copie , coller
full_space 0
memo 1:bar_both 1 :width 1,width(0)-30:height 1,height(0)-80:top 1,20:left 1,5 :font_name 1,"Courier New"
button 2:width 2,70:height 2,20:caption 2,"coller"        : on_click 2,copie
button 3:width 3,70:height 3,20:caption 3,"go":left 3,100: on_click 3,traitement
edit  4:width 4,70:height 4,20:text 4,4 :left 4,200
button 5:width 5,70:height 5,20:caption 5,"copier":left 5,300:on_click 5,coller
end
' ===================================
copie:
  clipboard_paste 1
return

coller:
  if count(1)>0
      b%=0
      for a%=1 to count(1): b%=b%+len(item_read$(1,a%))+2 : next a%
      select_text 1,1,b%
      a$=select_read$(1)
      clipboard_string_copy a$
  end_if
return

traitement:
d%=text$(4)
x%=1
  for a%=1 to count(1)
      caption 0,a%
      a$=trim$(item_read$(1,a%)) : a1$=upper$(a$)
      ' -----------------------------------------
      if left$(a1$,3)= if$
        if%(fi%) = x% :fi%=fi%+1:gosub marque :n%=instr(a1$,then$):g%=instr(a1$,chr$(34)+then$)
        if n% > 0 and g% =0 then fi%=fi%-1:x% = if%(fi%)  :else : x%=x%+d%
        goto next1
      end_if
     
      if left$(a1$,4)= for$
        fo%(for%) = x% :for%=for%+1  :gosub marque
        if instr(a1$,next$) > 0 then for%=for%-1: x%=fo%(for%) :else:x%=x%+d%
        goto next1
      end_if
     
      if left$(a1$,6)= while$
        wh%(whi%) = x% : whi%=whi%+1  :gosub marque
        if instr(a1$,END_WHILE$) > 0 then whi%=whi%-1 :  x%=wh%(whi%) :else  :x%=x%+d%
        goto next1
      end_if

      if left$(a1$,6)= REPEAT$
        re%(rep%) = x% :rep%=rep%+1  :gosub marque
        if instr(a1$,UNTIL$) > 0 then rep%=rep%-1 :  x%=re%(rep%):else :x%=x%+d%
        goto next1
      end_if

      if left$(a1$,7)= SELECT$
        se%(sel%) =x% : sel%=sel%+1:gosub marque
        if instr(a1$,END_SELECT$) > 0 then sel%=sel%-1:  x%=se%(sel%)  :else:x%=x%+d%
        goto next1
      end_if

      if left$(a1$,5)=CASE$
        gosub marque : goto next1
      end_if
     
      if left$(a1$,6)= END_IF$ then fi%=fi%-1:x%=if%(fi%):gosub marque:goto next1
      if left$(a1$,4)=ELSE$ then x%=if%(fi%-1):gosub marque: x%=x%+d% :goto next1
      if left$(a1$,9)=END_WHILE$ then whi%=whi%-1:  x%=wh%(whi%):gosub marque:goto next1
      if left$(a1$,6)=UNTIL$ then rep%=rep%-1:  x%=re%(rep%):gosub marque:goto next1
      if left$(a1$,5)=NEXT$  then for%=for%-1: x%=fo%(for%):gosub marque:goto next1
      if left$(a1$,10)=END_SELECT$ then sel%=sel%-1:gosub marque:goto next1
      if left$(a1$,6)=RETURN$ then x%=0:gosub marque:goto next1
      if right$(a$,1)=":"
        gosub marque
        if x%=0 then x%=3
        goto next1
      end_if
      if x%>0
        item_delete 1,a%:item_insert 1,a%,string$(x%," ")+a$
      else
        item_delete 1,a%:item_insert 1,a%,a$
      end_if
      next1:
  next a%
return

marque:
      if x%>0
        item_delete 1,a%:item_insert 1,a%,string$(x%," ")+a$
      else
        item_delete 1,a%:item_insert 1,a%,a$
      end_if
return