DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T X ┃
Length: 906 (0x38a) Types: TextFile Names: »XSUN4_USER_COMMANDS«
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS └─ ⟦91c658230⟧ »DATA« └─⟦5d656759a⟧ └─⟦this⟧ └─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3 └─ ⟦fc9b38f02⟧ »DATA« └─⟦8e9e227a9⟧ └─⟦this⟧
-- This is a template for changing key bindings for the XSun4 keyboard. -- 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 XSun4_Key_Names; procedure XSun4_Commands is use XSun4_Key_Names; type Intent is (Prompt, Execute, Interrupt); Action : Intent; Key_1 : Key_Names; Key_2 : 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_1 is when others => null; end case; end case; end XSun4_Commands;