DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦148486978⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Process_Expose, seg_00539b, separate Puz_Main

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

separate (Puz_Main)  
procedure Process_Expose (Event : in out X_Event) is  
    Loopi  : X_Status  := Successful;  
    Reseti : S_Natural := 0;  
    Title  : S_Natural := 0;  
    Tiles  : S_Natural := 0;  
    Bar    : S_Natural := 0;  
begin

    while Loopi /= Failed loop  
        if "=" (Event.Kind, Expose) and then  
           Event.Expose.Count = 0 then  
            if "=" (Event.Window, Title_Window) then  
                Title := Title + 1;  
            elsif "=" (Event.Window, Tile_Window) then  
                Tiles := Tiles + 1;  
            elsif "=" (Event.Window, Puzzle_Root) then  
                Bar := Bar + 1;  
            end if;  
        end if;  
        X_Check_Mask_Event  
           (Dpy, (Exposure_Mask => True, others => False), Event, Loopi);  
    end loop;  
    if Sizechanged then  
        Reseti := Reseti + 1;  
    end if;

    if Reseti /= 0 then  
        Reset;  
    else  
        if Title /= 0 then  
            Repaint_Title (Title_Tiles);  
        end if;  
        if Tiles /= 0 then  
            Repaint_Tiles;  
        end if;  
        if Bar /= 0 then  
            Repaint_Bar;  
        end if;  
    end if;

end Process_Expose;  

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=20 rec1=00 rec2=01 rec3=028
        [0x01] rec0=0c rec1=00 rec2=02 rec3=000
    tail 0x21500a02e81978954098f 0x42a00088462063203