looking at the code, i have two questions:

why do you put CALL in front of your procedure-calls ?

why do you lock the app, for example when increasing a variable:

Application.Lock
Application("something") = Application ("something") + 1
Application.Unlock

what would happen if the app would not be locked during that line ?

Thank you !