hndl = StackInit()

Print "Push "+10
StackPush(hndl,10)
Print "Push "+250
StackPush(hndl,250)
Print "Push "+27
StackPush(hndl,27)

Print "Pop "+StackPop(hndl)
Print "Pop "+StackPop(hndl)
Print "Pop "+StackPop(hndl)

StackRelease(hndl)

Function StackInit()
   
   Return CreateBank(0)
   
End Function

Function StackPush(hndl,value)
   
   Local size = BankSize(hndl)
   
   ResizeBank(hndl,size + 4)
   
   PokeInt(hndl,size,value)
   
End Function

Function StackPop(hndl)
   
   Local size = BankSize(hndl) - 4
   
   Local value = PeekInt(hndl,size)
   
   ResizeBank(hndl,size)
   
   Return value
   
End Function

Function StackRelease(hndl)
   
   FreeBank(hndl)
   
End Function