Click above to get retro games delivered to your door ever month!

    StackHead()

         Returns the head of the FIFO stack

    Syntax:

         StackHead( aStack ) -> xHeadValue

         aStack : The created stack with StackNew()

    Description:

         Returns the value of the stack head, I mean the last entered
         value, without removing from stack.

    Return:

         The head value of the stack.

    Example:

         aStack  := StackNew ()
         StackPush ( aStack, "hello world" )
         ? StackHead( aStack )            // "hello world"