|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ B T ┃
Length: 698 (0x2ba)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
with Scene;
with Text_Io;
with Intermediate_Code;
procedure Test_Global is
Ms : Scene.P_Scene;
begin
Intermediate_Code.Open ("test_projo2", Text_Io.Out_File);
Intermediate_Code.Put (04, 02, 01, 100);
Intermediate_Code.Put (04, 01, 02, 1);
Intermediate_Code.Put (4, 01, 99, 0);
Intermediate_Code.Put (4, 6, 100, 50);
Intermediate_Code.Put (04, 2, 200, 0);
Intermediate_Code.Close;
Intermediate_Code.Open ("test_projo2", Text_Io.In_File);
Ms := Scene.Lire_Scene (Ms);
Intermediate_Code.Close;
Scene.Affiche_Scene (Ms);
Text_Io.Put_Line ("fin de l'affichage");
Scene.Jouer_Scene (Ms);
Text_Io.Put_Line ("fin de la scene");
end Test_Global;