Quelle  hanoi.cob

       identification division.
       program-id. hanoi is recursive.
      * aus Visual Prolog 6.3
      * PDC Broendby, DK
       author. "JD".
       date-written. 20.7.2006.
       date-compiled.
       data division.
       working-storage section.
        77 n1   pic 9(4).
        78 A   value 1.
        78 B   value 2.
        78 C   value 3.
       linkage section.
        77 n      pic 9(4).
        77 leftc   pic 9(4).
        77 middlec pic 9(4).
        77 rightc  pic 9(4).
       procedure division using n leftc middlec rightc.
      * Towers of Hanoi
         if n <=0 then display "Must be greater 0"
         else
           subtract 1 from n giving n1
           call hanoi using n1 leftc rightc middlec
           display "moving "leftc" to "rightc
           call hanoi using n1 middlec leftc rightc
         end-if.
        end-program hanoi.

       identification division.
       program-id. main.
       author. "JD".
       date-written. 20.7.2006.
       date-compiled.
       data division.
       working-storage section.
        77 n   pic 9(4).
        77 A   pic 9 value 1.
        77 B   pic 9 value 2.
        77 C   pic 9 value 3.
       procedure division.
      * Call Towers of Hanoi
         accept n
         call hanoi using n A B C
        end-program main.