Quelle  irs2.cob   Sprache: Cobol

      * ...
      * von http://www-aix.gsi.de/~giese/swr/ariane5.html
      * 4. Juni 1996, Kourou / Frz. Guyana, ESA
      * Jungfernflug der neuen europäischen Trägerrakete
      * (Gewicht: 740 t, Nutzlast 7 - 18 t) mit 4 Cluster-Satelliten
      *
      * Entwicklungskosten in 10 Jahren: DM 11 800 Millionen
      * Ada-Programm nach COBOL umgewandelt:
      * ...
        identification division.
        program-id. irs2.
      * declare
      * pragma suppress(numeric-error, horizontal-veloc-bias);
        data division.
         77 vertical-veloc-sensor   pic s9(4)v9(4) comp-2.
         77 horizontal-veloc-sensor pic s9(4)v9(4) comp-2.
         77 vertical-veloc-bias     pic s9(4)v9(4) comp-2.
         77 horizontal-veloc-bias   pic s9(4)v9(4) comp-2.
        procedure division.
        declaratives.
        exc section.
         use after error procedure num1.
         use after exception procedure num2.
        end declaratives.
        begin.
          call sensor-get using vertical-veloc-sensor
          call sensor-get using horizontal-veloc-sensor
          compute vertical-veloc-bias 
             = function integer(vertical-veloc-sensor) 
          compute horizontal-veloc-bias
             = function integer(horizontal-veloc-sensor)
      *    ...
          stop run.
          num1 section.
            call calculate-vertical-veloc. 
          num2 section.
           call use-irs1.
         end-program irs2.
      *       Wirkung:
      * 37 Sekunden nach Zünden der Rakete (30 Sekunden nach Liftoff)
      * erreichte Ariane 5 in 3700 m Flughöhe eine
      * Horizontal-Geschwindigkeit von 32768.0 (interne Einheiten). 
      * Dieser Wert lag etwa fünfmal höher als bei Ariane 4.

      * Die Umwandlung in eine ganze Zahl führte daher zu einem Überlauf,
      * der jedoch nicht abgefangen wurde. 

      * Der Ersatzrechner (Redundanz !) hatte das gleiche Problem schon
      * 72 msec vorher und schaltete sich sofort ab. 
      * Daraus resultierte, daß Diagnose-Daten zum Hauptrechner geschickt
      * wurden, die dieser als Flugbahndaten interpretierte.

      * Daraufhin wurden unsinnige Steuerbefehle an die seitlichen,
      * schwenkbaren Feststoff-Triebwerke, später auch an das Haupttriebwerk
      * gegeben, um die großen Flugabweichungen (über 20 Grad) korrigieren
      * zu können. Die Rakete drohte jedoch auseinanderzubrechen und
      * sprengte sich selbst (39 sec). 

      * Ein intensiver Test des Navigations- und Hauptrechners wurde nicht
      * unternommen, da die Software bei Ariane 4 erprobt war.