|
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 - metrics - download
Length: 1628 (0x65c)
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«
└─⟦a6b02b59f⟧
└─⟦this⟧
with Cap;
use Cap;
with Coordonnees;
use Coordonnees;
with Point;
with Terminal;
with Text_Io;
with Terminaux;
package body Action is
-- realisation de la procedure ecran
procedure Envoyer_Caractere (C : in Character; No : in Integer) is
Old_P : Point.Objet renames Mes_Terminaux (No).Loc_Point;
P : Point.Objet := Mes_Terminaux (No).Loc_Point;
Affichage : Boolean := True;
begin
case C is
when 'v' =>
Point.Bouger (Point => P, Sens => Sud);
when 'r' =>
Point.Bouger (Point => P, Sens => Nord);
when 'g' =>
Point.Bouger (Point => P, Sens => Est);
when 'd' =>
Point.Bouger (Point => P, Sens => Ouest);
when 'b' =>
Point.Bouger (Point => P, Sens => Sud_Est);
when 'c' =>
Point.Bouger (Point => P, Sens => Sud_Ouest);
when 't' =>
Point.Bouger (Point => P, Sens => Nord_Est);
when 'e' =>
Point.Bouger (Point => P, Sens => Nord_Ouest);
when '6' =>
Mon_Terminal.Fermer (Terminal => Mes_Terminaux (No).Handle);
Affichage := False;
when others =>
Affichage := False;
end case;
if Affichage then
for I in 1 .. Terminaux.Last_Term loop
Point.Effacer (No_Terminal => I, Point => Old_P);
Point.Afficher (No_Terminal => I, Point => P);
end loop;
Old_P := P;
end if;
end Envoyer_Caractere;
end Action;