home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_GEN / EDSV4064.ZIP / EPP-V1_1.ZIP / STACK_TE.E < prev    next >
Text File  |  1993-06-26  |  254b  |  16 lines
  1. PMODULE 'PMODULES:stack'
  2.  
  3. DEF stack : st_stackType
  4.  
  5. PROC main ()
  6.   DEF i
  7.   st_init (stack)
  8.   FOR i := 0 TO 9
  9.     WriteF ('pushing \d\n', i)
  10.     st_push (stack, i)
  11.   ENDFOR
  12.   WHILE stack.count
  13.     WriteF ('popping \d\n', st_pop(stack))
  14.   ENDWHILE
  15. ENDPROC
  16.