'Non-UI application (console / server application)
Sub Process_Globals
Private Stack1 As Stack
Private timer1 As Timer
End Sub
Sub Activity_Create(FirstTime As Boolean)
Stack1.Initialize (Me, "Stack1")
Stack1.push(1).Push(2).Push(3)
Do While Stack1.Size > 0
Log(Stack1.Pop)
Loop
Stack1.Name = "aaa"
StartMessageLoop
End Sub
Sub Stack1_StackEmpty
Log("stack is empty...")
End Sub
Sub Globals
End Sub