home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
OL.LZH
/
IDOL.LZH
/
MAIN.IOL
< prev
next >
Wrap
Text File
|
1991-07-18
|
298b
|
10 lines
procedure main()
mydeque := Deque()
mydeque$push("hello")
mydeque$push("world")
write("My deque is size ",mydeque$size())
every write("give me a ",mydeque$foreach())
write("A random element is ",mydeque$random())
write("getting ",mydeque$get()," popping ",mydeque$pop())
end