RosettaCodeData/Task/Queue-Definition/M2000-Interpreter/queue-definition.m2000

14 lines
214 B
Plaintext

Module Checkit {
a=Stack
Stack a {
Data 100,200, 300
}
Stack a {
While not empty {
Read N
Print N
}
}
}
Checkit