Calling subroutines via a table:

sys tgs={@sr1,@sr2,@sr3} 'subroutine table
'
subroutine sr1
  print 10
end subroutine
subroutine sr2
  print 20
end subroutine
subroutine sr3
  print 30
end subroutine
'
gosub tgs[2] '20