'ffffff
'ffffff
'ffffff

for x = 1 to 500
    'vvvvvv

    for y= 1 to  200
        'gggggggg'
    next y

    'vvvvvv
next x

sub something(ffssfsf),int 
'aaa'
'bbb'
'ccc'
return something
endsub

while x > y
    'do this
    while a = b
        'do that
    endwhile

'finish
endwhile



				  if radio2state = 1
                 if instr(Operator,"for ")
                    Operator = mid$(Operator,5,len(Operator))

                    if x = y
                       print a
                       print b
                    endif

                 endif

					  Find$ = "for " + Operator
                 KeyWord = "next " + mid$(Operator,1,1)
				  endif