sub Main_Program
a= 1 
b= 2 
for x= 1  to  10 
    for y= 1  to  20 
        ' ..... первый цикл
    next
    ' ...........   промежуточная обработка
    for y= 1  to  30 
       ' ..... второй цикл
    next
    ' .....  завершающая обработка
next
end sub

Sub Main_Program
a= 1 
b= 2 
for x= 1  to  10 
    for y= 1  to  20 
        call First_Loop
    next
    call Intermediate_Work
    for y= 1  to  30 
       call Second_Loop
    next
    call Finilization
next
end sub

sub First_Loop
' ..... первый цикл
end sub

sub Second_Loop
' ..... второй цикл
end sub

' и так далее для всех выносимых из главной программы частей.