Contents    Page-10    Prev    Next    Page+10    Index   

File trivb.tree


program
   /
  /
 graph1 -- progn -- progn
            /        /
           /        /
        output     := --- progn
                  /        /
                 /        /
               lim -- 7  := ---- label -- if
                        /         /      /
                       /         /      /
                      i -- 0    0      <= ----- progn
                                      /          /
                                     /          /
                                    i -- lim  funcall ----- := ---- goto
                                              /             /        /
                                             /             /        /
                                          writeln -- '*'  i -- +   0
                                                              /
                                                             /
                                                            i -- 1
(program graph1 (progn output)
                (progn (:= lim 7)
                       (progn (:= i 0)
                              (label 0)
                              (if (<= i lim)
                                  (progn (funcall writeln '*')
                                         (:= i (+ i 1))
                                         (goto 0))))))