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
Index: ┃ C T ┃

⟦cb89320d8⟧ TextFile

    Length: 2112 (0x840)
    Types: TextFile
    Names: »CATVSDOG«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

pour abs prendre {
    avec de:i. 
    (i<0) SiVrai: {
        renvoyer i moins
    } SiFaux: {
        renvoyer i
    }
}.                       
pour chat prendre Tortue clone.
pour matortue prendre Tortue clone.
pour recherche prendre {             
    pour theta prendre 0.         
    pour XCible prendre chat TonX.
    pour YCible prendre chat TonY.
    pour Xa prendre 0.
    pour Ya prendre 0. 
    pour Xb prendre 0.
    pour Yb prendre 0.
    pour Xc prendre 0.
    pour Yc prendre 0.  

    matortue leveTaPlume.
    matortue tonAngle: Tortue TonAngle.
    matortue TonX: Tortue TonX.
    matortue TonY: Tortue TonY.
    matortue avance: 100.
    pour Xa prendre abs de:(XCible - (matortue TonX)).
    pour Ya prendre abs de:(YCible - (matortue TonY)).
    pour na prendre Xa+Ya.
   
    matortue tonAngle: Tortue TonAngle + 5.
    matortue TonX: Tortue TonX.
    matortue TonY: Tortue TonY.
    matortue avance: 100.
    pour Xb prendre abs de:(XCible - (matortue TonX)).
    pour Yb prendre abs de:(YCible - (matortue TonY)).
    pour nb prendre Xb+Yb.

    matortue tonAngle: Tortue TonAngle - 5.
    matortue TonX: Tortue TonX.
    matortue TonY: Tortue TonY.
    matortue avance: 100.
    pour Xc prendre abs de:(XCible - (matortue TonX)).
    pour Yc prendre abs de:(YCible - (matortue TonY)).
    pour nc prendre Xc+Yc. 

    ((na<nb)&(na<nc)) SiVrai:{
        pour theta prendre Tortue TonAngle.
    } SiFaux: {
        (nb<nc) SiVrai:{
            pour theta prendre Tortue TonAngle+5.
        } SiFaux: {
            pour theta prendre Tortue TonAngle-5.
        }.
    }.
    renvoyer theta
}.       
Tortue TonX:400 TonY:400.
Tortue BaisseTaPlume.             
chat tonX:100 TonY:100.
chat baissetaplume. 
Tortue Tonangle:270.
Tortue moyen.
Stylo TonX:50 TonY:100.
Stylo ecris:"Chat".
Stylo TonX:380 TonY:420.
Stylo ecris:"Chien".
150 fois: {
    Tortue TonAngle: recherche valeur.    
    Tortue avance:10.
    chat avance:10.
    (Chat TonX > 700) SiVrai: {
        Chat TonAngle:chat TonAngle+90.
        (Chat TonAngle = 90) SiVrai:{
            Chat avance:100.
        }.
    }.
}.