Microsoft Small Basic

Program Listing: FGS145

List Program

n="
x="
While n<>"
If n=0Then
k=Stack.PopValue(x)
Else
Stack.PushValue(x,n)
EndIf
n=TextWindow.Read()
EndWhile
o="["+Stack.PopValue(x)
k=Stack.GetCount(x)
For i=2To k
o=o+","+Stack.PopValue(x)
EndFor
TextWindow.Write(o+"]")