|
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: 8192 (0x2000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Fill_Coded, seg_0499c5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Calendar, Text_Io, Order, View, View_List, Order_Array, The_Place,
Message_Array, Cheat_Mode, The_Hero, Group_Identifier_Array,
Instruction_List, Identifier, Complement_Array,
Complement, Coded_Order_Array, Order_List, Cheat_Code;
package body Fill_Coded is
procedure Start is
A_View : View.Object;
L_V : View_List.Object;
An_Order, F_Order : Order.Object;
L_I : Instruction_List.Object;
Ok : Boolean;
begin
Cheat_Code.Put ("albator");
Message_Array.Put (Identifier.From_String ("tu t'es plante !"), Ok);
Message_Array.Put
(Identifier.From_String ("Tu peux t'exprimer plus clairement !"),
Ok);
Message_Array.Put (Identifier.From_String ("Je comprends rien !"), Ok);
Group_Identifier_Array.Put (Identifier.From_String ("salle"), Ok);
Group_Identifier_Array.Put (Identifier.From_String ("direction"), Ok);
Complement_Array.Put (Complement.Place_Object,
Identifier.From_String ("cuisine"), Ok);
Complement_Array.Put_Group (Identifier.From_String ("cuisine"),
Identifier.From_String ("salle"), Ok);
Complement_Array.Put (Complement.Place_Object,
Identifier.From_String ("chambre"), Ok);
Complement_Array.Put_Group (Identifier.From_String ("cuisine"),
Identifier.From_String ("salle"), Ok);
Complement_Array.Put (Complement.Entity_Object,
Identifier.From_String ("gaston"), Ok);
Complement_Array.Put (Complement.Animate_Object,
Identifier.From_String ("fred"), Ok);
Complement_Array.Put_Word (Identifier.From_String ("de"), Ok);
Complement_Array.Put_Word (Identifier.From_String ("nord"), Ok);
Complement_Array.Put_Group (Identifier.From_String ("nord"),
Identifier.From_String ("direction"), Ok);
Complement_Array.Put_Verb (Identifier.From_String ("courir"),
Identifier.From_String ("aller"), Ok);
The_Place.Put (Complement_Array.Index ("cuisine"));
The_Hero.Put (Complement_Array.Index ("gaston"));
Order.Put_Place (An_Order, "cuisine");
Order.Put_First_Complement (An_Order, "courir");
Order.Put_Second_Complement (An_Order, "direction");
Order.Put_Third_Complement (An_Order, "de");
Order.Put_Fourth_Complement (An_Order, "salle");
Order_List.Put (An_Order, Ok);
View.Create_Sentence (A_View, Identifier.From_String
("cuisine courir direction de salle"));
View_List.Put (L_V, A_View);
Instruction_List.Insert_Display (L_I, L_V);
Instruction_List.Insert_Next_Line (L_I);
Coded_Order_Array.Put (An_Order, L_I, Ok);
Order.Put_Place (An_Order, "cuisine");
Order.Put_First_Complement (An_Order, "courir");
Order.Put_Second_Complement (An_Order, "direction");
Order.Put_Third_Complement (An_Order, "de");
Order.Put_Fourth_Complement (An_Order, "chambre");
Order_List.Put (An_Order, Ok);
L_I := Instruction_List.Null_Object;
L_V := View_List.Null_Object;
View.Create_Sentence (A_View,
Identifier.From_String
("cuisine courir direction de chambre"));
View_List.Put (L_V, A_View);
Instruction_List.Insert_Display (L_I, L_V);
Instruction_List.Insert_Next_Line (L_I);
Coded_Order_Array.Put (An_Order, L_I, Ok);
end Start;
end Fill_Coded;
nblk1=7
nid=4
hdr6=a
[0x00] rec0=1d rec1=00 rec2=01 rec3=014
[0x01] rec0=00 rec1=00 rec2=03 rec3=028
[0x02] rec0=13 rec1=00 rec2=06 rec3=076
[0x03] rec0=17 rec1=00 rec2=05 rec3=024
[0x04] rec0=16 rec1=00 rec2=02 rec3=000
[0x05] rec0=09 rec1=00 rec2=04 rec3=000
[0x06] rec0=0e rec1=00 rec2=04 rec3=000
tail 0x2174dfd8a865f83362013 0x42a00088462060003
Free Block Chain:
0x4: 0000 00 07 00 4e 80 22 6c 65 6e 64 61 72 2e 53 65 63 ┆ N "lendar.Sec┆
0x7: 0000 00 00 00 15 80 12 65 6d 65 6e 74 20 28 41 6e 5f ┆ ement (An_┆