home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / EFFO / pd6.lzh / TST / queues.tst < prev    next >
Text File  |  1989-12-21  |  607b  |  51 lines
  1. .( Loading Queues test...) cr
  2.  
  3. #include queues.f83
  4. #include blocks.f83
  5.  
  6. blocks queues
  7.  
  8.  
  9. .( 1: Create a queue and insert some elements) cr
  10.  
  11. QUEUE foo
  12. foo print 
  13. foo ?empty .
  14. foo length . cr
  15.  
  16. QUEUE fie
  17. fie foo into
  18. foo print
  19. foo ?empty .
  20. foo length . cr
  21.  
  22. QUEUE fum
  23. fum foo into
  24. foo print
  25. foo ?empty .
  26. foo length . cr
  27.  
  28.  
  29. .( 2: Print information about all the queue elements) cr
  30.  
  31. foo block[ .queue cr ]; map
  32.  
  33.  
  34. .( 3: Remove some queue elements) cr
  35.  
  36. fie out
  37. foo .queue cr
  38. fum out
  39. foo .queue cr
  40.  
  41.  
  42. .( 4: Try the member function) cr
  43.  
  44. foo foo ?member .
  45. fie foo ?member .
  46. fie foo into
  47. fie foo ?member . cr
  48.  
  49.  
  50. forth only
  51.