SUB my_func
    COMMAND1
    COMMAND2
ENDSUB
CALL my_func