Listing 1: ReverseStream.vbs

' ------- BEGIN CALLOUT A -------
Dim Stack: Set Stack = CreateObject("System.Collections.Stack")
' ------- END CALLOUT A -------

' ------- BEGIN CALLOUT B -------
Do While Not WScript.StdIn.AtEndofStream
  Stack.Push WScript.StdIn.ReadLine
Loop
' ------- END CALLOUT B -------

' ------- BEGIN CALLOUT C -------
WScript.StdOut.WriteLine Join(Stack.ToArray, vbCrLf)
' ------- END CALLOUT C -------









1