Pushing items up and down

There are two very handy functions in Tables Library, they are:

• TB.PushUp(table, position)
• TB.PushDown(table, position)

These functions take the item at the given position and move it, respectively, to the top of the table or to the bottom of the table.

Here is a brief exaple that comes with the library within the function TB.TEST_Push()

Function TB.TEST_Push()
  
  Local items = { "Jhonny", 
                  "Michael", 
                  "Henry", 
                  "Mark", 
                  "Ryan", 
                  "Cody", 
                  "Fred", 
                  "Jim", 
                  "Paul", 
                  "Sam" }  
  
  Local drawScreen = Function()
                        Cls
                        Locate(0, 0)
                        NPrint("TESTING TB.Item.PushUp(), TB.Item.PushDown()\n")
                        NPrint("TABLE CONTENTS:")
                        For Local i = 0 To 9 Do NPrint(i, items[i])
                        
                        NPrint("\nType your choice and hit ENTER:")
                        NPrint("1) PushUp, 2) PushDown, Q) Quit")
                        
                        Local command = InKeyStr(#ALL)
                        
                        If command = "Q"
                          End
                          
                        ElseIf command = "1"
                          NPrint("\n   Type item number and hit ENTER:")
                          Local i = ToNumber(InKeyStr(#ALL))
                          TB.PushUp(items, i)
                          
                        ElseIf command = "2"
                          NPrint("\n   Type item number and hit ENTER:")
                          Local i = ToNumber(InKeyStr(#ALL))
                          TB.PushDown(items, i)
                          
                        EndIf
                      EndFunction
                      
  Repeat
    drawScreen()
  Forever
  
EndFunction