|
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, package Ihm, seg_0256f7, seg_026ea9, seg_0274f1, seg_027e51
└─⟦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 System; package Ihm is subtype Window_Id is Integer; package Window is function Name (Wid : Window_Id) return String; function Open (Name : String) return Window_Id; procedure Close (Wid : Window_Id); procedure Put_Field (Wid : Window_Id; Field : String; Value : String); procedure Display_Field (Wid : Window_Id; Field : String; Value : String); function Nb_Wid return Window_Id; end Window; package Event is type Kind is (Pushbutton, Fieldenter, Putfield, Unknown); function Get_Event (Wid : Window_Id) return Kind; function Get_Field (Wid : Window_Id) return String; function Get_Value (Wid : Window_Id) return String; procedure Next (Wid : Window_Id); function Empty (Wid : Window_Id) return Boolean; end Event; package Xt is procedure Process_Event; end Xt; end Ihm;
nblk1=2 nid=2 hdr6=2 [0x00] rec0=1e rec1=00 rec2=01 rec3=000 [0x01] rec0=09 rec1=00 rec2=02 rec3=001 tail 0x217205b0483a2815bf84a 0x42a00088462060003 Free Block Chain: 0x2: 0000 00 00 00 24 80 02 74 3b 02 00 0b 20 20 20 20 65 ┆ $ t; e┆