Quelle  schiffsbewegung.cob

         identification division.
        program-id. schiffsbewegung.
        date-written.12.2.2011.
      * Anregung von Frau Dr. Pollack
      * welches ist die ruhigste Kabine?
      * in einem Kreuzfharschiff,
      * wenn man die wahl hat?
        data division.
         01 position.
          05 north pic 99.99.
          05 west pic 99.99.
         77 speed pic 99.99.
         77 height pic 99.99.
         77 lengthangle pic 99.99.
         77 bredthheight pic 99.99.
        procedure division.
        begin.
         display "Simulation von Schiffsbewegungen"
         set time=0
         perform varying time from 0 by 0.1 until time>10
           perform rollen
           perform schlingern
           perform stampfen 
         end-perform 
         display "Ende der Simulation".
        rollen.
         add 10 to lengthangle.
        schlingern.
         add 5 to lengthangle.
         add 5 to bredthhangle.
         subtract 5 from speed
        stampfen.
         add 2 to height
         end-peogram schiffsbewegung.