Function or subroutine with counting memory

[paik1002]

I'd like a subroutine/function to have memory, such that it keeps track of the number of times it has been called. The count can be passed back to the parent subroutine.

Here is roughtly what I would like to do(pseudo-code):

Public Function memory() as integer


count++
count = memory
End Sub

Sub main()
current_count = memory() ; current_count = 1
current_count = memory() ; current_count = 2
current_count = memory() ; current_count = 3
End Sub


Can it be done?