|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2111 (0x83f)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦c5529bc5e⟧
└─⟦this⟧
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.
}.
}.
}