DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ F T ┃

⟦8de2af1e1⟧ TextFile

    Length: 992 (0x3e0)
    Types: TextFile
    Names: »FACIT_USER_COMMANDS«

Derivation

└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
    └─ ⟦fc9b38f02⟧ »DATA« 
        └─⟦9b46a407a⟧ 
            └─⟦12c68c704⟧ 
                └─⟦this⟧ 
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS 
    └─ ⟦91c658230⟧ »DATA« 
        └─⟦458657fb6⟧ 
            └─⟦220843204⟧ 
                └─⟦this⟧

TextFile

-- This is a template for changing key bindings for the Facit terminal
-- Installing this procedure, with the desired case entries, will change the
-- actions caused by those keys for any sessions that are created with 
-- visibility to this procedure.

with Facit_Key_Names;

procedure Facit_Commands is 
    use Facit_Key_Names;

    type Intent is (Prompt, Execute, Interrupt);

    Action : Intent;

    Key_1  : Key_Names;
    Key_2  : Key_Names;
    Key_3  : Key_Names;
    Key_4  : Key_Names;
    Key_5  : Key_Names;
    Key_6  : Key_Names;

begin
    case Action is

        when Prompt => 
            case Key_1 is
                when others => null;
            end case;

        when Execute => 
            case Key_1 is
                when others => null;
            end case;                         
            
        when Interrupt =>
            case Key_2 is
                when others => null;
            end case;
            
    end case;

end Facit_Commands;