|
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: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Tamputil, seg_04fa87
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Tampon;
with Text_Io;
procedure Tamputil is
function Okay (C : Character) return String is
begin
return Character'Image (C);
end Okay;
package T is new Tampon (10, Character, Okay);
package Int_Io is new Text_Io.Integer_Io (Integer);
use Text_Io;
begin
declare
E : Character;
Choix : Integer;
begin
Choix := 0;
while Choix /= 9 loop
New_Line (2);
Put_Line ("1. Creer tampon");
Put_Line ("2. Entrer element");
Put_Line ("3. Sortir element");
Put_Line ("4. Vider tampon");
Put_Line ("5. Visualiser");
Put_Line ("9. Fin");
Int_Io.Get (Choix);
case Choix is
when 1 =>
T.Creer_Tampon;
when 2 =>
Put ("Caractere a mettre : ");
Get (E);
T.Entrer_Element (E);
when 3 =>
E := T.Sortir_Element;
when 4 =>
T.Vider_Tampon;
when 5 =>
T.Lister_Tampon;
when others =>
null;
end case;
end loop;
exception
when T.Err_Pile_Vide =>
Put_Line ("Pile vide");
when T.Err_Pile_Pleine =>
Put_Line ("Pile pleine");
when others =>
Put_Line ("Erreur non referencee");
end;
end Tamputil;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=23 rec1=00 rec2=01 rec3=04e
[0x01] rec0=16 rec1=00 rec2=02 rec3=001
tail 0x2154aa66887793ba85a13 0x42a00088462060003