Queue/Usage: Difference between revisions

=={{header|M2000 Interpreter}}==

M2000 has always a current stack object. We can define a new one using a pointer to a stack object (here the variable a). We can swap the currernt one with that on a, so Push, number, letter$ and Empty can be used on that object. Also we can use functions using the stack object as first parameter like stackitem(), stackitem$() and stacktype$().

<lang M2000 Interpreter>

Module CheckStackAsQueue {

a=stack

Stack a {

Push 1, 2, 3

Print number=3

Print number=2

Print number=1

Print Empty=True

Push "A", "B", "C"

Print letter$="C"

Print letter$="B"

Print letter$="A"

Print Empty=True

Push 1,"OK"

}

Print Len(a)=2, StackItem(a, 2)=1, StackItem$(a, 1)="OK"

Print StackType$(a, 1)="String", StackType$(a,2)="Number"

}

CheckStackAsQueue

</lang>