form port
     tile=property gravity=right   x= 10 w=310 h=90 
     tile=text   y= 30   text= "#dir1" 
     tile=text   y= 100  text= "#dir2" 
     tile=text   y= 170  text= "#file1" 
     tile=text   y= 240  text= "#file2" 
     tile=text   y= 310  text= "#subdirectory" 
     tile=property  gravity=left  x=360 w=460 color=900 weight=bold 
     tile=text name=d1  y= 30   text=#dir1 
     tile=text name=d2  y= 100  text=#dir2 
     tile=text name=f1  y=170   text=#file1 
     tile=text name=f2  y=240   text=#file2 
     tile=text name=sub y=310   text=#subdirectory 
     tile=property  w=790 size=30 x=110 
     tile=rect  x=10 y=390 w=780 h=270 bgcolor=200 
     tile=text   y= 400   text= " file example_cars(#num, #art, #price, #color)"  wei=bold 
     tile=text   y= 450   text= $concate(1   +    ~semicolon  +   "BMW"  +  ~semicolon  +  "60000"  +   ~semicolon + "yellow") 
     tile=text   y= 490   text= $concate(2   +    ~semicolon  +   "VW"     +  ~semicolon  +  "28501"   +   ~semicolon+  "blue") 
     tile=text   y= 530   text= $concate(3+~semicolon+"Jaguar"+~semicolon+"65000"+~semicolon+"black"  ) 
     tile=text   y= 570   text= $concate(4+~semicolon+"Mazda"+~semicolon+"42000"+~semicolon+"black") 
     tile=text   y= 610   text= $concate(5+~semicolon+"Ferrari"+~semicolon+"150000"+~semicolon+"yellow") 
     tile=property  color= "" weight="" size="" 
     tile=text                                            x= 10 y=720 w=780  text=$concate(@|result+" "+#result)   s=40    weight=bold color=blue 
     tile=input  name=#input                  x= 10 y=790 w=780  text=$as_it_is(#function)   h=130 multiline=1 
     tile=button name=#button_select  x=10 y=940 w=380  text=@|_select_function      action=select_muster  s=30 
     tile=text                                            x= 0 y=1050 w=780  text=#help    style=italic  color=900 h=120 
end form
---------------------------------------------------------------------
form land
     tile=property gravity=right   x= 10 w=150 s=30 
     tile=text   y= 40   text= "#dir1" 
     tile=text   y= 90   text= "#dir2" 
     tile=text   y= 140  text= "#file1" 
     tile=text   y= 190  text= "#file2" 
     tile=text   y= 240  text= "#subdir." 
     tile=property  gravity=left  x=170 w=430 color=800 s=30 weight=bold 
     tile=text name=d1    y= 40    text=#dir1 
     tile=text name=d2    y= 90    text=#dir2 
     tile=text name=f1    y=140    text=#file1 
     tile=text name=f2    y=190    text=#file2 
     tile=text name=sub y=240   text=#subdirectory 
     tile=rect  x=600 y=36 w=670 h=320 bgcolor=200 
     tile=property  w=670 color=800  size=30 x=610 
     tile=text   y= 40   text= " file example_cars(#num, #art, #price, #color)"  wei=bold 
     tile=text   y= 90   text= $concate(1   +    ~semicolon  +   "BMW"  +  ~semicolon  +  "60000"  +   ~semicolon + "yellow") 
     tile=text   y= 140   text= $concate(2   +    ~semicolon  +   "VW"     +  ~semicolon  +  "28501"   +   ~semicolon+  "blue") 
     tile=text   y= 190   text= $concate(3+~semicolon+"Jaguar"+~semicolon+"65000"+~semicolon+"black"  ) 
     tile=text   y= 240   text= $concate(4+~semicolon+"Mazda"+~semicolon+"42000"+~semicolon+"black") 
     tile=text   y= 290   text= $concate(5+~semicolon+"Ferrari"+~semicolon+"150000"+~semicolon+"yellow") 
     tile=property  color= "" weight="" size="" 
     tile=text                                            x= 10 y=370 h=90   text=$concate(@|result+" "+#result)   s=40    weight=bold color=blue 
     tile=input  name=#input                  x= 10 y=450   text=$as_it_is(#function)   h=120 multiline=1 
     tile=button name=#button_select  x=10 y=570 w=500  text=@_select_function      action=select_muster s=30 
     tile=text                                            x=  10 y=670  text=#help    style=italic  color=900   h=120 
end form
------------------------------------------------------------------
action run_function
     if #function==""
          message "function not selected" 
          draw form=#form 
          return 
     endif
      
     #function=#input 
     run from=#input to=#result 
     #help=@|_press_select 
     draw form=#form 
end section
------------------------------------------------------
action  select_muster
     file example_function_files(#function) 
     read file=example_function_files directory=#_directory_files_examples 
     call list=function 
end section
------------------------------------------------------
list  function
     tile=file name=example_function_files 
     tile=title text="Select function" 
     tile=item name=#function 
     tile=button text=X   name=button_close_menu   action=back 
     tile=select action=select 
end list
-------------------------------------------------------
actiion close
     call scene=1 
end section
-------------------------------------------------------
action select
     #result="" 
     #select=#function 
     run from=#function to=#result 
     #selected_value=$remove_double_quotes(#function) 
     draw form=#form 
------------------------------------------------------
// if pressed button BACK in bottom then call my menu
action back
     call script=17_0_test_function