home *** CD-ROM | disk | FTP | other *** search
- ## subroutine_01.tg
- # This script demonstrates the subroutine.
- # No special return clauses (continue, break, stop) are used, so execution continues.
- # See Also: subroutine_02.tg
-
- {
- -name subroutine_01
- -start
- -action -print here we are in the main job
- -action -call my_procedure_A
- -action -print back here in the main job
- -action -inc 0 0 0 3
- }
-
- {
- -name my_procedure_A
- -action -print Now in my_procedure_A
- -action -call my_procedure_B
- -action -print back here in my_procedure_A
- -action -return
- }
-
-
- {
- -name my_procedure_B
- -action -print Now in my_procedure_B
- -action -return
- }
-