home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OL.LZH / IDOL.LZH / MAIN.IOL < prev    next >
Text File  |  1991-07-18  |  298b  |  10 lines

  1. procedure main()
  2.   mydeque := Deque()
  3.   mydeque$push("hello")
  4.   mydeque$push("world")
  5.   write("My deque is size ",mydeque$size())
  6.   every write("give me a ",mydeque$foreach())
  7.   write("A random element is ",mydeque$random())
  8.   write("getting ",mydeque$get()," popping ",mydeque$pop())
  9. end
  10.