DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦1dba23cd4⟧ TextFile

    Length: 363 (0x16b)
    Types: TextFile
    Names: »FICHIER«

Derivation

└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

 
  PROCEDURE calcul 
   BEGIN
     valeur1 = SIN ( 0012.0000) * 003.000 - 002.000*(0001.000 + 0008.000 / ( 0002.0000 * (0002.0000 )) ) / 0002.0000  END

     UneAutreValeur  = 0012.0000 + Valeur1 END 
     a = 0017.50000  END   
     a = valeur1 END  
     ? UneAutreValeur  END 
     ? valeur1 END                 
     ? a END
     ? UneAutreValeur END
   END