38 lines
772 B
Text
38 lines
772 B
Text
Module CheckStackAsLIFO {
|
|
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"
|
|
}
|
|
CheckStackAsLIFO
|
|
Module CheckStackAsFIFO {
|
|
a=stack
|
|
Stack a {
|
|
Data 1, 2, 3
|
|
Print number=1
|
|
Print number=2
|
|
Print number=3
|
|
Print Empty=True
|
|
Data "A", "B", "C"
|
|
Print letter$="A"
|
|
Print letter$="B"
|
|
Print letter$="C"
|
|
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"
|
|
}
|
|
CheckStackAsFIFO
|