|
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, generic, package Terminal, seg_05c19e, seg_05c1cc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
generic with procedure Envoyer_Caractere (C : in Character; No : in Integer); package Terminal is Max_Coordonnee : constant Natural := 100; subtype Tcoordonnees is Natural range 1 .. Max_Coordonnee; Max_Lin : constant Tcoordonnees := 24; Max_Col : constant Tcoordonnees := 80; type Handle is private; procedure Init_Configuration; function Creer (Col : in Tcoordonnees := Max_Col; Lin : in Tcoordonnees := Max_Lin; No : in Integer) return Handle; procedure Ecrire (Terminal : in Handle; C : in Character; X, Y : in Tcoordonnees; Blink : in Boolean := False); procedure Fermer (Terminal : in out Handle); private type Objet; type Handle is access Objet; end Terminal;
nblk1=2 nid=2 hdr6=2 [0x00] rec0=1c rec1=00 rec2=01 rec3=000 [0x01] rec0=0a rec1=00 rec2=02 rec3=000 tail 0x2176b68b889594212a770 0x42a00088462060003 Free Block Chain: 0x2: 0000 00 00 00 6d 80 18 56 61 6c 75 65 5f 45 72 72 6f ┆ m Value_Erro┆