home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / BIPL.ZIP / IDOL.ZIP / MAIN.IOL < prev    next >
Encoding:
Text File  |  1991-12-30  |  298 b   |  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.