# This demonstrates how you can use the vcall command proc main var prc r foreach prc r in $proc if prc!="main" printnl [format "Calling procedure \"%s\"" prc] vcall prc endif nexteach endproc proc one printnl "This is procedure one." endproc proc two printnl "This is procedure two." endproc proc three printnl "This is procedure three." endproc