|
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: 9216 (0x2400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Cheat_Mode, seg_049c02, seg_049c08, seg_049c1d
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Screen, Complement_Array;
package body Cheat_Mode is
type Complement_Type is (Animate, Place, Entity, Verb, Word, Every);
procedure Display_Complement_List (A_Type : in Complement_Type) is
Colonne : Positive := 1;
Max_Colonne : Positive := 15;
Print : Boolean;
begin
Complement_Array.List_Complement_Init;
while not Complement_Array.List_Complement_Done loop
Print := False;
case A_Type is
when Animate =>
if Complement_Array.Is_An_Animate
(Complement_Array.List_Complement_Name) then
Print := True;
end if;
when Place =>
if Complement_Array.Is_A_Place
(Complement_Array.List_Complement_Name) then
Print := True;
end if;
when Entity =>
if Complement_Array.Is_An_Entity
(Complement_Array.List_Complement_Name) then
Print := True;
end if;
when Verb =>
if Complement_Array.Is_A_Verb
(Complement_Array.List_Complement_Name) then
Print := True;
end if;
when Word =>
if Complement_Array.Is_A_Word
(Complement_Array.List_Complement_Name) then
Print := True;
end if;
when Every =>
Print := True;
end case;
if Print = True then
Screen.Write_Help_Window
(Complement_Array.List_Complement_Name & " ",
Screen.Bold_Font);
Colonne := Colonne + 1;
if Colonne = Max_Colonne then
Colonne := 1;
Screen.New_Line_Help_Window;
end if;
end if;
Complement_Array.List_Complement_Next;
end loop;
Screen.New_Line_Help_Window;
end Display_Complement_List;
procedure Menu is
begin
Screen.Write_Help_Window (" ");
Screen.Write_Help_Window ("Vous pouvez visualiser :",
Screen.Bold_Underline_Font);
Screen.New_Line_Help_Window;
Screen.New_Line_Help_Window;
Screen.Write_Help_Window
(" La liste de tous les complements (comp), les animes (anim)",
Screen.Bold_Font);
Screen.New_Line_Help_Window;
Screen.Write_Help_Window
(" La liste de tous les lieux (lieu), les entites (enti)",
Screen.Bold_Font);
Screen.New_Line_Help_Window;
Screen.Write_Help_Window
(" La liste de tous les mots (mots), les verbes (verb)",
Screen.Bold_Font);
Screen.New_Line_Help_Window;
Screen.Write_Help_Window
(" La structure d'un complement en rentrant son nom, Ou bien revenir au jeu (quit)",
Screen.Bold_Font);
Screen.New_Line_Help_Window;
Screen.New_Line_Help_Window;
end Menu;
procedure Choice is
A_String : String (1 .. 80);
Quit : Boolean := False;
Last : Natural;
begin
while not Quit loop
Menu;
Screen.Read_Player_Window (A_String, Last);
if Last = 4 then
if A_String (1 .. 4) = "comp" then
Display_Complement_List (Every);
elsif A_String (1 .. 4) = "anim" then
Display_Complement_List (Animate);
elsif A_String (1 .. 4) = "lieu" then
Display_Complement_List (Place);
elsif A_String (1 .. 4) = "enti" then
Display_Complement_List (Entity);
elsif A_String (1 .. 4) = "mots" then
Display_Complement_List (Word);
elsif A_String (1 .. 4) = "verb" then
Display_Complement_List (Verb);
elsif A_String (1 .. 4) = "quit" then
Quit := True;
else
Screen.Write_Help_Window ("Ce choix n'est pas possible !");
end if;
elsif Complement_Array.Belong (A_String (1 .. Last)) then
Complement_Array.Show (A_String (1 .. Last));
else
Screen.Write_Help_Window
("Ce complement n'existe pas possible !");
end if;
Screen.New_Line_Help_Window;
end loop;
end Choice;
procedure Start is
begin
Screen.Open_Help_Window;
Screen.Write_Help_Window (" ");
Screen.Write_Help_Window ("Bienvenu dans l'aide du logiciel !",
Screen.Bold_Underline_Font);
Screen.New_Line_Help_Window;
Screen.New_Line_Help_Window;
Screen.New_Line_Help_Window;
Choice;
Screen.Close_Help_Window;
end Start;
end Cheat_Mode;
nblk1=8
nid=5
hdr6=c
[0x00] rec0=1d rec1=00 rec2=01 rec3=00e
[0x01] rec0=16 rec1=00 rec2=02 rec3=05a
[0x02] rec0=1a rec1=00 rec2=03 rec3=014
[0x03] rec0=1a rec1=00 rec2=08 rec3=050
[0x04] rec0=17 rec1=00 rec2=06 rec3=026
[0x05] rec0=0f rec1=00 rec2=07 rec3=000
[0x06] rec0=0c rec1=00 rec2=05 rec3=001
[0x07] rec0=68 rec1=65 rec2=93 rec3=532
tail 0x21547390e86619da65072 0x42a00088462060003
Free Block Chain:
0x5: 0000 00 04 01 b9 80 11 4f 70 65 6e 5f 48 65 6c 70 5f ┆ Open_Help_┆
0x4: 0000 00 00 00 41 80 07 75 22 20 74 68 65 6e 07 00 34 ┆ A u" then 4┆