rexx/progs/buffer.r

   1 say "Stack demo program"
   2 say "The numbers lines in each line shows the TOTAL number of items QUEUED()"
   3 say "in all buffers, the number of items in the topmost buffer QUEUED('T')"
   4 say "and the number of buffers QUEUED('B')"
   5 push 1
   6 push 2
   7 say "2 items are pushed"
   8 say queued() queued(t) queued(b)
   9 say "Create a New buffer"
  10 call makebuf
  11 push 3
  12 push 4
  13 say "2 items are pushed"
  14 say queued() queued(t) queued(b)
  15 say "Create a New buffer"
  16 call makebuf
  17 push 5
  18 push 6
  19 say "2 items are pushed"
  20 say queued() queued(t) queued(b)
  21 say "Create a New buffer"
  22 call makebuf
  23 push 7
  24 push 8
  25 say "2 items are pushed"
  26 say queued() queued(t) queued(b)
  27
  28 say "pull QUEUED()" queued() "items"
  29 do queued()
  30         pull a
  31         say "Item" a
  32 end
  33 say queued() queued(t) queued(b)