BINTPR contains a simple binary tree print routine
in Pascal. Nothing fancy, but suitable for test
purposes when you are developing a program that
uses binary trees.

A sample program is included, which reads the following
data into a binary tree:
 if
 then
 else
 begin
 end
 procedure
 function
 program
 case
 of
 for
 to
 downto
 repeat
 until
 while
 goto
 with

That tree is printed as follows:

    / begin
      \ case
        \ downto
  / else
    \ end
        / for
      \ function
        \ goto
- if
      / of
    / procedure
      \ program
        \ repeat
  \ then
    \ to
      \ until
        \ while
          \ with